Best Studio 1
Best Studio
mannaxxx 1
mannaxxx
Agora Metin2 1
Agora Metin2
[DEV]AB 1
[DEV]AB
Sevdamsın 1
Sevdamsın
TuZaKK 1
TuZaKK
kaptanmikro1 1
kaptanmikro1
farkmt2official 2
farkmt2official
kralhakan2009 1
kralhakan2009
Vahsi Uzman 1
Vahsi Uzman
Bvural41 1
Bvural41
Hikaye Ekle

Visual Basic Hesap Makinesi yapimi

  • Konuyu başlatan Konuyu başlatan SeaL34
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 3
  • Görüntüleme Görüntüleme 449
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst