Ben Mors Latin Harflerini Mors alfabesine ceviren bir program yazmakla uğraşıyorum.
kodlar:
Dim Karakter As String
Dim deg As Integer

Private Sub Command1_Click()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Karakter = Chr(KeyAscii)
If Karakter = "a" Then Label1 = Label1 & ".-"
If Karakter = "b" Then Label1 = Label1 & "-... "
If Karakter = "c" Then Label1 = Label1 & "-.-. "
If Karakter = "d" Then Label1 = Label1 & "-.. "
If Karakter = "e" Then Label1 = Label1 & ". "
If Karakter = "f" Then Label1 = Label1 & "..-. "
If Karakter = "g" Then Label1 = Label1 & "––. "
If Karakter = "h" Then Label1 = Label1 & ".... "
If Karakter = "i" Then Label1 = Label1 & ".. "
If Karakter = "j" Then Label1 = Label1 & ".––– "
If Karakter = "k" Then Label1 = Label1 & "–.– "
If Karakter = "l" Then Label1 = Label1 & ".–.. "
If Karakter = "m" Then Label1 = Label1 & "–– "
If Karakter = "n" Then Label1 = Label1 & "–. "
If Karakter = "o" Then Label1 = Label1 & "––– "
If Karakter = "p" Then Label1 = Label1 & ".––. "
If Karakter = "q" Then Label1 = Label1 & "––.– "
If Karakter = "r" Then Label1 = Label1 & ".–. "
If Karakter = "s" Then Label1 = Label1 & "... "
If Karakter = "t" Then Label1 = Label1 & "– "
If Karakter = "u" Then Label1 = Label1 & "..– "
If Karakter = "v" Then Label1 = Label1 & "...– "
If Karakter = "w" Then Label1 = Label1 & ".–– "
If Karakter = "x" Then Label1 = Label1 & "–..– "
If Karakter = "y" Then Label1 = Label1 & "–.–– "
If Karakter = "z" Then Label1 = Label1 & "––.. "
If Karakter = " " Then Label1 = Label1
End Sub

labela veya text2 ye nereye yazdırmak istesem bazı harflerin karışılığı soyle oluyor. http://www.hemenpaylas.com/download/1029875/vb.jpg.html (buraya resimi koydum). mesela karşılığı -.- bunun yerine kalın cizgiler cıkıyor sebebini anlamadım
Yardımcı olursanız sevirim
__________________