Reklamlar
Visual Basic Hesap Makinesi

Visual Basic Hesap Makinesi » Hesap makinesi -çok gelişmiş- Private Sub Command1_Click() If Option1.Value = True Then Label6.Caption = Val(Text1.Text) + Val(Text2.Text) End If If

Gönderen Konu: Visual Basic Hesap Makinesi  (Okunma sayısı 2227 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

Visual Basic Hesap Makinesi
« : Nisan 30, 2009, 06:07:10 ÖÖ »
Hesap makinesi -çok gelişmiş-

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



Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
4381 Gösterim
Son İleti Nisan 30, 2009, 06:07:37 ÖÖ
Gönderen: administrator
0 Yanıt
3267 Gösterim
Son İleti Nisan 30, 2009, 06:21:17 ÖÖ
Gönderen: administrator
0 Yanıt
1825 Gösterim
Son İleti Nisan 30, 2009, 06:26:04 ÖÖ
Gönderen: administrator
0 Yanıt
5649 Gösterim
Son İleti Nisan 30, 2009, 06:26:13 ÖÖ
Gönderen: administrator
0 Yanıt
2419 Gösterim
Son İleti Nisan 30, 2009, 06:27:26 ÖÖ
Gönderen: administrator