[arya67]

درود  بر مهندسین بزرگوار
راهی هست که از پرداخت درون برنامه ای برای مارکت بازار ، تو برنامه هایی که با b4a طراحی میشه استفاده کرد؟ 

 

خیر دوست من امکانش الآن وجود ندارد و شما باید یک wrapper برای کتابخانه بازار خودتون بنویسید

 

---

درود
این کد رو ببینید.

کد پی‌اچ‌پی:

Sub Globals

    Dim TransparentPanelOnTop As Panel
   Dim Button1 As Button
   Dim Button2 As Button
   Dim Label1 As Label
   Dim PositionX As Float
   Dim PositionY As Float
End Sub

Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("Label1")
Button1.Initialize("Button1")
Button2.Initialize("Button2")
TransparentPanelOnTop.Initialize("TransparentPanelOnTop")


Label1.Text = "Waiting dor click..."
Button1.Text = "I am a Button1 CLICK ME"
Button2.Text = "I am a Button2 CLICK ME"

Activity.AddView(Label1,10,10,Activity.Width - 20,60)
Activity.AddView(Button1,10,100,Activity.Width - 20,60)
Activity.AddView(Button2,10,180,Activity.Width - 20,60)
Activity.AddView(TransparentPanelOnTop,0,0,100%x,100%y)
TransparentPanelOnTop.Color = Colors.Transparent
TransparentPanelOnTop.BringToFront
End Sub


Sub TransparentPanelOnTop_Touch (Action As Int, x As Float, Y As Float) As Boolean 
If Action = Activity.ACTION_DOWN Then
   PositionX = x
   PositionY = Y
End If
End Sub

Sub Button1_Click
Label1.Text = "You Clicked Button1 with positions : X = " & PositionX & " Y = " & PositionY
End Sub

Sub Button2_Click
Label1.Text = "You Clicked Button2 with positions : X = " & PositionX & " Y = " & PositionY
End Sub 


این کدی است که خودشون واسه تاچ کردن قرار دادن
اما مشکل اینه که نمیشه رو button ها کلیک کرد چون panel روش قرار گرفته
اگه کسی میدونه چیکار باید بکنم ممنون میشم جواب بده

اگه بشه x و y تاچ روی صفحه رو هم با یک تابعی بدست آورد خوبه ولی نمیدونم چطوری

 

 

 

 

سلام دوست من
شما دقیقا میخواین چکار کنید با برنامه؟
اگر به دکمه ها احتیاج دارین، بیارینشون روی پنل
x , y تاچ رو هم که تو کدی که فرستادین داخل TransparentPanelOnTop_Touch وجود دارد و میتونین ازونجا چک کنید...

---

درود  
اشکال این برنامه چیه ؟  لطفا استاتید راهنمایی کنند
 قرار با کشیدن دست روی صفحه  خط یکشه#Region  Project Attributes 
    #ApplicationLabel: Test Draw
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    
'    Dim bmpImage, bmpTest, bmpTransparent As Bitmap
    Dim pnlTest As Panel
    Dim cvsImage, cvsTest As Canvas
    Dim Label3 As Label        
    Dim Label4 As Label        
    Dim LineColor As Int            : LineColor=Colors.Blue
    Dim LineWidth As Float        : LineWidth=3
    Dim x1 As Float                    : x1=0
    Dim y1 As Float                : y1=0
    Dim x2 As Float                    : x2=0
    Dim y2 As Float                : y2=0

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout")
    cvsImage.Initialize(Activity)
    Label3.Text ="X = 0.0"
    Label4.Text ="Y = 0.0"
End Sub

Sub Activity_Resume

End Sub


Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    
    If Action=Activity.ACTION_DOWN Then
        x1=X
        y1=Y
        x2=X
        y2=Y
        Label3.Text="X = " & X
        Label4.Text="Y = " & Y
      Else If Action=Activity.ACTION_MOVE Then
        x2=X
        y2=Y
        pnlTest.Color=Colors.Transparent
        cvsTest.Initialize(pnlTest)
        cvsTest.DrawLine(x1,y1-pnlTest.Top,x2,y2-pnlTest.Top,Colors.Red,LineWidth)
        pnlTest.Invalidate
    
        Label3.Text="X = " & X
        Label4.Text="Y = " & Y
      Else If Action=Activity.ACTION_UP Then
        pnlTest.Color=Colors.Transparent
        cvsTest.Initialize(pnlTest)
        cvsImage.DrawLine(x1,y1,x2,y2,LineColor,LineWidth)
    
    End If
End Sub


 

 

دوست من شما error رو بگین تا ببینیم خطا از چیه
یا از منوی File> Export فایل ZIP رو قرار بدین تا بشه بررسی کرد