Para Üstü Hesaplama Programı

[DeadGhost]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

'İlk ö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"

 

[OptiMistics]

teşekkürler.