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


امتیاز موضوع:
  • 311 رای - 1.87 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها
حالت موضوعی
#91
ممنون داداش میشه یه نمونه کد واسه تبدیل رشته به عدد بزاری . روراست من زیاد vb کار نکردم و فقط C# کار کردم
ممنونت میشم
 
پاسخ
#92
من تابع رو نگاه کردم یه سری قوائد رو دیدم و یه سری تابع که کاملا فرق میکنه بهتره کم کم شروع کنید تا جایی مشکل داشتید حلش کنیم.
سعی کنید هم یه اصولش رو یاد بگیرید زیاد از شاخه به شاخه ای دیگر نپرید تو برنامه نویسی بیسیک 4 اندروید
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#93
بهانه خوبی برای جواب ندادن نبود . اگه قصد شما آموزش هست پس چرا.... !؟
یا اگر بلن نیستید بگید خوب . چرا اینطوری جواب میدین.
بعد کجای سوال من رو شما ربط دادید به "از این شاخه به اون شاخه"... !؟
اصلا از این طرز برخورد و جواب دادن خوشم نیومد.
فکر کنم $$ پرداخت کنم و توی سایت اصلی basic4app عضو بشم بهتره تا اینجا با منت...
برای همیشه خدا نگهدار...
 
پاسخ
#94
درود
متاسفم ...
من این همه اموزش رو شروع کردم و بعضی از دوستان هم با این اموزش ها برنامه نوشتن
2.تابع رو که با وی بی 6 نگاه کردم از دستورات mid left right استفاده کردن اینها میخواستم بصورت basic4android نگاه کنم دیدم اصلا یه چیز دیگه میشه و چک کردم دیدم باید کلا باز نویسی بشه
توی گوگل سرچ کنید تا تفاوت رو بفهمید.
3.میتونید برای شرکت basic4android پول درست حسابی بدید تا پشتیبانی خوبی بهتون بدن
4.و در اخر شما سوال اولتون متغیر بود و سوال بعدیتون sql بود یه برنامه نویس میفهمه من چی میگم
5.من اینجا تا حالا به هیچ کس توهین نکردم و افتخارم میکنم خیلی پروژه های رایگان نوشتم
6.با جواب دادن به شما نه پولی به من میرسه نه افتخاری
هدف من کمک به دوستان بوده و هست
اینم سورس کد قضاوت با دوستان Blush
کد:
Function Adad(ByVal Number As Double) As String
If Number = 0 Then
Adad = "صفر"
End If
Dim Flag As Boolean
Dim S As String
Dim I, L As Byte
Dim K(1 To 5) As Double

S = Trim(Str(Number))
L = Len(S)
If L > 15 Then
Adad = "بسيار بزرگ"
Exit Function
End If
For I = 1 To 15 - L
S = "0" & S
Next I
For I = 1 To Int((L / 3) + 0.99)
K(5 - I + 1) = Val(Mid(S, 3 * (5 - I) + 1, 3))
Next I
Flag = False
S = ""
For I = 1 To 5
If K(I) <> 0 Then
Select Case I
Case 1
S = S & Three(K(I)) & " تريليون"
Flag = True
Case 2
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليارد"
Flag = True
Case 3
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليون"
Flag = True
Case 4
S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " هزار"
Flag = True
Case 5
S = S & IIf(Flag = True, " و ", "") & Three(K(I))
End Select
End If
Next I
Adad = S
End Function


Function Three(ByVal Number As Integer) As String
Dim S As String
Dim I, L As Long
Dim h(1 To 3) As Byte
Dim Flag As Boolean
L = Len(Trim(Str(Number)))
If Number = 0 Then
Three = ""
Exit Function
End If
If Number = 100 Then
Three = "يكصد"
Exit Function
End If

If L = 2 Then h(1) = 0
If L = 1 Then
h(1) = 0
h(2) = 0
End If

For I = 1 To L
h(3 - I + 1) = Mid(Trim(Str(Number)), L - I + 1, 1)
Next I

Select Case h(1)
Case 1
S = "يكصد"
Case 2
S = "دويست"
Case 3
S = "سيصد"
Case 4
S = "چهارصد"
Case 5
S = "پانصد"
Case 6
S = "ششصد"
Case 7
S = "هفتصد"
Case 8
S = "هشتصد"
Case 9
S = "نهصد"
End Select

Select Case h(2)
Case 1
Select Case h(3)
Case 0
S = S & " و " & "ده"
Case 1
S = S & " و " & "يازده"
Case 2
S = S & " و " & "دوازده"
Case 3
S = S & " و " & "سيزده"
Case 4
S = S & " و " & "چهارده"
Case 5
S = S & " و " & "پانزده"
Case 6
S = S & " و " & "شانزده"
Case 7
S = S & " و " & "هفده"
Case 8
S = S & " و " & "هجده"
Case 9
S = S & " و " & "نوزده"
End Select

Case 2
S = S & " و " & "بيست"
Case 3
S = S & " و " & "سي"
Case 4
S = S & " و " & "چهل"
Case 5
S = S & " و " & "پنجاه"
Case 6
S = S & " و " & "شصت"
Case 7
S = S & " و " & "هفتاد"
Case 8
S = S & " و " & "هشتاد"
Case 9
S = S & " و " & "نود"
End Select

If h(2) <> 1 Then
Select Case h(3)
Case 1
S = S & " و " & "يك"
Case 2
S = S & " و " & "دو"
Case 3
S = S & " و " & "سه"
Case 4
S = S & " و " & "چهار"
Case 5
S = S & " و " & "پنج"
Case 6
S = S & " و " & "شش"
Case 7
S = S & " و " & "هفت"
Case 8
S = S & " و " & "هشت"
Case 9
S = S & " و " & "نه"
End Select
End If
S = IIf(L < 3, Right(S, Len(S) - 3), S)
Three = S
End Function
بدورد
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#95
سلام عزیزان
از پست عالیتون ممنونم.
من دیروز این پست و دیدم . برنامه sdk 6)android 2.1) رو سیستمم نصب بود . نرم افزار basic4android رو هم نصب کردم .ولی یک مشکل دارم از نمونه سرس هایی که گذاشتید نمیتونم اجرا بگیرم . هنگام اجرا این خطا رو میده
Compiling code. 0.04
Generating R file. Error
AndroidManifest.xml:2: error: No resource identifier found for attribute 'installLocation' in package 'android'
لطفا عزیزان کمکم کنید
 
پاسخ
#96
(04-11-2012، 09:23 AM)ata2 نوشته: درود عزیزان
از پست عالیتون ممنونم.
من دیروز این پست و دیدم . برنامه sdk 6)android 2.1) رو سیستمم نصب بود . نرم افزار basic4android رو هم نصب کردم .ولی یک مشکل دارم از نمونه سرس هایی که گذاشتید نمیتونم اجرا بگیرم . هنگام اجرا این خطا رو میده
Compiling code. 0.04
Generating R file. Error
AndroidManifest.xml:2: error: No resource identifier found for attribute 'installLocation' in package 'android'
لطفا عزیزان کمکم کنید
درود
شما باید از api level 8 استفاده کنی
Configure Paths to use the level 8 android.jar file
و برنامتو توی sd card نصب نکن
شما برنامه ها از اینجا گرفتی و کانفیگ درست کردی ؟
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#97
نه داداش گلم من برنامه ها رو از اینجا دانلود نکردم فقط basic4android رو گرفتم ورژن 1.70
اگه میشه یکم راهنمایی کن
 
پاسخ
#98
از همینچا دانلود کن و مطابق با امورش ها تنظیم کن مشکلت حل میشه
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#99
سلام
چه طور میشه یک activity را غیر فعال و بلافاصله یکی دیگه را فعال کرد؟
 
پاسخ
درود
با activity.finish ببند و با Activity.LoadLayout لایوت رو بارگذاری کن
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  عدم نمایش پیامک ارسالی از یک شماره خاص در اینباکس و نمایش فقط در برنامه hosseinrp 0 4,035 01-21-2016، 07:57 PM
آخرین ارسال: hosseinrp
  درست کردن بیشتر از یک Layout در برنامه Morteza_rk 6 13,160 12-09-2015، 08:18 AM
آخرین ارسال: Amin_Mansouri
  کتابخانه ی پرداخت درون برنامه ای(کویک لرن) 5225morteza 5 17,434 08-05-2015، 08:48 PM
آخرین ارسال: Amin_Mansouri
  کد ussd رو بیسیک 4 اندروید قبول نمی کنه!! اکبری 1 6,051 07-01-2015، 09:47 PM
آخرین ارسال: Amin_Mansouri
  نمایش پنجره شناور روی سایر برنامه ها mokhtarabadi 0 3,569 04-21-2015، 09:56 AM
آخرین ارسال: mokhtarabadi
Music تنظیمات اولیه برنامه BASIC 4 ANDROID arash872 3 8,977 03-18-2015، 08:36 AM
آخرین ارسال: Amin_Mansouri
  دانلود کتابساز اندروید و منتظر همکاری دوستان اندرویدی omid_student 5 13,807 01-21-2015، 02:36 PM
آخرین ارسال: shima12
  پنهان کردن سورس برنامه porya 1 4,725 11-23-2014، 09:02 AM
آخرین ارسال: Amin_Mansouri
  برنامه نویسی حرفه ای به زبان Basic4Android mohammad-alone 46 69,697 10-27-2014، 10:25 AM
آخرین ارسال: tanhae
  مشکل با دریافت توسط بلوتوث در بیسیک4 اندروید esmaeil57 2 5,675 10-25-2014، 08:56 PM
آخرین ارسال: a.mehran

پرش به انجمن:


Browsing: 6 مهمان