Hallo , heeft er iemand info over hoe je je keypad kunt laten werken zoals een gsm ?
dus alphabet + nummeriek .
iemand info
dus alphabet + nummeriek .
iemand info
Verwijderd
[ Voor 29% gewijzigd door Verwijderd op 24-10-2003 17:33 ]
Verwijderd
Verwijderd
Verwijderd
Verwijderd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| Option Explicit Dim intKeyPressed As Integer Dim intKeyPresses As Integer Dim dKeyAscii As Integer Dim AlphaPerKey As Integer Private Sub tmrKey_Timer() tmrKey.Enabled = False intKeyPressed = 0 intKeyPresses = 0 End Sub Private Sub txtInput_KeyPress(KeyAscii As Integer) AlphaPerKey = 3 Select Case KeyAscii Case 56 dKeyAscii = 49 Case 57 dKeyAscii = 50 Case 52 dKeyAscii = 51 Case 53 dKeyAscii = 52 Case 54 dKeyAscii = 53 Case 49 dKeyAscii = 54 Case 50 dKeyAscii = 55 AlphaPerKey = 4 Case 51 dKeyAscii = 56 AlphaPerKey = 4 End Select tmrKey.Enabled = False tmrKey.Enabled = True If intKeyPressed <> dKeyAscii Then intKeyPresses = 0 intKeyPressed = dKeyAscii If KeyAscii <> 48 Then If intKeyPresses = 0 Then txtResult.Text = txtResult.Text & "x" txtResult.Text = Left(txtResult.Text, Len(txtResult.Text) - 1) & Chr(97 + ((dKeyAscii - 49) * 3) + intKeyPresses + (AlphaPerKey - 3)) intKeyPresses = intKeyPresses + 1 If intKeyPresses = 3 Then If Not (KeyAscii <> 49 Or KeyAscii <> 51) Then intKeyPresses = 0 End If Else txtResult.Text = txtResult.Text & " " End If End Sub |
[ Voor 3% gewijzigd door Rafe op 24-10-2003 20:21 ]
Man hopes. Genius creates. Ralph Waldo Emerson
Never worry about theory as long as the machinery does what it's supposed to do. R. A. Heinlein
[ Voor 11% gewijzigd door the_stickie op 25-10-2003 20:49 ]
Verwijderd