[milad.csharp]

ممنون داداش میشه یه نمونه کد واسه تبدیل رشته به عدد بزاری . روراست من زیاد vb کار نکردم و فقط C# کار کردم
ممنونت میشم

[Amin_Mansouri]

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

[milad.csharp]

بهانه خوبی برای جواب ندادن نبود . اگه قصد شما آموزش هست پس چرا.... !؟
یا اگر بلن نیستید بگید خوب . چرا اینطوری جواب میدین.
بعد کجای سوال من رو شما ربط دادید به "از این شاخه به اون شاخه"... !؟
اصلا از این طرز برخورد و جواب دادن خوشم نیومد.
فکر کنم $$ پرداخت کنم و توی سایت اصلی basic4app عضو بشم بهتره تا اینجا با منت...
برای همیشه خدا نگهدار...

[Amin_Mansouri]

درود
متاسفم ...
من این همه اموزش رو شروع کردم و بعضی از دوستان هم با این اموزش ها برنامه نوشتن
2.تابع رو که با وی بی 6 نگاه کردم از دستورات mid left right استفاده کردن اینها میخواستم بصورت basic4android نگاه کنم دیدم اصلا یه چیز دیگه میشه و چک کردم دیدم باید کلا باز نویسی بشه
توی گوگل سرچ کنید تا تفاوت رو بفهمید.
3.میتونید برای شرکت basic4android پول درست حسابی بدید تا پشتیبانی خوبی بهتون بدن
4.و در اخر شما سوال اولتون متغیر بود و سوال بعدیتون sql بود یه برنامه نویس میفهمه من چی میگم
5.من اینجا تا حالا به هیچ کس توهین نکردم و افتخارم میکنم خیلی پروژه های رایگان نوشتم
6.با جواب دادن به شما نه پولی به من میرسه نه افتخاری
هدف من کمک به دوستان بوده و هست
اینم سورس کد قضاوت با دوستان

کد:

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

بدورد

[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'
لطفا عزیزان کمکم کنید

[Amin_Mansouri]

درود عزیزان
از پست عالیتون ممنونم.
من دیروز این پست و دیدم . برنامه 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 نصب نکن
شما برنامه ها از اینجا گرفتی و کانفیگ درست کردی ؟

[ata2]

نه داداش گلم من برنامه ها رو از اینجا دانلود نکردم فقط basic4android رو گرفتم ورژن 1.70
اگه میشه یکم راهنمایی کن

[Amin_Mansouri]

از همینچا دانلود کن و مطابق با امورش ها تنظیم کن مشکلت حل میشه

[ebrahimi.shz]

سلام
چه طور میشه یک activity را غیر فعال و بلافاصله یکی دیگه را فعال کرد؟

[Amin_Mansouri]

درود
با activity.finish ببند و با Activity.LoadLayout لایوت رو بارگذاری کن