Parsi Coders

صفحات: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

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

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

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

درود
متاسفم ...
من این همه اموزش رو شروع کردم و بعضی از دوستان هم با این اموزش ها برنامه نوشتن
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

بدورد

سلام عزیزان
از پست عالیتون ممنونم.
من دیروز این پست و دیدم . برنامه 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'
لطفا عزیزان کمکم کنید

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

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

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

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

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

milad.csharp

Amin_Mansouri

milad.csharp

Amin_Mansouri

ata2

Amin_Mansouri

ata2

Amin_Mansouri

ebrahimi.shz

Amin_Mansouri