'İlk once actığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım

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

dim musteriver as integer
dim musteritutar as integer

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

musteriver = text1
musteritutar = text2

dim para as integer

'para değişkenimiz muşterinin verdiği parayı aklında tutacak ve muşteri tutarını cıkaracak

para = musteriver - musteritutar

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

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

'işte burda da parayı paramparca yapıyoruz ve hangi bakonotları vereceğimiz işte burda cı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 gostermek 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 = " & (musteriver-musteritutar) & " ytl Verildi"
Baksana59
__________________