UndergrounD
Would you like to react to this message? Create an account in a few clicks or log in to continue.
UndergrounD

Hoş geldiniz ,sefalar getirdiniz(underground.catsboard.com)
 
AnasayfaAnasayfa  protalprotal  AramaArama  Latest imagesLatest images  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

 

 vb ile hesap makınası yapımı

Aşağa gitmek 
YazarMesaj
Admin
Mareşal
Mareşal
Admin


Mesaj Sayısı : 405
Yaş : 114
Nerden : underground.catsboard.com
takımlar : vb ile hesap makınası yapımı E4e3b5716ebbcc5ab03bdda458ae56b0
ruh halı : vb ile hesap makınası yapımı Yogun10
sanal hayvanlar : vb ile hesap makınası yapımı 3d-her10
Kayıt tarihi : 13/02/09

vb ile hesap makınası yapımı Empty
MesajKonu: vb ile hesap makınası yapımı   vb ile hesap makınası yapımı Icon_minitimeC.tesi Mart 07, 2009 5:12 pm

Arkadaşlar Visual Basic 6 da Kolay Bir hesap Makinesi Yapmak İçin Aşağıdaki adımları izleyin;
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
Sayfa başına dön Aşağa gitmek
https://underground.catsboard.com
 
vb ile hesap makınası yapımı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Ev yapımı dev simülatör!
» photoshopla arabanın altına neon ışık verme
» Hareketli Userbar Yapımı (Resimli ve Flash Anlatım)photoshop

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
UndergrounD :: programlama :: Visual Basic-
Buraya geçin: