Merhaba Arkadaslar Yine Ben Barmak gecti Bende Geldim
eeet dersimize baslıyalım
şimdik Formumuza bir tane TextBox yerleştiriniz
hatta 2 tane yerleştirin anasını Satim
properties bolumune girin we Text yazan yeri silin Text1 deil Text sekmesinde yazanı
sildinizmi oke
bi tane comman button ekleyin
yada 6 tane ekleyin dersi kısa bitirmeyim
Sırasıyla isimlerini Caption gibi bişi war ordan deiştirin
Cıkar
Topla
Carp
Bol
Mod
Kare
Cıkar Butonuna iki kere tıklayın karsınıza alttaki gibi bi yazı gelceq
burda anlatmak istediği command. butonuna yani çıkar butonuna bastıgımda yapılmasını istediğini yaz
buraya en basta değerleri girelim
Private Sub Command1_Click()
A = Text1
B = Text2
C = Val(a) - Val(b)
MsgBox C
End Sub
aynen bole geçirin textboxlarımızı a ve b olarak isimlendirdik kolaylık saglamak için
işlemin sonucunuda C olaraq İsimlendirdik
şimdik sıra toplama işleminde Tek fark işarette gecen ders alatmıstm
Private Sub Command2_Click()
A = Text1
B = Text2
C = Val(a) + Val(b)
MsgBox C
End Sub
Buda Tamam
Sıra Çarpmada
Private Sub Command3_Click()
A = Text1
B = Text2
C = Val(a) * Val(b)
MsgBox C
End Sub
Carpmada Hazır Bolme
biliyorsunuzki bolmenin bilgisayardaki işareti slash yani / dir
Private Sub Command4_Click()
A = Text1
B = Text2
C = Val(a) / Val(b)
MsgBox C
End Sub
Bolme işlemimizde Tamam
Korkmaya başlayabilrsiniz çunku zorlanacagınız yer bu anlatacagımın hemen arkasında ;)
Mod Alma
Private Sub Command5_Click()
A = Text1
B = Text2
C = Val(a) mod Val(b)
MsgBox C
End Sub
Vb 6 Zawallım mod almaya uygun bi işaret bulamayınca mod die girmiş bizde ole dewam edecez
şimdik sayının karesini Almaya Geldi sıra
zorlanabilrsiniz ama dkkatli okursanız sorun çıkmaz
Private Sub Command6_Click()
A = Text1
B = Val(A) * Val(A)
MsgBox B
End Sub
matematik derslerinden hatırlarsınızki Karesini almak bir sayıyı kendiyle çarpmaktı
DipNot sadece Ustteki Bosluk işliceq Burda Sadeci ustteki Boslugun iş yapmasını deil ust bosken Altın iş yapmazını istiosanız
Private Sub Command6_Click()
If Text1 <> "" Then
A = Text1
B = Val(A) * Val(A)
MsgBox B
Else
A = Text2
B = Val(A) * Val(A)
MsgBox B
End If
End Sub
iLk Elseye Kadar anlatmak istedi Textbox1 deki yazımız eşit deilse bosluga yani elimizde hazır mewcut bi rakamımız warsa onu ata
Ve Onun KAresini aL
eLse de bize diorki
Hele bi eşit gelmesin onu alırım koprı altında çalıstırırım haha ;)
elsede bize dioki ole olmassa textbox2 yi kullanın canım canınmı çıkar
Deneyin Sorunları Formda Bana Sorabilrsiniz Ben Baqınırım Arada
Her Zaman Solediğim Gibi Alıtı Yapanı Eşşekler Kowalasın ve Tum Gevezeliler

duzenlenmiş halleri:

Private Sub Command1_Click()
A = Text1
B = Text2
C = Val(a) - Val(b)
MsgBox C
End Sub

Private Sub Command2_Click()
A = Text1
B = Text2
C = Val(a) + Val(b)
MsgBox C
End Sub


Private Sub Command3_Click()
A = Text1
B = Text2
C = Val(a) * Val(b)
MsgBox C
End Sub

Private Sub Command4_Click()
A = Text1
B = Text2
C = Val(a) / Val(b)
MsgBox C
End Sub

Private Sub Command5_Click()
A = Text1
B = Text2
C = Val(a) mod Val(b)
MsgBox C
End Sub


Private Sub Command6_Click()
If Text1 <> "" Then
A = Text1
B = Val(A) * Val(A)
MsgBox B
Else
A = Text2
B = Val(A) * Val(A)
MsgBox B
End If
End Sub

Kare Kokunu Almayıda Baska konuda Anlatacam...