• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 26 رای - 2.77 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: اموزش گام به گام Basic4android
حالت خطی
#7
(09-11-2014، 01:25 PM)Thewolf نوشته:
(09-11-2014، 07:18 AM)mahfelsoft نوشته: درود  ببخشید میشه لطفا کمک کنید . چطور میتونم یک دکمه در b4a بسازم که با کلیک روی اون جملاتی رو که به برنامه دادیم  به صورت تصادفی نمایش داده بشن ؟ اگه کسی کمک کنه سپاسگزار میشم . Blush

دوست عزیز،،،!!! خسته نباشید !!!
کاش سوال خود را در بخش "آموزش برنامه نویسی اندروید با همراه تمامی ابزار" مطرح میکردید!

به هر حال،
یک راه ساده استفاده از لیسته! شما مطالب رو تو فایل Txt تو نوت پد مینویسی بعد با استفاده از لیست اون رو نمایش میدی!

شما ابتدا در ساب Globals لیست ویو تعریف کنید!
Sub Globals
Dim ListViewTxt As List
End Sub
سپس در ساب Activity_Create اون رو فراخوانی میکنی و آدرس فایل تکست رو بهش میدی!
ListViewTxt.Initialize
ListViewTxt = File.ReadList(File.DirAssets,"thewolf.txt")
حالا در رویداد کلیک دکمه کد های زیر رو بهش میدی!
Dim I
I = Rnd(0,ListViewTxt.Size)
Msgbox(ListViewTxt.Get(I),"TheWolf")

تموم شد! هر بار یه خط از فایل تکست رو نشون میده در مسج باکس!

ببخشید من فعلا یه جاییم اینترنت سرعت کمه! واسه همین کدها به صورت متن نوشتم ولی فایل پیوست همینه!اگه دانلود کنی همه چی واضحه!
راستی یه نکته دیگه! فایل تکست باید UTF-8 باشه!!!

اگه بازم امری بود در خدمتم !!! موفق باشید ...

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


پیام‌های این موضوع
RE: اموزش گام به گام Basic4android - توسط Thewolf - 09-11-2014، 01:25 PM
RE: اموزش گام به گام Basic4android - توسط TakOn1 - 11-24-2014، 08:27 AM
RE: اموزش گام به گام Basic4android - توسط TakOn1 - 11-22-2014، 06:24 PM
RE: اموزش گام به گام Basic4android - توسط alang - 11-09-2017، 08:24 AM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Video آموزش های تصویری Basic4Android + (درخواست و سوالات شما) UnknownProgrammer 0 5,752 11-19-2017، 11:07 AM
آخرین ارسال: UnknownProgrammer

پرش به انجمن:


Browsing: 2 مهمان