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


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazı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: