:40:ممنون برای پروژه ی مدرسه میخواهم[IMG]file:///C:/DOCUME%7E1/mohsen.tr/LOCALS%7E1/Temp/moz-screenshot-1.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/mohsen.tr/LOCALS%7E1/Temp/moz-screenshot.jpg[/IMG]
Printable View
:40:ممنون برای پروژه ی مدرسه میخواهم[IMG]file:///C:/DOCUME%7E1/mohsen.tr/LOCALS%7E1/Temp/moz-screenshot-1.jpg[/IMG][IMG]file:///C:/DOCUME%7E1/mohsen.tr/LOCALS%7E1/Temp/moz-screenshot.jpg[/IMG]
اين كه خيلي ساده است
تقريبا اولين برنامه اي است كه همه مي نوسند
فقط بگو با حافظه يا بي حافظه
با اينكه نگفتي ولي باز مي زارم
كد:
Dim mem1 As Long
Dim mem2 As Long
Dim mem3 As Long
Dim mem4 As Long
Dim num1 As Long
Dim num2 As Long
Dim result As Long
Dim op As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + "9"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command12_Click()
num1 = Val(Text1.Text)
op = "-"
Text1.Text = ""
End Sub
Private Sub Command13_Click()
num1 = 0
num2 = 0
Text1.Text = ""
End Sub
Private Sub Command14_Click()
mem1 = Val(Text1.Text)
End Sub
Private Sub Command15_Click()
mem2 = Val(Text1.Text)
End Sub
Private Sub Command16_Click()
mem3 = Val(Text1.Text)
End Sub
Private Sub Command17_Click()
mem4 = Val(Text1.Text)
End Sub
Private Sub Command18_Click()
num1 = Val(Text1.Text)
op = "*"
Text1.Text = ""
End Sub
Private Sub Command19_Click()
num2 = Val(Text1.Text)
Select Case op
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
result = num1 / num2
End Select
Text1.Text = Str(result)
op = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command20_Click()
Text1.Text = Str(mem1)
End Sub
Private Sub Command21_Click()
Text1.Text = Str(mem2)
End Sub
Private Sub Command22_Click()
Text1.Text = Str(mem3)
End Sub
Private Sub Command23_Click()
Text1.Text = Str(mem4)
End Sub
Private Sub Command24_Click()
num1 = Val(Text1.Text)
op = "/"
Text1.Text = ""
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
num1 = Val(Text1.Text)
op = "+"
Text1.Text = ""
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
Form1.Caption = "Calculator"
Text1.Text = ""
num1 = 0
num2 = 0
op = ""
Text1.Locked = True
End Sub
ببخشيد اگه قابل فهم نبود ببخشيد ولي در تا تونستم سورسش رو برات ميزارم
درود
شاد زیکد:http://rapidshare.com/files/115262877/cal.rar.html