[mpc]

چرا وقتی تبلت را بطورت افقی قرار میدیم برنامه توشته شده با B4A از نو شروع به اجرا میکنه ؟
باز اگر گ.شی را به صورت عمودی برگردانیم دور باره برنامه از اول شروع میشود ؟ 

---

درود  
اشکال این برنامه چیه ؟  لطفا استاتید راهنمایی کنند
 قرار با کشیدن دست روی صفحه  خط یکشه 

چقدر جواب دادید
آدم امیدوار میشه به راهنمایی های شما

میشه سورس چند نمونه برنامه خوب از ساده به سخت  را در سایت قرار دهید و یا منبع آن ها را معرفی نمائید


 

 

در ادامه پرسش بالا
دوستان یه برنامه برای نقاشی نوشتم فعلا در مرحله اولیه 
لطفا دانلود کنید و نظر بدهید  خوشخال میشم


 

[kore.khow]

سلام یه فایل database.db دارم میخوام یکی از فیلد هاشو تو یه textbox نشون بدم راهنمایی لطفا

[vahid1363]

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

[Amin_Mansouri]

درود یه فایل database.db دارم میخوام یکی از فیلد هاشو تو یه textbox نشون بدم راهنمایی لطفا

 

سلام
سمپل کار با دیتابیس رو گذاشتم سرچ کنید

 

[Amin_Mansouri]

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

 

درود
نیازی به این کار نیست وقتی تو بازار تو بازار ثبت کنید خودشون واستون به فروش میزارن کار خرید برنامه و ثبت هزینه بر عهده کافه بازار هست.



 

[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 رو قرار بدین تا بشه بررسی کرد

[parsvb]

درود دوست عزیز [b]arya67[/b]
مرسی از توجه تون
خوب مشکل من با لینک هایی که آقای منصوری زحمتشو کشیدن حل شد
ولی جهتی که واسه دوستان هم جنبه آموزشی داشته باشه مشکلم این بود :

- فرض کنیم که 10 تا دکمه داریم که در کنار هم باشند و بخواهیم هر کدام را drag کنیم اگر روی panel که transparent  شده قرار بگیرن خوب دیگه عمل تاچ از روی اونا انجام نمیشه چون ما تاچ رو واسه panel نوشتیم نه دکمه ها،  و اگر زیر باشند دیگه نمیشه روش کلیک کرد چون عمل کلیک واسه panel انجام میشه.

تو صفحه 48 هم آقای منصوری 2 لینک دادن که این قضیه رو حل می کنه

[mojtaba212]

با سلام خدمت شما دوست عزیز شما نوشتین آموزش بیسیک فور اندروید ولی فقط صفحه اول به آموزش مربوط بود و صفحات دیگر فقط به سوالات دوستان پاسخ داده بودید من سرچ کردم ولی تو 50 صفحه پیدا کردن آموزش مربوط به استفاده از دیتا بیس sqlight را پیدا کرد لطفا لینک آموزش کلمب نحوه ضخیره سازی و نحوه باز خوانی و نحوه سرچ در دیتا بیس را بگذارید و یا اگر ندارید آن را برایمان بگذارید خیلی از لطف شما سپاسگذاریم.یه سوال دیگه هم یکی از دوستان داشت که جواب نداده بودید اونم اینکه با چرخش گوشی برنامه از نو استارت میخوره باید چیکار کنیم که اینطوری نشه

[mpc]

با درود خدمت شما دوست عزیز ........
.
.
یه سوال دیگه هم یکی از دوستان داشت که جواب نداده بودید اونم اینکه با چرخش گوشی برنامه از نو استارت میخوره باید چیکار کنیم که اینطوری نشه


 

داغم تازه کردی  


 

 

[Amin_Mansouri]

سلام
AutoScaleAll توی designer script بنویسید
ببینید مشکل حل میشه یا نه؟
نشد rotate کردن رو غیر فعال کنید