Para Üstü Hesaplama programı Yapımı

k önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım


'ilk önce burda değişkenleri tanımlıyoruz..


dim müsteriver as integer
dim müsteritutar as integer


've burda tanımladığımız değişkenleri textlere tanıtıyoruz


müsteriver = text1
müsteritutar = text2


dim para as integer


'para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak


para = müsteriver - müsteritutar


' bu değişkenlerimiz de bizim bankonotlarımız


dim p100, p50, p20, p10, p5, p1 as integer


'işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor




p100 = int(para/100)
para = para mod 100
p50 = int(para/50)
para = para mod 50
p20 = int(para/20)
para = para mod 20
p10 = int(para/10)
para = para mod 10
p5 = int(para/5)
para = para mod 5
p1 = para


'heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak


label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"


label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"