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
» bug SEVERE fnc+sub n°3: pb avec variables locales
par silverman Aujourd'hui à 15:08

» Virus/Antivirus
par jjn4 Aujourd'hui à 15:06

» Biomorphe de Pickover
par silverman Aujourd'hui à 13:34

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 23 Sep 2018 - 22:14

» Planétarium virtuel.
par Pedro Alvarez Dim 23 Sep 2018 - 19:50

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub n°2: variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Jeu de mots

Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 8083
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Jeu de mots   Lun 11 Fév 2013 - 3:11

Ca y est, je suis contaminé....

le début d'un jeu de mots:
Code:
Declarations()
Interface()
end
' ------------------------------------------------------------------------------
Sub Declarations()
  Dim Clic%,m$,L$(14),Change%
  Label Clic,Change
End_Sub
' ------------------------------------------------------------------------------
Sub Interface()
  dim_local x%
  O_Form(0,0,1,0,0,300,500,"Jeu de mots")
  O_Main_Menu(1,0)
  O_Sub_Menu(2,1,"Jeu",0)
  O_Sub_Menu(3,2,"Jouer",1)
  O_Sub_Menu(4,2,"Quitter",1)
  for x%=1 to 3 :O_Edit(100+x%,0,1,20,21*x%,0,20):next x%
  for x%=4 to 6 :O_Edit(100+x%,0,1,50,21*(x%-3),0,20):next x%
  for x%=7 to 10 :O_Edit(100+x%,0,1,80,21*(x%-6),0,20):next x%
  for x%=11 to 14 :O_Edit(100+x%,0,1,110,21*(x%-10),0,20):next x%
  for x%=15 to 19 :O_Edit(100+x%,0,1,140,21*(x%-14),0,20):next x%
  for x%=20 to 28 :O_Edit(100+x%,0,1,170,21*(x%-19),0,20):next x%
  for x%=29 to 40 :O_Edit(100+x%,0,1,200,21*(x%-28),0,20):next x%
  for x%=1 to 7:O_Button(200+x%,0,1,20,250+(28*x%),25,25,"",1):next x%
  for x%=8 to 14:O_Button(200+x%,0,1,50,250+(28*(x%-7)),25,25,"",1):next x%
  for x%=201 to 214:inactive x%:next x%
  on_change 103,change : on_change 106,change :on_change 110,change
  on_change 114,change : on_change 119,change :on_change 128,change
  on_change 140,change
End_Sub
' ------------------------------------------------------------------------------
Clic:
  Clic%=Number_click
  if Clic%>200 then Clic%=5
  Select Clic%
      case 3:Jouer()
      case 4:Quitter()
      case 5:Placer()
  End_Select
return
' ------------------------------------------------------------------------------
Change:
  Change% =Number_change
  select Change%
  case 103 : verif(101,103,"F3.txt")
  case 106 : verif(104,106,"F3.txt")
  case 110 : verif(107,110,"F4.txt")
  case 114 : verif(111,114,"F4.txt")
  case 119 : verif(115,119,"F5.txt")
  case 128 : verif(120,128,"F9.txt")
  case 140 : verif(129,140,"F12.txt")
  end_select
return
' ------------------------------------------------------------------------------
Sub Jouer()
  Choix()
  Distribut()
End_Sub
' ------------------------------------------------------------------------------
Sub Choix()
  dim_local c%,cx%
  if object_exists(5)=0 then Dlist 5
  if file_exists("F14.txt")=1 then file_load 5,"F14.txt"
  c%=count(5)
  cx%=rnd(c%)+1
  m$=item_read$(5,cx%)
End_Sub
' ------------------------------------------------------------------------------
Sub Distribut()
  dim_local x%,mot$,c%
  mot$=m$
  for x%=1 to 14
      L$(x%)=left$(mot$,1)
      mot$=right$(mot$,len(mot$)-1)
  next x%
  for x%=1 to 14
      caption 200+x%,L$(x%):active 200+x%
  next x%
End_Sub
' ------------------------------------------------------------------------------
Sub Placer()
  dim_local x%,L$
  for x%=101 to 140
      if text$(x%)=""
        L$=caption$(Number_click)
        text x%,L$
        exit_for
      end_if
  next x%
End_Sub
' ------------------------------------------------------------------------------
Sub Verif(D%,F%,F$)
  dim_local mt$,x%,z%,
  if object_exists(6)=0 then Dlist 6
  clear 6 : z%=0
  file_load 6,F$
  for x%=D% to F% :mt$=mt$+trim$(text$(x%)):next x%
  for x%=1 to count(6)
      if mt$=item_read$(6,x%) then z%=1
  next x%
  if z%=0
      for x%=D% to F% : text x%,"":Next x%
      set_focus D%
  else
      for x%=D% to F% : color x%,0,230,0 :next x%
  end_if
End_Sub
' ------------------------------------------------------------------------------
Sub Quitter()
  Terminate
End_Sub
#include "Objet_Lib.bas"

Je butte un peu sur la vérif qui me sort une erreur lorsque un mot n'est pas valide mais bon...
Si toute fois quelqu'un a une idée d'où ca vient...je prends ! Laughing

la librairie des objets:
Code:
' Objet FORM____________________________________________________________________
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub
' Objet ALPHA___________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet EDIT____________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%)
  EDIT No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet BUTTON__________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
  if Cl%> 0 then on_click No%,Clic
  cursor_point No%
End_Sub
' Objet GRID____________________________________________________________________
Sub O_Grid(No%)
  GRID No%
End_Sub
' Objet CONTAINER_______________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet SCENE3D_________________________________________________________________
Sub O_Scene3D(No%,P%,V%,T%,L%,H%,W%)
  SCENE3D No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%

End_Sub
' Objet MEMO____________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%)
  MEMO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet COMBO___________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%)
  COMBO No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet LIST____________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$)
  LIST No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
End_Sub
' Objet PICTURE_________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
  PICTURE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if P$<>"" then File_load No%,P$
End_Sub
' Objet CHECK___________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
  CHECK No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet OPTION__________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet MAIN_MENU_______________________________________________________________
Sub O_Main_Menu(No%,P%)
  MAIN_MENU No%
  if P% > 0 then Parent No%,P%
End_Sub
' Objet SUB_MENU________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%)
  SUB_MENU No%
  if P% > 0 then Parent No%,P%
  if C$<>"" then Caption No%,C$
  If Cl%=1 then on_click No%,Clic
End_Sub
' Objet SOUND___________________________________________________________________
Sub O_Sound(No%,P%,S$)
  SOUND No%
  If P%>0 then Parent No%,P%
  If S$<>"" then file_load No%,S$
End_Sub
' Objet MOVIE___________________________________________________________________
Sub O_Movie(No%,P%,V%,T%,L%,H%,W%,M$)
  MOVIE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if M$<>"" then file_load No%,M$
End_Sub
' Objet TRACK_BAR_______________________________________________________________
Sub O_Track_Bar(No%,P%,V%,T%,L%,H%,W%)
  TRACK_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet OPEN_DIALOG_____________________________________________________________
Sub O_Open_Dialiog(Out%,Filtre$,O%)
  dim_local No%,F$
  No%=Number_objects+1
  OPEN_DIALOG No%
  if filtre$<>"" then Filter No%,Filtre$
  F$=File_name$(No%)
  if O%=1 then text out%,F$
  if O%=2 then Caption Out%,F$
  if O%=3 then item_add Out%,F$
  if O%=4 then file_load Out%,F$
  Delete No%
End_Sub
' Objet SAVE_DIALOG_____________________________________________________________
' Sub O_Save_Dialog(Filtre$)
'  dim_local No%,F$
'  No%=Number_objects+1
'  SAVE_DIALOG No%
'  if filtre$<>"" then Filter No%,Filtre$
'  F$=file_name$(No%)
' End_Sub
' Objet SCROLL_BAR______________________________________________________________
Sub O_Scroll_Bar(No%,P%,V%,T%,L%,H%,W%)
  SCROLL_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet PROGRESS_BAR____________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet SPIN____________________________________________________________________
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%)
  SPIN No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet DLIST___________________________________________________________________
Sub O_Dlist(No%,F$)
  DLIST No%
  if F$<>"" then file_load No%,F$
End_Sub
' Objet SCENE2D_________________________________________________________________
Sub O_Scene2D(No%,P%,V%,T%,L%,H%,W%)
  SCENE2D No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' Objet TIMER___________________________________________________________________
Sub O_Timer(No%,OO%,Inter%,OT%,T$)
  TIMER No%
  if OO%=1 then timer_on No%
  if OO%=0 then timer_off No%
  if inter%>0 then timer_interval No%,inter%
  if OT%=1
      if T$<>""
        On_timer No%,T$
      end_if
  end_if
End_Sub
' Objet CONTAINER_OPTION________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
  CONTAINER_OPTION No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' Objet IMAGE___________________________________________________________________
Sub O_Image(No%,I$)
  if I$<>"" then file_load No%,I$
End_Sub

Pour les librairies de mots, elles sont sur mon webdav dans le dossier "Jeu de Mots"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Jeu de mots
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Liste des mots-clé de Panoramic avec leur classification
» Quelques mots sur moi
» Les mots arabes d'origine grecque ou latine
» mots de passe pour plusieur personne
» Quelques mots pour me présenter

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: