Banknot Hesaplama

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>

Paylaşım için teşekkürler

Uygulama için teşekkürler.

Sayın gitarc;

Günaydın.. Çalışma ve paylaşım için teşekkürler..

Biliyorsunuz para birimimiz "TL"... "YTL" yı düzelmeniz mümkün müdür?

bu programın exe değilde visual basic yapımı varmı