خوش آمدید

مهمان گرامی به انجمن کویک لرن خوش آمدی ، برای استفاده از تمامی امکانات در انجمن عضو شوید.


sedat

عضو عادی
  • تعداد ارسال ها

    12
  • تاریخ عضویت

  • آخرین بازدید

  1. سلام دوستان چطور میتونم به طور اتوماتیک ایمیج ویو خلق کنم یعنی وقتی بروروی ایمیج ویو کلیک و عکس را انتخاب کردیم یه ایمیج ویو دیگه در کنار آن ایجاد و با کلیک بر روی آن عکس دیگر را انتخاب و به همین ترتیب یعنی تعداد ایمیج ویو محدود نباشه ممنون
  2. سلام دوستان کسی میدونه چطور میشه عکس رو به دیتابیس آنلاین فرستاد ؟ ممنون
  3. سلام دوستان چطور میشه یک تایمر به قسمتی از برنامه داد که حتی بعد از خارج شدن از برنامه غیر فعال نشود و وابسته به ساعت گوشی هم نباشه ؟!!! #Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals Dim tmrentezar As Timer Dim i As Int End Sub Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") tmrentezar.Initialize("tmr",1000) i = 1 tmrentezar.Enabled = True End Sub Sub tmr_Tick If i = 20 Then tmrentezar.Enabled = False Activity.Finish Else i = i + 1 End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub من این تایمر رو توی یکی از اکتیویتی ها دارم ، میخوام وقتی کاربر از برنامه خارج شد تایمر متوقف نشه
  4. سلام دوستان چطور میتونم با استفاده از پنل پیامکی کد تایید ارسال کنم؟ ممنون
  5. کسی ن میدونه؟
  6. سلام و خسته نباشید به اساتید با چه کدی میشه شماره سیم کارتو دریافت کرد؟
  7. سلام این کارو قبلا انجام دادم ولی چون واب نداد از نوع int قرار دادم در منیفست این کد رو قرار دادم AddPermission("android.permission.SEND_SMS") ولی باز هم نشد
  8. من از این کد برای ارسال پیامک استفاده میکنم جواب هم میده Sub Globals Dim a As PhoneSms Private EditText1 As EditText Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") End Sub Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent) If Success=False Then Msgbox("پیغام ارسال نشد" & ErrorMessage,"خطا") Else Msgbox("پیغام شما با موفقیت ارسال شد","ارسال شد") End If End Sub Sub check_SmsDelivered (PhoneNumber As String, Intent As Intent) Msgbox("پیغام شما دریافت شد","دریافت") End Sub Sub Button1_Click a.Send2("09123456789","salam",True,True) End Sub اما وقتی میخام که در برنامه به شماه ای که تو ادیت تکست مینویسم پیام بره نمیشه . کد رو به صورت زیر تغییر میدم Sub Globals Dim z as int Dim a As PhoneSms Private EditText1 As EditText Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") End Sub Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent) If Success=False Then Msgbox("پیغام ارسال نشد" & ErrorMessage,"خطا") Else Msgbox("پیغام شما با موفقیت ارسال شد","ارسال شد") End If End Sub Sub check_SmsDelivered (PhoneNumber As String, Intent As Intent) Msgbox("پیغام شما دریافت شد","دریافت") End Sub Sub Button1_Click z=EditText1.text a.Send2(z,"salam",True,True) End Sub اشکال کجاس؟
  9. سلام خدمت دوستان چطور میتونم در b4a پیامک ارسال کنم من یک برنامه نوشتم که آنلاینه و میخام وقتی مشتری شمارشو وارد کرد کد تایید و بدون استفاده از پنل پیامکی براش ارسال کنم مثلا با خط ایرانسل ارسال کنم الان شماره رو دریافت میکنم فقط ارسال sms در بیسیکو لازم دارم ممنون میشم از دوستان کمک کنید
  10. متن بالا رو خودم نوشتم وقتی با اپ فرمو پر می کنم اطلاعات روی هاستم میشنه و برای خوندنش هم لیست ویو رو میتونم اما خالیه من نمیخام اطلاعات با فاصله از هم باشه من میخام اصلاعات روی لیست ویو باشه که قابلیت انتخاب داشته باشه ضمنا با اینتر خط جابه جا نشد
  11. سلام دوستان کسی میدونه چطور میشه اطلاعات رو از دیتابیس آنلاین بر روی لیست ویو خووند تو این عکس من برروی لبل خوندم و الان همه ستونها و سطرها رو پشت سر هم میخونه. ممنون