robotique et Panoramic

[size=14][font=Times New Roman][url=http://www.mydrive.ch/][img]http://nardo26.lescigales.org/images/webdav.png[/img][/url]  [color=blue]username :[/color][color=red]panoramic@ygeronimi [/color][color=blue]password :[/color][color=red] panoramic123[/color][/font][/size]

rem " simulation de sortie com parallele"
dim a%,b%,c%,d%,e%,f%,g%,h%
a%=0
b%=0
c%=0
d%=0
e%=0
f%=0
g%=0
h%=0
dim OUT888%
OUT888%=0
label sortie1
label sortie2
label sortie3
label sortie4
label sortie5
label sortie6
label sortie7
label sortie8
label convbinaire
picture 1
left 1,15
top 1,170
picture 2
left 2,55
top 2,170
picture 3
left 3,95
top 3,170
picture 4
left 4,135
top 4,170
picture 5
left 5,175
top 5,170
picture 6
left 6,215
top 6,170
picture 7
left 7,255
top 7,170
picture 8
left 8,295
top 8,170

button 11
top 11,100
left 11,10
width 11,30
height 11,30
caption 11,A
on_click 11,sortie1
button 12
top 12,100
left 12,50
width 12,30
height 12,30
caption 12,B
on_click 12,sortie2
button 13
top 13,100
left 13,90
width 13,30
height 13,30
caption 13,C
on_click 13,sortie3
button 14
top 14,100
left 14,130
width 14,30
height 14,30
caption 14,D
on_click 14,sortie4
button 15
top 15,100
left 15,170
width 15,30
height 15,30
caption 15,E
on_click 15,sortie5
button 16
top 16,100
left 16,210
width 16,30
height 16,30
caption 16,F
on_click 16,sortie6
button 17
top 17,100
left 17,250
width 17,30
height 17,30
caption 17,G
on_click 17,sortie7
button 18
top 18,100
left 18,290
width 18,30
height 18,30
caption 18,H
button 100
top 100,300
left 100,50
caption 100,DONC
on_click 100,convbinaire
on_click 18,sortie8
print_locate 20,70
print a%
print_locate 60,70
print b%
print_locate 100,70
print c%
print_locate 140,70
print d%
print_locate 180,70
print e%
print_locate 220,70
print f%
print_locate 260,70
print g%
print_locate 300,70
print h%

file_load 1,"off.bmp"
file_load 2,"off.bmp"
file_load 3,"off.bmp"
file_load 4,"off.bmp"
file_load 5,"off.bmp"
file_load 6,"off.bmp"
file_load 7,"off.bmp"
file_load 8,"off.bmp"
print_locate 200,20
print "Allume les lampes que tu souhaite"
print_locate 200,280
print "click pour voir le code"
end


sortie1:
a%=a%+1
a%= odd (a%)
print_locate 20,70
print a%
if a%=1
 file_load 1,"on.bmp"
 else
 file_load 1,"off.bmp"
end_if
return
sortie2:
b%=b%+1
b%=odd (b%)
print_locate 60,70
print b%
if b%=1
 file_load 2,"on.bmp"
 else
 file_load 2,"off.bmp"
end_if
return
sortie3:
c%=c%+1
c%=odd (c%)
print_locate 100,70
print c%
if c%=1
 file_load 3,"on.bmp"
 else
 file_load 3,"off.bmp"
end_if
return
sortie4:
d%=d%+1
d%=odd (d%)
print_locate 140,70
print d%
if d%=1
file_load 4,"on.bmp"
else
file_load 4,"off.bmp"
end_if
return
sortie5:
e%=e%+1
e%=odd (e%)
print_locate 180,70
print e%
if e%=1
 file_load 5,"on.bmp"
 else
 file_load 5,"off.bmp"
end_if
return
sortie6:
f%=f%+1
f%=odd (f%)
print_locate 220,70
print f%
if f%=1
 file_load 6,"on.bmp"
 else
 file_load 6,"off.bmp"
end_if
return
sortie7:
g%=g%+1
g%=odd (g%)
print_locate 260,70
print g%
if g%=1
 file_load 7,"on.bmp"
 else
 file_load 7,"off.bmp"
end_if
return
sortie8:
h%=h%+1
h%=odd (h%)
print_locate 300,70
print h%
if h%=1
 file_load 8,"on.bmp"
 else
 file_load 8,"off.bmp"
end_if
return
convbinaire:
out888% =(1*a%)+(2*b%)+(4*c%)+(8*d%)+(16*e%)+(32*f%)+(64*g%)+(128*h%)
print_locate 150,300
print "la commande sera: PARALLEL_OUT 888,                "
print_locate 150,300
print "la commande sera: PARALLEL_OUT 888,"+str$( out888% )
return