کمک برای نوشتن یک برنامه ساده

سلام دوستان راستش من می خوام برای پرژه آخر سال سوم دبیرستانم دو تا برنامه بنویسم با توجه به کد هایی که تو کتاب نوشته این برنامه هایی که من نوشتم درسته ولی وقتی تو vb مینویسم ازم ایراد میگیره آخه vb من 2005 هست و اونی که تو کتاب هست قدیمی تر هست و محیتاشون با هم کاملا" متفاوت هستن اگه دوستان لطف کنن و طبق این کدهایی که نوشتم برنامه رو بنویسن یه دنیا ممنون می شم
خدا از بزرگی کمتون نکنه
پیشاپیش از همکاریتون سپاس گزارم

کد:

---

Private Sub Form_Load()
Form1.Caption=" حجم ها"
Command1.Caption="مکعب "
Command2.Caption="مکعب مستطیل "
Command3.Caption="استوانه "
Command4.Caption="هرم "
Command5.Caption="مخروط "
Command6.Caption="کره "
Command7.Caption="خروج "
End Sub


Private Sub Command1_Click()
Text1=""
Label1="طول ضلع"
Label2=""    ‘for display the  volume
Dim A As Single,
V As Single
A=Val(Text1)
V=(A^3)
Label2.Caption="حجم= " & Str(V)
End Sub


Private Sub Command2_Click()
Text3=""
Text4=""
Text5=""
Label3="طول"
Label4="عرض"
Label5="ارتفاع"
Label6=""    ‘for display the  volume
Dim B As Single,
C As Single,
D As Single,
E As Single
B=Val(Text3)
C=Val(Text4)
D=Val(Text5)
E=(B*C*D)
Label6.Caption="حجم= " & Str(E)
End Sub



Private Sub Command3_Click()
Text7=""
Text8=""
Label7="شعاع"
Label8="ارتفاع"
Label9=""    ‘for display the  volume
Dim F As Single,
G As Single,
H As Single
F=Val(Text7)
G=Val(Text8)
H=(F^2*3.14*G)
Label9.Caption="حجم= " & Str(H)
End Sub


Private Sub Command4_Click()
Text10=""
Text11=""
Label10="مساحت قاعده"
Label11="ارتفاع"
Label12=""    ‘for display the  volume
Dim I As Single,
J As Single,
K As Single
I=Val(Text10)
J=Val(Text11)
K=(I*J)/3
Label12.Cption="حجم= " & Str(K)
End Sub


Private Sub Command5_Click()
Text14=""
Text15=""
Label14="شعاع"
Label15="ارتفاع"
Label16=""    ‘for display the  volume
Dim L As Single,
M As Single,
N As Single
L=Val(Text14)
M=Val(Text15)
N=(L^2*3.14*M)
Label16.Caption="حجم= " & Str(N)
End Sub


Private Sub Command6_Click()
Text17=""
Label17="شعاع"
Label18=""    ‘for display the  volume
Dim O As Single,
P As Single
O=Val(Text17)
P=(O^3*4*3.14)/3
Label18.Caption="حجم= " & Str(P)
End Sub



Private Sub Command7_Click()
End
End Sub

---

کد:

---

Private Sub Form_Load()
Form1.Caption="مساحت اشکال "
Command1.Caption="مربع "
Command2.Caption="مستطیل "
Command3.Caption="مثلث "
Command4.Caption="متوازی الاضلاع "
Command5.Caption="دایره "
Command6.Caption="لوزی "
Command7.Caption="ذوزنقه "
Command8.Caption="خروج "
End Sub


Private Sub Command1_Click()
Text1=""
Label1="طول ضلع"
Label2=""    ‘for display the area
Dim X As Single,
S As Single
X=Val(Text1)
S=(X*X)
Label2.Caption="مساحت= " & Str(S)
End Sub


Private Sub Command2_Click()
Text3=""
Text4=""
Label3="طول "
Label4="عرض "
Label5=""    ‘for display the area
Dim Y As Single,
Z As Single,
M As Sigle
Y=Val(Text3)
Z=Val(Text4)
M=(Y*Z)
Label5.Caption="مساحت= " & Str(M)
End Sub


Private Sub Command3_Click()
Text6= " "
Text7= " "
Label6= "ارتفاع "
Label7= " قاعده"
Label8= ""    ‘for display the area
Dim H As Single,
A As Single,
E As Single
H=Val(Text6)
A=Val(Text7)
E=(H*A)/2
Label8.Caption= "مساحت =" & Str(E)
End Sub


Private Sub Command4_Click()
Text9=""
Text10=""
Label9="ارتفاع"
Label10="قاعده"
Label11=""    ‘for display the area
Dim F As Single,
G As Single,
B As single
F=Val(Text9)
G=Val(Text10)
B=(F*G)
Label11.Caption="مساحت =" & Str(B)
End Sub



Private Sub Command5_Click()
Text12=""
Label12="شعاع"
Label14=""    ‘for display the area
Dim R As Single,
C As Single
R=Val(Text12)
C=(R*R*3.14)
Label14.Caption="مساحت =" & Str(C)
End Sub


Private Sub Command6_Click()
Text15=""
Text16=""
Label15="قطر 1"
Label16="قطر 2"
Label17=""    ‘for display the area
Dim D As Single,
I As Single,
J As Single
D=Val(Text15)
I=Val(Text16)
J=(D*I)/2
Label17.Caption="مساحت =" & Str(J)
End Sub


Private Sub Command7_Click()
Text18=""
Text19=""
Text20=""
Label18="قاعده 1"
Label19="قاعده 2"
Label20="ارتفاع"
Label21=""    ‘for display the area
Dim K As Single,
L As Single,
N As Single,
Q As Single
K=Val(Text18)
L=Val(Text19)
N=Val(Text20)
Q=((K+L)*N)/2
Label21.Caption="مساحت =" & Str(Q)
End Sub


Private Sub Command8_Click()
End
End Sub

---

سلام


این برنامه ی اول ::

[PHP]Private Sub Form_Load()
Form1.Caption = " ÍÌã åÇ"
Command1.Caption = "ã˜ÚÈ "
Command2.Caption = "ã˜ÚÈ ãÓÊØ?á "
Command3.Caption = "ÇÓÊæÇäå "
Command4.Caption = "åÑã "
Command5.Caption = "ãÎÑæØ "
Command6.Caption = "˜Ñå "
Command7.Caption = "ÎÑæÌ "
End Sub


Private Sub Command1_Click()
Text1 = ""
Label1 = "Øæá ÖáÚ"
Label2 = "" 'for display the volume
Dim A As Single, V As Single
A = Val(Text1)
V = (A ^ 3)
Label2.Caption = "ÍÌã= " & Str(V)
End Sub


Private Sub Command2_Click()
Text3 = ""
Text4 = ""
Text5 = ""
Label3 = "Øæá"
Label4 = "ÚÑÖ"
Label5 = "ÇÑÊÝÇÚ"
Label6 = "" 'for display the volume
Dim B As Single, C As Single, D As Single, E As Single
B = Val(Text3)
C = Val(Text4)
D = Val(Text5)
E = (B * C * D)
Label6.Caption = "ÍÌã= " & Str(E)
End Sub



Private Sub Command3_Click()
Text7 = ""
Text8 = ""
Label7 = "ÔÚÇÚ"
Label8 = "ÇÑÊÝÇÚ"
Label9 = "" 'for display the volume
Dim F As Single, G As Single, H As Single
F = Val(Text7)
G = Val(Text8)
H = (F ^ 2 * 3.14 * G)
Label9.Caption = "ÍÌã= " & Str(H)
End Sub


Private Sub Command4_Click()
Text10 = ""
Text11 = ""
Label10 = "ãÓÇÍÊ ÞÇÚÏå"
Label11 = "ÇÑÊÝÇÚ"
Label12 = "" 'for display the volume
Dim I As Single, J As Single, K As Single
I = Val(Text10)
J = Val(Text11)
K = (I * J) / 3
Label12.Cption = "ÍÌã= " & Str(K)
End Sub


Private Sub Command5_Click()
Text14 = ""
Text15 = ""
Label14 = "ÔÚÇÚ"
Label15 = "ÇÑÊÝÇÚ"
Label16 = "" 'for display the volume
Dim L As Single, M As Single, N As Single
L = Val(Text14)
M = Val(Text15)
N = (L ^ 2 * 3.14 * M)
Label16.Caption = "ÍÌã= " & Str(N)
End Sub


Private Sub Command6_Click()
Text17 = ""
Label17 = "ÔÚÇÚ"
Label18 = "" 'for display the volume
Dim O As Single, P As Single
O = Val(Text17)
P = (O ^ 3 * 4 * 3.14) / 3
Label18.Caption = "ÍÌã= " & Str(P)
End Sub



Private Sub Command7_Click()
End
End Sub
[/PHP]




و اینم دومی ::


[PHP]Private Sub Form_Load()
Form1.Caption = "ãÓÇÍÊ ÇÔ˜Çá "
Command1.Caption = "ãÑÈÚ "
Command2.Caption = "ãÓÊØ?á "
Command3.Caption = "ãËáË "
Command4.Caption = "ãÊæÇÒ? ÇáÇÖáÇÚ "
Command5.Caption = "ÏÇ?Ñå "
Command6.Caption = "áæÒ? "
Command7.Caption = "ÐæÒäÞå "
Command8.Caption = "ÎÑæÌ "
End Sub


Private Sub Command1_Click()
Text1 = ""
Label1 = "Øæá ÖáÚ"
Label2 = "" 'for display the area
Dim X As Single, S As Single
X = Val(Text1)
S = (X * X)
Label2.Caption = "ãÓÇÍÊ= " & Str(S)
End Sub


Private Sub Command2_Click()
Text3 = ""
Text4 = ""
Label3 = "Øæá "
Label4 = "ÚÑÖ "
Label5 = "" 'for display the area
Dim Y As Single, Z As Single, M As Sigle
Y = Val(Text3)
Z = Val(Text4)
M = (Y * Z)
Label5.Caption = "ãÓÇÍÊ= " & Str(M)
End Sub


Private Sub Command3_Click()
Text6 = " "
Text7 = " "
Label6 = "ÇÑÊÝÇÚ "
Label7 = " ÞÇÚÏå"
Label8 = "" 'for display the area
Dim H As Single, A As Single, E As Single
H = Val(Text6)
A = Val(Text7)
E = (H * A) / 2
Label8.Caption = "ãÓÇÍÊ =" & Str(E)
End Sub


Private Sub Command4_Click()
Text9 = ""
Text10 = ""
Label9 = "ÇÑÊÝÇÚ"
Label10 = "ÞÇÚÏå"
Label11 = "" 'for display the area
Dim F As Single, G As Single, B As Single
F = Val(Text9)
G = Val(Text10)
B = (F * G)
Label11.Caption = "ãÓÇÍÊ =" & Str(B)
End Sub



Private Sub Command5_Click()
Text12 = ""
Label12 = "ÔÚÇÚ"
Label14 = "" 'for display the area
Dim R As Single, C As Single
R = Val(Text12)
C = (R * R * 3.14)
Label14.Caption = "ãÓÇÍÊ =" & Str(C)
End Sub


Private Sub Command6_Click()
Text15 = ""
Text16 = ""
Label15 = "ÞØÑ 1"
Label16 = "ÞØÑ 2"
Label17 = "" 'for display the area
Dim D As Single, I As Single, J As Single
D = Val(Text15)
I = Val(Text16)
J = (D * I) / 2
Label17.Caption = "ãÓÇÍÊ =" & Str(J)
End Sub


Private Sub Command7_Click()
Text18 = ""
Text19 = ""
Text20 = ""
Label18 = "ÞÇÚÏå 1"
Label19 = "ÞÇÚÏå 2"
Label20 = "ÇÑÊÝÇÚ"
Label21 = "" 'for display the area
Dim K As Single, L As Single, N As Single, Q As Single
K = Val(Text18)
L = Val(Text19)
N = Val(Text20)
Q = ((K + L) * N) / 2
Label21.Caption = "ãÓÇÍÊ =" & Str(Q)
End Sub


Private Sub Command8_Click()
End
End Sub[/PHP]






عین همینو کپی کن بدون تغییر ، فقط اونجاهایی که فارسی نوشته بودی ، فونتش عوض شده ، فقط فارسی ها رو بنویس

ببین کجاهاش تغییرات داه شده


اصل کد درسته فقط یه سری قواعد رو رعایت نکرده بودی





موفق باشی