-
Hallo
Leider hatte ich gestern doch fast keine Zeit, dafür ging ich einkaufen und habe noch alles nötige geholt.
Ich habe mich entschlossen mich jetzt auch noch der Software zu widmen.
Und da ist schon meine erste frage:
Ich will den Kranen ja über meinen Computer steuern, dafür müsste ich die Tastatur (Numpad) abfragen können. Nun habe ich leider nichts gefunden beim suchen (google, Roboternetz). Und da wollte ich fragen ob jemand ein Programmier Beispiel hat in dem das Numpad abgefragt wird? Es sollte wenn eine Taste gedrückt ist etwas passieren (Zahl ändern). Dass ganze sollte im Hintergrund passieren, denn ich bastle keine Benutzeroberfläche.
mfg Luca
-
welche Programmiersprache?
-
Achso VB(6) oder XProfan(9) (oder ein freeware Programm).
mfg Luca
-
Visual Basic benutz ich nicht, aber das hier hab ich dadrüber gefunden:
http://vb-tec.de/inkey.htm
vielleicht hilfts weiter
-
Ich empfehle dir ein Hotkey-Control, vllt bei planet-surce-code.com oder einfach mal googeln.
Der Vorteil hierbei ist, dass du nicht dauernd die Tasten abfragen musst, sondern sich die steuerelemente von alleine Melden!
-
schönes projekt ähnlich mit mienem aktuellen! ich steuer meinen greifer allerdings über eine siemens logo
-
Hallo
Erstmal vorweg, das Projekt wurde abgebrochen.
Das mit der Tastatur auslesen habe ich hinbekommen, hier der Code.
Code:
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" ( _
ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim Cnt As Long
Dim x As Long
For Cnt = 96 To 123
If GetAsyncKeyState(Cnt) <> 0 Then
Select Case Cnt
Case 96 ' 0
MsgBox ("0")
Case 97 ' 1
MsgBox ("1")
Case 98 ' 2
MsgBox ("2")
Case 99 ' 3
MsgBox ("3")
Case 100 ' 4
MsgBox ("4")
Case 101 ' 5
MsgBox ("5")
Case 102 ' 6
MsgBox ("6")
Case 103 ' 7
MsgBox ("7")
Case 104 ' 8
MsgBox ("8")
Case 105 ' 9
MsgBox ("9")
Case 106 '*
MsgBox ("*")
Case 107 '+
MsgBox ("+")
Case 109 '-
MsgBox ("-")
Case 110 '.
MsgBox (".")
Case 111 '/
MsgBox ("/")
Case 112 'F1
MsgBox ("F1")
Case 113 'F2
MsgBox ("F2")
Case 114 'F3
MsgBox ("F3")
Case 115 'F4
MsgBox ("F4")
Case 116 'F5
MsgBox ("F5")
Case 117 'F6
MsgBox ("F6")
Case 118 'F7
MsgBox ("F7")
Case 119 'F8
MsgBox ("F8")
Case 120 'F9
MsgBox ("F9")
Case 121 'F10
MsgBox ("F10")
Case 122 'F11
MsgBox ("F11")
Case 123 'F12
MsgBox ("F12")
End Select
Exit For
Else
x = 1
End If
Next Cnt
Me.Caption = CStr(x)
End Sub
Es werden hier der Zahlenblock und alle F. Tasten ausgelesen und dann erscheint in einem Fenster die gedrückte Taste.
mfg Luca
