Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
EverNoob
Anmeldungsdatum: 23.10.2005 Beiträge: 15
|
Verfasst am: 23.10.2005, 18:33 Titel: Funktion oder Sub |
|
|
hat sich erledigt..... |
|
Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005 Beiträge: 2010
|
Verfasst am: 23.10.2005, 18:53 Titel: |
|
|
Vielleicht klappt's so:
Code: |
function timers(startc as integer, endc as integer) as integer
dim zeit as string
dim pzeit as string
dim ptimer as long
dim etimer as integer
dim null as long
dim t as integer
while startc > endc
startc = startc + 1
zeit = time$
pzeit = mid$ (zeit, 7, 2)
ptimer = val(pzeit)
if ptimer <> null then
timers = timers + 1
null = ptimer
end if
wend
timers = t
end function
|
Dann das Hauptprogramm:
Code: |
do
locate 1, 1: print timers(1, 100), time$
loop until len(inkey$)
|
So sollte es klappen.
/edit: Toll
jb |
|
Nach oben |
|
|
EverNoob
Anmeldungsdatum: 23.10.2005 Beiträge: 15
|
Verfasst am: 23.10.2005, 19:29 Titel: |
|
|
Danke.... Ich hatte schon ne anderen Idee aber das scheint besser |
|
Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005 Beiträge: 2010
|
Verfasst am: 23.10.2005, 20:12 Titel: |
|
|
Generell ist es immer besser mit SUBs/FUNCTIONs zu arbeiten.
Wenn dir da noch Einiges fremd ist, dann schau mal hier.
Eine andere Alternative ist der Kurs namens The Real Adoks Way To QBASIC, den du
auf www.qbasic.de downloaden kannst.
jb |
|
Nach oben |
|
|
EverNoob
Anmeldungsdatum: 23.10.2005 Beiträge: 15
|
Verfasst am: 23.10.2005, 20:21 Titel: |
|
|
Ja ich tue mich wirklich noch etwas schwer damit....Danke für die Links... |
|
Nach oben |
|
|
|