Başlangıç > 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 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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: