[vb] lcd loop

[Verwijderd]

ik probeer dus de tijd op het lcd te krijgen, en dan moet ie dat refreshen (ong. om de sec. dus) en daar heb ik de volgende code voor gemaakt:

code:

Aantalkeer = 0
i = 1
Do While Aantalkeer < 30
For i = 1 To 8
TePrintenText = Mid(Time$, i, 1)
DlPortWritePortUchar 890, 6
DlPortWritePortUchar 888, Asc(TePrintenText)
DlPortWritePortUchar 890, 5
sleep 1
Next
Aantalkeer = Aantalkeer +1
DlPortWritePortUchar 888, 128
DlPortWritePortUchar 890, 0
DlPortWritePortUchar 890, 1
Sleep 950
loop

dit zou dus 30 keer refreshen (als het goed is) maar deze code is te "zwaar" het proggje reageert dan niet meer, en het vreet cpu, dus hoe moet ik dat efficienter doen?

[Gerco]

Nu refresht 'ie 30 keer per seconde? Of begrijp ik je nu verkeerd?

Zo ja, is dat niet wat veel?

[Verwijderd]

nee, hij zou 30 keer refreshen, maar ik moet wat met die getallen spelen, want hij moet precies 1 sec over doen om tot het einde van de loop te komen (of iets minder) want dan begint ie weer vooraan met het afbreken van de tijd, het op de lcd zetten van de tijd, en dan w8 ie 950 ms voordat ie weer aan de loop begint (schijnt zo te zijn dat die sleep() niet zo nauwkeurig is, dus..)

[Verwijderd]

Je hebt er twee keer sleep in staan misschien zit daar het probleem?

[Verwijderd]

nee, dat is et em niet, die loop is gewoon "te zwaar" denk ik

[Verwijderd]

Is i een integer is kan je er misschien een long van maken dat is sneller.
Doet hij het ook niet als hij gecompilleerd is?, dan zijn programma's veel sneller.

[Verwijderd]

ik zal het nog eens een keer proberen.

[TheGhostInc]

Is het niet makkelijker om gebruik te maken van je systeemclock?

[Verwijderd]

Op dinsdag 29 januari 2002 16:36 schreef TheGhostInc het volgende:
Is het niet makkelijker om gebruik te maken van je systeemclock?

hoe dan?

[Battle Bunny]

sleep pakt dacht ik milliseconds, en jij hebt 1 (=1/1000 van een seconde)

[Verwijderd]

jah, maar dat is et em niet, hij gebruikt niet die sleep voor de tijd, die sleep is gewoon om tussen elke keer dat ik de lcd "refresh" eventjes pauze te houden, de time$ geeft de tijd

[Battle Bunny]

Je kunt het beter zo doen:
(timer1 => delay van 1000)

Timer1_Timer
Static intTeller as Integer

intTeller = intTeller + 1

If intTeller = 30 then
intTeller = 0
[do your thing]
End If

[Battle Bunny]

En daarbij komt nog dat Sleep geen DoEvents ofzo geeft, dus die pakt dan inderdaad ALLE tijd van je progje.

[More to come -- moet nu naar de bus ]

[Verwijderd]

ik denkd at ik idd doevents moet gebruiken. voor de geinteresseerde met lcd: edit: url weg, proggje was te buggy, crashte alleen maar
let wel op dat ie dus blijft hangen (alleen het proggie niet heel windows)

verder ben ik een vb-n00b, dus de hele code is buggy

[Battle Bunny]

Je moet zowieso DoEvents gebruiken, want alles zit nu in een gesloten loop. Maar deze hele code moet je er uit gooien, en de code zoals ik die hierboven schreef er in zetten. Trust me