請問要如何用VB設計摩斯電碼

Question

請問各位VB高手
我想用VB設計一個摩斯電碼
請教各位高手給一點提示>"<
謝謝~

我是想用下拉式的方法...
我選擇A就會顯示燈號"●─"
然後有A~Z可以選擇

Answer 1

Dim code As Byte ''''''''''''''''''''''''是否按下鍵
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
code = 1
End Sub
Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 300 ''''''''''''''''''''0.3秒為一單位作檢查
Me.KeyPreview = True '''''''''''''''''''''''''''''讓表單接受鍵盤事件
Text1.Locked = True '''''''''''''''''''''''''''''文字方塊設定為唯讀, 使它就像一個 Label 一樣
End Sub
Private Sub Timer1_Timer()
If code = 1 Then
code = 0
Text1.Text = Text1.Text & "1" '如果使用者有按下按鍵的話, 這個單位就當作是 1 .
Else
Text1.Text = Text1.Text & "0" '如果沒有的話, 這個單位就當作是 0 .
End If
End Sub

Answer 2

Dim Code() As String
Private Sub Combo1_Click()
MsgBox Code(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Dim S As String, A() As String, I As Integer, X As Integer
S = "1, . _ _ _ _ ,2, . . _ _ _ ,3, . . . _ _ ,4, . . . . _ ,5, . . . . . ,6, _ . . . .,7, _ _ . . .,8, _ _ _ . .,9, _ _ _ _ .,0, _ _ _ _ _,A, . _,B, _ . . .,C, _ _ _ .,D, _ . .,E, .,F, . . _ .,G, _ _ .,H, . . . .,I, . .,J, . _ _ _ ,K, _ . _,L, . _ . .,M, _ _ _ _ ,N, _ .,O, _ _ _ ,P, . _ _ .,Q, _ _ . _,R, . _ .,S, . . . ,T, _ ,U, . . _ ,V, . . . _ ,W, . _ _ ,X, _ . . _ ,Y, _ . _ _ ,Z, _ _ . . ,Enter, . _ . _,Space, . . _ _ ,+, _ . . . _,-, . _ _ _ .,=, _ _ _ . _"
A = Split(S, ",")
For I = 0 To UBound(A) Step 2
Combo1.AddItem A(I)
ReDim Preserve Code(X)
Code(X) = A(I + 1)
X = X + 1
Next
End Sub

Answer 3

我沒有什麼下拉式的，不過我倒是有在一個Textbox中輸入一串英文，然後按一個按鈕~就可以將輸入的字母轉換成摩斯密碼

需要的話 [e-mail]

Answer 4

請解釋何謂 摩斯電碼

2006-01-01 22:03:45 補充：
你的解釋還是不完整

Answer 5

聽不太懂在說啥，是要用按鍵盤的時間長短輸入後翻譯成字母，還是用0表示短聲，1表長聲....

2006-01-01 18:00:16 補充：
還是用滑鼠點擊按鈕的時間長短....