Anasayfa > Kodlar > Visual Basic 6 ile YTL’ye çevirici

Visual Basic 6 ile YTL’ye çevirici


YTL Çevirmeni

Programı yapmak için önce forma 3 label 1 text ve 2 command ekleyelim

Private Sub Command1_Click()
Text1.Text = Val(Text1.Text)
If Text1.Text < 1000000 Then
Label2.Caption = Int(Text1.Text / 10000)
Label3.Caption = "ykr"
End If

If Text1.Text >= 1000000 Then
Label2.Caption = Int(Text1.Text / 1000000)
Label3.Caption = "ytl"
End If

End Sub

Private Sub Command2_Click()
MsgBox”bütün hakları EKOMAT yazılıma aittir.
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  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: