lauwe,
heb je al gedacht aan een timer?
een timer, geeft je de mogenlijkheid om toch nog dingen te veranderen terwijl je progje draait.. niet als met een For of While functie.
kijk, mijn progje werkt zo:
met checkboxes selecteer je wat je wilt hebben..
klok, winamp, kies maar uit..
daarna druk ik op Start.
en dat activate de Timer.
de timer blijft bij mij steeds om de 1000 ms af spelen,
en daarin kan je alle functie gooien, van
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim Hwndwinamp As Long
Dim Titel As String
Dim SongCurrentTrack As Double
Dim SongCurrentTrackmin As Double
Dim SongCurrentTracksec As Double
Hwndwinamp = FindWindow("Winamp v1.x", vbNullString)
SongCurrentTrack = SendMessage(Hwndwinamp, &H400, 0, 105) / 1000
SongCurrentTrack = SongCurrentTrack / 60
lblsongat = Format(SongCurrentTrack, "##:##")
lblsongtotal = Round(SendMessage(Hwndwinamp, &H400, 1, 105) / 60, 2) |
dit is dus men timer code,
die geactiveert word als ik op start druk
(code is nie af, daarom nog geen if checks, maar het basis idee is der)
als je de lblsongat vervangt door je functie om een string om te zetten naar de te verzenden karakters..
owja, nog een tip voor met VB proggen,
teneerste, gebruik VEEEL meer commentaar..
ik kijk nu naar je code, en begrijp het nog wel,
maar het is veel slimmer om elke functie van je code van commentaar te voorzien, gewoon simpel, bijv,
'Initialisatie van het scherm
makkelijk om terug te vinden waar je bent..
ook iets handigs is, om alles een naam te geven, met erbij in staan wat het is:
commandbuttons: cmdstart bijv.
of labels: lblinvoer
zo zie je meteen wat wat is, en is het makkelijk om alles uit elkaar te halen, zeker als je je code vrijgeeft..
(dit is niet bedoelt als Flame, maar gewoon als een tip)
ook, declareer je variabelen

staat veeeeel netter!
ook, het is veel makkelijker om in de For functie variabelen te gebruiken, is netter, en makkelijk om later uit te lezen:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| tekst = txttekst
aantaltekens = Len(txttekst)
teken = 1
For teken = teken To aantaltekens
Asciiletter = Asc(Mid(tekst, teken, 1))
arrayzend(teken) = (Val(Asciiletter) - 32)
Next teken
zend = 1
For zend = zend To aantaltekens
DlPortWritePortUshort Val(txtport), Val(arrayzend(zend))
For i = 1 To 1000
Next i
DlPortWritePortUshort (Val(txtport) + 2), Val(9)
For i = 1 To 1000
Next i |
dit is de code die ik gebruik voor de grafische LCD's die hier rond zweven, om alle karakters te zenden,
ik kan nu makkelijk later weer bijv het aantal tekens uit lezen..
[edit] ff veel geadd
Oh noes.. No more TreinTijden :(