Mein STAR²

[Spion]

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

[scales]

welche Programmiersprache?

[Spion]

Achso VB(6) oder XProfan(9) (oder ein freeware Programm).

mfg Luca

[scales]

Visual Basic benutz ich nicht, aber das hier hab ich dadrüber gefunden:
http://vb-tec.de/inkey.htm

vielleicht hilfts weiter

[plusminus]

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!

[Nordwind]

schönes projekt ähnlich mit mienem aktuellen! ich steuer meinen greifer allerdings über eine siemens logo

[Spion]

Hallo

Erstmal vorweg, das Projekt wurde abgebrochen.

Das mit der Tastatur auslesen habe ich hinbekommen, hier der 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