XProfan

Français

p.specht

Pour qui Farbcode-Ermittlung pour elektronische Kohleschicht-Widerstände älterer Bauart (3-Ring-System) et Metallfilm-Widerstände (4-Ring-System, alors pas SMD) gedacht.

Es mutet erstaunlich à, qui qui beim Imprimer-Befehl verwendeten alten DOS-Farben NICHT qui chez Bastlern autrefois très bekannten Farbcodes abdecken! c'est pourquoi mußten quelques Farben umgetitelt volonté, et cela fehlende orange wurde duch (lilas + Hinweis) ersetzt. bien sûr, qui avec heutigen Analogfarben sous Verwendung de DrawText statt Imprimer bessere Ergebnisse possible wären. Feel free!

Kompilieren Marque Séparation

Windowtitle mkstr$(" ",14)+upper$(sperr$("Farbcode de Widerständen"))+"       bouton ´T´= 3\4 Ringe"
' (CL) CopyLeft 2016-12 by P.Specht, vienne/AT sans chacun Gewähr! Farben très systemabhängig !!
Cls $A0A0A0:showmax
AppendMenuBar 100,"Im Farbcode wurde orange par lilas ersetzt, à DOS-Printfarben verwenden trop peut!"
:proc sperr$ :parameters u$:whileloop len(u$),2,-1:u$=ins$(" ",u$,&Boucle):endwhile:return u$:endproc
declare ko&,Farbbez$,Kurzbez$,BgColor$,TxtColor$,Mul$,Prec$
Farbbez$="Silber ,Gold   ,noir,marron  ,rouge    ,Lila=Orange,jaune   ,vert   ,bleu   ,"+\
"Violett,gris   ,Weiss  ,Dunkelgrün,bleu-foncé,Cyan     ,turquoise    "
Kurzbez$=" Sb,Gld, Sw, Bn, Rt, Or, Gb, Gn, Bl, Vt, Gr, Ws,dGn,dBl,Cyn, Tk"
BgColor$="  7, 6 ,  0,  4, 12, 11, 14, 10,  9,  3,  8, 15,  2,  1,  5, 13"
Txtcolor$="  0, 15, 15, 15, 15, 15,  0,  0, 15, 15, 15,  0, 15, 15, 15,  0"
Mul$="0.1 ,0.01,1   ,10  ,100 ,1  k,10 k,100k,1  M,10 M,,,,,,,"
Prec$=" 5 %=J,10 %=K,, 1 %=F, 2 %=G,,,0.5 %=D,0.25%=C,0.1 %=B,0.05%  ,,,,,,"
luuup:
Cls $A0A0A0:Font 2-2*ko&

whileloop 16

    color val(substr$(Txtcolor$,&Boucle,»)),val(substr$(BgColor$,&Boucle,»))
    locate 2*&Boucle,5 :imprimer " "+substr$(Farbbez$,&Boucle,»)+" ";
    locate 2*&Boucle,19:imprimer " "+substr$(Kurzbez$,&Boucle,»)+"  ";

    si &Boucle=12:line 0,320 - width(%hwnd),320:line 210,0 - 210,width(%hwnd):endif

        si &Boucle<13

            si &Boucle > 2

                locate 2*&Boucle,31:imprimer " "+si(&loop>12,»," ")+str$(int(&Boucle-3))+"  ";
                locate 2*&Boucle,38:imprimer " "+si(&loop>12,»," ")+str$(int(&Boucle-3))+"  ";

                si ko&:locate 2*&Boucle,45:imprimer " "+si(&loop>12,»," ")+str$(int(&Boucle-3))+"  ";:endif

                endif

                si &Boucle<11

                    locate 2*&Boucle,45+7*ko&
                    imprimer "x "+si(ko&,format$("%g",10^(&Boucle-3)),substr$(Mul$,&Boucle,»))+" ";

                endif

                locate 2*&Boucle,67:imprimer si(substr$(Prec$,&Boucle,»)>»," +/-",»)+substr$(Prec$,&Boucle,»);

            endif

        endwhile

        Waitinput
        cas %clé=ord("t"):ko&=not(ko&)
        goto "luuup"