ANA SAYFA HABERLER VİDEOLAR DERSLER OYUNLAR DOSYA RESİM GALERİSİ YARIŞMA Facebookta paylaşmak için tıklayınız
 
 » MENÜ
 Türkiye Coğrafyası
 Ülkeler Coğrafyası
 Matematik Coğrafya
 Siyasi Coğrafya
 Biyocoğrafya
 Beşeri Coğrafya
 Ekonomik Coğrafya
 Hidroğrafya
 Klimatoloji
 Coğrafya Soru Bankası
 Güncel Yazılar
 » SORU CEVAP BÖLÜMÜ
Bu bölümden coğrafya dersleriniz yada coğrafya ile ilgili sorularınız varsa bize iletebilirsiniz.
Editöre Soru Sorunuz
Cevaplanmış Sorulara Bakınız
 » BİR COĞRAFYA BİLGİSİ
İstanbul dünyada iki kıta üzerinde yer alan tek şehirdir.
 » İÇERİK İSTATİSTİKLERİ
 Toplam Dosya Sayısı : 58
 Toplam Makale Sayısı : 87
 Toplam Ders Sayısı : 92
 Toplam Video Sayısı : 132
 Toplam Oyun Sayısı : 283
 Toplam Soru Sayısı : 11856
 Toplam Haber Sayısı : 62
 » SİTE İSTATİSTİKLERİ
Üyeler
Son Üye : pinarbibi
Bugün : 0
Dün : 0
Toplam Üye : 982
Online Üyeler
 Online üye yok..
Site Sayacı


Ip Adresiniz
ip adresim
İletişim
E-Mail : bilgi@cografyalar.com
Visual Basic de Hesap Makinesi Yapımı
 » Visual Basic de Hesap Makinesi Yapımı

VB de hesap makinesi kodları;

forma 1 textbox ve 17 tane button ekleyin

formun basında 3 tane değişken atıyoruz

dim a as string

dim b,c as long

değişkenler kısa olması için a.b.c diye yazdım isterseniz değiştirebilirsiniz

buttonların textlerine 0 den 9 kadar sayıları yazın ve bir tanesine 00 yazın

kalan buttonların textlerine + , - , * , / , C , = yazın

üzerinde sayı olan buttonlara

textbox1.text  = textbox1.text & "buttonun üzerinde yazan sayı"

şimdi buttonlar yazı yazabiliyor

şimdi işlem yaptıralım

+ buttonunun içine; (aşağıdaki kodları yapıştırabilirsiniz)

a  = "+"

if textbox1.text = "" then 'bir sayı yazmadan butona tıklanırsa hata vermez ilk sayı 0 olarak algılar

b = 0

else

b = textbox1.text

end if

textbox1.clear()

aynılarını - , * ve / buttonlarının click olaylarınada yapıştırın ama + hangi buttonun click olayına yazıyorsanız onu yazın

C buttonunun click olayına;

textbox1.clear()

ve son olarak  =  buttonunun click olayına;

if textbox1.text = "" then

c = 0

else

c = textbox1.text

end if

if a = "+" then  textbox1.text =c + b

if a = "-" then textbox1.text = b - c

if a = "*" then  textbox1.text =c * b

if a = "/" then  textbox1.text =b / c

Kodlar Bukadar Başarılar




  Okunma : 9390 |