lütfeeeeeennn!!!!

[evangel]

ben vb 6.0 kullanıcısıyım. toplama çıkarma çaprma bölme si olan basit bi makine yapıp bunda numeric kullanmam lazım. nasıl kullanacağım numerici ne yapacağım??
lütfen yardım edin........

[Acoustic]

Kardeşim bir önceki açmış olduğun konuda bunun cevabını Yns vermişdi. Eğer bu koddan bi şey anlamadıysan bu ödevi hiç verme bence daha iyi. Zaten hoca hesap makinesi ödevini verdiyse hesap makinesi yapacak kadar bilgi vermiştir. Yok ben beleşden kod istiyorum diyosan açık açık söyle.

[evangel]

o vb.net için cevap verdi. vb 6 ya uyarlanır belki ama 6.0 için cevap veren çıkar mı diye bakıyorum. hem sen yardım etmeyeceksen etme.beleş kod istesem nolcak sana zararı mı dokunuyo.? bütün hocaların iyi olduğunu nerden biliyorsun. benim sınıfımın hepsi mi salak??? aman neyse,azarlanmaya niyetim yok benim...

[CodeMania]

GEreken Controller
* 1 adet text
* 1 adet label
* 18 adet command button

' Bu kodları code explorer kısmını açıp yapıştırın
Dim a As Double
Dim b As Double

Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub

Private Sub Command10_Click()
a = Text1.Text
Text1.Text = ""
Label1.Caption = "/"
End Sub

Private Sub Command11_Click()
a = Text1.Text
Text1.Text = ""
Label1.Caption = "*"
End Sub

Private Sub Command12_Click()
a = Text1.Text
Text1.Text = ""
Label1.Caption = "-"
End Sub

Private Sub Command13_Click()
a = Text1.Text
Text1.Text = ""
Label1.Caption = "+"
End Sub

Private Sub Command14_Click()
'alanları temizle
Text1.Text = " "
Label1.Caption = ""

Beep
End Sub

Private Sub Command15_Click()
b = Text1.Text
If Label1.Caption = "+" Then Text1.Text = a + b
If Label1.Caption = "-" Then Text1.Text = a - b
If Label1.Caption = "*" Then Text1.Text = a * b
If Label1.Caption = "/" Then Text1.Text = a / b
Beep
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command17_Click()
MsgBox "Forumcuk Hesap V.0.1" & vbCrLf & "Coder : Lei ", vbInformation, "Forumcuk Hesap V.0.1"

End Sub


Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
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()
Text1.Text = Text1.Text & 6
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & 7
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & 8
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub kapat_Click()
MsgBox "Güle güle", vbInformation, "Çıkış"
End
End Sub

Private Sub Form_Load()
Command1.Caption = 1
Command2.Caption = 2
Command3.Caption = 3
Command4.Caption = 4
Command5.Caption = 5
Command6.Caption = 6
Command7.Caption = 7
Command8.Caption = 8
Command9.Caption = 9
Command16.Caption = 0
Command10.Caption = "/"
Command11.Caption = "*"
Command12.Caption = "-"
Command13.Caption = "+"
Command14.Caption = "ac"
Command15.Caption = "="
Command17.Caption = "Kapat"
Command18.Caption = "Hakkında"
Text1 = ""
Label1 = ""
End Sub

[CodeMania]

aklıma gelmişken geçen bu kodu sahiplenen biri çıkmıştı önemsiz basit bir kod olmasına rağmen kendi yazdıım kodları başkası sahiplendiğinde sinirleniyorum bunu belirtmek isterim...

[evangel]

kıymetli zamanından ayırıp yardım ettiğin için teşekkür ederim.büyük bi kısmını halletmiş oldum.

[CodeMania]

rica ederim