pour les bricoleur

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bjr
je vous propose un p'tit utilitaire destiné aux bricoleur de l' électronique
qui permet de déchiffre les couleurs ainsi que leurs valeurs des résistances
et tout les autre composant qui comporte des bagues de couleur

bonne fête aux papa

Code:: ' oooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
' o Decodeur de couleur des résistances o
' o Auteur:Pascal10000 o
' o Panoramic Version 0.9.27 o
' o 18/06/2017 o
' oooooooooooooooooooooooooooooooooooooooooooooooooooooooooo

Dim Dossier$,SourisX%,SourisY%,Couleur%
Dim A1$,A2$,A3$,ValeurTot$,C$,D$,Pour$,i%,Esp%
Label PositionFleche,SelectCouleur,SelectCouleurD,CouleurPour,CouleurD
Label CalculCouleur,Vider

Width 0,900
Height 0,340
Left 0,(Screen_x-Width(0))/2
Top 0,(Screen_Y-Height(0))/2
Dossier$="C:\Program Files\Staram\"
Picture 1
Width 1,550
Height 1,300
File_Load 1,Dossier$+"couleur electronic.bmp"
Create_Hide
Picture 2
Left 2,500
Top 2,40
Width 2,350
Height 2,100
File_Load 2,Dossier$+"resistance.bmp"
' Hint 2,"Selectionner une des fleche!"
On_Mouse_Move 2,PositionFleche
On_Click 2,SelectCouleur
on_double_click 2,SelectCouleur
Esp%=580
For i%=3 to 6
Esp%=Esp%+22
Edit i%
Left i%,Esp%
Top i%,145
Width i%,20
Inactive i%
Next i%
Width 6,30
Edit 7
Left i%,720
Top 7,145
Width 7,30
Inactive 7

Panel 100
Top 100,142
Width 100,36
Height 100,156
Color 100,0,0,0

On_Click 100,PositionFleche

For i%=101 to 110
Picture i%
Parent i%,100
Width i%,30
Height i%,15
Left i%,3
Next i%

Top 102,15
Top 103,30
Top 104,45
Top 105,60
Top 106,75
Top 107,90
Top 108,105
Top 109,120
Top 110,135

Picture 120
Width 120,13
Height 120,58
Top 120,62
Left 120,604
Color 120,208,9,14
Picture 121
Width 121,13
Height 121,58
Top 121,62
Left 121,626
Color 121,208,9,14
Picture 122
Width 122,13
Height 122,58
Top 122,62
Left 122,648
Color 122,208,9,14
Picture 123
Width 123,13
Height 123,58
Top 123,62
Left 123,670
Color 123,208,9,14
Picture 124
Width 124,13
Height 124,58
Top 124,62
Left 124,722
Color 124,208,9,14
Container 200
Caption 200,"Nombre de barre"
Left 200,470
Top 200,3
Height 200,40
Width 200,145

Combo 201
Top 201,15
Parent 201,200
Item_Add 201," 3 Bague "
Item_Add 201," 4 Bague "
Item_Select 201,1
On_Click 201,Vider

Button 202
Top 202,10
Left 202,640
Caption 202," Reinitialisé"
On_Click 202,Vider

Button 203
Top 203,10
Left 203,720
Caption 203,"="
On_Click 203,CalculCouleur
Font_size 203,16

Alpha 204
Top 204,200
Left 204,550
Caption 204,"= "
Font_size 204,24

Show_All
Hide 100
Hide 204
End

PositionFleche:
SourisX%=mouse_x_position(2)
SourisY%=mouse_y_position(2)
If Clicked(2)=1
' 1ere selection
If (SourisX%=>87 and SourisX%<116) and (SourisY%=>86 and SourisY%<99)
Left 100,595
i%=1
Height 100,150
CouleurA()
Show 100
On_Click 101,SelectCouleur
On_Click 102,SelectCouleur
On_Click 103,SelectCouleur
On_Click 104,SelectCouleur
On_Click 105,SelectCouleur
On_Click 106,SelectCouleur
On_Click 107,SelectCouleur
On_Click 108,SelectCouleur
On_Click 109,SelectCouleur
On_Click 110,SelectCouleur
End_If

' 2eme selection
If (SourisX%=>127 and SourisX%<138) and (SourisY%=>86 and SourisY%<99)
Left 100,618
i%=2
Height 100,150
CouleurA()
Show 100
On_Click 101,SelectCouleur
On_Click 102,SelectCouleur
On_Click 103,SelectCouleur
On_Click 104,SelectCouleur
On_Click 105,SelectCouleur
On_Click 106,SelectCouleur
On_Click 107,SelectCouleur
On_Click 108,SelectCouleur
On_Click 109,SelectCouleur
On_Click 110,SelectCouleur
End_If

' 3eme selection
If (SourisX%=>148 and SourisX%<160) and (SourisY%=>86 and SourisY%<99)
Left 100,641
i%=3
Height 100,150
CouleurA()
Show 100
If Item_Index(201)=1 Then Text 5,""

' 1ere index 3Bague
If Item_Index(201)=2
On_Click 101,SelectCouleur
On_Click 102,SelectCouleur
On_Click 103,SelectCouleur
On_Click 104,SelectCouleur
On_Click 105,SelectCouleur
On_Click 106,SelectCouleur
On_Click 107,SelectCouleur
On_Click 108,SelectCouleur
On_Click 109,SelectCouleur
On_Click 110,SelectCouleur
End_If

' 2eme index 4Bague
If Item_Index(201)=1
Height 100,135
CouleurB()
Show 100
On_Click 101,CouleurD
On_Click 102,CouleurD
On_Click 103,CouleurD
On_Click 104,CouleurD
On_Click 105,CouleurD
On_Click 106,CouleurD
On_Click 107,CouleurD
On_Click 108,CouleurD
On_Click 109,CouleurD
End_If
End_If

' 4eme selection
If (SourisX%=>171 and SourisX%<182) and (SourisY%=>86 and SourisY%<99)

If Item_Index(201)=1
Text 5,""
Return
End_If

Left 100,664
Height 100,135
CouleurB()
Show 100
On_Click 101,SelectCouleurD
On_Click 102,SelectCouleurD
On_Click 103,SelectCouleurD
On_Click 104,SelectCouleurD
On_Click 105,SelectCouleurD
On_Click 106,SelectCouleurD
On_Click 107,SelectCouleurD
On_Click 108,SelectCouleurD
On_Click 109,SelectCouleurD
End_If

' 5eme selection
If (SourisX%=>223 and SourisX%<234) and (SourisY%=>86 and SourisY%<99)
If Item_Index(201)=1 Then Text 5,""
Left 100,714
Height 100,75
CouleurC()
Show 100
On_Click 101,CouleurPour
On_Click 102,CouleurPour
On_Click 103,CouleurPour
On_Click 104,CouleurPour
On_Click 105,CouleurPour
End_If

End_If
return

SelectCouleur:
if double_clicked(2)<>1 Then Hide 100
If i%=1
If Clicked(101)=1 : A1$="0" : Color 120,0,0,0 : End_if: ' noir
If Clicked(102)=1 : A1$="1" : Color 120,126,79,52: End_if: ' maron
If Clicked(103)=1 : A1$="2" : Color 120,255,0,0: End_if: ' rouge
If Clicked(104)=1 : A1$="3" : Color 120,255,91,0: End_if: ' orange
If Clicked(105)=1 : A1$="4" : Color 120,255,243,26: End_if: ' jaune
If Clicked(106)=1 : A1$="5" : Color 120,34,177,76: End_if: ' vert
If Clicked(107)=1 : A1$="6" : Color 120,63,72,204: End_if: ' bleu
If Clicked(108)=1 : A1$="7" : Color 120,163,73,164: End_if: ' violet
If Clicked(109)=1 : A1$="8" : Color 120,206,155,0: End_if: ' or
If Clicked(110)=1 : A1$="9" : Color 120,255,255,255: End_if: ' Blanc
Hide 100
Text 3,A1$
End_If

If i%=2
If Clicked(101)=1 : A1$="0" : Color 121,0,0,0 : End_if: ' noir
If Clicked(102)=1 : A1$="1" : Color 121,126,79,52: End_if: ' maron
If Clicked(103)=1 : A1$="2" : Color 121,255,0,0: End_if: ' rouge
If Clicked(104)=1 : A1$="3" : Color 121,255,91,0: End_if: ' orange
If Clicked(105)=1 : A1$="4" : Color 121,255,243,26: End_if: ' jaune
If Clicked(106)=1 : A1$="5" : Color 121,34,177,76: End_if: ' vert
If Clicked(107)=1 : A1$="6" : Color 121,63,72,204: End_if: ' bleu
If Clicked(108)=1 : A1$="7" : Color 121,163,73,164: End_if: ' violet
If Clicked(109)=1 : A1$="8" : Color 121,206,155,0: End_if: ' or
If Clicked(110)=1 : A1$="9" : Color 121,255,255,255: End_if: ' Blanc
Hide 100
Text 4,A1$
End_If

If i%=3
If Clicked(101)=1 : A1$="0" : Color 122,0,0,0 : End_if: ' noir
If Clicked(102)=1 : A1$="1" : Color 122,126,79,52: End_if: ' maron
If Clicked(103)=1 : A1$="2" : Color 122,255,0,0: End_if: ' rouge
If Clicked(104)=1 : A1$="3" : Color 122,255,91,0: End_if: ' orange
If Clicked(105)=1 : A1$="4" : Color 122,255,243,26: End_if: ' jaune
If Clicked(106)=1 : A1$="5" : Color 122,34,177,76: End_if: ' vert
If Clicked(107)=1 : A1$="6" : Color 122,63,72,204: End_if: ' bleu
If Clicked(108)=1 : A1$="7" : Color 122,163,73,164: End_if: ' violet
If Clicked(109)=1 : A1$="8" : Color 122,206,155,0: End_if: ' or
If Clicked(110)=1 : A1$="9" : Color 122,255,255,255: End_if: ' Blanc
Hide 100
Text 5,A1$
End_If
return

SelectCouleurD:
If Clicked(101)=1 : A2$="1" : Color 123,0,0,0 : End_if: ' noir
If Clicked(102)=1 : A2$="10" : Color 123,126,79,52: End_if: ' maron
If Clicked(103)=1 : A2$="100" : Color 123,255,0,0: End_if: ' rouge
If Clicked(104)=1 : A2$="1K" : Color 123,255,91,0: End_if: ' orange
If Clicked(105)=1 : A2$="10K" : Color 123,255,243,26: End_if: ' jaune
If Clicked(106)=1 : A2$="100K" : Color 123,34,177,76: End_if: ' vert
If Clicked(107)=1 : A2$="1M" : Color 123,63,72,204: End_if: ' bleu
If Clicked(108)=1 : A2$="0.1" : Color 123,206,155,0: End_if: ' or
If Clicked(109)=1 : A2$="0.01" : Color 123,239,228,176: End_if: ' argent
Text 6,A2$
Hide 100
Return

CouleurD:
If Clicked(101)=1 : A2$="1" : Color 122,0,0,0 : End_if: ' noir
If Clicked(102)=1 : A2$="10" : Color 122,126,79,52: End_if: ' maron
If Clicked(103)=1 : A2$="100" : Color 122,255,0,0: End_if: ' rouge
If Clicked(104)=1 : A2$="1K" : Color 122,255,91,0: End_if: ' orange
If Clicked(105)=1 : A2$="10K" : Color 122,255,243,26: End_if: ' jaune
If Clicked(106)=1 : A2$="100K" : Color 122,34,177,76: End_if: ' vert
If Clicked(107)=1 : A2$="1M" : Color 122,63,72,204: End_if: ' bleu
If Clicked(108)=1 : A2$="0.1" : Color 122,206,155,0: End_if: ' or
If Clicked(109)=1 : A2$="0.01" : Color 122,192,193,197: End_if: ' argent
Text 6,A2$
Hide 100
return

CouleurPour:
If Clicked(101)=1 : A3$="1%" : Color 124,126,79,52: End_if: ' maron
If Clicked(102)=1 : A3$="2%" : Color 124,255,0,0: End_if: ' rouge
If Clicked(103)=1 : A3$="5%" : Color 124,255,243,26: End_if: ' jaune
If Clicked(104)=1 : A3$="10%" : Color 124,192,193,197: End_if: ' argent
If Clicked(105)=1 : A3$="20%" : Color 124,208,9,14: End_if: ' néan
Hide 100
Text 7,A3$
Hide 100
return

CalculCouleur:
A1$=Text$(3):A2$=Text$(4):A3$=Text$(5):C$=Text$(6):Pour$=Text$(7)

If Item_Index(201)=1
If C$="1" Then ValeurTot$=A1$+A2$+" Ohm "+Pour$ : ' noir
If C$="10" Then ValeurTot$=A1$+A2$+"0"+" Ohm "+Chr$(177)+Pour$ : ' maron
If C$="100" Then ValeurTot$=A1$+"."+A2$+" K.Ohm "+Chr$(177)+Pour$ : ' rouge
If C$="1K" Then ValeurTot$=A1$+A2$+" K.Ohm "+Chr$(177)+Pour$ : ' orange
If C$="10K" Then ValeurTot$=A1$+A2$+"0"+" K.Ohm "+Chr$(177)+Pour$ : ' jaune
If C$="100K" Then ValeurTot$=A1$+"."+A2$+" K.Ohm "+Chr$(177)+Pour$: ' vert
If C$="1M" Then ValeurTot$=A1$+A2$+" M.Ohm "+Chr$(177)+Pour$ : ' bleu
If C$="0.1" Then ValeurTot$="0."+A1$+A2$+" Ohm "+Chr$(177)+Pour$ : ' or
If C$="0.01" Then ValeurTot$=A1$+"."+A2$+" Ohm "+Chr$(177)+Pour$ : ' argent
End_If
If Item_Index(201)=2
If C$="1" Then ValeurTot$=A1$+A2$+A3$+" Ohm "+Pour$ : ' noir
If C$="10" Then ValeurTot$=A1$+"."+A2$+A3$+" K.Ohm "+Pour$ : ' maron
If C$="100" Then ValeurTot$=A1$+A2$+"."+A3$+" K.Ohm "+Pour$ : ' rouge
If C$="1K" Then ValeurTot$=A1$+A2$+A3$+" K.Ohm "+Pour$ : ' orange
If C$="10K" Then ValeurTot$=A1$+"."+A2$+A3$+" M.Ohm "+Pour$ : ' jaune
If C$="100K" Then ValeurTot$=A1$+A2$+"."+A3$+" M.Ohm "+Chr$(177)+Pour$ : ' vert
If C$="1M" Then ValeurTot$=A1$+A2$+A3$+" M.Ohm "+Chr$(177)+Pour$ : ' bleu
If C$="0.1" Then ValeurTot$=A1$+A2$+"."+A3$+" Ohm "+Chr$(177)+Pour$ : ' or
If C$="0.01" Then ValeurTot$=A1$+"."+A2$+A3$+" Ohm "+Chr$(177)+Pour$ : ' argent
End_If

Caption 204,"= "+ValeurTot$
Show 204
return

Vider:
Hide 100
Hide 204
Color 120,208,9,14
Text 3,""
Color 121,208,9,14
Text 4,""
Color 122,208,9,14
Text 5,""
Color 123,208,9,14
Text 6,""
Color 124,208,9,14
Text 7,""
A1$=""
A2$=""
A3$=""

Return

Sub CouleurA()
Color 101,0,0,0:' noir
Color 102,126,79,52:' maron
Color 103,255,0,0:' rouge
Color 104,255,91,0:' orange
Color 105,255,243,26:' jaune
Color 106,34,177,76:' vert
Color 107,63,72,204:' bleu
Color 108,163,73,164:' violet
Color 109,206,155,0:' or
Color 110,255,255,255:' Blanc
End_Sub

Sub CouleurB()
Color 101,0,0,0:' noir
Color 102,126,79,52:' maron
Color 103,255,0,0:' rouge
Color 104,255,91,0:' orange
Color 105,255,243,26:' jaune
Color 106,34,177,76:' vert
Color 107,63,72,204:' bleu
Color 108,163,73,164:' violet
Color 108,206,155,0:' or
Color 109,192,193,197:' argent
End_Sub

Sub CouleurC()
Color 101,126,79,52:' maron
Color 102,255,0,0:' rouge
Color 103,255,243,26:' jaune
Color 104,192,193,197:' argent
Color 105,255,255,255:' pas de couleur
End_Sub

utilisé ces 2 images avec le source

Voilà un utilitaire qui sort de l'ordinaire...

Très utile pour les pro de l’électronique.

cheers

Salut à tous !

Salut Pascal10000 !

Bravo et merci pour ce partage.

Une petite erreur : la couleur 8 est grise.

A propos d'électronique, je suis en train de faire une nouvelle interface // pour Panoramic en attendant de passer définitivement en USB.
Dès que j'aurai fini, et les tests passés, je ferai un petit article.

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

Merci mark37 c'est rectifié

» Aide-mémoire des mots-clés Panoramic
» Aide pour la création d'un wrapper pour le langage Linotte.
» Petits jeux pour enfants et pour moins jeunes
» Pour mes petits-enfants et pour les vôtres
» Pour RMont