برنامه ماشین حساب

فرم ماشین حساب

 برای طراحی فرم ماشین حساب کافیست یک ماشین حساب ساده را در نظر بگیرید و هر کدام از دکمه های آن را با Command Button ها طراحی نمایید

 کد برنامه

Option Explicit
Dim m As Double
Dim CH, S As String
Dim temp As Double

 

Private Sub c_Click()
Text1.Text = ""
CH = ""
End Sub

Private Sub Command1_Click()
 temp = 0
  If Text1.Text = "" Then
     Call MsgBox("Not found number for sqrt ", vbOKOnly, "Error")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "+"
  Command19.Enabled = True
 
End Sub

Private Sub Command10_Click()
CH = Text1.Text
  Text1.Text = CH & "8"
End Sub

Private Sub Command11_Click()
CH = Text1.Text
  Text1.Text = CH & "7"
End Sub

Private Sub Command12_Click()
CH = Text1.Text
  Text1.Text = CH & "6"
End Sub

Private Sub Command13_Click()
CH = Text1.Text
  Text1.Text = CH & "5"
End Sub

Private Sub Command14_Click()
CH = Text1.Text
  Text1.Text = CH & "4"
End Sub

Private Sub Command15_Click()
CH = Text1.Text
  Text1.Text = CH & "3"
End Sub

Private Sub Command16_Click()
CH = Text1.Text
  Text1.Text = CH & "2"
End Sub

Private Sub Command17_Click()
CH = Text1.Text
  Text1.Text = CH & "1"
End Sub

Private Sub Command19_Click()
 Select Case S
   Case "+"
      temp = temp + Text1.Text
      Text1.Text = temp
   Case "-"
      temp = temp - Text1.Text
      Text1.Text = temp
   Case "*"
      temp = temp * Text1.Text
      Text1.Text = temp
   Case "/"
      temp = temp / Text1.Text
      Text1.Text = temp
  End Select
End Sub

Private Sub Command2_Click()

temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "-"
  Command19.Enabled = True

End Sub

Private Sub Command20_Click()
 CH = Text1.Text
  Text1.Text = CH & "0"
End Sub

Private Sub Command3_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "*"
  Command1.Enabled = True
End Sub

Private Sub Command4_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "/"
  Command19.Enabled = True

End Sub

Private Sub Command5_Click()
m = Text1.Text
End Sub

Private Sub Command7_Click()
m = ""
End Sub

Private Sub Command8_Click()
Text1.Text = m
End Sub

Private Sub Command9_Click()
CH = Text1.Text
  Text1.Text = CH & "9"
End Sub

Private Sub Form_Load()
Command19.Enabled = False
End Sub

نکته هایی از ویژوال بیسیک

کنترل Microsoft FlexGrid Control 6.0

با استفاده از این کنترل می توانید داده هایتان را در یک جدول نمایش دهید به مثال زیر که نمئنه ای از جدول ضرب 10* 10 می باشد توجه کنید :

در فرم : با استفاده از Component  ابزار  Microsoft FlexGrid Control 6.0 را فعال کنید سپس بر روی فرم یک  Microsoft FlexGrid Control 6.0 ترسیم نموده و یک Comman Button

خاصیت Row که تعداد سطرهای این ابزار را مشخص می کند را برابر 10 قرار دهید

خاصیت Column که تعداد ستونهای این ابزار را مشخص می کند را برابر 10 قرار دهید

به این ترتیب شما یک Grid با 10 سطر و ستون خواهید داشت.

خاصیت FixedCol و FixRow را نیز برابر 0 قرار دهید تا سطر و ستون 1 که به صورت خاکستری درآمده است از این حالت خارج شود .

بر روی Command Button  کدهای زیر را تایپ نمایید:

Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To 10
flex1.Row = i - 1
flex1.Col = j - 1
flex1.Text = i * j
Next
Next

به این ترتیب یک جدول خواهید داشت که در آن حاصل ضرب 10 در 10 قرار می گیرد