Döviz = TL
TL=Döviz
Çevirisi Yapabiliyorsunuz.
KOD:
Gerekli Objeler : 3 TextBox 3 Label Resimdekigibi yerlestirebilirsiniz.
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then Text2 = Fix(Text1 / Text3)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then Text1 = Fix(Text2 * Text3) & " TL"
End Sub
Proje Dosyası
http://hotfile.com/dl/69757943/38c9277/KUR.rar.html