mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00:00
128 lines
4.3 KiB
QBasic
128 lines
4.3 KiB
QBasic
|
10 KEY OFF
|
|||
|
|
20 CLS
|
|||
|
|
30 OPEN "COM1:1200,N,7,2,RS,CD,DS,CD"AS #2
|
|||
|
|
40 A$="D"
|
|||
|
|
50 PRINT #2,A$;
|
|||
|
|
60 INPU$=INPUT$(14,#2)
|
|||
|
|
65 IF INKEY$="" THEN 70 ELSE CLS:END
|
|||
|
|
70 WERT$=LEFT$(INPU$,9)+" "+RIGHT$(INPU$,5)
|
|||
|
|
80 LOCATE 1,1
|
|||
|
|
90 L=0
|
|||
|
|
100 COLOR 15
|
|||
|
|
110 PRINT WERT$
|
|||
|
|
120 IF MID$(INPU$,3,1)="-" THEN LOCATE 3,1:COLOR 9:PRINT"- NEGATIV"
|
|||
|
|
130 IF MID$(INPU$,3,1)=" " THEN LOCATE 3,1:COLOR 12:PRINT"+ POSITIV"
|
|||
|
|
140 LOCATE 4,1
|
|||
|
|
150 COLOR 10
|
|||
|
|
160 IF MID$(INPU$,10,4)=" V " THEN PRINT"Spannung Volt":GOTO 330
|
|||
|
|
170 IF MID$(INPU$,10,4)="mV " AND LEFT$(INPU$,2)=" " THEN PRINT"DIODENTEST MilliVolt":GOTO 330
|
|||
|
|
180 IF MID$(INPU$,10,4)="mV " THEN PRINT"Spannung MilliVolt":GOTO 330
|
|||
|
|
190 IF MID$(INPU$,10,4)=" Ohm" THEN PRINT"Widerstand Ohm":GOTO 330
|
|||
|
|
200 IF MID$(INPU$,10,4)="MOhm" THEN PRINT"Widerstand MegOhm":GOTO 330
|
|||
|
|
210 IF MID$(INPU$,10,4)="kOhm" THEN PRINT"Widerstand KiloOhm":GOTO 330
|
|||
|
|
220 IF MID$(INPU$,10,4)="mA " THEN PRINT"Strom MilliAmpere":GOTO 330
|
|||
|
|
230 IF MID$(INPU$,10,4)=" A " THEN PRINT"Strom Ampere":GOTO 330
|
|||
|
|
240 IF MID$(INPU$,4,5)="READY" THEN PRINT"LOGIKTEST ":L=1:GOTO 330
|
|||
|
|
250 IF MID$(INPU$,6,2)="Lo" THEN PRINT"LOGIKTEST ":L=2:GOTO 330
|
|||
|
|
260 IF MID$(INPU$,6,2)="Hi" THEN PRINT"LOGIKTEST ":L=3:GOTO 330
|
|||
|
|
270 IF MID$(INPU$,4,5)="FLOAT" THEN PRINT"LOGIKTEST ":L=4:GOTO 330
|
|||
|
|
280 IF MID$(INPU$,10,4)=" " THEN PRINT"Transistortest hFE":GOTO 330
|
|||
|
|
290 IF MID$(INPU$,10,4)="kHz " THEN PRINT"Frequenz <20>KiloHertz":GOTO 330
|
|||
|
|
300 IF MID$(INPU$,10,4)="uF " THEN PRINT"Kapazit<69>t <20> Farad":GOTO 330
|
|||
|
|
310 IF MID$(INPU$,10,4)="nF " THEN PRINT"Kapazit<69>t NanoFarad":GOTO 330
|
|||
|
|
320 IF MID$(INPU$,10,4)="pF " THEN PRINT"Kapazit<69>t PicoFarad"
|
|||
|
|
330 COLOR 14
|
|||
|
|
340 IF TYP$="D" THEN GOTO 360
|
|||
|
|
350 IF LEFT$(INPU$,2)="DC" THEN GOSUB 520
|
|||
|
|
360 IF TYP$="A" THEN GOTO 500
|
|||
|
|
370 IF LEFT$(INPU$,2)="AC" THEN GOSUB 600
|
|||
|
|
380 IF TYP$="0" THEN GOTO 400
|
|||
|
|
390 IF LEFT$(INPU$,2)=" " THEN GOSUB 1180
|
|||
|
|
400 IF LO=0 THEN GOTO 420
|
|||
|
|
410 IF L=0 THEN GOSUB 780:TYP$="D"
|
|||
|
|
420 IF LO=1 THEN GOTO 440
|
|||
|
|
430 IF L=1 THEN GOSUB 680
|
|||
|
|
440 IF LO=2 THEN GOTO 460
|
|||
|
|
450 IF L=2 THEN GOSUB 870
|
|||
|
|
460 IF LO=3 THEN SOUND 3000,10:GOTO 480
|
|||
|
|
470 IF L=3 THEN GOSUB 970
|
|||
|
|
480 IF LO=4 THEN GOTO 500
|
|||
|
|
490 IF L=4 THEN GOSUB 1080
|
|||
|
|
500 CLOSE #2
|
|||
|
|
510 GOTO 30
|
|||
|
|
520 LOCATE 7,1
|
|||
|
|
530 TYP$="D"
|
|||
|
|
540 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
550 PRINT" <20> <20> <20> "
|
|||
|
|
560 PRINT" <20> <20> <20> "
|
|||
|
|
570 PRINT" <20> <20> <20> "
|
|||
|
|
580 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
590 RETURN
|
|||
|
|
600 LOCATE 7,1
|
|||
|
|
610 TYP$="A"
|
|||
|
|
620 PRINT" <20><> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
630 PRINT" <20> <20> <20> "
|
|||
|
|
640 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> "
|
|||
|
|
650 PRINT"<22> <20> <20> "
|
|||
|
|
660 PRINT"<22> <20> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
670 RETURN
|
|||
|
|
680 REM LOGIKTEST
|
|||
|
|
690 LOCATE 7,1
|
|||
|
|
700 COLOR 10
|
|||
|
|
710 LO=1
|
|||
|
|
720 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20>"
|
|||
|
|
730 PRINT"<22> <20> <20> <20> <20> <20> <20> <20> <20>"
|
|||
|
|
740 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><>"
|
|||
|
|
750 PRINT"<22> <20> <20> <20> <20> <20> <20> <20><>"
|
|||
|
|
760 PRINT"<22> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>"
|
|||
|
|
770 RETURN
|
|||
|
|
780 REM DELETE
|
|||
|
|
790 LOCATE 7,1
|
|||
|
|
800 LO=0
|
|||
|
|
810 PRINT" "
|
|||
|
|
820 PRINT" "
|
|||
|
|
830 PRINT" "
|
|||
|
|
840 PRINT" "
|
|||
|
|
850 PRINT" "
|
|||
|
|
860 RETURN
|
|||
|
|
870 REM LOGIKTEST LO
|
|||
|
|
880 LOCATE 7,1
|
|||
|
|
890 COLOR 10
|
|||
|
|
900 LO=2
|
|||
|
|
910 PRINT"<22> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> "
|
|||
|
|
920 PRINT"<22> <20> <20> <20> <20> "
|
|||
|
|
930 PRINT"<22> <20> <20> <20> <20> <20> "
|
|||
|
|
940 PRINT"<22> <20> <20> <20> <20> <20> <20> "
|
|||
|
|
950 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> "
|
|||
|
|
960 RETURN
|
|||
|
|
970 REM LOGIKTEST HI
|
|||
|
|
980 SOUND 3000,10
|
|||
|
|
990 LOCATE 7,1
|
|||
|
|
1000 COLOR 12
|
|||
|
|
1010 LO=3
|
|||
|
|
1020 PRINT"<22> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> "
|
|||
|
|
1030 PRINT"<22> <20> <20> <20> <20> <20> "
|
|||
|
|
1040 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> "
|
|||
|
|
1050 PRINT"<22> <20> <20> <20> <20> <20> <20> "
|
|||
|
|
1060 PRINT"<22> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> "
|
|||
|
|
1070 RETURN
|
|||
|
|
1080 REM LOGIKTEST FLOAT
|
|||
|
|
1090 LOCATE 7,1
|
|||
|
|
1100 COLOR 11
|
|||
|
|
1110 LO=4
|
|||
|
|
1120 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> "
|
|||
|
|
1130 PRINT"<22> <20> <20> <20> <20> <20> <20> "
|
|||
|
|
1140 PRINT"<22><><EFBFBD><EFBFBD> <20> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> "
|
|||
|
|
1150 PRINT"<22> <20> <20> <20> <20> <20> <20> "
|
|||
|
|
1160 PRINT"<22> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20> "
|
|||
|
|
1170 RETURN
|
|||
|
|
1180 REM DELETE ALL
|
|||
|
|
1190 LOCATE 7,1
|
|||
|
|
1200 TYP$="0"
|
|||
|
|
1210 PRINT" "
|
|||
|
|
1220 PRINT" "
|
|||
|
|
1230 PRINT" "
|
|||
|
|
1240 PRINT" "
|
|||
|
|
1250 PRINT" "
|
|||
|
|
1260 RETURN
|
|||
|
|
|