Życie Wieczne

Piotr-246 · Gość

Programik do pomiaru liczby powtorzeń pętli w ciągu 1 sekundy za pomocą zegara systemowego:

SCREEN 13
COLOR 15

petla:
ulamek = ulamek + 1

se$ = MID$(TIME$, 7, 2)
se = VAL(se$)
IF se <> ses THEN licz = licz + 1: ses = se: PRINT "Czas:"; licz; " Powtorzen:"; ulamek: ulamek = 0

k$ = INKEY$
IF k$ = "" THEN GOTO petla

IF k$ = CHR$(27) THEN END

Piotr-246 · Gość

Programik do odczytu czasu z komórki pamięci o adresie 1132

SCREEN 13
COLOR 15
DEF SEG = 0

zeruj:
POKE 1132, 0: REM wyzerowanie

petla:
zpamieci = PEEK(1132)
PRINT zpamieci;

k$ = INKEY$
IF k$ = "" THEN GOTO petla
IF k$ = CHR$(27) THEN END
GOTO zeruj

Piotr-256 · Gość

Komórka o adresie 1132 pokazuje czas systemowy z dokładnością 18.2 razy na sekundę. Potem są kolejne komórki czasu i daty.

Piotr-246 · Gość

Programik, który oblicza czas wykonania pętli pustej.

Przy 10 próbach, pętla FOR została wykonana 3400 razy w ciągu około 1 taktu (komórki 1132)

----------------------------------------------------------
SCREEN 13
COLOR 15
DEF SEG = 0

POKE 1132, 0: rem zerowanie

FOR x = 1 TO 10
a = PEEK(1132)
FOR i = 1 TO 3400: NEXT i
b = PEEK(1132)
PRINT a; b, b - a
NEXT x

Piotr-246 · Gość

Programik pokazujący, że wyświetlenie 10 tysięcy linii 40 znakowych w (trybie Screen 13) zajmuje 126 taktów (komórki 1132)

SCREEN 13
CLS
COLOR 15
DEF SEG = 0

zeruj:
POKE 1132, 0: REM wyzerowanie

t0 = PEEK(1132)
FOR i = 1 TO 10000: PRINT "0123456789012345678901234567890123456789": NEXT i
t1 = PEEK(1132)

PRINT t0; t1, t1 - t0

Piotr-246 · Gość

Ciąg znaków przeniesiony do A$ wpisuje się w mniejszym przedziale czasu - 116 taktów (komórki 1132)

Piotr-246 · Gość

Ciekawy programik do przeliczenia współczynnika między ilością sekund wyznaczoną przez funkcję TIME$ a ilością zliczeń komórki 1132.

Po upływie 2237 sekund (tyle starczyło cierpliwości) zsumowana liczba "cyknięć" komórki 1132 wyniosła 40703.

Co daje w przelicznik 18.19535

Widać, że z upływem czasu przelicznik ten stabilizował się wokół liczb 18.19 lub 18.2

Ostatecznie, na ekranie pozostało kilka liczb z przedziału 18.19446 - 18.19535

----------------------------

DEF SEG = 0
petla:

pomoc$ = MID$(TIME$, 7, 2)
sekunda = VAL(pomoc$)
komorka = PEEK(1132)

IF ses <> sekunda THEN liczsek = liczsek + 1
ses = sekunda
IF kos <> komorka THEN liczkom = liczkom + 1
kos = komorka

PRINT liczsek, liczkom, liczkom / liczsek

key$ = INKEY$: IF key$ <> "" THEN END
GOTO petla

Piotr-246 · Gość

Nieco inna wersja programu może pokazać obliczenia co 10 sekund:

sek: 60
peek: 1068
wsp: 17.8

sek: 100
peek: 1796
wsp: 17.96

sek: 200
peek: 3617
wsp: 18.085

Piotr-246 · Gość

sek: 300
peek: 5438
wsp: 18.12667

sek: 400
peek: 7257
wsp: 18.1425

sek: 500
peek: 9079
wsp: 18.158

Piotr-246 · Gość

sek: 600
peek:10899
wsp: 18.165

przeskoczę do 800

sek: 800
peek: 14541
wsp 18.17625

przeskoczę do 1000

sek:1000
peek: 18182
wsp: 18.182

Piotr-246 · Gość

przeskoczę do 1200

sek: 1200
peek: 21823
wsp: 18.18683

poczekałem do 1500

sek: 1500
peek: 27285
wsp: 18.19

Piotr-246 · Gość

poczekałem do 1700

sek: 1700
peek: 30926
wsp: 18.19176

poczekałem do 2000

sek: 2000
peek: 36389
wsp: 18.1945

Piotr-246 · Gość

poczekałem do 2200

sek: 2200
peek: 40030
wsp: 18.19545

poczekałem do 2500

sek: 2500
peek: 45492
wsp: 18.1968

Piotr-246 · Gość

poczekałem do 2700

sek: 2700
peek: 49133
wsp: 18.19741

poczekałem do 3000

sek: 3000
peek: 54595
wsp: 18.19833

Piotr-246 · Gość

poczekałem do 3300

sek: 3300
peek: 60057
wsp: 18.19909

poczekałem do 3600

sek: 3600
peek: 65519
wsp: 18.19972