Skip to main content

AccessTr.neT


Banknot Hesaplama

Banknot Hesaplama

#1
Eklenecek nesneler: text
command button
Private Sub Command1_Click()
Dim i, j
Cls
i = Val(Text1.Text)
j = Int(i / 100)
Print j; " Tane 100 YTL Vardır "
i = i Mod 100
j = Int(i / 50)
Print j; " Tane 50 YTL Vardır "
i = i Mod 50
j = Int(i / 20)
Print j; " Tane 20 YTL Vardır "
i = i Mod 20
j = Int(i / 10)
Print j; " Tane 10 YTL Vardır "
i = i Mod 10
j = Int(i / 5)
Print j; " Tane 5 YTL Vardır "
i = i Mod 5
j = Int(i / 1)
Print j; " Tane 1 YTL Vardır "
i = i Mod 1
End Sub

Private Sub Form_Load()
Text1.ToolTipText = "Para Miktarını Giriniz"
End Sub<b></b>
.exe BANKOT Hesapla.exe (Dosya Boyutu: 20 KB | İndirme Sayısı: 52)
PROGRAMMER MEHMET
Son Düzenleme: 04/11/2010, 17:15, Düzenleyen: gitarc.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Banknot Hesaplama - Yazar: gitarc - 04/11/2010, 15:19
Cvp: Banknot Hesaplama - Yazar: ozanakkaya - 05/11/2010, 01:54
Cvp: Banknot Hesaplama - Yazar: okileturc - 06/11/2010, 07:58
Cvp: Banknot Hesaplama - Yazar: assenucler - 06/11/2010, 09:01
Cvp: Banknot Hesaplama - Yazar: akin - 24/01/2011, 12:23
Task