رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

rezanaseri

کاربر فعال
  • تعداد ارسال ها

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

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

  • روز های برد

    1

تمامی ارسال های rezanaseri

  1. سوال در مورد اسلاید منو

    ذوستان خواهشا یکی ج.اب بده
  2. سوال در مورد اسلاید منو

    با سلام من یک اسلاید منو با کتابخانه AHNavigationDrawer ساختم میام در بخش اسکریپت سایز می دم هیچی نشون نمیده ولی وقتی سایز نمیدم همه چی نشون می ده لطفا کمکم کنید Sub Globals Dim navi As AHNavigationDrawer Dim pCantent As Panel End Sub Sub Activity_Create(FirstTime As Boolean) 'دیگه نیازی به لود لایوت داخل اکتیویتی نیست!!! slide End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub 'پژمان نیکروان 'basuc4android.org Sub Button1_Click navi.OpenDrawer2(navi.GRAVITY_RIGHT) 'باز کردن از سمت راست ' navi.OpenDrawer2(navi.GRAVITY_RIGHT) ' باز کردن از سمت چپ End Sub Sub slide ' navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)'برای چپ چین بودن navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT)' جهت راس چین بودن ساید بار navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) ' برای تغییر میزان مرئی بودن ساید بار 150 را تغییر دهید navi.NavigationPanel.LoadLayout("menu") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.SendToBack pCantent.LoadLayout("main") pCantent.Color = Colors.RGB(234,234,234) End Sub Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float) 'اینو ایجاد میکنیم تا روی پنل منو کلیک شد ، ویو های زیرش عکس العمل نشون ندن End Sub
  3. سلام من می خوام یه لیست مخاطبین برای گوشی خودم درست کنم این کار هم انجام میدم ولی شماره های مخاطبین رو برام نمیاره فقط اسمشون رو میاره چیکار کنم Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim myContactMap As Map Dim myContactList As List 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. Private sms1 As PhoneSms Private sms2 As PhoneSms Dim lvContact As ListView Dim lvLabel1, lvLabel2 As Label Dim lblTitel As Label Dim pnlTitel,pnlStatusleiste As Panel Dim lblname As Label 'Variablen für Rufnummerauswahl Dim cd As CustomDialog2 Dim spnRufnummerauswahl As Spinner Dim lblRufnummerauswahl As Label Dim pnlRufnummerauswahl As Panel Dim imgPhoto As ImageView 'Variablen für Kontakte Dim fgContacts1 As fgContacts Dim fgContact1 As fgContact Dim listOfContacts As List Dim imgDefault As Bitmap Dim blSortModusOld As Boolean Dim phone1 As Phone Type kontakt(Name As String,Nachname As String,IsValidName As Boolean,DisplayName As String,Number As String,foto As Bitmap,index As Int) Private ETmobile As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("frmMain") ETmobile.Text = "09395050393" ETmobile.Visible = False phone1.SetScreenOrientation(-1) fgContacts1.Initialize imgDefault=LoadBitmap(File.DirAssets,"ic_menu_cc.png") If FirstTime Then myContactMap.Initialize myContactList.Initialize listOfContacts.Initialize RefreschKontakts("") End If End Sub Sub Setup_lvContactTextSize SetupListview(lvContact) Dim kontakts As kontakt kontakts.Initialize If myContactMap.IsInitialized Then Dim bAddContact As Boolean Dim name As String For i = 0 To myContactList.Size - 1 kontakts = myContactMap.Get(myContactList.Get(i)) If kontakts.foto=Null Then lvContact.AddTwoLinesAndBitmap2(kontakts.DisplayName, kontakts.Number, imgDefault, kontakts.index) Else lvContact.AddTwoLinesAndBitmap2(kontakts.DisplayName, kontakts.Number, kontakts.foto, kontakts.index) End If Next End If End Sub Sub SetupListview(lv As ListView) lv.Color=Colors.White lv.FastScrollEnabled = True lv.ScrollingBackgroundColor= Colors.Transparent lvLabel1=lv.TwoLinesAndBitmap.Label lvLabel2=lv.TwoLinesAndBitmap.SecondLabel lv.TwoLinesAndBitmap.ImageView.Width = 51dip lv.TwoLinesAndBitmap.ImageView.Height =51dip lv.TwoLinesAndBitmap.ImageView.Left=2dip lv.TwoLinesAndBitmap.ImageView.Top=2dip lv.TwoLinesAndBitmap.ItemHeight=55dip lvLabel1.Left=60dip lvLabel2.Left=60dip lvLabel1.Typeface=Typeface.DEFAULT_BOLD lvLabel1.Gravity = Gravity.LEFT + Gravity.CENTER_VERTICAL lvLabel1.TextColor=Colors.Black lvLabel2.Gravity = Gravity.LEFT + Gravity.CENTER_VERTICAL lvLabel2.TextColor=Colors.Black lvLabel1.Top=2dip lvLabel1.Width= Activity.Width - lvLabel1.Left lvLabel1.Height=24dip lvLabel1.TextSize=18 lvLabel2.Top=28dip lvLabel2.Width= Activity.Width - lvLabel2.Left lvLabel2.Height=20dip lvLabel2.TextSize=16 End Sub Sub Activity_Resume If myContactMap.Size > 0 And myContactList.Size > 0 Then Setup_lvContactTextSize End If End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub RefreschKontakts(Sort As String) Dim strDisplayName As String Dim dsplname As String phone1.SetScreenOrientation(1) ProgressDialogShow("Bitte warten...") DoEvents myContactMap.Clear myContactList.Clear listOfContacts=fgContacts1.GetAllContacts(True, False) Dim IsValid As Boolean For i = 0 To listOfContacts.Size - 1 fgContact1=listOfContacts.Get(i) strDisplayName= fgContact1.FamilyName & " " & fgContact1.GivenName IsValid=True If strDisplayName.Length<>fgContact1.DisplayName.Replace(",","").Length Then strDisplayName=fgContact1.DisplayName IsValid=False End If If myContactList.IndexOf(strDisplayName)=-1 Then Dim kontakts As kontakt kontakts.Initialize kontakts.index=fgContact1.Id kontakts.Name=fgContact1.GivenName kontakts.Nachname=fgContact1.FamilyName kontakts.DisplayName=strDisplayName kontakts.Number=fgContact1.PhoneNumber kontakts.IsValidName=IsValid If fgContact1.Photo<>Null Then kontakts.foto=fgContact1.Photo 'Log("Name: " &strDisplayName & " ; W x H=" & kontakts.foto.Width & "x" & kontakts.foto.Height) Else kontakts.foto=imgDefault End If myContactList.Add(strDisplayName) myContactMap.Put(strDisplayName, kontakts) End If If (i Mod 20)=0 Then DoEvents End If Next myContactList.Sort(True) phone1.SetScreenOrientation(-1) ProgressDialogHide End Sub Sub getKontakt(index As Int) As kontakt Dim IsValid As Boolean Dim kontakts As kontakt kontakts.Initialize For i = 0 To myContactList.Size - 1 kontakts = myContactMap.Get(myContactList.Get(i)) If kontakts.index=index Then Exit End If Next Return kontakts End Sub Sub lvContact_ItemClick (Position As Int, Value As Object) Dim p As PhoneCalls Dim map2 As Map Dim ret As Int Dim kontakts As kontakt kontakts.Initialize kontakts=getKontakt(Value) pnlRufnummerauswahl.Initialize("") lblRufnummerauswahl.Initialize("") ' spnRufnummerauswahl.Initialize("") lblname.Initialize("") imgPhoto.Initialize("") imgPhoto.Gravity=Gravity.FILL lblRufnummerauswahl.TextSize=26 lblRufnummerauswahl.Gravity=Gravity.CENTER_HORIZONTAL + Gravity.TOP lblname.TextSize = 26 lblname.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.TOP ' spnRufnummerauswahl.TextSize=24 pnlRufnummerauswahl.AddView(lblRufnummerauswahl,80dip,5dip,195dip,70dip) pnlRufnummerauswahl.AddView(lblname,5dip,85dip,270dip,50dip) ' pnlRufnummerauswahl.AddView(spnRufnummerauswahl,5dip,85dip,270dip,50dip) pnlRufnummerauswahl.AddView(imgPhoto,5dip,5dip,70dip,70dip) ' spnRufnummerauswahl.AddAll(GetAllPhoneNumber(kontakts.Nachname)) ' spnRufnummerauswahl.SelectedIndex=0 lblRufnummerauswahl.Text=kontakts.DisplayName lblname.Text = kontakts.Number imgPhoto.Bitmap=kontakts.foto cd.AddView(pnlRufnummerauswahl, 280dip,140dip) ret=cd.Show("آیا از انتخاب این مخاطب مطمئن هستید ؟","بله","خیر","",Null) If ret = DialogResponse.POSITIVE Then ' StartActivity(p.Call(spnRufnummerauswahl.SelectedItem)) Dim ersal1 As HttpJob ersal1.Initialize("ersal1", Me) Dim send As String send = "mobile=" &ETmobile.Text& "&mobile1=" &lblname.Text ersal1.PostString("http://app.crmfg.org/poster/ersal5.php",send) ProgressDialogShow("در حال ثبت اطلاعات...") End If End Sub Sub JobDone (Job As HttpJob) ProgressDialogHide If Job.Success = True Then Msgbox("پوستر ها به زودی ارسال می شوند","پیام سیستم") If ETmobile.Text <>"" Then sms1.Send(ETmobile.Text,"یک پوستر از جانب شما ارسال شد") sms1.Send(ETmobile.Text,Job.GetString) End If If lblname.Text <>"" Then sms2.Send(lblname.Text,Job.GetString) sms2.Send(lblname.Text,"http://fater.bartar124.ir/app/CRMFG.apk") End If Else Msgbox("خطا در برقراری ارتباط","پیام سیستم") End If End Sub Sub GetAllPhoneNumber(index As Int) As List Dim lstPhone As List Dim fgContacts1 As fgContacts fgContacts1.Initialize lstPhone= fgContacts1.GetAllPhoneNumberByID(index) Return lstPhone End Sub
  4. من می خوام یک ویذیو از گالری انتخاب کنم تا اینجا رو انجام میدم وقتی می خوام این ویدیو را #Region Project Attributes #ApplicationLabel: uploadvideo #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. Dim Up As UploadFilePhp Dim cc As ContentChooser 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. Private Button1 As Button Private Button2 As Button Dim vv1 As VideoView Private Panel1 As Panel Dim http As HttpJob Dim filmname As String 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("1") vv1.Initialize("vv1") http.Initialize("Job1",Me) Panel1.AddView(vv1,0,0,Panel1.Width,Panel1.Height) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim cc As ContentChooser cc.Initialize("videochooser") cc.Show("video/*","انتخاب تصویر") Panel1.Visible = True vv1.MediaControllerEnabled = True vv1.Play End Sub Sub videochooser_Result(Success As Boolean, Dir As String, FileName As String) If Success = True Then vv1.LoadVideo(Dir,FileName) End If End Sub Sub Button2_Click filmname = vv1.toString http.PostFile("http://fater.bartar124.ir/phpfile/film/upload.php?FileName="&filmname,File.DirInternal,filmname) ProgressDialogShow("در حال ثبت اطلاعات...") End Sub Sub JobDone (Job As HttpJob) ProgressDialogHide If Job.Success = True Then Select Job.JobName Case "Job1" Msgbox( Job.GetString,"پیام سیستم") End Select Else ToastMessageShow("خطا در برقراری اتصال" , False) End If Job.Release End Sub ' بفرستم رو هاست ارور میده
  5. کم کردن حجم فیلم

    با سلام من می خوام در برنامه خودم فیلم را آپلود به هاست کنم تا اینجا مشکلی ندارم ولی می خوام قبل از آپلود حجم فیلم انتخابی را کم کنم این را چه جوری باید انجام بدم
  6. سلام ممنون بابت سورس من می خواهم فیلم رو ارسال کنم چجوری باید اینکار رو انجام بدم یعنی تو کدوم قسمت باید تغیر داده بشه
  7. مشکل با تگ و سندر در مولتی پنل

    یعنی هیچ کس نیست که کمک کنه
  8. مشکل با تگ و سندر در مولتی پنل با سلام من یه مولتی پنل دارم که روی هر پنل سه تا لیبا و یک ایمیج ویو و یک باتن هست اطلاعات لیبل ها و عکس رو از دیتا بیس آنلاین می گیرم می خوام روی هر پنل کلیک شد یک اکتیویتی باز بشه اطلاعات روی اون پنل رو در داخل این اکتیویتی نشون بده خوب به طبع 3 تا لیبل و یک ایمیج ویو هم در این اکتیویتی هست من اطلاعات رو می تونم از دیتا بیس بگیرم در این قسمت مشکلی نیست مشکل من فقط رویداد کلیک روی پنل هست هر باتن یه کد جداگانه دارد که وقتی روش کلیک بشه یه فایل php رو اجرا می کنه و مقدارش رو به اون ارسال میکنه ممنون میشم کمکم کنید مشکل من در واقع با تگ و سندر است این رو توس ساب جاب دان تعریف کردم Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,top,100%x,100%y) top = top + 27%y p.LoadLayout("mozayede2") Panel2.Visible = False Panel1.Tag = MapData.Get("id") Lblname.Text = MapData.Get("name") Lblprice.Text = MapData.Get("price") Lbldate.Text = MapData.Get("date") glide.Load(MapData.Get("image")).AsBitmap.IntoImageView(Imgkala) img = Imgkala.Bitmap خوب تا اینجا خوب مولتی پنل رو تو خروجس نشون میده تو رویداد کلیک پنل چی باید بنویسم که اطلاعات این سه تا لیبل و عکس رو تو اکتیویتی بعدی نشون بده
  9. با سلام من یه سوال دارم من یک عکس دارم می خواهم برایش ناگذاری کنم و در هاستم ذخیره کنم من نامگذاری رو تا اینجا انجام میدم picname=DateTime.Now & "picturekala.png" حالا چجوری این نام را به عکسم اختصاص بدم
  10. با سلام من می خواهم در اپم پرداخت درون برنامه ای قرار بدهم که طرف ابتدا از طریق درگاه آنلاین پول را می پردازد سپس کیف پولش در خود اپ شارژ و با ان می تواند در قسمت های مختلف استفاده نماید ممنون میشم کامل رهنمایی نمایید
  11. مشکل در انتقال تصویر

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

    لطفا دوستان راهنمایی کنند آیا با کتابخانه پیکاسو میشه انجام داد یه راهنمایی درباره کتابخانه پیکاسو برام بزارید (( من الان در دیتا بیس آنلاینم یک پوشه به نام تصاویر دارم من می خواهم این تصاویر را روی اپ لود کنم منتها یک شرط داره من یک جدول دارم که شامل یه شماره موبایل ( مبدا ) و نام عکس هست یه جدول هم دارم که شامل 10 تا شماره موبایل هست( مقصد) من می خواهم عکس را از مبدا به مقصد بفرستم چیکار کنم))
  13. مشکل در نصب نسخه B4A 7.3

    با سلام من نسخه B4A 7.3 را نصب کردم موقع کامپایل این ارور را می دهد لطفا کمکم کنید
  14. با سلام من می خوام از یک اپ خودم به یک اپ دیگر پیام انتقال بدهم هر دو اپ یکسان هستند ولی به روی دو گوشی جداگانه نصب شده اند نمی خوام نوتیفیکشن بره می خوام پیام رو در یک اکتیویتی اپ دوم ببیند و پس از تایید پیام یک عکس در اکتیویتی اپ اول نشان داده شود
  15. انتقال پیام از یک اپ به یک اپ دیگر

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

    با سلام من می خواهم وقتی VersionCode برنامه یا VersionName را تغییر دادم برنامه من به طور آنلاین به روز رسانی بشود چیکار باید بکنم ممنون میشم راهنمایی کنید
  17. به روز رسانی برنامه

    باسلام خیلی ممنون از راهنمایی شما یعنی اگر من فایل php رو عددش = 2 شود نسخه جدید دانلود خواهد شد؟ لینک دانلود نسخه اپ را باید کجا وارد کنیم؟ از کجا باید اپ را دانلود نماید
  18. به روز رسانی برنامه

    با کمال معذرت ممنون میشم قسمت php و b4a رو بگذاری
  19. به روز رسانی برنامه

    ممنونم بیشتر توضیح بدهید یه مثال اگه بزنید ممنون میشم
  20. با سلام من می خوام ازطریق گالری گوشی فیلمی را وارد برنامه اندرویدم کنم چجوری باید این کار رو بکنم
  21. نحوه کار با دوتا httpjob

    با سلام من در یک اکتیویتی دو تا httpjob دارم به صورت زیر Dim poster1 As HttpJob poster1.Initialize("Job", Me) Dim http As HttpJob http.Initialize("job1",Me) هر کدام یک کار رو انجام می دن حالا می خوام در jobdone خودم اونها را جداجدا فراخوانی کنم چیکار باید بکنم نمونه کد jobdone در زیر آمده Sub JobDone (Job As HttpJob , Job1 As HttpJob) If Job1.JobName = "job1" Then If Job1.Success=True Then ToastMessageShow("ارسال شد",False) Else ToastMessageShow("ارسال نشد !",True) End If End If If Job.JobName ="Job" Then ProgressDialogHide If Job.Success = True Then Msgbox(Job.GetString,"Success") Else ToastMessageShow("خطا در برقراری اتصال" , False) End If End If End Sub
  22. با سلام من در اکتیویتی خودم یک ایمیج ویو دارم می خوام اونو تو یک پوشه در هاستم قرار بدم ممنون میشم راهنمایی کنید دوستان کارم گیره خواهشا سریع راهنمایی کنید
  23. اشکال در اسکرول ویو

    با سالام خدمت شما عزیزان من یک برنامه با بیسیک دارم می سازم که در صفحه اولش بعد از صفحه SPLASH تصویر بک گراند نصفه هست و در صفحه بعدی اسکرول نمی خورد تا مطالب پایین نمایش داده شوند ممنون میشم کمکم کنید فایل برنامه به پیوست می باشد rabinsoon.zip
  24. کار نکردن نرم افزار b4a

    با سلام من با مشکل حادی برخورد کردم هر ورزنی از نرم افزار b4a را که نصب می کنم این ارور را می دهد خواهشا کمکم کنید
  25. طریقه اتصال به api سایت

    با سلام من یک api برای سایت دارم که می خواهم از طریق اپ اندروید به آن وصل شوم ممنون میشم کمکم کنید
×