dimanche 15 décembre 2013
mercredi 11 décembre 2013
vendredi 6 décembre 2013
un afficheur 7 segments
une Sub en basic panoramic
error_french
dim digit
digit=100 : digit7_segments(digit,50,130)
' =======
end :' ==
' =======
sub digit7_segments(digit,tp,lt)
container digit: top digit,tp:left digit,lt:width digit,150:height digit,250
caption digit,"afficheur 7_segments "
progress_bar digit+1:top digit+1,20:left digit+1,40:parent digit+1,digit
min digit+1,0:max digit+1,1
position digit+1,1 :width digit+1,60
progress_bar digit+2:top digit+2,35:left digit+2,105 :parent digit+2,digit
position digit+2,1 :width digit+2,75:vertical digit+2
min digit+2,0:max digit+2,1
progress_bar digit+3:top digit+3,130:left digit+3,105 :parent digit+3,digit
position digit+3,1 :width digit+3,75:vertical digit+3
min digit+3,0:max digit+3,1
progress_bar digit+4:top digit+4,200:left digit+4,40:parent digit+4,digit
position digit+4,1:width digit+4,60
min digit+4,0:max digit+4,1
progress_bar digit+5:top digit+5,130:left digit+5,15 :parent digit+5,digit
position digit+5,1 :width digit+5,75:vertical digit+5
min digit+5,0:max digit+5,1
progress_bar digit+6:top digit+6,35:left digit+6,15 :parent digit+6,digit
position digit+6,1 :width digit+6,75:vertical digit+6
min digit+6,0:max digit+6,1
progress_bar digit+7:top digit+7,110:left digit+7,40:parent digit+7,digit
position digit+7,1 :width digit+7,60
min digit+7,0:max digit+7,1
alpha digit+8:top digit+8,220:left digit+8,115 :parent digit+8,digit: caption digit+8,"P"
color digit+8,220,220,220 :width digit+8,21:height digit+8,21
end_sub
samedi 30 novembre 2013
Bibliothèque de travailler avec mayhewlabs Mux Shield et Arduino.
http://code.google.com/p/muxshield/downloads/detail?name=MuxShield.zip&can=2&q=
MuxShield.zip - muxshield - MuxShield 0.1 - Arduino Mux Shield - Google Project Hosting
http://code.google.com/p/muxshield/downloads/detail?name=MuxShield.zip&can=2&q=
MuxShield.zip - muxshield - MuxShield 0.1 - Arduino Mux Shield - Google Project Hosting
jeudi 28 novembre 2013
Gestion des entrées sorties numérique MuxShield
#include <MuxShield.h>Mux mux = Mux();
int i;
boolean ent_num[16];
//*******************************************
void setup(){
mux.control();
Serial.begin(115200);
}
//*******************************************
void loop(){
lecture_entree();
ecriture_sortie();
}
//*******************************************
void lecture_entree(){
for (i=0; i <= 5; i++) {
mux.io("DI", 0, i, 1);
ent_num[i]=!mux.lecturadigital(0);
mux.io("DI", 0, i, 0);
}
}
//*******************************************
void ecriture_sortie(){
for (i=0; i <= 5; i++) {
if (ent_num[i]==1){mux.io("DO", 1, i, 1);
delay(1);
mux.io("DO", 1, i, 0);
}
}
}
//*******************************************
mercredi 27 novembre 2013
Mux Shield Mayhew Labs
vous avez besoin de beaucoup d'entrées et / ou sorties, ceci est votre solution! Le multiplexeur (multiplexeur) Bouclier ajoute la capacité de jusqu'à 48 entrées ou sorties sur l'Arduino Mega et Arduino. En utilisant trois Texas Instruments CD74HC4067 multiplexeurs analogiques, le Bouclier Mux permet d'avoir 48 entrées analogiques / numériques ou sorties numériques dans de nombreuses combinaisons. Le Bouclier Mux est livré avec têtes 5V et au sol de sorte que vous aurez la puissance disponible à chaque entrée ou sortie et est livré avec des embases empilables installés. Le code source ci-dessous vous permettra d'utiliser!
Caractéristiques:
• 48 entrées analogiques / entrées / sorties numériques (en combinaison)
• Vcc et tête au sol (bandes chaque broche d'entrée / sortie a une Vcc dédié et sol)
• Bouton de réinitialisation
• PIN 13 LED et LED de puissance
• têtes empilables (se branchent directement sur Arduino et ajouter d'autres écrans sur le dessus)
• Arduino Mega compatible
• Nécessite broches numériques 2,3,4,5 et broches analogiques 0,1,2 - 48 entrées / sorties pour le prix de 7 broches
http://mayhewlabs.com/products/arduino-mux-shield
Google Traduction
// mux_out_inp_ana_.mux
// 27-11-2013
// Pour afficher l'exemple suivant:
//nous connectons 3 diodes LED
// On sorties 0, 1, 2 de la MUX0 (place des résistances appropriées).
// nous connectons 3 interrupteurs
// Entrées 0, 1, 2 de la MUX1
// nous connectons les centres de trois potentiomètres
//sur les entrées de la MUX2 0,1,2
// Google Traduction
// Nous incluons la bibliothèque pour travailler avec elle
#include <MuxShield.h>
Mux mux = Mux(); // Nous avons commencé l'objet de multiplexage à utiliser
void setup(){
mux.control(); // Ceci est chargé d'établir les lignes de commande du MUX pour leur utilisation.
Serial.begin(115200);
}
void loop(){
mux.io("DO", 0, 0, 1);
delay(1000);
mux.io("DO", 0, 0, 0);
mux.io("DI", 1, 0, 1);
Serial.print("Lectura de entrada 0 de MUX1: ");
Serial.println(mux.lecturadigital(1));
delay(1000);
mux.io("DI", 1, 0, 0);
Serial.println(mux.lecturaanalogica(2, 0));
delay(1000);
mux.io("DO", 0, 1, 1);
delay(1000);
mux.io("DO", 0, 1, 0);
mux.io("DI", 1, 1, 1);
Serial.print("Lectura de entrada 1 de MUX1: ");
Serial.println(mux.lecturadigital(1));
delay(1000);
mux.io("DI", 1, 1, 0);
Serial.println(mux.lecturaanalogica(2, 1));
delay(1000);
mux.io("DO", 0, 2, 1);
delay(1000);
mux.io("DO", 0, 2, 0);
mux.io("DI", 1, 2, 1);
Serial.print("Lectura de entrada 2 de MUX1: ");
Serial.println(mux.lecturadigital(1));
Serial.println("");
delay(1000);
mux.io("DI", 1, 2, 0);
delay(1000);
Serial.println(mux.lecturaanalogica(2, 2));
delay(1000);
// Pour travailler avec la syntaxe d'E / S est: OBJETO.io (String FunSignal,
// Int LineSignal, ActivePin int, int Activer)
// Dans ce cas c'est la sortie numérique, la syntaxe est: mux.io (
// "DO" (<- Pour la sortie numérique)
// 0 (<- Indique le MUX à utiliser, dans ce cas, la plaque MUX0),
// 0 (<- Définit la sortie MUX dans ce cas est 0),
// 1 (<- Indique s'il faut activer (1) ou désactiver Nous (0)
//);
// Pour travailler avec la syntaxe de l'entrée analogique est:
// OBJETO.lecturaanalogica (LineSignal int, int ActivePin)
// Dans ce cas, la syntaxe est: mux.lecturaanalogica (
// 2(<- Indique le MUX à utiliser, dans ce cas, la plaque MUX2),
// 0 (<- Indique l'entrée de MUX, dans ce cas est 0),
//);
// Pour travailler avec la syntaxe d'E / S est: OBJETO.io (FunSignal String, int LineSignal, ActivePin int, int Activer)
// Dans ce cas, il est entrée numérique, la syntaxe est: mux.io (
// "DI" (<- Pour l'entrée numérique)
// 1 (<- Indique le MUX à utiliser, dans ce cas, la plaque MUX1),
// 0 (<- Indique l'entrée de MUX, dans ce cas est 0),
// 1 (<- Indique s'il faut activer (1) ou désactiver Nous (0)
//);
}
mercredi 6 novembre 2013
' Simulation _ Recherche _ de _
personnes _Panoramic.bas
' 20131101
error_french
label clavier
label
sp_rouge,sp_vert,sp_jaune,sp_bleu,envoyer,sp_fin
dim
i,nobj,r%,v%,j%,b%,dat$,com_ok,data$,res
dim num,aff$,tch%,lt_cav ,c21%
com_ok=0
nobj=10:giro(nobj,0,80,300,"colonne")
num =100 :lt_cav=80
clavier_hexa(num,120,lt_cav)
affichtxt(200,0,10,50,14,"Simulation
Recherche de personnes en Panoramic")
affichtxt(220,0,220,410,14,date$)
nobj=550:voyant(nobj,0,100,440,"Com.Série",0)
nobj=750:button_con(nobj,0,350,460,"F
I N")
com_serie()
on_click 751,sp_fin
on_close 0,sp_fin
' ======================
end
' ======================
sp_rouge:
select r%
case 1 :color 12,255,0,0
case 0 :color 12,200,125,125
end_select
return
' =======
sp_vert:
select v%
case 1 :color 14,0,255,0
case 0 :color 14,125,200,125
end_select
return
' =======
sp_jaune:
select j%
case 1 :color 16,255,255,0
case 0 :color 16,200,200,125
end_select
return
' =======
sp_bleu:
select b%
case 1 :color 18,0,255,255
case 0 :color 18,125,200,200
end_select
return
' =======
envoyer:
if com_ok =0 then return
if tch% >=0 and tch% <16
data$=str$(tch%)
if data$="" then return
for i= 1 to len(data$)
c21%=asc(mid$(data$,i,1))
res=dll_call1("ComSetDataOut",c21%)
next i
pause 2
end_if
return
' =====FIN========
sp_fin:
dll_off:pause 4
terminate
return
' =================
clavier:
tch%=0
for i=1 to 16
if clicked(i+num)=1 then
tch%=i-1:gosub envoyer
next i
if tch% >7
r%=1 :tch%=tch%-8
else
r%=0
end_if
gosub sp_rouge
if tch% >3
v%=1 :tch%=tch%-4
else
v%=0
end_if
gosub sp_vert
if tch% >1
j%=1 :tch%=tch%-2
else
j%=0
end_if
gosub sp_jaune
if tch% =1
b%=1
else
b%=0
end_if
gosub sp_bleu
return
' ======================
rem =========sub===================
sub clavier_hexa(num,tp,lt)
dim_local i,j,ii
container num+20:top num+20,tp:left
num+20,lt
caption num+20,"clavier_numérique"
height num+20,200: color
num+20,200,200,50
for i=1 to 16
ii=ii+1:if ii=5 then j=j+1:ii=1
button i+num:width i+num,21:parent
i+num,num+20
top i+num,(j*30)+30: left
i+num,(ii*30)+5
caption i+num,hex$(i-1)
on_click i+num,clavier
next i
end_sub
rem =================================
sub giro(nos,par,t_c,l_c,txt$)
container nos:parent nos,par:top
nos,t_c:left nos,l_c
width nos,80: height nos,250
if len(txt$) > 9 then
txt$=left$(txt$,9)
caption nos,txt$
dim_local top_loc,left_loc: top_loc=28:
left_loc =30
alpha nos+1:parent nos+1,nos:top
nos+1,top_loc:left nos+1,left_loc
width nos+1,24: height nos+1,12:color
nos+1,0,0,0 :top_loc=top_loc+12
alpha nos+2:parent nos+2,nos:top
nos+2,top_loc:left nos+2,left_loc
width nos+2,24: height nos+2,24:color
nos+2,200,125,125:top_loc=top_loc+24
alpha nos+3:parent nos+3,nos:top
nos+3,top_loc:left nos+3,left_loc
width nos+3,24: height nos+3,5:color
nos+3,0,0,0:top_loc=top_loc+5
alpha nos+4:parent nos+4,nos:top
nos+4,top_loc:left nos+4,left_loc
width nos+4,24: height nos+4,24:color
nos+4,125,200,125:top_loc=top_loc+24
alpha nos+5:parent nos+5,nos:top
nos+5,top_loc:left nos+5,left_loc
width nos+5,24: height nos+5,5:color
nos+5,0,0,0:top_loc=top_loc+5
alpha nos+6:parent nos+6,nos:top
nos+6,top_loc:left nos+6,left_loc
width nos+6,24: height nos+6,24:color
nos+6,200,200,125:top_loc=top_loc+24
alpha nos+7:parent nos+7,nos:top
nos+7,top_loc:left nos+7,left_loc
width nos+7,24: height nos+7,5:color
nos+7,0,0,0:top_loc=top_loc+5
alpha nos+8:parent nos+8,nos:top
nos+8,top_loc:left nos+8,left_loc
width nos+8,24: height nos+8,24:color
nos+8,125,200,200:top_loc=top_loc+24
alpha nos+9:parent nos+9,nos:top
nos+9,top_loc:left nos+9,left_loc
width nos+9,24: height nos+9,30:color
nos+9,0,0,0:top_loc=top_loc+30
alpha nos+10:parent nos+10,nos:top
nos+10,top_loc:left nos+10,left_loc+6
width nos+10,12: height nos+10,50:color
nos+10,0,0,0:top_loc=top_loc+50
alpha nos+11:parent nos+11,nos:top
nos+11,top_loc:left nos+11,left_loc
width nos+11,24: height nos+11,12:color
nos+11,0,0,0 :top_loc=top_loc+12
end_sub
rem ===================================
sub
button_container(nos,par,t_c,l_c,txtt$)
container nos:parent nos,par:top
nos,t_c:left nos, l_c
caption nos ,txtt$
button nos+1:parent nos+1,nos:top
nos+1,30:left nos+1,10
width nos+1,30
width nos,width(nos+1)+20
height nos,height(nos+1)+40
end_sub
rem =================================
sub com_serie()
dim_local rc,rrc
rem DLL chargée en mémoire
' suivant configuration
dll_on
"F:\Mes_Document_F\Basic_panoramic\Arduino_Panoramic\IO_Acces_COM.dll"
rc= dll_call1("ComUsePort",8)
rrc=
dll_call4("ComConfig",115200,8,1,0)
if rc=1 and rrc=1
com_ok =1:position 552,1
else
message "Defaut_com_Serie"
end_if
end_sub
rem =================================
sub
affichtxt(nxt,par,tpt,ltt,fsize,txt$)
container nxt:parent nxt,par :top
nxt,tpt:left nxt,ltt
Alpha nxt+1:parent nxt+1,nxt:top
nxt+1,20:left nxt+1,10
font_bold nxt+1:font_size
nxt+1,fsize:caption nxt+1,txt$
width nxt,width(nxt+1)+40
height nxt,height(nxt+1)+40
end_sub
rem =========================
sub voyant(ntp,par,ttp,ltp,txt$,etat)
dim_local top_loc,left_loc: top_loc=28:
left_loc =7
container ntp:parent ntp,par:top
ntp,ttp:left ntp,ltp
width ntp,80: height ntp,85
if len(txt$) > 9 then
txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top
ntp+1,top_loc:left ntp+1,left_loc
width ntp+1,64: height ntp+1,44:color
ntp+1,0,0,0
progress_bar ntp+2:parent
ntp+2,ntp:top ntp+2,top_loc+4:left ntp+2,left_loc+4
width ntp+2,56: height ntp+2,36:min
ntp+2,0:max ntp+2,1
if etat=0
position ntp+2,0
else
position ntp+2,1
end_if
end_sub
rem =========================
sub button_con(nbc,parc,tpc,ltc,txt$)
container nbc:parent nbc,parc:top
nbc,tpc:left nbc,ltc
caption nbc ,txt$
button nbc+1:parent nbc+1,nbc:top
nbc+1,30:left nbc+1,10
width nbc+1,30
width nbc,width(nbc+1)+20
height nbc,height(nbc+1)+40
end_sub
rem =========================
Code Arduino uno:
int tch = 0;
int buf;
int ascii;
int valeur;
int valeurm;
String chiffre;
// =================
void setup() {
//code
pinMode(2,OUTPUT);
pinMode(3,OUTPUT);
pinMode(4,OUTPUT);
pinMode(5,OUTPUT);
Serial.begin(115200);
}
// ================
void loop() {
buf = Serial.available();
delay(10);
if (buf>0){
module_reception();
delay(10);
tch=valeur;
if ( valeur|= valeurm){
valeurm=valeur;
sp_led();
} //fin if valeur
}// fin if buf
}// fin loop
// ================
void sp_led(){
if (tch >7){digitalWrite(5, HIGH);
tch=tch-8;}
else {digitalWrite(5, LOW);}
if (tch >3){digitalWrite(4, HIGH);
tch=tch-4;}
else {digitalWrite(4, LOW);}
if (tch >1){digitalWrite(3, HIGH);
tch=tch-2;}
else {digitalWrite(3, LOW);}
if (tch==1){digitalWrite(2, HIGH);}
else{digitalWrite(2, LOW);}
}//fin sp_led
// ===========================
void module_reception(){
while(Serial.available()){
ascii=Serial.read();
if (ascii != -1 ){
if (ascii >47 && ascii< 58){
chiffre =chiffre+char(ascii);}
} //fin if -1
} //fin while
valeur=chiffre.toInt();
chiffre="";
buf=0;
}//fin module_reception
int buf;
int ascii;
int valeur;
int valeurm;
String chiffre;
// =================
void setup() {
//code
pinMode(2,OUTPUT);
pinMode(3,OUTPUT);
pinMode(4,OUTPUT);
pinMode(5,OUTPUT);
Serial.begin(115200);
}
// ================
void loop() {
buf = Serial.available();
delay(10);
if (buf>0){
module_reception();
delay(10);
tch=valeur;
if ( valeur|= valeurm){
valeurm=valeur;
sp_led();
} //fin if valeur
}// fin if buf
}// fin loop
// ================
void sp_led(){
if (tch >7){digitalWrite(5, HIGH);
tch=tch-8;}
else {digitalWrite(5, LOW);}
if (tch >3){digitalWrite(4, HIGH);
tch=tch-4;}
else {digitalWrite(4, LOW);}
if (tch >1){digitalWrite(3, HIGH);
tch=tch-2;}
else {digitalWrite(3, LOW);}
if (tch==1){digitalWrite(2, HIGH);}
else{digitalWrite(2, LOW);}
}//fin sp_led
// ===========================
void module_reception(){
while(Serial.available()){
ascii=Serial.read();
if (ascii != -1 ){
if (ascii >47 && ascii< 58){
chiffre =chiffre+char(ascii);}
} //fin if -1
} //fin while
valeur=chiffre.toInt();
chiffre="";
buf=0;
}//fin module_reception
lundi 4 novembre 2013
pensée du jour
Panoramic est le monde extérieur.
via une interface électronique programmable USB série virtuelle
Je n'ai rien contre le port parallèle. Mais ne nous voilons pas la face.
Depuis combien de temps on ne trouve plus d'imprimante parallèle
et encore plus pour les imprimantes série
avec lesquelles nous imprimons les programmes des automates tsx 60.
Les portables et les tablettes on banni les ports parallèles et série de leurs configurations
reste encore les PC de bureau et pour combien de temps ? .
que reste-t-il a Panoramic pour dialoguer avec le monde extérieur ?.
USB port série virtuel ou Ethernet.il est loin le temps des interfaces figées
elle sont toutes programmables pour s'adapter exemple: APN TV etc.
il est vrai que cela s'adresse plus
aux amateurs d'électronique domotique automatisme
espérons que cette nouvelle facette de Panoramic nous attirera de nouveaux membres sur ce forum
en attend un éditeur en Panoramic pour programmer directement ces interfaces.
je vous propose une appli en Panoramic pour dégrossir le programme de ces interfaces.
donc l'éditeur n'est pas confortable.
l'appli se compose d'une liste avec les instructions d'un memo et de quelques boutons.
on sélectionne une instruction dans la liste puis on clique pour coller
l'on adapte l'instruction à son programme
une fois le programme fini on sélectionne tout on fait copier
on appuit sur le bouton "-+" Ide de l'interface apparaît coller le programme dans cet ide
pour contrôler debugger et transférer vers l'interface.
vous avez la possibilité de chargér et sauvegarder le programme
ps dans le programme Panoramic adaptez le chemin du fichier ide de l'interface et du site web
Code
' editeur_panoramic_pour_langage_exotique.bas
' 20131028
' le site www.mon-club-elec.fr
' http://www.mon-club-elec.fr/pmwiki_reference_arduino/pmwiki.php?n=Main.Serial
error_french
width 0,1200:height 0,1000: color 0,50,120,60:caption 0,"Editeur Panoramic pour langage exotique"
top 0,(screen_y-height(0))/2 :left 0,(screen_x-width(0))/2
label sp_20,sp_Save,sp_Open,sp_FIN,langage_arduino_1
label web_club_elec ,sp_cls,uno,translate,sp_9
dim m ,i ,j,l,acold,acolf,a$,car$ ,f$
memo 10:top 10,40:left 10,200:width 10,950:height 10,900
bar_both 10:font_size 10,14: color 10,220,220,220
font_name 10,"DejaVu Sans Mono"
list 20:top 20,40:left 20,20:gosub langage_arduino_1
width 20,170:height 20, 800
button 1 :top 1,8 :left 1,800 :width 1,27
font_name 1,"webdings":font_size 1,15:hint 1,"cls" : caption 1,"q"
button 2 :top 2,8 :left 2,900 :width 2,27
font_name 2,"wingdings":font_size 2,15:hint 2,"Save":caption 2,"<"
button 3 :top 3,8 :left 3,600 :width 3,27
font_name 3,"wingdings":font_size 3,15:hint 3,"Open" :caption 3,"1"
button 4 : top 4,8: left 4,1100 :width 4,40
font_name 4,"webdings":font_size 4,15:hint 4,"FIN" :caption 4,"r"
button 6:top 6,8 :left 6,400 :caption 6,"help" :width 6,27
font_name 6,"webdings":font_size 6,15:hint 6,"Help":caption 6,"i"
button 7:top 7,8 :left 7,500 :width 7,50:font_name 7,"SWGamekeys MT"
font_size 7,15:hint 7,"Arduino":caption 7,"Þ¯"
button 8:top 8,8 :left 8,300 :width 8,27:font_name 8,"webdings"
font_size 8,15:hint 8,"traduction":caption 8,"ü"
button 9 :top 9,8:left 9,700:caption 9,"{ }":hint 9,"accolade"::width 9,27
open_dialog 14:save_dialog 15:dir_dialog 14,dir_current$:dir_dialog 15,dir_current$
on_click 1,sp_cls:on_click 2,sp_Save:on_click 3,sp_Open
on_click 4,sp_FIN:on_click 6, web_club_elec
on_click 7,uno:on_click 8,translate
on_close 0,sp_save :on_click 9,sp_9
on_click 20 ,sp_20
' =======================
end
' =======================
sp_9:
acold=0:acolf=0
for i=1 to count(10)
a$=item_read$(10,i)
l=len(a$)
for j=1 to l
car$=mid$(a$,j,1)
if car$ ="{" then acold=acold+1
if car$ ="}" then acolf=acolf+1
next j
next i
IF acold=acolf
message "OK ! { = "+str$(acold)+" - } = "+ str$(acolf)
else
message "DEFAUT ! { = "+str$(acold)+" - } = "+ str$(acolf)
end_if
return
' =======================
uno:
m=message_confirmation_yes_no(" UNO ")
if m<>1 then return
execute "F:\portable\arduino-1.5.2-windows\arduino-1.5.2\arduino.exe"
return
' =======================
sp_Save:
m=message_confirmation_yes_no(" S A V E ")
if m = 1
file_save 10,file_name$(15)
end_if
return
' =======================
sp_Open:
m=message_confirmation_yes_no(" L O A D ")
if m<>1 then return
f$=file_name$(14):pause 2
if f$<>"_" then file_load 10,f$
return
' =======================
sp_FIN:
m=message_confirmation_yes_no(" Quitter ")
if m<>1 then return
gosub sp_save
terminate
return
' =======================
sp_cls:
m=message_confirmation_yes_no(" Clear Memo ")
if m<>1 then return
clear 10
return
' =======================
sp_20:
clipboard_string_copy item_read$(20,item_index(20))+chr$(13)+chr$(10)
return
' =======================
langage_arduino_1:
item_add 20,"/* début rem multiligne"
item_add 20,"fin rem multilignes */"
item_add 20,"#include <librairie >"
item_add 20,"#define constantnom val"
item_add 20,"int var = val;"
item_add 20,"boolean var=false; // ou true"
item_add 20,"char monChar='B';"
item_add 20,"long var = valeur;"
item_add 20,"float var = valeur;// 10,5 (nombres à virgules)"
item_add 20,"char Str[15];"
item_add 20,"String lettre;"
item_add 20,"// ===rem_1_ligne======="
item_add 20,"void setup() { //code }"
item_add 20,"pinMode(N°Pin,OUTPUT);"
item_add 20,"pinMode(N°Pin,INPUT);"
item_add 20,"// ================"
item_add 20,"void loop() { //code }"
item_add 20,"digitalWrite(N°Pin, HIGH);"
item_add 20,"digitalWrite(N°Pin, LOW);"
item_add 20," val = digitalRead(N°Pin);"
item_add 20,"val = analogRead(analogPin);"
item_add 20,"analogWrite(N°Pin, val);"
item_add 20,"for (i=0; i <= 255; i++) {//instruction(s)à exécuter;}"
item_add 20,"if (Variable > 50){ //action }"
item_add 20,"if (x == y ){ //action }//(x est égal à y)"
item_add 20,"if (x != y ){ //action }//(x est différent de y)"
item_add 20,"if (x < y ){ //action }//(x est inférieur à y)"
item_add 20,"if (x > y){ //action }// (x est supérieur à y)"
item_add 20,"if (x <= y){ //action }// (x est inférieur ou égal à y)"
item_add 20,"if (x >= y){ //action }// (x est supérieur ou égal à y)"
item_add 20,"if (x == y ){ //action a }"
item_add 20," else { //action b }"
item_add 20,"switch (var) { // début de la structure"
item_add 20,"case 1: // cas 1"
item_add 20,"break;"
item_add 20," default: // cas par défaut"
item_add 20,"} // fins witch"
item_add 20,"while(Serial.available()){ //code }"
item_add 20," delay (ms);"
item_add 20,"mon_sous_programme();"
item_add 20,"void mon_sous_programme(){ //code }"
item_add 20,"var=min(x, y);"
item_add 20,"var=max(x, y);"
item_add 20,"var=abs(x);"
item_add 20,"var=constrain(x, a, b),"
item_add 20,"var=sq(x);"
item_add 20,"var=sqrt(x);"
item_add 20,"var=sin(rad);"
item_add 20,"var=cos(rad);"
item_add 20,"var=tan(rad);"
item_add 20,"valeur=chiffre.toInt();"
item_add 20,"Serial.begin(int vitesse);"
item_add 20,"Serial.available();"
item_add 20,"Serial.read();"
item_add 20,"Serial.print(données);"
item_add 20,"Serial.println(data);"
return
' =======================
web_club_elec:
if message_information_yes_no("Le site web mon-club-elec ?")<>1 then return
execute "firefox.exe http://www.mon-club-elec.fr/pmwiki_reference_arduino/pmwiki.php?n=Main.Reference"
return
' =======================
translate:
if message_information_yes_no("translate.google ?")<>1 then return
execute "firefox.exe http://translate.google.fr/#en/fr/"
return
Panoramic est le monde extérieur.
via une interface électronique programmable USB série virtuelle
Je n'ai rien contre le port parallèle. Mais ne nous voilons pas la face.
Depuis combien de temps on ne trouve plus d'imprimante parallèle
et encore plus pour les imprimantes série
avec lesquelles nous imprimons les programmes des automates tsx 60.
Les portables et les tablettes on banni les ports parallèles et série de leurs configurations
reste encore les PC de bureau et pour combien de temps ? .
que reste-t-il a Panoramic pour dialoguer avec le monde extérieur ?.
USB port série virtuel ou Ethernet.il est loin le temps des interfaces figées
elle sont toutes programmables pour s'adapter exemple: APN TV etc.
il est vrai que cela s'adresse plus
aux amateurs d'électronique domotique automatisme
espérons que cette nouvelle facette de Panoramic nous attirera de nouveaux membres sur ce forum
en attend un éditeur en Panoramic pour programmer directement ces interfaces.
je vous propose une appli en Panoramic pour dégrossir le programme de ces interfaces.
donc l'éditeur n'est pas confortable.
l'appli se compose d'une liste avec les instructions d'un memo et de quelques boutons.
on sélectionne une instruction dans la liste puis on clique pour coller
l'on adapte l'instruction à son programme
une fois le programme fini on sélectionne tout on fait copier
on appuit sur le bouton "-+" Ide de l'interface apparaît coller le programme dans cet ide
pour contrôler debugger et transférer vers l'interface.
vous avez la possibilité de chargér et sauvegarder le programme
ps dans le programme Panoramic adaptez le chemin du fichier ide de l'interface et du site web
Code
' editeur_panoramic_pour_langage_exotique.bas
' 20131028
' le site www.mon-club-elec.fr
' http://www.mon-club-elec.fr/pmwiki_reference_arduino/pmwiki.php?n=Main.Serial
error_french
width 0,1200:height 0,1000: color 0,50,120,60:caption 0,"Editeur Panoramic pour langage exotique"
top 0,(screen_y-height(0))/2 :left 0,(screen_x-width(0))/2
label sp_20,sp_Save,sp_Open,sp_FIN,langage_arduino_1
label web_club_elec ,sp_cls,uno,translate,sp_9
dim m ,i ,j,l,acold,acolf,a$,car$ ,f$
memo 10:top 10,40:left 10,200:width 10,950:height 10,900
bar_both 10:font_size 10,14: color 10,220,220,220
font_name 10,"DejaVu Sans Mono"
list 20:top 20,40:left 20,20:gosub langage_arduino_1
width 20,170:height 20, 800
button 1 :top 1,8 :left 1,800 :width 1,27
font_name 1,"webdings":font_size 1,15:hint 1,"cls" : caption 1,"q"
button 2 :top 2,8 :left 2,900 :width 2,27
font_name 2,"wingdings":font_size 2,15:hint 2,"Save":caption 2,"<"
button 3 :top 3,8 :left 3,600 :width 3,27
font_name 3,"wingdings":font_size 3,15:hint 3,"Open" :caption 3,"1"
button 4 : top 4,8: left 4,1100 :width 4,40
font_name 4,"webdings":font_size 4,15:hint 4,"FIN" :caption 4,"r"
button 6:top 6,8 :left 6,400 :caption 6,"help" :width 6,27
font_name 6,"webdings":font_size 6,15:hint 6,"Help":caption 6,"i"
button 7:top 7,8 :left 7,500 :width 7,50:font_name 7,"SWGamekeys MT"
font_size 7,15:hint 7,"Arduino":caption 7,"Þ¯"
button 8:top 8,8 :left 8,300 :width 8,27:font_name 8,"webdings"
font_size 8,15:hint 8,"traduction":caption 8,"ü"
button 9 :top 9,8:left 9,700:caption 9,"{ }":hint 9,"accolade"::width 9,27
open_dialog 14:save_dialog 15:dir_dialog 14,dir_current$:dir_dialog 15,dir_current$
on_click 1,sp_cls:on_click 2,sp_Save:on_click 3,sp_Open
on_click 4,sp_FIN:on_click 6, web_club_elec
on_click 7,uno:on_click 8,translate
on_close 0,sp_save :on_click 9,sp_9
on_click 20 ,sp_20
' =======================
end
' =======================
sp_9:
acold=0:acolf=0
for i=1 to count(10)
a$=item_read$(10,i)
l=len(a$)
for j=1 to l
car$=mid$(a$,j,1)
if car$ ="{" then acold=acold+1
if car$ ="}" then acolf=acolf+1
next j
next i
IF acold=acolf
message "OK ! { = "+str$(acold)+" - } = "+ str$(acolf)
else
message "DEFAUT ! { = "+str$(acold)+" - } = "+ str$(acolf)
end_if
return
' =======================
uno:
m=message_confirmation_yes_no(" UNO ")
if m<>1 then return
execute "F:\portable\arduino-1.5.2-windows\arduino-1.5.2\arduino.exe"
return
' =======================
sp_Save:
m=message_confirmation_yes_no(" S A V E ")
if m = 1
file_save 10,file_name$(15)
end_if
return
' =======================
sp_Open:
m=message_confirmation_yes_no(" L O A D ")
if m<>1 then return
f$=file_name$(14):pause 2
if f$<>"_" then file_load 10,f$
return
' =======================
sp_FIN:
m=message_confirmation_yes_no(" Quitter ")
if m<>1 then return
gosub sp_save
terminate
return
' =======================
sp_cls:
m=message_confirmation_yes_no(" Clear Memo ")
if m<>1 then return
clear 10
return
' =======================
sp_20:
clipboard_string_copy item_read$(20,item_index(20))+chr$(13)+chr$(10)
return
' =======================
langage_arduino_1:
item_add 20,"/* début rem multiligne"
item_add 20,"fin rem multilignes */"
item_add 20,"#include <librairie >"
item_add 20,"#define constantnom val"
item_add 20,"int var = val;"
item_add 20,"boolean var=false; // ou true"
item_add 20,"char monChar='B';"
item_add 20,"long var = valeur;"
item_add 20,"float var = valeur;// 10,5 (nombres à virgules)"
item_add 20,"char Str[15];"
item_add 20,"String lettre;"
item_add 20,"// ===rem_1_ligne======="
item_add 20,"void setup() { //code }"
item_add 20,"pinMode(N°Pin,OUTPUT);"
item_add 20,"pinMode(N°Pin,INPUT);"
item_add 20,"// ================"
item_add 20,"void loop() { //code }"
item_add 20,"digitalWrite(N°Pin, HIGH);"
item_add 20,"digitalWrite(N°Pin, LOW);"
item_add 20," val = digitalRead(N°Pin);"
item_add 20,"val = analogRead(analogPin);"
item_add 20,"analogWrite(N°Pin, val);"
item_add 20,"for (i=0; i <= 255; i++) {//instruction(s)à exécuter;}"
item_add 20,"if (Variable > 50){ //action }"
item_add 20,"if (x == y ){ //action }//(x est égal à y)"
item_add 20,"if (x != y ){ //action }//(x est différent de y)"
item_add 20,"if (x < y ){ //action }//(x est inférieur à y)"
item_add 20,"if (x > y){ //action }// (x est supérieur à y)"
item_add 20,"if (x <= y){ //action }// (x est inférieur ou égal à y)"
item_add 20,"if (x >= y){ //action }// (x est supérieur ou égal à y)"
item_add 20,"if (x == y ){ //action a }"
item_add 20," else { //action b }"
item_add 20,"switch (var) { // début de la structure"
item_add 20,"case 1: // cas 1"
item_add 20,"break;"
item_add 20," default: // cas par défaut"
item_add 20,"} // fins witch"
item_add 20,"while(Serial.available()){ //code }"
item_add 20," delay (ms);"
item_add 20,"mon_sous_programme();"
item_add 20,"void mon_sous_programme(){ //code }"
item_add 20,"var=min(x, y);"
item_add 20,"var=max(x, y);"
item_add 20,"var=abs(x);"
item_add 20,"var=constrain(x, a, b),"
item_add 20,"var=sq(x);"
item_add 20,"var=sqrt(x);"
item_add 20,"var=sin(rad);"
item_add 20,"var=cos(rad);"
item_add 20,"var=tan(rad);"
item_add 20,"valeur=chiffre.toInt();"
item_add 20,"Serial.begin(int vitesse);"
item_add 20,"Serial.available();"
item_add 20,"Serial.read();"
item_add 20,"Serial.print(données);"
item_add 20,"Serial.println(data);"
return
' =======================
web_club_elec:
if message_information_yes_no("Le site web mon-club-elec ?")<>1 then return
execute "firefox.exe http://www.mon-club-elec.fr/pmwiki_reference_arduino/pmwiki.php?n=Main.Reference"
return
' =======================
translate:
if message_information_yes_no("translate.google ?")<>1 then return
execute "firefox.exe http://translate.google.fr/#en/fr/"
return
Soyons fou un petit délire avec Panoramic pour faire "mumuse" avec un vérin
Code:
' 20131022
error_french
width 0,1000:height 0,800
top 0,(screen_y-height(0))/2 :left 0,(screen_x-width(0))/2
label sp_fin,verinAV,verinAR,capteur,auto,manu,vav,var,raz,help1,help0
dim nobj,i,a,c,compt$
nobj=10 :affichtxt(nobj,20,150,18,"Simulation supervision en Panoramic")
nobj=20: voyant(nobj,100,100,"AUTO","V")
nobj=30 :voyant(nobj,100,350,"NANU","O")
nobj=40: voyant(nobj,100,600,"Verin_1 -- ","O")
nobj=50: voyant(nobj,100,750,"Verin_1 ++ ","O")
nobj=60: verin(nobj,300,600,"Vérin 1")
nobj=70: flip_flop(nobj,300,100,"Auto/Manu")
nobj=80: Bpvert(nobj,300,430,"V plus")
nobj=90: Bpvert(nobj,300,270,"V moin")
nobj=100: button_container(nobj,600,800,"F I N")
nobj=110: button_container(nobj,600,700,"Aide")
nobj=120: compteur(nobj,0,500,100,"Compteur")
nobj=130 :affichtxt(nobj,600,450,14,date$)
nobj=140:help(nobj,0,"Aide")
gosub manu :gosub capteur
on_click 82, verinAV
on_click 92, verinAR
on_click 72, auto
on_click 74, manu
on_click 101,sp_fin
on_click 123, raz
on_click 111, help1
on_click 142, help0
' ========
end
' ========
sp_fin:
terminate
return
rem ============================
verinAV:
color 82,22,184,78
pause 500
color 82,84,249,141
vav:
if position(62) > 95 then return
for i= 10 to 100
pause 20
gosub capteur
position 62,i
next i
if a=1
compt$="0000"
c=c+1:compt$=compt$+ str$(c)
compt$=right$(compt$,4)
caption 122,compt$
end_if
return
' =======================
verinAR:
color 92,22,184,78
pause 500
color 92,84,249,141
var:
if position(62) < 15 then return
for i=100 to 10 step -1
pause 15
position 62,i
gosub capteur
next i
return
' =====================
capteur:
if i <20
font_color 63,255,0,0
color 42,255,255,102
else
font_color 63,0,0,255
color 42,204,153,51
end_if
if i >90
font_color 64,255,0,0
color 52,255,255,102
else
font_color 64,0,0,255
color 52,204,153,51
end_if
caption 63,"[%]"
caption 64,"[%]"
return
' =========================
auto:
a=1
color 72,22,184,78
color 74,222,41,22
color 22,0,255,0
color 32,204,102,0
inactive 82 :inactive 92
while a=1
gosub vav
pause 500
gosub var
pause 500
end_while
return
' ================
manu:
a=0
active 82:active 92
color 72,84,249,141
color 74,174,74,52
color 22,0,153,0
color 32,255,153,0
return
' =============
raz:
if a=0
c=0:caption 122,"0000"
end_if
return
' =============
help1:
show 140:inactive 0
return
' =============
help0:
hide 140:active 0
return
rem =======sub===============
sub affichtxt(nxt,tpt,ltt,fsize,txt$)
container nxt::top nxt,tpt:left nxt,ltt
Alpha nxt+1:parent nxt+1,nxt:top nxt+1,20:left nxt+1,10
font_bold nxt+1:font_size nxt+1,fsize:caption nxt+1,txt$
width nxt,width(nxt+1)+40
height nxt,height(nxt+1)+40
end_sub
rem ===========================
sub voyant(ntp,ttp,ltp,txt$,col$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,48:left ntp+1,7
width ntp+1,64: height ntp+1,44:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,52:left ntp+2,11
width ntp+2,56: height ntp+2,36
if col$ ="R" or col$ ="r" then color ntp+2,153,0,0
if col$ ="O" or col$ ="o" then color ntp+2,204,102,0
if col$ ="J" or col$ ="j" then color ntp+2,204,153,51
if col$ ="B" or col$ ="b" then color ntp+2,51,153,153
if col$ ="V" or col$ ="v" then color ntp+2,0,153,0
end_sub
rem ntp=10 ==>voyant =12
rem ===========================
sub verin(nv,tpv,ltv,txt$)
container nv:top nv,tpv:left nv,ltv:caption nv,txt$
alpha nv+1:parent nv+1,nv:top nv+1,50 :left nv+1,30
width nv+1,120 :height nv+1,40
color nv+1,102,129,141
progress_bar nv+2 :parent nv+2,nv:top nv+2,60:left nv+2,30+width(nv+1)
position nv+2,10
width nv,width(nv+1)+width(nv+2)+60
alpha nv+3:parent nv+3,nv:top nv+3,30:left nv+3,30:caption nv+3,"[%]"
font_color nv+3,255,0,0
alpha nv+4:parent nv+4,nv:top nv+4,30:left nv+4,135:caption nv+4,"[%]"
font_color nv+4,0,0,255
rem pour nv =10 %r==> 13 & %s==> 14
end_sub
rem ===========================
sub flip_flop(ntp,ttp,ltp,txt$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,25:left ntp+1,19
width ntp+1,40: height ntp+1,40:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,27:left ntp+2,21
width ntp+2,36: height ntp+2,36:color ntp+2,84,249,141
alpha ntp+3:parent ntp+3,ntp:top ntp+3,75:left ntp+3,19
width ntp+3,40: height ntp+3,40:color ntp+3,0,0,0
alpha ntp+4:parent ntp+4,ntp:top ntp+4,77:left ntp+4,21
width ntp+4,36: height ntp+4,36:color ntp+4,222,41,22
end_sub
rem ntp=10 ==>bp1 =12 / bp2 = 14
rem on_clich 12 ou 14 ==>sp
rem ===========================
sub Bpvert(ntp,ttp,ltp,txt$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,50:left ntp+1,19
width ntp+1,40: height ntp+1,40:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,52:left ntp+2,21
width ntp+2,36: height ntp+2,36:color ntp+2,84,249,141
end_sub
rem ntp=10 ==>bp1 =12
rem ===========================
sub button_container(nbc,tpc,ltc,txt$)
container nbc:top nbc,tpc:left nbc, ltc
caption nbc ,txt$
button nbc+1:parent nbc+1,nbc:top nbc+1,30:left nbc+1,10
width nbc+1,30
width nbc,width(nbc+1)+20
height nbc,height(nbc+1)+40
end_sub
rem ===========================
sub compteur(nc,par,tpc,ltc,txt$)
container nc:parent nc,par:top nc,tpc:left nc,ltc
caption nc,txt$
alpha nc+1:parent nc+1,nc:top nc+1,40:left nc+1,10
color nc+1,0,0,0
alpha nc+2:parent nc+2,nc:top nc+2,45:left nc+2,15
color nc+2,255,0,0:font_size nc+2,20:caption nc+2,"0000"
height nc+1,height(nc+2)+10
button nc+3 :parent nc+3,nc:top nc+3,45:left nc+3,width(nc+1)+20
width nc+3 ,30:caption nc+3,"RAZ"
width nc,width(nc+1)+width(nc+3)+30
' affichage nc+2 nc=10 ==>12
' bp nc+3 nc=10 ==>13
end_sub
rem ==============================
sub help(nform,visi,txt$)
form nform : top nform,(screen_y-height(nform))/2 :left nform,(screen_x-width(nform))/2
width nform,500:height nform,350:if visi = 0 then hide nform
memo nform+1:parent nform+1,nform:full_space nform+1
caption nform,txt$
item_add nform+1," "
item_add nform+1,"La supervision est une technique industrielle de suivi et de pilotage informatique de procédés de fabrication automatisés. La supervision concerne l'acquisition de données (mesures, alarmes, retour d'état de fonctionnement) et des paramètres de commande des processus généralement confiés à des automates programmables."
item_add nform+1," "
item_add nform+1,"Wikipédia, l'encyclopédie libre"
item_add nform+1," "
item_add nform+1,"Mode d'emploi"
item_add nform+1,"Bouton-poussoir de couleur verte."
item_add nform+1,"Cycle ''Auto'' :"
item_add nform+1," la tige du vérin, elle sort et elle rentre automatiquement."
item_add nform+1,"Le compteur incrémente."
item_add nform+1," bouton-poussoir de couleur rouge."
item_add nform+1,"''Manu'':"
item_add nform+1,"Les boutons poussoirs ''V plus'' ''V moins '' pour déplacer la tige du vérin."
item_add nform+1,"''RAZ'' bouton-poussoir de remise à zéro du compteur"
inactive nform+1
button nform+2 :parent nform+2,nform:top nform+2,250:left nform+2,300
caption nform+2,"Quitter"
' button 202 pour nforme =200
end_sub
rem ==============================
Code:
' 20131022
error_french
width 0,1000:height 0,800
top 0,(screen_y-height(0))/2 :left 0,(screen_x-width(0))/2
label sp_fin,verinAV,verinAR,capteur,auto,manu,vav,var,raz,help1,help0
dim nobj,i,a,c,compt$
nobj=10 :affichtxt(nobj,20,150,18,"Simulation supervision en Panoramic")
nobj=20: voyant(nobj,100,100,"AUTO","V")
nobj=30 :voyant(nobj,100,350,"NANU","O")
nobj=40: voyant(nobj,100,600,"Verin_1 -- ","O")
nobj=50: voyant(nobj,100,750,"Verin_1 ++ ","O")
nobj=60: verin(nobj,300,600,"Vérin 1")
nobj=70: flip_flop(nobj,300,100,"Auto/Manu")
nobj=80: Bpvert(nobj,300,430,"V plus")
nobj=90: Bpvert(nobj,300,270,"V moin")
nobj=100: button_container(nobj,600,800,"F I N")
nobj=110: button_container(nobj,600,700,"Aide")
nobj=120: compteur(nobj,0,500,100,"Compteur")
nobj=130 :affichtxt(nobj,600,450,14,date$)
nobj=140:help(nobj,0,"Aide")
gosub manu :gosub capteur
on_click 82, verinAV
on_click 92, verinAR
on_click 72, auto
on_click 74, manu
on_click 101,sp_fin
on_click 123, raz
on_click 111, help1
on_click 142, help0
' ========
end
' ========
sp_fin:
terminate
return
rem ============================
verinAV:
color 82,22,184,78
pause 500
color 82,84,249,141
vav:
if position(62) > 95 then return
for i= 10 to 100
pause 20
gosub capteur
position 62,i
next i
if a=1
compt$="0000"
c=c+1:compt$=compt$+ str$(c)
compt$=right$(compt$,4)
caption 122,compt$
end_if
return
' =======================
verinAR:
color 92,22,184,78
pause 500
color 92,84,249,141
var:
if position(62) < 15 then return
for i=100 to 10 step -1
pause 15
position 62,i
gosub capteur
next i
return
' =====================
capteur:
if i <20
font_color 63,255,0,0
color 42,255,255,102
else
font_color 63,0,0,255
color 42,204,153,51
end_if
if i >90
font_color 64,255,0,0
color 52,255,255,102
else
font_color 64,0,0,255
color 52,204,153,51
end_if
caption 63,"[%]"
caption 64,"[%]"
return
' =========================
auto:
a=1
color 72,22,184,78
color 74,222,41,22
color 22,0,255,0
color 32,204,102,0
inactive 82 :inactive 92
while a=1
gosub vav
pause 500
gosub var
pause 500
end_while
return
' ================
manu:
a=0
active 82:active 92
color 72,84,249,141
color 74,174,74,52
color 22,0,153,0
color 32,255,153,0
return
' =============
raz:
if a=0
c=0:caption 122,"0000"
end_if
return
' =============
help1:
show 140:inactive 0
return
' =============
help0:
hide 140:active 0
return
rem =======sub===============
sub affichtxt(nxt,tpt,ltt,fsize,txt$)
container nxt::top nxt,tpt:left nxt,ltt
Alpha nxt+1:parent nxt+1,nxt:top nxt+1,20:left nxt+1,10
font_bold nxt+1:font_size nxt+1,fsize:caption nxt+1,txt$
width nxt,width(nxt+1)+40
height nxt,height(nxt+1)+40
end_sub
rem ===========================
sub voyant(ntp,ttp,ltp,txt$,col$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,48:left ntp+1,7
width ntp+1,64: height ntp+1,44:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,52:left ntp+2,11
width ntp+2,56: height ntp+2,36
if col$ ="R" or col$ ="r" then color ntp+2,153,0,0
if col$ ="O" or col$ ="o" then color ntp+2,204,102,0
if col$ ="J" or col$ ="j" then color ntp+2,204,153,51
if col$ ="B" or col$ ="b" then color ntp+2,51,153,153
if col$ ="V" or col$ ="v" then color ntp+2,0,153,0
end_sub
rem ntp=10 ==>voyant =12
rem ===========================
sub verin(nv,tpv,ltv,txt$)
container nv:top nv,tpv:left nv,ltv:caption nv,txt$
alpha nv+1:parent nv+1,nv:top nv+1,50 :left nv+1,30
width nv+1,120 :height nv+1,40
color nv+1,102,129,141
progress_bar nv+2 :parent nv+2,nv:top nv+2,60:left nv+2,30+width(nv+1)
position nv+2,10
width nv,width(nv+1)+width(nv+2)+60
alpha nv+3:parent nv+3,nv:top nv+3,30:left nv+3,30:caption nv+3,"[%]"
font_color nv+3,255,0,0
alpha nv+4:parent nv+4,nv:top nv+4,30:left nv+4,135:caption nv+4,"[%]"
font_color nv+4,0,0,255
rem pour nv =10 %r==> 13 & %s==> 14
end_sub
rem ===========================
sub flip_flop(ntp,ttp,ltp,txt$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,25:left ntp+1,19
width ntp+1,40: height ntp+1,40:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,27:left ntp+2,21
width ntp+2,36: height ntp+2,36:color ntp+2,84,249,141
alpha ntp+3:parent ntp+3,ntp:top ntp+3,75:left ntp+3,19
width ntp+3,40: height ntp+3,40:color ntp+3,0,0,0
alpha ntp+4:parent ntp+4,ntp:top ntp+4,77:left ntp+4,21
width ntp+4,36: height ntp+4,36:color ntp+4,222,41,22
end_sub
rem ntp=10 ==>bp1 =12 / bp2 = 14
rem on_clich 12 ou 14 ==>sp
rem ===========================
sub Bpvert(ntp,ttp,ltp,txt$)
container ntp:top ntp,ttp:left ntp,ltp
width ntp,80: height ntp,133
if len(txt$) > 9 then txt$=left$(txt$,9)
caption ntp,txt$
alpha ntp+1:parent ntp+1,ntp:top ntp+1,50:left ntp+1,19
width ntp+1,40: height ntp+1,40:color ntp+1,0,0,0
alpha ntp+2:parent ntp+2,ntp:top ntp+2,52:left ntp+2,21
width ntp+2,36: height ntp+2,36:color ntp+2,84,249,141
end_sub
rem ntp=10 ==>bp1 =12
rem ===========================
sub button_container(nbc,tpc,ltc,txt$)
container nbc:top nbc,tpc:left nbc, ltc
caption nbc ,txt$
button nbc+1:parent nbc+1,nbc:top nbc+1,30:left nbc+1,10
width nbc+1,30
width nbc,width(nbc+1)+20
height nbc,height(nbc+1)+40
end_sub
rem ===========================
sub compteur(nc,par,tpc,ltc,txt$)
container nc:parent nc,par:top nc,tpc:left nc,ltc
caption nc,txt$
alpha nc+1:parent nc+1,nc:top nc+1,40:left nc+1,10
color nc+1,0,0,0
alpha nc+2:parent nc+2,nc:top nc+2,45:left nc+2,15
color nc+2,255,0,0:font_size nc+2,20:caption nc+2,"0000"
height nc+1,height(nc+2)+10
button nc+3 :parent nc+3,nc:top nc+3,45:left nc+3,width(nc+1)+20
width nc+3 ,30:caption nc+3,"RAZ"
width nc,width(nc+1)+width(nc+3)+30
' affichage nc+2 nc=10 ==>12
' bp nc+3 nc=10 ==>13
end_sub
rem ==============================
sub help(nform,visi,txt$)
form nform : top nform,(screen_y-height(nform))/2 :left nform,(screen_x-width(nform))/2
width nform,500:height nform,350:if visi = 0 then hide nform
memo nform+1:parent nform+1,nform:full_space nform+1
caption nform,txt$
item_add nform+1," "
item_add nform+1,"La supervision est une technique industrielle de suivi et de pilotage informatique de procédés de fabrication automatisés. La supervision concerne l'acquisition de données (mesures, alarmes, retour d'état de fonctionnement) et des paramètres de commande des processus généralement confiés à des automates programmables."
item_add nform+1," "
item_add nform+1,"Wikipédia, l'encyclopédie libre"
item_add nform+1," "
item_add nform+1,"Mode d'emploi"
item_add nform+1,"Bouton-poussoir de couleur verte."
item_add nform+1,"Cycle ''Auto'' :"
item_add nform+1," la tige du vérin, elle sort et elle rentre automatiquement."
item_add nform+1,"Le compteur incrémente."
item_add nform+1," bouton-poussoir de couleur rouge."
item_add nform+1,"''Manu'':"
item_add nform+1,"Les boutons poussoirs ''V plus'' ''V moins '' pour déplacer la tige du vérin."
item_add nform+1,"''RAZ'' bouton-poussoir de remise à zéro du compteur"
inactive nform+1
button nform+2 :parent nform+2,nform:top nform+2,250:left nform+2,300
caption nform+2,"Quitter"
' button 202 pour nforme =200
end_sub
rem ==============================
jeudi 31 octobre 2013
Adresse du site : panoramic-language.pagesperso-orange.fr/index.html
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
http://panoramic.free-boards.net/
Le nouveau site est en place à l' adresse officiel :
http://panoramiclemag.magix.net/public/index.htm#
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
http://panoramic.free-boards.net/
Le nouveau site est en place à l' adresse officiel :
http://panoramiclemag.magix.net/public/index.htm#
La minute culturelle
Dans la mythologie celtique, Arduinna (Arduena, Arduina, Arduenna, Ardvinna, Ardbinna, Ardoina)
est une divinité celte topique de la faune. Elle est devenue une déesse gallo-romaine, de la chasse et des bois, protectrice de la forêt d'Ardenne parfois assimilée à Artémis/Diane sous le nom de Diana Arduinna.
très présent dans les régions voisines des Ardennes et chez les peuples belges. L'un de ses sanctuaires les plus célèbres était
le Mont Saint-Walfroy, entre Margut et Sedan.
Wikipédia encyclopédie libre
Dans la mythologie celtique, Arduinna (Arduena, Arduina, Arduenna, Ardvinna, Ardbinna, Ardoina)
est une divinité celte topique de la faune. Elle est devenue une déesse gallo-romaine, de la chasse et des bois, protectrice de la forêt d'Ardenne parfois assimilée à Artémis/Diane sous le nom de Diana Arduinna.
très présent dans les régions voisines des Ardennes et chez les peuples belges. L'un de ses sanctuaires les plus célèbres était
Wikipédia encyclopédie libre
mercredi 30 octobre 2013
Bonjour a tous
Avec la carte Arduino Uno et un Module Capteur de température analogique linéaire LM35.
Le programme Panoramic ce décompose en trois parties
Température_ambiante.bas et en #include "Afficheur.bas" et "com_serie.bas"
la DLL_Panoramic\IO_Acces_COM.dll : paramétrage du port série suivant configuration
Code: Panoramic
' Température ambiante avec include
error_french
label err
on_error_goto err
width 0,1000:height 0,600:color 0,160,120,60
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
dim temp_cel$
temp_cel$ ="00.00"
label Afficheur,sp_com,sp_fin
gosub Afficheur
gosub sp_com
button 5:top 5,510:left 5,850:caption 5,"F I N"
on_click 5,sp_fin
on_close 0,sp_fin
' ======
end
' ======
#include "Afficheur.bas"
#include "com_serie.bas"
' =====FIN========
sp_fin:
timer_off 15:pause 40
dll_off:pause 100
terminate:return
' ======Error=======
err:
message "erreur "+str$(error_number)+" "+error_type$+" error_line "+str$( error_line)
terminate :return
' =============
' Afficheur.bas
' ======
Afficheur:
container 9 :top 9,30:left 9,60: width 9,850:height 9,420:color 9,50,50,50
alpha 11:parent 11,9:top 11,1:left 11,10
caption 11,temp_cel$:font_color 11,0,255,0
font_bold 11:font_italic 11 :font_size 11,242
alpha 42:parent 42,9:top 42,310:left 42,220
caption 42,"Température ambiante":font_color 42,255,0,0
font_size 42,30
progress_bar 50:parent 50,9:top 50,370:left 50,20: width 50,800:height 50,30
min 50,0: max 50,40: position 50,val(temp_cel$)
return
' ==================
' com_serie.bas
sp_com:
label sp_15,db_15
dim res%,dat%,donner$,memdonner$,r,rr
timer 15:timer_interval 15,300: timer_on 15
dll_on "C:\DLL_Panoramic\IO_Acces_COM.dll"
rem suivant configuration
r= dll_call1("ComUsePort",8)
rr= dll_call4("ComConfig",115200,8,1,0)
pause 20
if r=1 and rr=1
on_timer 15,sp_15:' Réception
else
message "Défaut du port série"
end_if
return
' ==========
sp_15:
timer_off 15 : pause 2
db_15:
res% = dll_call1("ComGetDataIn",adr(dat%)):pause 10
if res%>0
donner$=donner$+chr$(dat%):goto db_15
end_if
if memdonner$ <> donner$
temp_cel$=donner$
caption 11,temp_cel$
temp_cel$=left$(temp_cel$, 2)
position 50,val(temp_cel$)
end_if
donner$="":timer_on 15:retur
code arduino Code:
/*
http://www.matbra.com/en/2012/09/23/sensor-de-temperatura-com-arduino-e-lm35-arduino-lm35/
Nom: Matheus Bratfisch
Date de naissance: 08/12/1989
Sexe: Masculin
Capteur_température_Arduino_LM35
Le capteur LM35 est un capteur de température , il sera variable aléatoire 10mV/Celsius . Il broches peut être vu sur l'image (attention , c'est un regard en bas)
LM35 Pins
Donc, pour le connecter à Arduino, vous devez vous connecter VCC pour Arduino 5V , GND à GND Arduino , et l'axe du milieu, vous devez vous connecter à une broche analogique , dans mon cas, j'ai utilisé A0.
Ce projet ne nécessite aucune résistance ou un condensateur entre l'Arduino et le capteur , donc suffit de le connecter . L'Arduino ADC a une précision de 10 bits , alors dans ce 5V / 2 cas ^ 10 = 5V / 1024 , de sorte que 0,0049 est notre facteur . Pour obtenir la température en degrés Celsius , nous obtenons la valeur et calcule comme suit:
Température = (broche * 0,0049 ) * 100
Mais pourquoi multiplier par 100 ? PIN * 0,0049 donnera les volts sur le port , si l'on multiplie par 1000 nous aurons millivolts sur le port , le capteur varie 10mV / C nous avons donc besoin de le diviser par 10 pour obtenir la température . En mathématiques multiplier par 1000 et diviser par 10 est le même que celui en multipliant par 100 . Comprendre ? [Ajouter le 12 /12]
Et pour l'avoir sur Fahrenheit , nous avons besoin de faire une conversion
TemperatureF = ( température * 1.8) + 32 .
Le code Arduino que j'ai utilisé est le suivant:
*/
// pour panoramic
http://' n° 201310191640
int analogPin = 0;
int readValue = 0;
float temperature = 0;
float temperatureF = 0;
void setup() {
Serial.begin(115200);
}
void loop() {
readValue = analogRead(analogPin);
//Serial.println(readValue);
temperature = (readValue * 0.0049);
temperature = temperature * 100;
// temperatureF = (temperature * 1.8) + 32;
// Serial.print("Temperature: ");
Serial.println(temperature);
// Serial.println("C ");
// Serial.print(temperatureF);
// Serial.println("F");
delay(2000);
}
Avec la carte Arduino Uno et un Module Capteur de température analogique linéaire LM35.
Le programme Panoramic ce décompose en trois parties
Température_ambiante.bas et en #include "Afficheur.bas" et "com_serie.bas"
la DLL_Panoramic\IO_Acces_COM.dll : paramétrage du port série suivant configuration
Code: Panoramic
' Température ambiante avec include
error_french
label err
on_error_goto err
width 0,1000:height 0,600:color 0,160,120,60
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
dim temp_cel$
temp_cel$ ="00.00"
label Afficheur,sp_com,sp_fin
gosub Afficheur
gosub sp_com
button 5:top 5,510:left 5,850:caption 5,"F I N"
on_click 5,sp_fin
on_close 0,sp_fin
' ======
end
' ======
#include "Afficheur.bas"
#include "com_serie.bas"
' =====FIN========
sp_fin:
timer_off 15:pause 40
dll_off:pause 100
terminate:return
' ======Error=======
err:
message "erreur "+str$(error_number)+" "+error_type$+" error_line "+str$( error_line)
terminate :return
' =============
' Afficheur.bas
' ======
Afficheur:
container 9 :top 9,30:left 9,60: width 9,850:height 9,420:color 9,50,50,50
alpha 11:parent 11,9:top 11,1:left 11,10
caption 11,temp_cel$:font_color 11,0,255,0
font_bold 11:font_italic 11 :font_size 11,242
alpha 42:parent 42,9:top 42,310:left 42,220
caption 42,"Température ambiante":font_color 42,255,0,0
font_size 42,30
progress_bar 50:parent 50,9:top 50,370:left 50,20: width 50,800:height 50,30
min 50,0: max 50,40: position 50,val(temp_cel$)
return
' ==================
' com_serie.bas
sp_com:
label sp_15,db_15
dim res%,dat%,donner$,memdonner$,r,rr
timer 15:timer_interval 15,300: timer_on 15
dll_on "C:\DLL_Panoramic\IO_Acces_COM.dll"
rem suivant configuration
r= dll_call1("ComUsePort",8)
rr= dll_call4("ComConfig",115200,8,1,0)
pause 20
if r=1 and rr=1
on_timer 15,sp_15:' Réception
else
message "Défaut du port série"
end_if
return
' ==========
sp_15:
timer_off 15 : pause 2
db_15:
res% = dll_call1("ComGetDataIn",adr(dat%)):pause 10
if res%>0
donner$=donner$+chr$(dat%):goto db_15
end_if
if memdonner$ <> donner$
temp_cel$=donner$
caption 11,temp_cel$
temp_cel$=left$(temp_cel$, 2)
position 50,val(temp_cel$)
end_if
donner$="":timer_on 15:retur
code arduino Code:
/*
http://www.matbra.com/en/2012/09/23/sensor-de-temperatura-com-arduino-e-lm35-arduino-lm35/
Nom: Matheus Bratfisch
Date de naissance: 08/12/1989
Sexe: Masculin
Capteur_température_Arduino_LM35
Le capteur LM35 est un capteur de température , il sera variable aléatoire 10mV/Celsius . Il broches peut être vu sur l'image (attention , c'est un regard en bas)
LM35 Pins
Donc, pour le connecter à Arduino, vous devez vous connecter VCC pour Arduino 5V , GND à GND Arduino , et l'axe du milieu, vous devez vous connecter à une broche analogique , dans mon cas, j'ai utilisé A0.
Ce projet ne nécessite aucune résistance ou un condensateur entre l'Arduino et le capteur , donc suffit de le connecter . L'Arduino ADC a une précision de 10 bits , alors dans ce 5V / 2 cas ^ 10 = 5V / 1024 , de sorte que 0,0049 est notre facteur . Pour obtenir la température en degrés Celsius , nous obtenons la valeur et calcule comme suit:
Température = (broche * 0,0049 ) * 100
Mais pourquoi multiplier par 100 ? PIN * 0,0049 donnera les volts sur le port , si l'on multiplie par 1000 nous aurons millivolts sur le port , le capteur varie 10mV / C nous avons donc besoin de le diviser par 10 pour obtenir la température . En mathématiques multiplier par 1000 et diviser par 10 est le même que celui en multipliant par 100 . Comprendre ? [Ajouter le 12 /12]
Et pour l'avoir sur Fahrenheit , nous avons besoin de faire une conversion
TemperatureF = ( température * 1.8) + 32 .
Le code Arduino que j'ai utilisé est le suivant:
*/
// pour panoramic
http://' n° 201310191640
int analogPin = 0;
int readValue = 0;
float temperature = 0;
float temperatureF = 0;
void setup() {
Serial.begin(115200);
}
void loop() {
readValue = analogRead(analogPin);
//Serial.println(readValue);
temperature = (readValue * 0.0049);
temperature = temperature * 100;
// temperatureF = (temperature * 1.8) + 32;
// Serial.print("Temperature: ");
Serial.println(temperature);
// Serial.println("C ");
// Serial.print(temperatureF);
// Serial.println("F");
delay(2000);
}
mardi 29 octobre 2013
Inscription à :
Articles (Atom)