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
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 pour les bricoleur

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

avatar

Nombre de messages : 548
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 : 5056
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
Marc 37



Nombre de messages : 505
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 : 548
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

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: