Forum Liberty Basic France
• Index
Salut général,
Voici aujourd'hui une pratique de fainéant; ou d'impatient.
Code VB :
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
Roro
superbe initiative
!!

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