FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

» Problème avec la 3D.
par Jack Jeu 14 Sep 2017 - 18:06

» Test de la 3D.
par mindstorm Mer 13 Sep 2017 - 19:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 pour les bricoleur

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
pascal10000

avatar

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

MessageSujet: pour les bricoleur   Dim 18 Juin 2017 - 13:30

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5018
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: pour les bricoleur   Dim 18 Juin 2017 - 14:07

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

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

cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 447
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: pour les bricoleur   Dim 18 Juin 2017 - 14:19

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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

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

MessageSujet: Re: pour les bricoleur   Dim 18 Juin 2017 - 14:40

Merci mark37 c'est rectifié
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: pour les bricoleur   

Revenir en haut Aller en bas
 
pour les bricoleur
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Affiches comment être et faire pour apprendre

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: