PANORAMIC V 0.9.24 est disponible

rem ' Traducteur Français-Martien
  dim i , i$ : rem Variables provisoires
  dim a$ : rem Contenu de la zone du haut
  dim z$ : rem Contenu de la zone du bas (traduction)
  label choix , coller, copier, effacer , traduire , zquitter

rem form0
  width 0,1190
  height 0,305
  caption 0,"TRADUCTEUR AUTOMATIQUE FRANCAIS-MARTIEN"
 
option 1 : rem Choix de traduire du français en martien
  left 1,20
  top 1,10
  width 1,200
  caption 1,"Traduire du français en martien"
  mark_on 1
  on_click 1,choix
 
option 2 : rem Choix de traduite du martien en français
  left 2,20
  top 2,30
  width 2,200
  caption 2,"Traduire du martien en français"
  on_click 2,choix
 
alpha 3 : rem Affichage du choix de traduction effectué
  left 3,40
  top 3,60
  font_bold 3
  font_size 3,14
 
alpha 4 : rem Affichage de l`invite à entrer la phrase à traduire
  left 4,40
  top 4,90
 
alpha 5 : rem Affichage de l`indication de traduction
  left 5,40
  top 5,170
 
memo 6 : rem Zone de texte pour la phrase à traduite
  left 6,40
  top 6,105
  width 6,1000
  height 6,50
  set_focus 6
 
memo 7 : rem Zone de texte pour la traduction
  left 7,40
  top 7,185
  width 7,1000
  height 7,50
 
button 8 : rem Bouton traduire
  left 8,950
  top 8,10
  width 8,90
  height 8,90
  font_bold 8
  font_size 8,12
  caption 8,"Traduire"
  on_click 8,traduire
 
button 9 : rem Bouton copier
  left 9,1050
  top 9,170
  width 9,90
  height 9,90
  font_bold 9
  font_size 9,12
  caption 9,"Copier"
  on_click 9,copier
 
button 10 : rem Bouton coller
  left 10,1050
  top 10,75
  width 10,90
  height 10,90
  font_bold 10
  font_size 10,12
  caption 10,"Coller"
  on_click 10,coller
 
button 11 : rem bouton effacer
  left 11,850
  top 11,10
  width 11,90
  height 11,90
  font_bold 11
  font_size 11,12
  caption 11,"Effacer"
  on_click 11,effacer
 
button 12 : rem Bouton quitter
  left 12,500
  top 12,10
  width 12,90
  height 12,90
  font_bold 12
  font_size 12,12
  caption 12,"Quitter"
  on_click 12,zquitter
 
gosub choix : rem Choix d`initialisation

end : rem ' Début des routines

choix: : rem Affichage des indications selon le choix des options
  if checked(1)=1
      caption 3,"TRADUCTION DE FRANCAIS EN MARTIEN"
      caption 4,"Votre phrase en français :"
      caption 5,"Le résultat en martien :"
  else
      caption 3,"TRADUCTION DE MARTIEN EN FRANCAIS"
      caption 4,"Votre phrase en martien :"
      caption 5,"Le résultat en français :"
  end_if
return

coller: : rem Coller dans la zone de texte du haut ce qui est dans le clipboard
  clipboard_paste 6
return

copier: : rem Copier dans le clipboard ce qui est dans la zone de texte du bas
  i$=text$(7)
  select_text 7,1,len(i$)
  clipboard_copy 7
return

effacer: : rem Effacer les deux zones de texte
  clear 6
  clear 7
  set_focus 6
return

traduire: : rem Traduire de français en martien ou inversement
  a$=item_read$(6,1)
  if a$<>""
      z$=left$(a$,1)
      for i=len(a$)-1 to 2 step -1
        z$=z$+mid$(a$,i,1)
      next i
      z$=z$+right$(a$,1)
      clear 7
      item_add 7,z$
  end_if
return

zquitter: : rem Quitter le programme
  terminate