Forum Liberty Basic France

Le 21/06/2011 à 18h02

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Reprise du message précédent

normal c'est du LIBERTY BASIC et non du JUST BASIC. ;)
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 21/06/2011 à 19h58

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 238
Ah zut c'est vrai, je ne me rappelais plus que ça ne marchais plus sous JB ...
____________________

MSN Yahoo Web    
Le 22/06/2011 à 09h44

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
hum j'ai un sérieux problème qui risque de me bloquer pendant les vacances...

quand j'ouvre mon programme sur mon Notebook la fenêtre n'est plus du tout pareil !!!! les buttom son décalés, les textes aussi bref un gros bordel >< ! pourtant la fenêtre fait 490x300 et mon Notebook fait 1000x600....
est ce que vous connaissez une commande pour paré ce problème de changement de résolution entre pc ? parce que si moi je fais mon programme avec une résolution 1300 x 800 et que tout va nickel alors que les autres on 1000 x 600 ben il ne pourrons pas utilisé normalement ....

merci a vous c'est très urgent je part demain matin ^^ !
____________________
Yo !

MSN Web    
Le 22/06/2011 à 10h16

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Euh ! pas d'auto-recizing à ma connaissance....! c'est à toi de faire attention à éviter de dépasser 1024x768 qui est peut-être la "plus petite résolution commune" aujourd'hui je pense !

ATTENTION aussi aux fontes que tu utilises : si les utilisateurs n'ont pas celle que tu as choisi sur leur PC, celle par défaut est utilisée et n'aura pas le même résultat à l'écran...

Et même sans ça, les thèmes modifient l'apparence des programmes JB d'un PC à l'autre !!! (les boutons et la largeur de leur texte par exemple)

Bonne vacances :siffle



Edité par cassiope01 Le 22/06/2011 à 19h16
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 22/06/2011 à 13h55

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 238
Regarde RESIZE.bas, ça pourra t'aider =)
____________________

MSN Yahoo Web    
Le 22/06/2011 à 15h11

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
d'accord, Nephthys, RESIZE.bas, qui se trouve ????? :siffle :top :p



Edité par cassiope01 Le 22/06/2011 à 15h11
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 22/06/2011 à 15h53

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
RESIZE.bas ??? c'est quoi ? c'est ou ?^^
____________________
Yo !

MSN Web    
Le 22/06/2011 à 17h50

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 238
Ca se trouve dans le répertoire de LB mais je viens de tester, ça ne marche pas sous JB (encore ><;). Regarde du coté de DisplayWidth et DisplayHeight, et défini la position de tes textes etc. en fonction de ces valeurs ;)
____________________

MSN Yahoo Web    
Le 22/06/2011 à 18h37

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
je viens de touver une solution =) je poste la version 1.1 dans 1h environ =) !

lien :

http://www.megaupload.com/?d=C6TWGPRI



Edité par atomose Le 22/06/2011 à 19h26
____________________
Yo !

MSN Web    
Le 23/06/2011 à 07h54

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Oulahhh... tu ne veux pas partager ton fichier '.bas' :( :( :(
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 23/06/2011 à 11h08

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
euh si c'était juste pour vous montrer ce que ca donne ^^ , voici le code :

A noter que les Windows seven starter son reconnus comme des Vista XD donc si vous avez un Notebook vous excitez pas sur la version seven ;) !
je prend mon avion cyao ;) !

Code TEXT :
[ini]
w7 = 1 : vista = 2 : xp = 3
nomainwin
WindowWidth = 510
WindowHeight = 320
UpperLeftX=int((DisplayWidth-WindowWidth)/8)
UpperLeftY=int((DisplayHeight-WindowHeight)/8)
button #SELF, "Windows Seven", [s], LR, 435, 142
button #SELF, "Windows Vista", [v], LR, 285, 142
button #SELF, " Windows  XP ", [x], LR, 135, 142
statictext #SELF.text, "Quel Système Utilisez vous ?", 170, 50, 175, 20
statictext #SELF.text, "By Alexandre Lomuto", 14, 220, 150, 20
statictext #SELF.text, " Production 2011/2012", 10, 240, 150, 20
statictext #SELF.text, " SELF 1.1 fr", 10, 200, 100, 20
groupbox #SELF, "", 5, 180, 160, 85
groupbox #SELF, "", 20, 100, 470, 60
groupbox #SELF, "", 150, 25, 200, 60
open " " for window_nf as #SELF
print #SELF, "font Times New Roman 10"
#SELF, "trapclose [quitter]"
wait
 
[restart]
close #SELF
goto[ini]
wait
 
[s]
sys = 1
goto[w]
wait
[v]
sys = 2
goto[w]
wait
[x]
sys = 3
goto[w]
wait
 
[w]
close #SELF
textbox #SELF.phone, 20, 80, 440, 25
menu #SELF, "&Menu", "&Retour au choix de l'OS", [restart], "&Aide / À propos de SELF", [aide],"&Quitter", [quitter]
menu #SELF, "&Editeurs de texte", "&BlocNote", [blocnotw], "&WorkPad", [wordpadw], "&Microsoft Word", [wordw], "&Oppen Office", [openoffw]
menu #SELF, "&Multi-médias","VLC Media player", [vlcw],"Windows Media center", [wmcw]
menu #SELF, "&Internet", "&Internet Explorer", [iew],"&Mozilla Firefox", [mozw],"&Messenger", [msnw],"&Skype", [skypw]
menu #SELF, "&Utilitaire","&Calculatrice", [calculw],"&Paint", [paintw],"&Commande", [cmdw],"&Informations Système", [infow]
menu #SELF, "&Entretien","&Ccleaner", [ccleaner],"&Nettoyer votre disque dure", [netw]
statictext #SELF.text, "SELF : Simplicité Efficacité Légèreté Fiabilité", 140, 20, 300, 20
statictext #SELF.text, "Recherche du chemin :", 25, 60, 150, 20
statictext #SELF.text, "By Alexandre Lomuto", 14, 200, 150, 20
statictext #SELF.text, " Production 2011/2012", 10, 220, 150, 15
statictext #SELF.text, " SELF 1.1 fr", 10, 180, 80, 20
statictext #SELF.text, "Avertissement :", 180, 155, 100, 20
statictext #SELF.text, "Si votre fichier est introuvable, changez d'OS ou référez-vous au menu aide.", 180, 173, 280, 60
if sys = 1 then statictext #SELF.text, "Windows Seven", 14, 160, 150, 20
if sys = 2 then statictext #SELF.text, "Windows vista", 14, 160, 150, 20
if sys = 3 then statictext #SELF.text, "Windows XP", 14, 160, 150, 20
groupbox #SELF, "", 5, 145, 160, 95
groupbox #SELF, "", 170, 145, 300, 95
open " " for window_nf as #SELF
print #SELF, "font Times New Roman 9"
#SELF, "trapclose [quitter]"
wait
 
[aide]
close #SELF
statictext #SELF.text, "Menu Aide", 210, 20, 70, 20
statictext #SELF.text, "Tous bugs, crash ou mauvais fonctionnement de l'application peuvent être dû à des chemins erronés de vos logiciels ou à leurs non existence sur votre PC, assurez-vous que vous possédez la totalité des logiciels. Si ce n'est pas le cas alors téléchargez les et installez les par défaut sur votre ordinateur.", 10, 50, 460, 100
statictext #SELF.text, "- Si l'application ne démarre pas (fichier non trouvé), changez d'OS (vérifiez grâce à l'application info. System quel est votre version de Windows) ou vérifiez que vous avez installez le logiciel ciblé.", 10, 130, 460, 50
statictext #SELF.text, "- Si l'application plante (crash) alors relancez la, pensez aussi à télécharger régulièrement les mises à jour qui corrige beaucoup de bugs pouvant provoquer des crashs.", 10, 185, 460, 35
groupbox #SELF, "", 5, 0, 490, 280
button #SELF, "Retour", [w], LR, 360, 25
button #SELF, "À propos de SELF", [blabla], LR, 210, 25
open " " for window_nf as #SELF
print #SELF, "font Times New Roman 9"
#SELF, "trapclose [quitter]"
wait
 
[blabla]
close #SELF
statictext #SELF.text, "À propos de l'application SELF...", 170, 30, 200, 20
statictext #SELF.text, "SELF tous droits réservés*", 10, 80, 200, 20
statictext #SELF.text, "Créé par Mr Lomuto Alexandre en 2011", 10, 100, 200, 20
statictext #SELF.text, "Années de développement : 2011/2012", 10, 120, 200, 20
statictext #SELF.text, "Vous utilisez actuellement la version 1.1 Fr", 10, 140, 300, 20
statictext #SELF.text, "Compatible avec Windows Seven, Vista et XP en 32 et 64 bits", 10, 160, 300, 20
statictext #SELF.text, "Ce logiciel est gratuit et peut être utilisé comme bon vous semble; il est par contre interdit de modifier son code source !", 10, 180, 490, 40
groupbox #SELF, "", 5, 0, 490, 280
button #SELF, "Retour", [aide], LR, 250, 30
open " " for window_nf as #SELF
print #SELF, "font Times New Roman 9"
#SELF, "trapclose [quitter]"
wait
 
[wordpadw]
dir$ = "C:\Program Files"
file$ = "Windows NT\Accessories\wordpad.exe"
gosub[files]
wait
[wordw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "Microsoft Office\Office14\WINWORD.exe"
gosub[files]
wait
[skypw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "Skype\Phone\Skype.exe"
gosub[files]
wait
[infow]
dir$ = "C:\Windows"
file$ = "system32\msinfo32.exe"
gosub[files]
wait
[netw]
dir$ = "C:\Windows"
file$ = "system32\cleanmgr.exe"
gosub[files]
wait
[blocnotw]
dir$ = "C:\Windows"
file$ = "notepad.exe"
gosub[files]
wait
[paintw]
dir$ = "C:\Windows"
file$ = "System32\mspaint.exe"
gosub[files]
wait
[cmdw]
dir$ = "C:\Windows"
file$ = "System32\cmd.exe"
gosub[files]
wait
[calculw]
dir$ = "C:\Windows"
file$ = "System32\calc.exe"
gosub[files]
wait
[openoffw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "OpenOffice.org 3\program\soffice.exe"
gosub[files]
wait
[vlcw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "VideoLAN\VLC\vlc.exe"
gosub[files]
wait
[wmcw]
dir$ = "C:\Program Files"
file$ = "Windows Media Player\wmplayer.exe"
gosub[files]
wait
[msnw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "Windows Live\Messenger\msnmsgr.exe"
gosub[files]
wait
[iew]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "Internet Explorer\iexplore.exe"
gosub[files]
wait
[mozw]
if sys = 2 or 3 then dir$ = "C:\Program Files"
if sys = 1 then dir$ = "C:\Program Files (x86)"
file$ = "Mozilla Firefox\firefox.exe"
gosub[files]
wait
[ccleaner]
dir$ = "C:\Program Files"
if sys = 2 or 3 then file$ = "CCleaner\CCleaner32.exe"
if sys = 1 then file$ = "CCleaner\CCleaner64.exe"
gosub[files]
wait
 
[quitter]
confirm "Voulez vous Quittez l'application SELF ?"; quit$
if quit$ = "no" then wait
close #SELF
end
 
[files]
if fileExist(dir$,file$) = 1 then
    print #SELF.phone, dir$;"\";file$;" Trouvé !"
        run dir$;"\";file$
else
    print #SELF.phone,"Le fichier ";dir$;"\";file$;" n'existe pas"
            wait
end if
wait
 
function fileExist(dir$,file$)
    dim info$(10, 10)
    files dir$,file$, info$(
    if val(info$(0, 0)) > 0 then
        fileExist = 1
    else
        fileExist = 0
    end if
end function
wait
 
 
 
____________________
Yo !

MSN Web    
Le 23/06/2011 à 13h18

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Je sens bien que tu n'aimes pas trop les variables tableau encore :) :lol :siffle
Je verrai bien une petite simplification pourtant : de quoi supprimer presque tous les 'if'...
tu pourrais déclarer une variable tableau dir$(3) par exemple (pas forcement besoin de l'écrire tant qu'il n'y en a pas plus de 10...)
puis : dir$(1) = "C:\Program Files"
dir$(2) = "C:\Program Files"
dir$(3) = "C:\Program Files (x86)"
dir$(4) = "C:\WINDOWS"

puis quand tu en as besoin tu peux utiliser la variable 'sys' avec :
dir$ = dir$(sys) ou bien directement dir$(sys)

Tu n'as pas trouvé un moyen de détecter automatiquement l'OS sur lequel tu lances le prog ?

Tu as choisis de programmer en 'dur' c'est à dire en toute lettre dans le programme, toutes les applis que tu peux lancer, donc l'utilisateur ne peut pas enregistrer lui-même une application de son choix ?

Ce serait bien pourtant ! ;) :clap



Edité par cassiope01 Le 23/06/2011 à 15h29
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 21/07/2011 à 13h24

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
voici une nouvelle version qui annonce énormément de changement =) :

-refonte de l'interface pour une plus grande facilité d'utilisation (tester sur Notebook uniquement donc possible déplacement des éléments sur une résolution supérieur a 1200x600 )
-ajout d'icone pour chaque programmes
-OS de l'ordinateur reconnus automatiquement.
-Ajout de pas mal d'application (dont 4 jeux) au total environ 8-10.
-correction de plusieurs bugs, fautes de frappes et stabilité du système.

lien de téléchargement :
http://www.megaupload.com/?d=2GGG2WT7

prochaine version en cours de réalisation :
-ajout de nouvelles applications, options avancés : l'ajout a volonté de nouveaux programmes =).

je vais bronzer tchao :lu
____________________
Yo !

MSN Web    
Le 21/07/2011 à 13h26

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
voici le code source de la version 1.3 mais sans les icones (besoin que du fichier .bas pour que ca marche) :

Code TEXT :
[ini]
w7 = 1 : vistaXP = 2
nomainwin
WindowWidth = 510 : WindowHeight = 350
UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
dir$ = "C:\Program Files (x86)" : file$ = "Internet Explorer\iexplore.exe"
if fileExist(dir$,file$) = 1 then
    goto[s]
else
    goto[v]
end if
wait
 
[s]
sys = 1
goto[ws]
wait
[v]
sys = 2
goto[ws]
wait
[ws]
open " " for window_nf as #SELF
goto[w]
wait
 
[w]
close #SELF
textbox #SELF.phone1, 20, 80, 440, 25
textbox #SELF.phone, 20, 130, 200, 25
menu #SELF, "&Menu", "&Aide / À propos de SELF", [aide],"&Quitter", [quitter]
menu #SELF, "&Editeurs de texte", "&BlocNote", [blocnotw], "&WorkPad", [wordpadw], "&Microsoft Word", [wordw], "&Oppen Office", [openoffw]
menu #SELF, "&Multi-médias","VLC Media player", [vlcw],"Windows Media center", [wmcw], "QuickTime Player", [quicktimew], "iTunes", [itunesw]
menu #SELF, "&Internet", "&Internet Explorer", [iew],"&Mozilla Firefox", [mozw],"&Messenger", [msnw],"&Skype", [skypew]
menu #SELF, "&Utilitaire","&Paint", [paintw],"&Calculatrice", [calculw],"&Commande", [cmdw],"&Informations Système", [infow], "&Magnetophone", [magnetow]
menu #SELF, "&Entretien","&Defragmenter votre disque dur", [defragw],"&Nettoyer votre disque dure", [netw]
statictext #SELF.text, "SELF : Simplicité Efficacité Légèreté Fiabilité", 140, 20, 300, 20
statictext #SELF.text, "Recherche du chemin :", 25, 60, 150, 20
statictext #SELF.text, "Avez vous ce fichier :", 25, 110, 150, 20
statictext #SELF.text, "By Alexandre Lomuto", 14, 210, 150, 20
statictext #SELF.text, " Production 2011/2012", 10, 230, 150, 15
statictext #SELF.text, " SELF L1.0 fr", 10, 190, 120, 20
statictext #SELF.text, "Avertissement :", 180, 170, 100, 20
statictext #SELF.text, "Si votre fichier est introuvable, référez-vous au menu aide.", 180, 190, 280, 60
if sys = 1 then statictext #SELF.text, "Windows Seven", 14, 170, 150, 20
if sys = 2 then statictext #SELF.text, "Windows Vista Ou XP", 14, 170, 150, 20
groupbox #SELF, "", 170, 155, 300, 95
gosub[open]
wait
 
[aide]
close #SELF
statictext #SELF.text, "Menu Aide", 210, 20, 70, 20
statictext #SELF.text, "Tous bugs, crash ou mauvais fonctionnement de l'application peuvent être dû à des chemins erronés de vos logiciels ou à leurs non existence sur votre PC, assurez-vous que vous possédez la totalité des logiciels. Si ce n'est pas le cas alors téléchargez les et installez les par défaut sur votre ordinateur.", 10, 50, 460, 100
statictext #SELF.text, "- Si l'application ne démarre pas (Erreur de lecture), vérifiez que vous avez installez le logiciel ciblé. Si ce nest pas le cas télécharger puis instalez le dans le repertoire ''Progam Files''", 10, 130, 460, 50
statictext #SELF.text, "- Si l'application plante (crash) alors relancez SELF. Pensez à télécharger régulièrement les mises à jour qui de apportent de nouvelles options et corrigent certains bugs.", 10, 185, 460, 35
groupbox #SELF, "", 5, 0, 490, 300
button #SELF, "Retour", [w], LR, 360, 25
button #SELF, "À propos de SELF", [blabla], LR, 210, 25
gosub[open]
wait
 
[blabla]
close #SELF
statictext #SELF.text, "À propos de l'application SELF...", 170, 30, 200, 20
statictext #SELF.text, "SELF tous droits réservés*", 10, 80, 200, 20
statictext #SELF.text, "Créé par Mr Lomuto Alexandre en 2011", 10, 100, 200, 20
statictext #SELF.text, "Années de développement : 2011/2012", 10, 120, 200, 20
statictext #SELF.text, "Vous utilisez actuellement la version L1.0 Fr", 10, 140, 300, 20
statictext #SELF.text, "Compatible avec Windows Seven,''Starter'', Vista et XP en 32 et 64 bits.", 10, 160, 430, 20
statictext #SELF.text, "Ce logiciel est gratuit et peut être utilisé comme bon vous semble; il est par contre interdit de modifier son code source ! Pour plus d'information lisez le fichier ''licence''.", 10, 180, 480, 60
groupbox #SELF, "", 5, 0, 490, 300
button #SELF, "Retour", [aide], LR, 250, 30
gosub[open]
wait
 
[wordpadw]
dir$ = "C:\Program Files" : file$ = "Windows NT\Accessories\wordpad.exe"
gosub[files]
wait
[wordw]
file$ = "Microsoft Office\Office14\WINWORD.exe"
gosub[sys]
gosub[files]
wait
[skypew]
file$ = "Skype\Phone\Skype.exe"
gosub[sys]
gosub[files]
wait
[infow]
dir$ = "C:\Windows" : file$ = "system32\msinfo32.exe"
gosub[files]
wait
[netw]
dir$ = "C:\Windows" : file$ = "system32\cleanmgr.exe"
gosub[files]
wait
[blocnotw]
dir$ = "C:\Windows" : file$ = "notepad.exe"
gosub[files]
wait
[paintw]
dir$ = "C:\Windows" : file$ = "System32\mspaint.exe"
gosub[files]
wait
[cmdw]
dir$ = "C:\Windows" : file$ = "System32\cmd.exe"
gosub[files]
wait
[calculw]
dir$ = "C:\Windows" : file$ = "System32\calc.exe"
gosub[files]
wait
[openoffw]
file$ = "OpenOffice.org 3\program\soffice.exe"
gosub[sys]
gosub[files]
wait
[vlcw]
file$ = "VideoLAN\VLC\vlc.exe"
gosub[sys]
gosub[files]
wait
[wmcw]
dir$ = "C:\Program Files" : file$ = "Windows Media Player\wmplayer.exe"
gosub[files]
wait
[msnw]
file$ = "Windows Live\Messenger\msnmsgr.exe"
gosub[sys]
gosub[files]
wait
[iew]
file$ = "Internet Explorer\iexplore.exe"
gosub[sys]
gosub[files]
wait
[mozw]
file$ = "Mozilla Firefox\firefox.exe"
gosub[sys]
gosub[files]
wait
[ccleaner]
file$ = "CCleaner\CCleaner.exe"
gosub[sys]
gosub[files]
wait
[itunesw]
file$ = "iTunes\iTunes.exe"
gosub[sys]
gosub[files]
wait
[quicktimew]
file$ = "QuickTime\QuickTimePlayer.exe"
gosub[sys]
gosub[files]
wait
[Mine]
file$ = "Microsoft Games\MineSweeper\MineSweeper.exe"
gosub[sys]
gosub[files]
wait
[Solit]
file$ = "Microsoft Games\Solitaire\Solitaire.exe"
gosub[sys]
gosub[files]
wait
[purbleplace]
file$ = "Microsoft Games\Purble Place\PurblePlace.exe"
gosub[sys]
gosub[files]
wait
[freecellw]
file$ = "Microsoft Games\FreeCell\Freecell.exe"
gosub[sys]
gosub[files]
wait
[magnetow]
dir$ = "C:\Windows" : file$ = "System32\SoundRecorder.exe"
gosub[files]
wait
[defragw]
dir$ = "C:\Windows" : file$ = "System32\dfrgui.exe"
gosub[files]
wait
 
[quitter]
confirm "Voulez vous Quittez l'application SELF ?"; quit$
if quit$ = "no" then wait
close #SELF
end
 
[files]
if fileExist(dir$,file$) = 1 then
    print #SELF.phone1, dir$;"\";file$
    print #SELF.phone, "Fichier trouvé, éxécution en cours... !"
        run dir$;"\";file$
else
    print #SELF.phone1, dir$;"\";file$
    print #SELF.phone, "Fichier introuvable..."
        notice "Erreur de lecture (Voir Menu aide)"
        wait
end if
wait
 
function fileExist(dir$,file$)
    dim info$(10, 10)
    files dir$,file$, info$(
    if val(info$(0, 0)) > 0 then
        fileExist = 1
    else
        fileExist = 0
    end if
end function
wait
 
[sys]
if sys = 1 then dir$ = "C:\Program Files (x86)"
if sys = 2 then dir$ = "C:\Program Files"
return
[open]
open " " for window_nf as #SELF
print #SELF, "font Times New Roman 9"
#SELF, "trapclose [quitter]"
return
 
____________________
Yo !

MSN Web    
Le 24/07/2011 à 18h08

Administrateur

Groupe: Administrateur

Inscrit le: 25/09/2010
Messages: 361
Bravo, tu avance bien.

Mais je comprends pas trop comment tu fonctionne :p
Tu fait ça :
Code VB :
if fileExist(dir$,file$) = 1 then
    goto[s]
else
    goto[v]
end if
wait
 
[s]
sys = 1
goto[ws]
wait
[v]
sys = 2
goto[ws]
wait
[ws]
open " " for window_nf as #SELF
goto[w]
wait
 
[w]
close #SELF
textbox #SELF.phone1, 20, 80, 440, 25


Déjà, ça fait beaucoup de Goto inutile,et trop de Goto tue le Goto. Ca fait un code avec plein de trous qui est du impossible de lire facilement. Rien que le teste automatique du système. Il faut ce penché dessus pour voir que le If sert finalement juste la variable sus à 1 ou à 2.
En plus, il y a des Wait complètement inutile. Un Wait juste après un Goto ne sert a rien puisque le programme ne pourrais jamais aller sur la ligne suivante du Goto car il est déjà parti continuer après l'étiquette que le Goto donnait.
Tu pourrais déjà, rien que pour le début, faire :

Code VB :
if fileExist(dir$,file$) = 1 then
    sys = 1
else
    sys = 2
end if
 
open " " for window_nf as #SELF
[w]
close #SELF
 
textbox #SELF.phone1, 20, 80, 440, 25


Ça fait un code de 20 lignes qui se transforme en un code de 8 lignes !

De plus, j'ai remarqué que toutes tes fenêtres s'appelaient #SELF. Tu sais que tu peux mettre un autre nom ?
En plus, tu gères mal tes fenêtres, en effet, faire une Sub juste pour ouvrir la fenêtre, non. Pas utile, ton code deviens encore plus illisible.
Et puis fermer la fenêtre au moment où tu ouvres l'autre (le close #SELF après le [w]), c'est super étrange. Car du coups, tu dois avoir forcément une fenêtre ouverte , même avant d’ouvrir la première fenêtre (chercher l'erreur ...). Je comprends bien que c'est pour ça que tu as mis le open " " for window_nf as #SELF, mais quand même, c'est super tordu, et source d'erreur.

Ca te conduit donc à repenser une bonne partie de ton code. La logique serrait que chaque fenêtre soit indépendante.
Tu auras donc les fenêtres #SELF, #AIDE et #APROPOS.
Du coups, il faut écrire une routine de fermeture pour chacune. Mais du coups, plusieurs fenêtre pourrons être ouverte en même temps. En effet, à tu déjà vu un programme dont la fenêtre principale se ferme quand tu ouvre l'aide ou l'A propos ?

Toutes ces modifications vont peut-être rallonger ton programme (ce qui n'est même pas sûr), mais surtout, elles vont le rendre plus claire, c'est ça, le secret d'un programme stable, la clarté du code. Si le code est claire, on vois plus facilement les erreurs et où il pourrait y avoir un problème.


Voila, j'avais envi de poser mon pavé :p
Mais souvient toi, c'est pas pour te décourager que je dis ça, c'est pour t'aide à codé plus efficacement (de mon point de vu).

Voila.
Cordialement
Jagang
____________________
J'ai toujours raison ! Sauf quand j'ai tort ...

Web    
Le 25/07/2011 à 18h10

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Je crois bien qu'il fonctionne dans un mode très chronologique : d'abord des vacances, puis des vacances, et ensuite quelques vacances. ;)

C'est donc pareil pour sa programmation... :siffle 8-) :p

@+



Edité par cassiope01 Le 25/07/2011 à 18h16
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 29/07/2011 à 23h06

Administrateur

Groupe: Administrateur

Inscrit le: 25/09/2010
Messages: 361
Lol +1
____________________
J'ai toujours raison ! Sauf quand j'ai tort ...

Web    
Le 02/08/2011 à 16h26

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 341
comment t'as deviné o_o !!?!!
____________________
Yo !

MSN Web    

 |  |

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