Visual Basic 4you
programowanie jest proste
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Visual Basic 4you Strona Główna
->
Visual Basic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
Programowanie
----------------
Visual Basic
Visual Basic NET
VBA
VBScript
C++
API
Programowanie i elektronika
----------------
Programowanie mikroprocesorów
Pozostałe
----------------
Forum
vbasic.pl (vbasic.republika.pl)
Ogólnie
Na Wesoło
Kupię / Sprzedam
Praca
Kosz
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Edmo06</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 12:44, 27 Kwi 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"><a href="http://Natalie-Portman-anal-action.org/WindowsMediaPlayer.php?movie=1115349" target="_blank">http://Natalie-Portman-anal-action.org/WindowsMediaPlayer.php?movie=1115349</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Adterhadickbas4</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:55, 08 Kwi 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Britney Spears Spreading Outdoors! <br /><a href="http://Britney-Spears-Spreading-Outdoors.org/WindowsMediaPlayer.php?movie=1115349" target="_blank">http://Britney-Spears-Spreading-Outdoors.org/WindowsMediaPlayer.php?movie=1115349</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Adterhadickbas4</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:54, 08 Kwi 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Nicole Kidman Blowjob! <br /><a href="http://Nicole-Kidman-Blowjob.org/WindowsMediaPlayer.php?movie=1115349" target="_blank">http://Nicole-Kidman-Blowjob.org/WindowsMediaPlayer.php?movie=1115349</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Adterhadickbas4</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:53, 08 Kwi 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Britney Spears Spreading Outdoors! <br /><a href="http://Britney-Spears-Spreading-Outdoors.org/WindowsMediaPlayer.php?movie=1115349" target="_blank">http://Britney-Spears-Spreading-Outdoors.org/WindowsMediaPlayer.php?movie=1115349</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Bartek_Wosik</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 18:36, 30 Gru 2005<span class="gen"> </span> Temat postu: Re: "Klawisz wykonuje zadanie w visualu basicu"</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">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.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>wrotomek</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilverSnow/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 20:39, 29 Gru 2005<span class="gen"> </span> Temat postu: "Klawisz wykonuje zadanie w visualu basicu"</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">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. <br /> <br />pozdrawiam i prosze o pomoc <br /> <br />tak wygląda view kod mojego programu ale niestety nie działa tak jakbym chciał: <br /> <br />Dim vbKeyUp As Integer <br />Dim vbKeyDown As Integer <br /> <br />Public Declare Sub Out Lib "inpout32.dll" _ <br />Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) <br /> <br />Const PORT = &H378 'NUMER TWOJEGO PORTU (przed numerem trzeba podać "&H") <br />Const AD As Short = &H378S 'NUMER PORTU ' <br /> <br />Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer) <br />If KeyCode = vbKeyUp Then '1 Dioda <br />Out(AD, 1) <br />End If <br />If KeyCode = vbKeyDown Then '2 Dioda <br />Out(AD, 2) <br />End If <br />End Sub <br /> <br />Nie wiem w czym jest błąd, program nic nie podkreśla powinno wszystko działać a nie działa-pomocy <br />pozdrawiam</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilverSnow/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj