Jak uzyskać precyzyjne opóźnienia w GFA Basic na różnych komputerach?

Question

Hi Mam problem, od około dwóch miesięcy programuję w GFA Basic ( ), który (raczej) nie posiada pożądnej fujnkji PAUSE, WAIT o rozdzielczości pascalowej, czyli rzędu milisekund. Rozkaz PAUSE 18 to jedna sekunda, jak pisze w helpie - to jest ułomność zegara systemowego Doświadczalnie można...

Tdv · Answer

Odpowiedź jest prosta: na dzień dzisiejszy kazdy procesor działa z innym zegarem, a co się z tym wiąże cykl maszynowy ma inny czas trwania. Więc żadna pętla programowa nie może dawać takiego samego opóźnienia na każdym z nich! Musisz albo użyś pomiaru czasu z zegara komputera, albo rozbudować swoją pętelkę o rozpoznawanie proca, ale to już z lekka chaczy o syzyfową pracę bo pojawi się nowy procek na rynku i znowu będziesz w liściach...

Akane · Answer

Zgadza się, nawet pojedyńczy rozkaz w asemblerze ma zmienną liczbę taktów, przez przetwarzanie potokowe. Ale basic powinien być uniwersalny!

Może da się odczytać coś interesującego z karty graficznej,czyli jakąś częstotliwość i takt, co by było już dużym krokiem naprzód. A może zegar czasu rzeczywistego dale możliwość odczytu chociaż setnych części sekundy? W literaturze pisze tylko o całych sekundach:(

Tdv · Answer

Nie pamiętam dokładnie ale specyfikacja IBM AT przewidywała przerwanie zegarowe co kilkanaście milisekund o ile się nie mylę. Nie wiem jak to wygląda dzisiaj, bo sporo rzeczy się zmieniło. Zresztą kiedyś możnabyło sobie dowolnie zaprogramować układ czasowy...
Co do uniwersalności basica - to nie wiem skąd założenie, że ma być uniwersalny?!?
Ja uważam, że jak coś jest do wsyztskiego to jest do niczego, więc jak coś jest za bardzo uniwersalne to zazwyczaj staje uciążliwe w użytku.

painkiller · Answer

procesory chba od 386 i lepsze mialy instrukcje rdtsc ktora zwracala w edx:eax jakis czas dosyc dokladne to jest tye ze trzeba znac opcoda i wywolywac przez callabsolute czy jakos tak niepamietam jak to bylo w qbasicu

Akane · Answer

Tak to jest z tymi PC, zauważyłem że dużo programów ma wirtualne potencjometry do generowania precyzyjnych opóźnień, chyba też tak zrobię, narazie dopiero poznaję zakamarki PC, LPT mam opanowany, pierwszy programator też ( z niezbyt udolną regulacją opóźnienia, ale własnego PC mam od kilku miesięcy. Przedtem siedziałem na z80 i to bez netu

tzok · Answer

W BASICu masz polecenie TIMER, dzięki któremu możesz określić jak długo jest przetwarzana pętla: t=timer repeat until (timer-t)

elektryk · Answer

Systemy linux do dokładnego odliczania bardzo krótkich odcinków czasu wykorzystują petle programowe i jakoś to działa (mimo iż nie jest zalecane czeste urzywanie). Cały trick polega na tym żeby wcześniej sobie policzyć ile cykli pętli potrzeba np na 1ms. Najprościej to zrobić:
1. pętla czekająca na zmiane sekundy
2. pętla czekające na zmiane sekundy, licząca ilość cykli w sekundzie.
Wystarczy potem wartość cykli odpowiednio dzielić i już można odmierzać na dowolnym komputerze.

Akane · Answer

Dzięki Elektryk! super pomysł! zaraz coś skrobnę i kilka razy poprawię...
czyli jak zwykle u każdego.

A jedna (max dwie) sekunda nicnierobienia przez komputer nikogo nie zbawi (chodzi o programator)

No to gotowe:

DEFFN sekunda = VAL(RIGHT$ (TIME$,2))

sec% = @sekunda

DO
LOOP WHILE @sekunda = sec% // czekaj aż sekunda się zmieni

INC sec%
IF sec% > 59 THEN sec% = 0 // zwiększ wzór sekundy

FOR qq = 0 TO 9999999 // trochę przesadziłem...
FOR ww = 0 TO qq
NEXT ww
IF @sekunda <> sec% // zwiększaj qq do końca sekundy
GOTO exitFor
ENDIF
NEXT qq

exitFor:
// qq=ilość przebiegów pętli dla dednej sekundy
PRINT qq
END

Na Athlonie 1700 wynik oscylował w okolicy 6000 (5858,6057)bez kompilacji do exe - co w delay=3ms daje błąd qq +- 0.25

Akane · Answer

A po kilku zamyśleniach urodził się program do pomiaru częstotliwości CPU u PC: (chociaż prawie za każdym razem podaje troszeczkę inne wartości, ale z małym błędem)

W tym Basicu też jest zmienna TIMER, zwiększa się co 1ms, ale dopiero teraz zwróciłem uwagę na ten szczegół:

PROCEDURE wait(ms)
INC ms
DO
qq = TIMER
DO
LOOP UNTIL TIMER > qq
DEC ms
LOOP UNTIL ms = 0
RETURN

a wywołanie: @wait(10) to pauza 10ms z błędem max 1ms, bo procedura najpierw czeka na zmianę w TIMER żeby 'synchronicznie' liczyć następne milisekundy. Wyżucając INC ms, aby odmieżyć jakiś czas np. dla jakiegoś stanu na porcie trzeba najpierw poczekać na zmianę TIMERa, wpisać coś do portu, wywołać @wait(...) i zmienić wartość w porcie. Ale to tylko wiadomość dla nowicjuszy (@wait(0)nie działa dobrze)

Jak uzyskać precyzyjne opóźnienia w GFA Basic na różnych komputerach?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Podsumowanie tematu