[mobilemehdi]

جناب صالحی و ادمین گرامی بنده بعلت اینکه نرم افزار کار موبایل هستم نسخه جاوا موبایل ها با این برنامه تداخل پیدا می کنه
از شما استدعا دارم که یک فایل نصبی که به سایت بالای لینک بشه برام درست کنید

[Amin_Mansouri]

درود
نسخه جاوا موبایل ها با این برنامه تداخل پیدا می کنه )
منظورتون چیه دقیقا؟

[ssalehi213]

جناب صالحی و ادمین گرامی بنده بعلت اینکه نرم افزار کار موبایل هستم نسخه جاوا موبایل ها با این برنامه تداخل پیدا می کنه
از شما استدعا دارم که یک فایل نصبی که به سایت بالای لینک بشه برام درست کنید

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

[mobilemehdi]

درود
نسخه جاوا موبایل ها با این برنامه تداخل پیدا می کنه )
منظورتون چیه دقیقا؟

ادمین گرامی باکس های فلش گوشی ها به نسخه بالا تر جاوا نیاز دارند وقتی این نسخه بالاتر جاوا را نصب کردم دیگه جاوای این برنام از کار افتاد

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

[Amin_Mansouri]

mobilemehdi



دوست عزیزم سلام

خوب هستید؟

دوست عزیزمون که فایل نصبی apk که گفتن براتون پیوست کردن؟

واسه نرم افزار جاوا basic4andorid 1.9 با نسخه جدید مشکل نداره

شما که مهندس هستید یه کم خیلی کوچلو زحمت بکشید.

[mobilemehdi]

خیر پیوست نکردن
من خیلی علاقه دارم و لی رو سیستمم به خدا جواب نمی ده

[Amin_Mansouri]

دقیقا بگومشکلت چیه

که شماخیلی علاقه داری

قول میدم مبحث اموزشیخوببخونی هیچ مشکلی نباشه

[smfazel]

درود چطور میتونم از سنسور مجاورت یا همون PROXIMITY استفاده کنم؟

میخوام فقط با سنسور مجاورت عدد بشمارم، همون کانتر ساده اما بجای فشار دادن دکمه از سنسور مجاورت استفاده کنه، راهی هست؟

من به جواب این سوالم رسیدم، اینجا بیان میکنم تا مورد استفاده بقیه عزیزان هم قرار بگیره
استفاده از سنسور مجاورت (برای بقیه سنسورها هم کاربرد دارد)

1- تعریف کردن کلی سنسور:


Sub Globals
Dim ps As PhoneSensors
End Sub
2- مشخص کردن نوع سنسور که اینجا سنسور مجاورت مد نظر هست:

Sub Activity_Create(FirstTime As Boolean)
ps.Initialize(ps.TYPE_PROXIMITY)
End Sub

3- فعال کردن سنسور برای اجرای دستور:
Sub Activity_Resume
ps.StartListening("ps")
End Sub

4- نسبت دادن یک رویداد در صورت تغییر در سنسور:
Sub ps_SensorChanged (Values() As Float)
***************
End Sub

به جای ستاره، دستور مورد نظر خود را تایپ کنید

با عرض پوزش، من هرچی سعی کردم بازهم نوشته ها به هم ریخته دراومد

[Amin_Mansouri]

دوست عزیز سپاس

کدها رو بزار داخل تگ کدتوی همین ادیتور کنار جایی که نوشته php کلیک کنید بین کدها (کدهاتون بنویسید )

[ssalehi213]

سلام
من میخوام دوربین گوشی رو روشن کنم . کد زیر رو هم نوشتم ولی از x.StartPreview ایراد میگیره .

کد:

Sub Globals
Dim x As Camera
Dim pnlcamera As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
x.Initialize(pnlcamera,cam)
   x.StartPreview
End Sub

Sub cam
      
End Sub