10 REM =OHM-MESSUNG=========C64/128 20 REM 30 REM WRITTEN BY A. MITTELMEYER 40 REM 50 REM ============================ 60 PRINTCHR$(147)"WIDERSTANDSMESSUNG MIT DEM COMPUTER" 70 PRINT"AM JOYSTICKPORT 1 ZWISCHEN PIN 5 UND 7" 80 PRINT"ANGESCHLOSSENE WIDERSTAENDE" 90 PRINT"IM BEREICH VON 10 KILOOHM BIS" 100 PRINT"300 KILOOHM WERDEN VOM PROGRAMM" 110 PRINT"IN DER ABSTUFUNG DER REIHE E24" 120 PRINT"ANGEZEIGT." 130 PRINT"ES DUERFEN KEINESFALLS WIDERSTAENDE" 140 PRINT"UNTER 100 OHM ANGESCHLOSSEN WERDEN !!!" 150 PRINT"UM KURZSCHLUESSE ZU VERMEIDEN, SOLLTE" 160 PRINT"EIN VORWIDERSTAND VON 100 BIS 200 OHM" 170 PRINT"BENUTZT WERDEN." 180 PRINT"WEITER MIT TASTE[146]" 190 GETA$:IFA$=""THEN190 200 GOSUB630:REM TABELLE 210 PRINTCHR$(147) 220 GOSUB300:REM WERTABFRAGE (N) 230 GOSUB 350:REM TABELLENPOSITION (NR) 240 GOSUB420:REM BERECHNUNG R 250 GOSUB460:REM NORMREIHE (M,E) 260 M$=STR$(M):IFLEN(M$)=2THENM$=M$+".0" 270 PRINT""M$" E"E:REM AUSGABE 280 GOTO 220 290 REM --- WERTABFRAGE --- 300 AZ=30:SU=0:FORI=1TOAZ 310 N=PEEK(54298):REM WERTABFRAGE 320 SU=SU+N:NEXT 330 N=SU/AZ:RETURN 340 REM --- TAB-POSITION (NR) --- 350 NR=-1:FORI=0TODN-1 360 IFN<=FE(I,0)THENNR=I:I=DN 370 NEXT 380 IFNR<0THENNR=DN-1 390 IFNR=0THENNR=1 400 RETURN 410 REM --- WIDERSTANDSBERECHNUNG --- 420 YA=FE(NR-1,1):YB=FE(NR,1) 430 XA=FE(NR-1,0):XB=FE(NR,0) 440 R=YA+(N-XA)*(YB-YA)/(XB-XA):RETURN 450 REM --- NORMREIHE --- 460 AS=24:REM ABSTUFUNG 470 E=INT(LOG(R)/LOG(10)):REM EXPONENT 480 M=R/10^E:REM MANTISSE 490 S=INT(AS*LOG(M)/LOG(10)-.5):REM STUFE 500 WL=10:FORI=1TO3:REM 3 WERTE PRUEFEN 510 GOSUB540:S=S+1:NEXT 520 M=MA:E=EA:RETURN 530 REM --- WERTVERGLEICH --- 540 IFS<0THENS=AS-1:E=E-1 550 IFS=ASTHENE=E+1:S=0 560 A=1.5:IFS<10THENA=.5 570 IFS>INT(16/24*AS+.5)THENA=.3 580 M=INT(10^(S/AS)*10+A)/10:REM MANTISSE E-REIHE 590 RV=M*10^E:WV=RV/R:IFWV<1THENWV=1/WV 600 IFWV