Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak sie bawic timerem i jak zamknac program
anonim




Typ: Nie zarejestrowany
Jak sie bawic timerem i jak zamknac program

Witam.
Mam maly problem, bawie sie wlaczaniem i wylaczaniem diod z poziomu vb.
Wszystko jest ok,ale...
Chodzi mi o to, aby program ktory utworze,po uruchomieniu byl niewidoczny a po wykonaniu wszystkich funkcji zamknął sie automatycznie. Jesli chodzi o swiecenie diod to zalezaloby mi na tym, aby po uruchomieniu programu dioda zapalila sie na ok 0,5 sek a nastepnie zgasła i progr. sie zamknal.
Uzywalem przez caly czas pliku inpout32.dll, a procedury napisalem tak:

Option Explicit
Const Port= &H378
-------------------
Private Sub Command 1_click()
Out Port, 2
Out Port, 0
End sub

Z przyciskiem dziala, ale czas swiecenia jest zbyt krodki. Probowalem bawic sie z timerem, ale nic mi z tego nie wyszlo.

Moze ktoś co sie na tym zna bedzie w stanie pomoc.
Z gory dzieki
Pozdro

16-11-2004 19:31
  
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Nie piszesz o jakie diody chodzi. Na klawiaturze, czy na obudowie komputera? Jeśli chodzi o te pierwsze to mógłbym Ci pomóc.

Co do ukrywania programu na liście to jest sposób TU: http://www.vbzone.kylos.pl/show.php?id=tips/12.htm, ale nie działa pod XP ;(-poszukaj w sieci.

A żeby program się zamknął na końcu sam, to dopisz po prostu polecenie End na końcu kodu


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


16-11-2004 21:05
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Viper87: chodzi mu o diody podłączone do portu LPT. W przedstawionym kodzie jest zapalana dioda na 3-cim pinie.

anonim:
Spróbuj czegoś takiego:

    Out Port, 2
    Sleep 500
    Out Port, 0


Deklaracja procedury Sleep:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Ewentualnie możesz użyć Timera i takiego kodu:

Private bLEDStep As Byte
'...
Private Sub Timer1_Timer()
    Select Case bLEDStep
    Case 0
        Out Port, 2
        bLEDStep = 1
    Case 1
        Out Port, 0
        bLEDStep = 0
    End Select
End Sub



_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

16-11-2004 21:33
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1