Anasayfa > Kodlar > VB6 ile Banknot hesaplama

VB6 ile Banknot hesaplama


Girilen para miktarındaki banknotları bulup ekrana yazdıran program.
Eklenecek nesneler: text1, command1

 

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

Reklamlar
  1. mahmut akıın
    13/01/2011, 23:31

    ben araştırdım bu programı buluom vb de uygulama yazdım denedim olmadaı acaba eski programmı bu

    Beğen

  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: