Programalama > VISUAL BASIC

VISUAL BASIC / Hesap Makinesi -Çok Gelismis-

Hesap

Etiketler: hesap, makinesi, -çok, gelismis-

Ort. 1

Puan ver:

hazirkod 27 June 19:34 0

1 kişiden 1 puan aldı

9723

Private Sub Command1_Click()
If Option1.Value = True Then
Label6.Caption = Val(Text1.Text) + Val(Text2.Text)
End If
If Option2.Value = True Then
Label6.Caption = Val(Text1.Text) - Val(Text2.Text)
End If
If Option3.Value = True Then
Label6.Caption = Val(Text1.Text) * Val(Text2.Text)
End If
If Option4.Value = True Then
Label6.Caption = Val(Text1.Text) / Val(Text2.Text)
End If
If Option5.Value = True Then
Label6.Caption = Val(Text1.Text) * 4
End If
If Option6.Value = True Then
Label6.Caption = Val(Text1.Text) + Val(Text2.Text) * 3
End If
If Option7.Value = True Then
Label6.Caption = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
End If
If Option10.Value = True Then
Label6.Caption = 3.14 * Val(Text1.Text) ^ 2
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label6.Caption = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Form2.Visible = True
End Sub

Private Sub Form_Load()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Option8.Visible = True
Option9.Visible = True
Option10.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
End Sub

Private Sub Option1_Click()
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Option10.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Label2.Caption = "1.SAYI"
Label3.Caption = "2.SAYI"
End Sub

Private Sub Option10_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Label2.Caption = "YARI ÇAP"
Option10.Visible = True
End Sub

Private Sub Option11_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Option10.Visible = True
End Sub

Private Sub Option2_Click()
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Label2.Caption = "1.SAYI"
Label3.Caption = "2.SAYI"
Option10.Visible = False
End Sub

Private Sub Option3_Click()
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Label2.Caption = "1.SAYI"
Label3.Caption = "2.SAYI"
Option10.Visible = False
End Sub

Private Sub Option4_Click()
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Label2.Caption = "1.SAYI"
Label3.Caption = "2.SAYI"
Option10.Visible = False
End Sub

Private Sub Option5_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Label2.Caption = "KENAR"
Option10.Visible = True
End Sub

Private Sub Option6_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = False
Text1.Visible = True
Text2.Visible = True
Text3.Visible = False
Label2.Caption = "1.KENAR"
Label3.Caption = "2.KENAR"
Option10.Visible = True
End Sub

Private Sub Option7_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Label2.Caption = "1.KENAR"
Label3.Caption = "2.KENAR"
Option10.Visible = True
End Sub

Private Sub Option8_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = True
Option6.Visible = True
Option7.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Option10.Visible = True
End Sub

Private Sub Option9_Click()
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Option5.Visible = False
Option6.Visible = False
Option7.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Option10.Visible = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub