HATA MESAJLARI

Bu başlık kilitlidir. Yeni mesajlar gönderilemez veya mevcut mesajlar düzenlenemez.
omer2197
06-12-2005, 10:54   |  #1  
OP Yıllanmış Üye
Teşekkür Sayısı: 0
166 mesaj
Kayıt Tarihi:Kayıt: Kas 2005

Arkadaşlar.visual basic te hesap makinesi yaptım.Fakat hataları nasıl gidereceğimi bilmiyorum.ben size kısaca programın içeriğini açıklayayım.1 tane text, 1 tane label ve her karakter için 1 tane command butonu var.Yani "1" tuşuna klavyeden değilde butona basarak yazıyoruz.Problemim text e bir şey yazmadan "+,-,*,/,=" butonlarına bastığımda "error 13" hatası veriyor ve tamam dediğimde programdan çıkıyor.Yardımınıza ihtiyacım var.Şimdiden teşekkürler

hacker_382
12-12-2005, 15:38   |  #2  
Yeni Üye
Teşekkür Sayısı: 0
38 mesaj
Kayıt Tarihi:Kayıt: Kas 2005

"+,-,*,/,="  Bu kodlamalarda hata var birdaha düzenle yada bi bak...
BEN SANA DAHA GELİSMİŞ BİR HESAP MAKİNESİ KODU VEREYİM
KODLAR:

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

KOPYALA YAPISTIR YAP YETER...