Version instantanée 26 septembre 2014 : PANORAMIC V 0.9.26i2

label active0,active1

dim k0%,k1%

k0%=0
k1%=0

height 0,200:width 0,300
alpha 10:top 10,20:left 10,20:caption 10, "Cliquez sur ce FORM"

form 1:left 1,310:height 1,200:width 1,300
alpha 11:parent 11,1:top 11,20:left 11,20

on_activate 0,active0
on_activate 1,active1
end

active0:
k0%=k0%+1
caption 0, "nombre d'activations: "+str$(k0%)
caption 10, ""
caption 11, "Cliquez sur ce FORM"
return

active1:
k1%=k1%+1
caption 1, "nombre d'activations: "+str$(k1%)
caption 10, "Cliquez sur ce FORM"
caption 11, ""
return

label show,click

dim k%

k%=0

button 1:width 1,200:top 1,20:left 1,20:caption 1, "Cliquez pour rendre le FORM invisible"

on_show 0, show
on_click 1, click
end

show:
k%=k%+1
caption 0, "nombre de SHOWs: "+str$(k%)
return

click:
hide 0
wait 1000
show 0
return

dim kk%

kk%=2

print "les 2 lignes suivantes doivent être identiques :"
print ((6.2832/7)*kk%)
print (6.2832/7*kk%)

print "la ligne suivante doit être 30"
print 30/5*5

mail_send "amigo@hotmail.fr","titre","corps du mail"

form 1

form 1:height 1,200:width 1,300

form 1:left 1,400:height 1,200:width 1,300

edit 95 : hide 95 : on_change 95,syneditalert

dim a$, att%, b%, c$, hauteur_ecran%, i%, true%, false%, form_180_creee%, largeur_ecran%, nl%, res%, temporaire$, yy%
c$=string$(255,"m")
true%=1
largeur_ecran%=1440
hauteur_ecran%=900

message_couleur(0,0,c$)
end

sub message_couleur(param1%,param2%,txt$)
    ' oui: res%=1
    ' non: res%=0
    att%=0
    temporaire$=txt$
    b%=b%+1
    message str$(b%)
    if label("pos_clic")=0 then label pos_clic
    if label("pos_clac")=0 then label pos_clac

    if form_180_creee%=false%
       form 180
       memo 821
          else
       show 180
       clear 821
    end_if

    top 180,-500
    border_small 180
    on_close 180,pos_clac

    width 180,text_width(txt$,180)+40

    nl%=1
    for i% = 1 to len(txt$)
        if mid$(txt$,i%,1)=chr$(13) then nl%=nl%+1
    next i%
    height 180,nl%*text_height(txt$,180)+125

    parent 821,180
    full_space 821

    if nl%=1
       item_add 821,txt$
          else
       while true%=1
             yy%=instr(txt$,chr$(13))
             if yy%=0
                if len(txt$)>0 then item_add 821,txt$
                exit_while
             end_if

             item_add 821,left$(txt$,yy%-1)
             txt$=right_pos$(txt$,yy%+1)
       end_while
    end_if

    a$=""
    for i% = 1 to count(821)
        if len(item_read$(821,i%))>len(a$) then a$=item_read$(821,i%)
    next i%
    width 180,text_width(a$,180)+50
    if width(180)<400 then width 180,400
    if height(180)<200 then height 180,200

    left 180,largeur_ecran%/2-width(180)/2
    top 180,hauteur_ecran%/2-height(180)/2

    form_180_creee%=true%

    ' Cacher les boutons de réduction, agrandissement et fermeture.
    hnd%=handle(180)
    res%=dll_call2("SetMinimizeMaximize",hnd%,0)
    res%=dll_call2("SetCloseBox",hnd%,0)

    bar_none 821

    res%=0
    while att%=0
          pause 200
    end_while
exit_sub

pos_clic:
    res%=1

pos_clac:
    att%=1
    hide 180
return

end_sub

 if form_180_creee%=false%

 form_180_creee% = true%

form 180  :  hnd%=handle(180)

DLL_ON …

mail_send "mon_mail@xxx.fr","essai","corps du message"
end

MAIL_DEF,"wlmail.exe"
MAIL_SEND,"mon_mail@xxx.fr","essai","corps du message"
end