Diskuzní fórum Elektro Bastlírny

nevite někdo o programu pro dvoukanálové měření času se zobrazením ve fullscreen, optimálně s imitací sedmisegmentovek, ještě optimálněji se spouštěním USB myší? (levé tlačítko jedno měření, pravé tlačítko druhé měření). Nějaké prográmky jsem si stáhl, ale není to přesně to, co sháním.

Kdysi jsem si s tím hrál - při stisknutí mezerníku to zaznamená čas. Ale za přesnost moc neručím. A už ani nevím, jak to mělo fungovat. Matně si vzpomínám, že jsem taky zkoušel zaznamenávat čas podle kontaktu pověšeného na LPT. Ale to by dnešní wokna asi nepovolila.

10 REM zkouska programu pro mereni a zapis casu

50 LET R1 = 50: R = 70: NA = 0: AA = 0: pi = 3.142: lo = 1:ti=0:p0=7
60 SCREEN 9: CLS
61 REM pise radek dole
62 LOCATE 24, 1
63 PRINT " ";
64 LOCATE 24, 1
65 PRINT "Mereni casu nebo Q (konec): "
70 WINDOW (-160, -120)-(160, 120)
80 LINE (-160, 0)-(160, 0): LINE (0, -120)-(0, 120)
90 if p0=7 then p0=15 else p0=7
95 LOCATE 12, 43: PRINT "barva "; p0;
100 LET p3 = 1: p1 = 0: p2 = 2 * pi: GOSUB 1400
130 GOTO 90

1400 REM podprogram kresleni stupnice zvolenou barvou
1410 COLOR p0
1420 FOR FI = p1 TO p2 STEP (2 * pi / 100)
1425 for m=0 to 1000 :next m
1430 LINE (-R1 * COS(FI), R1 * SIN(FI))-(-R * COS(FI), R * SIN(FI))
1435 LET n$ = INKEY$: IF n$ = "q" OR n$ = "Q" THEN STOP
1436 IF n$ = " " THEN gosub 2000
1439 IF lo = 26 THEN STOP
1440 NEXT FI
1450 COLOR 7
1460 RETURN

2000 OUT &H43, 0: a = INP(&H40): b = INP(&H40)
2005 LOCATE lo, 57:PRINT TIME$;" ";:if ti=0 then ti = timer
2010 PRINT using "##.##";TIMER-ti;:lo = lo + 1:print" ";b;
2015 play "mb;l16;a"
2020 return

Ale to je přece jednoduché si naprogramovat. Každý okenní program může zavolat a SetCapture() a ReleaseCapture(). Mezi těmito volání si stáhne všechny události myši do svého okna a může tak reagovat na zprávy WM_LBUTTONDOWN a WM_RBUTTONDOWN.

díky za pomoc a sdílení takový pěkný příspěvek