Küçük Kullanışlı Ama Hatasız Hesap makinası

Hesap makinamızı visuaL basic 6.0 programı ile yapalım

Slm arkadaşlar cok kolay yoldan hesap makinası yapıp bunun hatalarını giderecegiz... butun kodları weriyorum sonra herkes kendi tasarımı yapsın
TopLama İşlemi yapacagımız Butona


dim sayi1 as large
dim sayi2 as large
dim sonuc as large
Private Sub Command_click1()
kontrol1=isnumeric(text1.text)
kontrol2=isnumeric(text2.text)
if text1.text="" or text2.text="" or kontol1=0 or kontrol2=0 then
msgbox "Sayıları Girdiginizden Emin Olunuz",48,"DikkaT"
else
sayi1=text1.text
sayi2=text2.text
sonuc=sayi1+sayi2
text3.text=sonuc
end if
end sub


Toplama işlemini gercekleştirdik cıkartma işleminde sıra

Private Sub Command_click2()
kontrol1=isnumeric(text1.text)
kontrol2=isnumeric(text2.text)
if text1.text="" or text2.text="" or kontol1=0 or kontrol2=0 then
msgbox "Sayıları Girdiginizden Emin Olunuz",48,"DikkaT"
else
sayi1=text1.text
sayi2=text2.text
sonuc=sayi1-sayi2
text3.text=sonuc
end if
end sub


Çarpma işleminde

Private Sub Command_click3()
kontrol1=isnumeric(text1.text)
kontrol2=isnumeric(text2.text)
if text1.text="" or text2.text="" or kontol1=0 or kontrol2=0 then
msgbox "Sayıları Girdiginizden Emin Olunuz",48,"DikkaT"
else
sayi1=text1.text
sayi2=text2.text
sonuc=sayi1*sayi2
text3.text=sonuc
end if
end sub


Bölme ...

Private Sub Command_click4()
kontrol1=isnumeric(text1.text)
kontrol2=isnumeric(text2.text)
if text1.text="" or text2.text="" or kontol1=0 or kontrol2=0 then
msgbox "Sayıları Girdiginizden Emin Olunuz",48,"DikkaT"
else
sayi1=text1.text
sayi2=text2.text
sonuc=sayi1/sayi2
text3.text=sonuc
end if
end sub


Temizleme

text1.text=""
text2.text=""
text3.text=""
end sub


bu kadar ilk tasarımı yapıcaktım ama orasını size bıraktım 5 tane buton 3 label 3 text kullanarak 10 numara bir hesap makinası yapabilirsiniz
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 11 yıl önce
saol.emege saygı
• 11 yıl önce
saolda bu kotları nereye girecegiz
• 11 yıl önce
saol birader
• 11 yıl önce
saolasin usta eline sağlık. bizim hoca ödev verdi bunu yapcakmışız ama hocamız sadece button yapmai ogretti kodlari fln gostermedi böyle bi hocamız war :D
• 11 yıl önce
saolun elinze sağlık. Çok güzel olmuş.:gul:
• 11 yıl önce
saolun elinze sağlık. Çok güzel olmuş.:gul:
• 11 yıl önce
Bu programa yenı basladım bır hata alıyorum yardım edebilirmisiniz ? "Compile error: Ambiguous name detected: Command_click1" "Private Sub Command_click1" ve bu yazıyı gosterıyor sorun nedir? :S:S
• 11 yıl önce
saolda kardes emege saygı ama cok ugrasmıssın bu program 3-5 satır bile surmuyoo kasma kendini bu kadar
• 11 yıl önce
aslında size butonu da öğretmemesi gerek. size mantığı vermeli gereğini siz yapmalısınız.
• 11 yıl önce
degişken tanımalama tip tanımlamada Large kısmında hata veriyor neden acaba..?
• 11 yıl önce
degişken tanımalama tip tanımlamada Large kısmında hata veriyor neden acaba..?

Yukarı Git