1-)Forma 3 adet text butonu ekleyin(Birine ilk sayıyı yazın diğerine ikinceiyi 3. te sonucu versin diye) 2-)Forma 4 adet button ekleyin(Birine "+" Birine "-" Birine "*" Birine "/" yazmanız için) 3-)Şimdi İlk Olarak "+" Yani TOPLAMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar; Private Sub Command1_Click() Dim değer1, değer2, sonuç değer1 = Val(Text1.Text) değer2 = Val(Text2.Text) sonuç = değer1 + değer2 Text3.Text = sonuç End Sub --)İkinci Olarak "-" Yani ÇIKARTMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar; Private Sub Command2_Click() Dim değer1, değer2, sonuç değer1 = Val(Text1.Text) değer2 = Val(Text2.Text) sonuç = değer1 - değer2 Text3.Text = sonuç End Sub --)Üçüncü Olarak "*" Yani ÇARPMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar; Private Sub Command3_Click() Dim değer1, değer2, sonuç değer1 = Val(Text1.Text) değer2 = Val(Text2.Text) sonuç = değer1 * değer2 Text3.Text = sonuç End Sub --)Dördüncü ve sonuncu Olarak "/" Yani BÖLME Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar; Private Sub Command4_Click() Dim değer1, değer2, sonuç değer1 = Val(Text1.Text) değer2 = Val(Text2.Text) sonuç = değer1 / değer2 Text3.Text = sonuç End Sub
WRECH
Detaylı Mesaj
Bilgileri
Mesaj No: 67
Mesajın Ana Konusu:Hesap Makinası Kotları !!! VB
Gönderilme Tarihi:Perş. Kas. 27, 2008 11:26 pm
Bu Mesajı Şikayet Et:
Hesap Makinası Kotları !!! VB
1 sayfadaki 1 sayfası
1 -
Arama Yapmadan Konu Açmayın. 2 - Mesaj Yazarken Başlıklar Konularla Alakalı Olmalır. 3 - Konularımızı Alakalı Başlıklar Altında Açalım. 4 - Aynı Konuya Ard Arda Mesaj Atmayın(flood Yapmayın) 5 - Bu Kurullara Uymamakta Israr Edenler Siteden Belirli Bir Süreliğine Yada Tamamen Uzaklaştırılır.
Anasayfa 
Latest images 
] 
Perş. Kas. 27, 2008 11:26 pm
WRECH
