XProfan

Español

p.specht

Für el Farbcode-Ermittlung para elektronische Kohleschicht-Widerstände älterer Bauart (3-Ring-Sistema) y Metallfilm-Widerstände (4-Ring-Sistema, also no SMD) pensamiento.

Lo mutet erstaunlich a, daß cuando el Imprimir-Befehl verwendeten alten DOS-Farben NICHT el en Bastlern damals muy bekannten Farbcodes abdecken! Deshalb mußten algunos Farben umgetitelt voluntad, y el fehlende Orange wurde duch (Lila + Referencia) ersetzt. Klar, daß con heutigen Analogfarben bajo Verwendung de DrawText en lugar de Imprimir bessere Ergebnisse posible wären. Feel free!

Kompilieren Marca Separación

Windowtitle mkstr$(" ",14)+upper$(sperr$("Farbcode de Widerständen"))+"       Taste ´T´= 3\4 Ringe"
' (CL) CopyLeft 2016-12 by P.Pájaro carpintero, Wien/AT sin jede Gewähr! Farben muy systemabhängig !!
Cls $A0A0A0:showmax
AppendMenuBar 100,"Im Farbcode wurde Orange por Lila ersetzt, a DOS-Printfarben uso a puede!"
:proc sperr$ :parámetros u$:whileloop len(u$),2,-1:u$=en el$(" ",u$,&Loop):endwhile:volver u$:ENDPROC
declarar ko&,Farbbez$,Kurzbez$,BgColor$,TxtColor$,Mul$,Prec$
Farbbez$="Silber ,Gold   ,Schwarz,Braun  ,Rot    ,Lila=Orange,Gelb   ,Grün   ,Blau   ,"+\
"Violett,Grau   ,Weiss  ,Dunkelgrün,Dunkelblau,Cyan     ,Türkis    "
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$,&Loop,",")),val(substr$(BgColor$,&Loop,","))
    locate 2*&Loop,5 :imprimir " "+substr$(Farbbez$,&Loop,",")+" ";
    locate 2*&Loop,19:imprimir " "+substr$(Kurzbez$,&Loop,",")+"  ";

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

        if &Loop<13

            if &Loop > 2

                locate 2*&Loop,31:imprimir " "+if(&bucle>12,""," ")+str$(int(&Loop-3))+"  ";
                locate 2*&Loop,38:imprimir " "+if(&bucle>12,""," ")+str$(int(&Loop-3))+"  ";

                if ko&:locate 2*&Loop,45:imprimir " "+if(&bucle>12,""," ")+str$(int(&Loop-3))+"  ";:endif

                endif

                if &Loop<11

                    locate 2*&Loop,45+7*ko&
                    imprimir "x "+if(ko&,format$("%g",10^(&Loop-3)),substr$(Mul$,&Loop,","))+" ";

                endif

                locate 2*&Loop,67:imprimir if(substr$(Prec$,&Loop,",")>""," +/-","")+substr$(Prec$,&Loop,",");

            endif

        endwhile

        Waitinput
        caso %key=ord("t"):ko&=not(ko&)
        goto "luuup"