Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
wrotomek
Poziom 1
Dołączył: 29 Gru 2005
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: Bukowiec
|
Wysłany: Czw 20:39, 29 Gru 2005 Temat postu: "Klawisz wykonuje zadanie w visualu basicu" |
|
|
Mam mały problemik, napisałem programik w VB, który po naciśnięciu odpowiedniego buttona zapala odpowiednią mu diodę(diody podpięte są pod LPT). Chciałbym teraz aby to klawisze odpalały diody np.: strzałka w górę odpala I diodę, strzałka w dól odpala II diodę. Potrafię to robić na klawiszach literkowych(wystarczy przed napisem na buttonie wtawić & np jak napis będzie "koniec" a napiszę &koniec" to literka "k" obsłuzy mi ten przycisk). I jeszcze jeden problem chcę aby po puszczeniu przycisku dioda gasła a świeciła kiedy przycisk jest przytrzymany.
pozdrawiam i prosze o pomoc
tak wygląda view kod mojego programu ale niestety nie działa tak jakbym chciał:
Dim vbKeyUp As Integer
Dim vbKeyDown As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Const PORT = &H378 'NUMER TWOJEGO PORTU (przed numerem trzeba podać "&H")
Const AD As Short = &H378S 'NUMER PORTU '
Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = vbKeyUp Then '1 Dioda
Out(AD, 1)
End If
If KeyCode = vbKeyDown Then '2 Dioda
Out(AD, 2)
End If
End Sub
Nie wiem w czym jest błąd, program nic nie podkreśla powinno wszystko działać a nie działa-pomocy
pozdrawiam
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
|
|
Bartek_Wosik
Główny Nadzorca
Dołączył: 15 Gru 2005
Posty: 12
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: Częstochowa
|
Wysłany: Pią 18:36, 30 Gru 2005 Temat postu: Re: "Klawisz wykonuje zadanie w visualu basicu" |
|
|
Czy możesz dołączyć schemat wg którego są podłaczone diody do LPT ? U mnie podkreśla błąd w cześci z instrucjami warunkowymi.
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Adterhadickbas4
Poziom 7
Dołączył: 08 Kwi 2007
Posty: 20
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Nie 11:53, 08 Kwi 2007 Temat postu: |
|
|
Britney Spears Spreading Outdoors!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Adterhadickbas4
Poziom 7
Dołączył: 08 Kwi 2007
Posty: 20
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Nie 11:54, 08 Kwi 2007 Temat postu: |
|
|
Nicole Kidman Blowjob!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Adterhadickbas4
Poziom 7
Dołączył: 08 Kwi 2007
Posty: 20
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Nie 11:55, 08 Kwi 2007 Temat postu: |
|
|
Britney Spears Spreading Outdoors!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Edmo06
Poziom 7
Dołączył: 27 Kwi 2007
Posty: 20
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Pią 12:44, 27 Kwi 2007 Temat postu: |
|
|
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
|