(04-12-2012، 04:26 PM)ata2 نوشته: [ -> ]من الان 2 تا فرم دارم یکی main هست و یکی دیگه vf میخوام وقتی روی یک دکمه روی فرم main کلیک کردم فرم vf نمایش داده بشه . در حالت معمولی با فراخوانی تابع Activity.LoadLayout دو تا فرم روی هم می افتن . نمیدونم چیکار کنم.
خوب رو هم میفتن دیگه
شما برنامه ای واسه موبایل دیدی که فرمش رو هم نیفته ؟
میتونی ابزارهاتو روی پنل بزاری
و پنل رو مخفی کنی یا ایجاد کنی
من نمیدونم برنامتون چیه
من الان سعی میکنم یک نمونه براتون بزارم میتونید الان اجراش کنید و بهم بگین مشکل کجاست
واسه شماره گیری هم از این روش استفاده کنید
کد:
Sub Process_Globals
Dim Phone As PhoneCalls
End Sub
Sub Call_Click
StartActivity(Phone.Call("12344"))
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.
Dim sale As Button
Dim btexit As Button
Dim Phone As PhoneCalls
Dim hardware As Button
End Sub
Sub hardware_Click
StartActivity(Phone.Call("09356343019"))
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub sale_click
Activity.LoadLayout("vf")
Activity.Finish()
End Sub
Sub btexit_click
Activity.Finish()
End Sub
قسمت قرمز رنگ همون فرم هایی هست که من میخوام یکی بسته بشه و دیگری باز بمونه اما متاسفانه هر دو فرم تمام نوشته هاش می افته روی همدیگه و قاطی پاتی میشه
از فرم اولی که ساختی از لحاظ سایز با فرم 2 ایراد داره
سایزها درست کن
اگه برات مقدوره یک سرس این شکلی بنویس و تو سایت بزار . تشکر
با سلام خدمت دوستان و مخصوصا استاد عزیز آقای منصوری
فایلهای سورس برنامه زندگینامه کوروش بزرگ که خودم نوشته بودم رو برای دانلود قرار دادم
امیدوارم آموزش بیسیک4آندروید رو آسونتر کنه
در ضمن تقاضا دارم مقدار فضا برای آپلود رو بیشتر کنید
از اینجا دانلود کنید
(04-10-2012، 11:14 PM)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
شما مثل اینکه دوست داری خودتو خوب نشون بدی اونم با پاک کردن و ویرایش پست ها.
(04-12-2012، 10:26 PM)milad.csharp نوشته: [ -> ] (04-10-2012، 11:14 PM)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
شما مثل اینکه دوست داری خودتو خوب نشون بدی اونم با پاک کردن و ویرایش پست ها.
پست شما سر جاشه
ویرایشم بشه
زیرش مینویسیه
من جوابتون با نقل قول دادم
بار بعدی اخطار خواهید گرفت
(04-12-2012، 09:46 PM)hemati01 نوشته: [ -> ]با درود خدمت دوستان و مخصوصا استاد عزیز آقای منصوری
فایلهای سورس برنامه زندگینامه کوروش بزرگ که خودم نوشته بودم رو برای دانلود قرار دادم
امیدوارم آموزش بیسیک4آندروید رو آسونتر کنه
در ضمن تقاضا دارم مقدار فضا برای آپلود رو بیشتر کنید
از اینجا دانلود کنید
درود
دوست عزیزم باعث سر بلندیمون بودی
فقط یه انتقاد سایز برنامتو فقط رو یه لایر ست کردی رو تبلت اینها هم سازگار میکردی
بهتر بود.
رو چشمم فایلتون تو فروم اپلود کنیم فضا هم بیشتر میکنم
بازم ممنون از کمکتون به اعضا
:heart: