Arkadaşlar Ben bir telgraf programı kodluyorum bi arkadaşımla birlikte kullanıcağız programı kodladım sayılır ama basit bir sorunum var mesela ben bütün mors karakterlerini şu şekilde girdim:
Private Sub Command1_Click()
If Text1.Text = "1" Then
Text2.Text = ".----"
End If
If Text1.Text = "2" Then
Text2.Text = "..---"
End If
If Text1.Text = "3" Then
Text2.Text = "...--"
End If
If Text1.Text = "4" Then
Text2.Text = "....-"
End If
If Text1.Text = "5" Then
Text2.Text = "....."
End If
If Text1.Text = "6" Then
Text2.Text = "-...."
End If
If Text1.Text = "7" Then
Text2.Text = "--..."
End If
If Text1.Text = "8" Then
Text2.Text = "---.."
End If
If Text1.Text = "9" Then
Text2.Text = "----."
End If
If Text1.Text = "0" Then
Text2.Text = "-----"
End If
ama 17 yazınca hiç bir şey çıkmıyor bunu nasıl ayarlayabilirim ??
Şimdiden Teşekkürler...
Private Sub Command1_Click()
If Text1.Text = "1" Then
Text2.Text = ".----"
End If
If Text1.Text = "2" Then
Text2.Text = "..---"
End If
If Text1.Text = "3" Then
Text2.Text = "...--"
End If
If Text1.Text = "4" Then
Text2.Text = "....-"
End If
If Text1.Text = "5" Then
Text2.Text = "....."
End If
If Text1.Text = "6" Then
Text2.Text = "-...."
End If
If Text1.Text = "7" Then
Text2.Text = "--..."
End If
If Text1.Text = "8" Then
Text2.Text = "---.."
End If
If Text1.Text = "9" Then
Text2.Text = "----."
End If
If Text1.Text = "0" Then
Text2.Text = "-----"
End If
ama 17 yazınca hiç bir şey çıkmıyor bunu nasıl ayarlayabilirim ??
Şimdiden Teşekkürler...
bende güncelleme isteği duyuyorum cunku bu odevi yarına kadar bitirmem lasım
