28. oktober 2003 - 17:13Der er
12 kommentarer og 2 løsninger
Så længe knap er nedtrykket - udfør kode
Hej alle x-perter!
Sidder med et lille problem i Visual Basic.
Jeg har tilkoblet et dome-kamera til min serielport.
Ved at sende en ASCII-kode er det muligt at få kameraet til at panorere, zoome, tilte og meget andet.
P.t. er jeg ved at programmere et brugerinterface, hvorfra det skal være muligt at kontrollere kameraet (eksempelvis zoome, panorere osv.)
Er det muligt at udføre en stump kode, sålænge at knappen trykkes ned af brugeren?
Altså ligesom når man skruer op for volumen på en fjernbetjening: Sålænge man holder knappen nede, ja så skrues der enten op eller ned for volumen
Jeg har fået det til at virke med checkboxe - når man sætter et flueben så zoomer kameraet, og når man fjerner fluebenet stopper kameraet med at zoome. Det virker dog en smule kikset at gøre det på denne måde, og jeg vil derfor gerne have det til at virke som en knap-funktion i stedet..
Dim MyVar As Boolean Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MyVar = True If MyVar = True Then Do While MyVar = True Text1 = Text1 + 1 Refresh DoEvents Loop End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MyVar = False End Sub
kjeld_klit> din kode sætter sig fast og looper hele tiden. Den stopper efter et stykke tid, men ikke lige når man slipper knappen. Den fortsætter indtil loopen er færdig (eller noget i den stil).
...og hvis den skal tælle den anden vej kunne man gøre sådan:
MyVar = True If Button = vbLeftButton Then If MyVar = True Then Do While MyVar = True Text1 = Text1 + 1 Refresh DoEvents Loop End If End If If Button = vbRightButton Then If MyVar = True Then Do While MyVar = True If Text1 = 0 Then Exit Do Text1 = Text1 - 1 Refresh DoEvents Loop End If End If End Sub
Nå, men jeg bliver lige nød til at smutte.. Jeg ligger et svar, hvis du nu kunne bruge min hjælp.
Synes godt om
Slettet bruger
28. oktober 2003 - 18:57#12
//thesurfer & kjeld klit
Supergodt, at vi har noget som hedder eksperten.dk - hurtige og kompetente svar. Jeg har afprøvet begge kodeeksempeler i VB. Begge virker tilsyneladende perfekt (har ikke oplevet samme problemer som thesurfer). Jeg har endnu ikke testet det i forhold til kameraet, men forsøger her i løbet af aftenen...
Synes godt om
Slettet bruger
28. oktober 2003 - 22:33#13
//thesurfer & kjeld klit
Så har jeg endelig fået afprøvet jeres forslag. Ser ud til at det kun er et spørgsmål om finpudsning (altså i forhold til kameraet. Producenten har været så "smart" at kameraet panorerer i 2,2 sekunder før det timer ud. Jeg skal se om jeg kan nedsætte denne tid eller helt eliminere det...)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
