CCRESIST.BAS

1000 SCREEN 2:SCREEN 0:CLS:COLOR 13,1
1010 PRINT :LOCATE ,8:PRINT " C A L C U L E   D E   V A L E U R   D E   R E S I S T A N C E "
1020 COLOR 13,0:PRINT :PRINT  "VOUS ENTREREZ DANS L'ORDRE ET AVEC DES VIRGULES LES COULEURS DES ANNEAUX.       LORSQU'IL N'Y EN A PAS INCRIRE UN TIRET (-)"
1030 INPUT "Entrez vos couleurs ",C$(1),C$(2),C$(3),C$(4)
1040 LOCATE 14,36:FOR I=1 TO 4
1041 H=0:T=0:V=0:V$=LEFT$(C$(I),3):IF LEN(C$)= 1 THEN V(I)=0
1042 IF V$="NOI" THEN V=0:T=20:COLOR 0
1043 IF V$="MAR" THEN V=1:T=1:COLOR 6
1044 IF V$="ROU" THEN V=2:T=2:COLOR 12
1045 IF V$="ORA" THEN V=3:COLOR 6
1046 IF V$="JAU" THEN V=4:COLOR 14
1047 IF V$="VER" THEN V=5:T=5:COLOR 10
1048 IF V$="BLE" THEN V=6:COLOR 9
1049 IF V$="VIO" THEN V=7:COLOR 13
1050 IF V$="GRI" THEN V=8:H=.01:COLOR 8
1051 IF V$="BLA" THEN V=9:H=.01:COLOR 15
1052 IF V$="ARG" THEN T=10:V=0:H=0:COLOR 31
1053 IF V$="OR" THEN T=5:V=0:H=0:COLOR 30
1054 IF I=4 THEN PRINT " ";
1055 PRINT "ÛÛ";
1056 IF I=4 THEN T1=T
1057 IF I=1 OR I=2 THEN V1$=V1$+STR$(V)
1058 IF I=3 THEN IF H=0 THEN V1=10^V ELSE V1=H
1059 NEXT
1060 VT#=VAL(V1$)*V1
1070 COLOR 14:LOCATE 12,35:PRINT VT#;"ê"
1071 LOCATE 13,35:PRINT " TOLERANCE";T1;"%"
1072 LOCATE 16,25:FOR I=1 TO 4:PRINT C$(I);",";:NEXT
1073 COLOR 12:PRINT :PRINT " ESC fin ,une touche pour recommencer .... "
1074 A$=INPUT$(1):IF A$=CHR$(27) THEN CLS:COLOR 13:END
1075 RUN