[es] - Potrebna pomoć oko program

zika025
Student, ECCF
Sombor - Subotica

Član broj: 201105
Poruke: 40
*.dynamic.isp.telekom.rs.

Profil

^{07.05.2010. u 00:11 - pre 170 meseci}

Nisam znao kako drugačije da nazovem temu... Svaki pokušaj da naslov povežem s pitanjem bio bi predugača. :)

Naime, pokušavanj da napravim malu aplikaciju u Visual Basic-u 2008 koja bi bila aktivna u pozadini, čekala na određenu kombinaciju tastera, i onda pružila odgovarajući odgovor.
E, sad, ja sam napravio jedan prost programčić, počevći od Empty Project-a, koji radi tačno to što sam i zamislio, samo jede procesor... Jasno mi je da je to zbog "mrtve petlje", ali nisam uspeo da nadjem drugi način da program odgovori na pritisak tastera.

Evo i koda:

Module Remote_control

Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Integer) As Integer

Sub main()

Dim a As New Microsoft.VisualBasic.Devices.Keyboard

Do
If a.AltKeyDown Then
If a.CtrlKeyDown Then
GetAsyncKeyState(Keys.D1)
If GetAsyncKeyState(Keys.D1) <> 0 Then
Shell("C:\Program Files (x86)\Winamp\winamp.exe")
ElseIf GetAsyncKeyState(Keys.D2) <> 0 Then
Shell("C:\Program Files (x86)\GRETECH\GomPlayer\GOM.exe")
End If
End If
End If
Loop

End Sub

End Module

Interesuje me da li imate možda ideju kako ovo rešiti na efikasniji način?
Kažem, od nekih funkcionalnosti ne treba joj ništa više, samo, malo manje procesora da zauzima. :)

Hvala u napred!

Odgovor na temu

zika025
Student, ECCF
Sombor - Subotica

Član broj: 201105
Poruke: 40
*.dynamic.isp.telekom.rs.

Profil

Re: Potrebna pomoć oko program

^{07.05.2010. u 18:32 - pre 170 meseci}

Uspeo sam delimično rešiti problem.
Na kraju petlje sam ubacio Sleep(10) (Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)), pa se sad petlja vrti samo 10 puta u sekundi, što značajno rasterećuje procesor.
Ali, mislim da ni ovo nije bajno rešenje, tako da ako neko ima bilo kakvu ideju, zamolio bih ga da je iznese.

Odgovor na temu