Kendi Yazdığım YTL-TL TL-YTL Çeviri Programı

Kendi Yazdığım YTL-TL TL-YTL Çeviri Programı

Forma 2 Text 2 Command Ekleyin Ve Bu Kodları Forma 2 Kez Tıklayıp İçine Yazın

Not = Kodları Kendim Yazdım Uğraşmayın Diye Captionlarıda Ayarladım Hakettiysem +rep Bir Sorun Olursa Söyleyin..

Private Sub Command1_Click()
Text2.Text = Format(Text1.Text / 1000000, "0.00")
End Sub

Private Sub Command2_Click()
Text1.Text = Format(Text2.Text * 1000000, "0.00")
End Sub

Private Sub Form_Load()
Text1.Text = "TL"
Text2.Text = "YTL"
Command1.Caption = "TL'yi YTL'ye Çevirirken Kullanın."
Command2.Caption = "YTL'yi TL'ye Çevirirken Kullanın."
End Sub

Ben soke bi program yaptim diyelim 3 yazinca alfabenin 3. Harfine basio ben kodladim mesela 8 diorum g ye basio ama dielim ben aba yZmasini istiorum 121 yaziirum olmuo ne kodu yazmam lasim altaki konuda yazdim bakarsan gorursun

Uzun is o ya ısım olmadıı 1 azaman anlatırım ....