Forum Liberty Basic France

Subs et Snippets » Pour les débutants Codage rapide
Le 25/11/2014 à 12h01

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1844
Salut général,
Voici aujourd'hui une pratique de fainéant; ou d'impatient.

Code VB :
 
 
 
     ' NOMAINWIN ' Empêche l'ouverture de la console
     ' UpperLeftX=INT((DisplayWidth-WindowWidth)/2) ' Placement relatif de la fenêtre
     ' UpperLeftY=INT((DisplayHeight-WindowHeight)/2) ' Absolu --> UpperLeftY=100
     ' WindowWidth = 250 ' Largeur
     ' WindowHeight = 100 ' Hauteur
     ' BackgroundColor$ = "darkblue" ' "123 145 221" <--RGB
     ' ForegroundColor$ = "lightgray"
     ' TextboxColor$ = "yellow"
     '--- Les Controles ----
     ' STATICTEXT #w.t, "Type", 500, 5, 50, 15
     ' TEXTBOX #w.entr, 20 , 180, 50, 25
     ' BUTTON #w.go, "Go !", [go], UL, 10, 10, 40, 20 ' bouton (UL <--Upper Left (point de ref en haut à gauche)
     ' TEXTEDITOR #w.te, 430, 50, 180, 230
     ' LISTBOX #w.ext,  array$(), [event], 150, 50, 180, 230
       ' #w.ext, "select string" ' Sélectionne le même élément que "string"
       ' #w.ext, "select "; string$ ' Extrait la chaine
       ' #w.ext, "selectindex i"  'Selectionne un element à la position de l'index
       ' #w.ext, "selectindex "; i ' Index en variable
       ' #w.ext, "selection? selected$" ' place la chaîne de l'élément actuellement sélectionné dans $
       ' #w.ext, "selectionindex? index"   'extrait l'index sélectionné
       ' #w.ext, "font times_new_roman 10"
       ' #w.ext, "singleclickselect"
       ' #w.ext, "enable"
       ' #w.ext, "setfocus"
     ' COMBOBOX #w.ext, array$(), [event], xPos, yPos, wide, high ' listbox déroulante
     ' GRAPHICBOX #w.m 0, 0, 280, 460
     ' MENU #w, "title", "text", [branchLabel], "text2", [branchLabel2]
     ' OPEN "Help" FOR window_nf AS #w
     ' #w, "TRAPCLOSE [quit]"
     '----------
     ' LOADBMP "lefond", "fond.bmp"
     ' #w.ext, "DRAWBMP lefond 5 10"
     ' DIM info$(10,10)
     '----------------
     ' c$ = "Première ligne" + chr$(13) 'Confirmation  multiligne
     ' c$ = c$ + "Deuxième ligne" + chr$(13)
     ' c$ = c$ + "Troisième ligne" + chr$(13)
     ' CONFIRM c$; reponse$
     '------
     ' NOTICE "Le fichier est sauvé"
     '------
     ' nombr = int(rnd(1)*10) + 1 ' Génération nombre aléatoire
     ' #w.ext, "place ";xx;" ";yy ' Placement par variables dans graphicbox
     ' #w.ext, "!contents? var$" ' Extraction de textbox
     ' #w.ext, str$(var) ' Affichage de variable dans textbox
     ' open "test.txt" for output as #f 'Ouverture/création fichier en écriture
       ' print #f, lesdonnées$ <-- Chaines uniquement
       ' close #f
     ' open "test.txt" for input as #g 'Ouverture fichier en lecture
       ' while eof(#g)=0
       ' line input #g, lesdonnées$
       ' variable = val(lesdonnées$) ' Chaine --> Variable
       ' wend
       ' close #g
     ' UNLOADBMP "lefond"
     ' CLOSE  #w: END
  '---------------------------------- Help -------------------------
     NOMAINWIN
    WindowWidth = 280
    WindowHeight = 460
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    GRAPHICBOX #w.m 0, 0, 280, 460
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m , "down"
    'wait
  [p1]
    #w.m , "fill blue; color yellow; backcolor blue"
    #w.m , "PLACE 10, 20": #w.m, "\- Le but: "
    #w.m , "PLACE 10, 40": #w.m, "\ Au lieu de taper le code au clavier"
    #w.m , "PLACE 10, 60": #w.m, "\ Deux solutions:"
    #w.m , "PLACE 10, 80": #w.m, "\-A): Ouvrir un deuxième éditeur"
    #w.m , "PLACE 10, 100": #w.m, "\ Et y coller les lignes ou parties"
    #w.m , "PLACE 10, 120": #w.m, "\ De lignes dont on a besoin  "
    #w.m , "PLACE 10, 140": #w.m, "\ Que l'on copie dans celui-ci."
    #w.m , "PLACE 10, 160": #w.m, "\ ------ "
    #w.m , "PLACE 10, 180": #w.m, "\-B): Copier coller directement"
    #w.m , "PLACE 10, 200": #w.m, "\ dans le même editeur, celui-ci "
    #w.m , "PLACE 10, 220": #w.m, "\ ....."
    #w.m , "PLACE 10, 240": #w.m, "\ - Donner des ext différentes"
    #w.m , "PLACE 10, 260": #w.m, "\ à chaque contrôle"
    #w.m , "PLACE 10, 280": #w.m, "\ Evidemment on peut enrichir"
    #w.m , "PLACE 10, 300": #w.m, "\ La liste, ou la spécialiser."
    #w.m , "PLACE 10, 320": #w.m, "\   (graphiques, math...ext)."
    #w.m , "PLACE 10, 340": #w.m, "\"
    #w.m , "PLACE 10, 360": #w.m, "\"
    #w.m , "PLACE 10, 380": #w.m, "\"
    '-------------
  wait
  [closeHelp]
    CLOSE  #w
    END
 
 
 
____________________
Roro

   
Le 18/12/2014 à 13h49

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 379
superbe initiative ;) !!
____________________
Yo !

MSN Web    
Subs et Snippets » Pour les débutants Codage rapide  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie