CyBWarrior - Forum » Sujets récents

CyBWarrior - Forum » Sujets récents http://www.cybwarrior.com/forum/ Une question ? Une réponse. fr-FR Wed, 15 Feb 2012 09:58:26 +0000 http://bbpress.org/?v=1.0.2 <![CDATA[Rechercher]]> q http://www.cybwarrior.com/forum/search.php powerterminale le "loto en qbasic" http://www.cybwarrior.com/forum/topic/loto-en-qbasic-1#post-6343 Ven, 01 Mai 2009 20:30:27 +0000 powerterminale 6343@http://www.cybwarrior.com/forum/ bonjour je vous donne le loto belge et fracais et eurollions programme en qbasic bon amusement ------------------------------------------------------ CLS : COLOR 15, 0 RANDOMIZE TIMER 1 REM LOCATE 2, 2: PRINT "LOTO BELGE LES NUMEROS SONT DE 1 A 42 " LOCATE 4, 2: PRINT "LOTO FANCAIS LES NUMEROS SONT DE 1 A 48" LOCATE 6, 2: PRINT "EUROMOLLIONS LES NUMEROS SONT DE 1 A 63" LOCATE 8, 2: PRINT "MUNERO DE 1 A ?" LOCATE 10, 2: PRINT "LE MUNERO DE BASE ET 1" LOCATE 12, 2: PRINT "LIMITE ET 63" LOCATE 14, 2: PRINT " " LOCATE 14, 2: PRINT "VORDE MUNERO EST "; INPUT a1 IF a1 < 42 THEN a1 = 42 IF a1 > 63 THEN GOTO 1 b1 = 0: DIM a$(a1 + 10), it(10) DATA "01","02","03","04","05","06","07" DATA "08","09","10","11","12","13","14" DATA "15","16","17","18","19","20","21" DATA "22","23","24","25","26","27","28" DATA "29","30","31","32","33","34","35" DATA "36","37","38","39","40","41","42" DATA "43","44","45","46","47","48","49" DATA "50","51","52","53","54","55","56" DATA "57","58","59","60","61","62","63" FOR r1 = 1 TO a1 READ p$: a$(r1) = p$: p$ = "" NEXT r1 PRINT op = 0: b2 = 0 10 REM FOR b1 = 1 + op TO 7 + b2 PRINT a$(b1); " "; NEXT IF H1 = INT(a1 / 7) THEN 20 op = op + 7: b2 = op: H1 = H1 + 1 PRINT GOTO 10 20 PRINT : PRINT PRINT "pouze sur enter"; INPUT q$ CLS FOR nude = 1 TO 7 30 REM re = INT(RND * a1 + 10) - 1 IF re < 1 OR re > a1 THEN 30 IF a$(re) = "00" THEN 30 it(nude) = re: a$(re) = "00" NEXT nude 80 REM z1$ = CHR$(201): z2$ = STRING$(4, 205): z3$ = CHR$(203): z4$ = CHR$(187) z5$ = z2$ + z3$ LOCATE 3, 36: PRINT "JEUX DE LOTO" LOCATE 4, 24: PRINT z1$; z5$; z5$; z5$; z5$; z5$; z5$; z2$; z4$ z6$ = CHR$(186): z7$ = STRING$(4, 32) z8$ = z6$ + z7$ LOCATE 5, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$ LOCATE 5, 27: PRINT "1": LOCATE 5, 32: PRINT "2" LOCATE 5, 37: PRINT "3": LOCATE 5, 42: PRINT "4" LOCATE 5, 47: PRINT "5": LOCATE 5, 52: PRINT "6" LOCATE 5, 57: PRINT "7" LOCATE 5, 63: PRINT "LES BOULES" z9$ = CHR$(204): z10$ = CHR$(206): z11$ = CHR$(185) z12$ = z2$ + z10$ LOCATE 6, 24: PRINT z9$; z12$; z12$; z12$; z12$; z12$; z12$; z2$; z11$ LOCATE 7, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$ LOCATE 7, 65: PRINT "TIRAGE" LOCATE 8, 24: PRINT z9$; z12$; z12$; z12$; z12$; z12$; z12$; z2$; z11$ LOCATE 9, 24: PRINT z8$; z8$; z8$; z8$; z8$; z8$; z8$; z8$ LOCATE 9, 61: PRINT "ORDRE DE TIRAGE" z13$ = CHR$(200): z14$ = CHR$(202): z15$ = CHR$(188) z16$ = z2$ + z14$ LOCATE 10, 24: PRINT z13$; z16$; z16$; z16$; z16$; z16$; z16$; z2$; z15$ 90 REM IF it(1) <= 9 THEN LOCATE 7, 26: PRINT it(1) IF it(1) >= 10 THEN LOCATE 7, 25: PRINT it(1) IF it(2) <= 9 THEN LOCATE 7, 31: PRINT it(2) IF it(2) >= 10 THEN LOCATE 7, 30: PRINT it(2) IF it(3) <= 9 THEN LOCATE 7, 36: PRINT it(3) IF it(3) >= 10 THEN LOCATE 7, 35: PRINT it(3) IF it(4) <= 9 THEN LOCATE 7, 41: PRINT it(4) IF it(4) >= 10 THEN LOCATE 7, 40: PRINT it(4) IF it(5) <= 9 THEN LOCATE 7, 46: PRINT it(5) IF it(5) >= 10 THEN LOCATE 7, 45: PRINT it(5) IF it(6) <= 9 THEN LOCATE 7, 51: PRINT it(6) IF it(6) >= 10 THEN LOCATE 7, 50: PRINT it(6) IF it(7) <= 9 THEN LOCATE 7, 56: PRINT it(7) IF it(7) >= 10 THEN LOCATE 7, 55: PRINT it(7) 100 REM GOSUB bubble REM IF it(1) <= 9 THEN LOCATE 9, 26: PRINT it(1) IF it(1) >= 10 THEN LOCATE 9, 25: PRINT it(1) IF it(2) <= 9 THEN LOCATE 9, 31: PRINT it(2) IF it(2) >= 10 THEN LOCATE 9, 30: PRINT it(2) IF it(3) <= 9 THEN LOCATE 9, 36: PRINT it(3) IF it(3) >= 10 THEN LOCATE 9, 35: PRINT it(3) IF it(4) <= 9 THEN LOCATE 9, 41: PRINT it(4) IF it(4) >= 10 THEN LOCATE 9, 40: PRINT it(4) IF it(5) <= 9 THEN LOCATE 9, 46: PRINT it(5) IF it(5) >= 10 THEN LOCATE 9, 45: PRINT it(5) IF it(6) <= 9 THEN LOCATE 9, 51: PRINT it(6) IF it(6) >= 10 THEN LOCATE 9, 50: PRINT it(6) IF it(7) <= 9 THEN LOCATE 9, 56: PRINT it(7) IF it(7) >= 10 THEN LOCATE 9, 55: PRINT it(7) END bubble: FOR i = 1 TO 7 - 1 FOR j = i + 1 TO 7 IF it(j) < it(i) THEN SWAP it(i), it(j) NEXT j NEXT i RETURN miche le "demandes svp" http://www.cybwarrior.com/forum/topic/demandes-svp-1#post-6342 Mer, 08 Avr 2009 08:24:19 +0000 miche 6342@http://www.cybwarrior.com/forum/ Bjr oui il est sympa votre cours de QBasic mais voilà je me demande ki a fabriqué les instructions et comment ? pour ke ça marche. merci a vous miche. miche le "demandes svp" http://www.cybwarrior.com/forum/topic/demandes-svp#post-6341 Mer, 08 Avr 2009 08:23:45 +0000 miche 6341@http://www.cybwarrior.com/forum/ Bjr oui il est sympa votre cours de QBasic mais voilà je me demande ki a fabriqué les instructions et comment ? pour ke ça marche. merci a vous miche. jeannefrancoise le "distance entre villes" http://www.cybwarrior.com/forum/topic/distance-entre-villes#post-6340 Mer, 17 Déc 2008 08:58:32 +0000 jeannefrancoise 6340@http://www.cybwarrior.com/forum/ Bonjour, Dans le cadre d'une association je crée un site dans lequel il serait utile, à partir d'une demande de noms de communes (nom insee ou partie du nom ou code insee) de connaître la distance entre ces communes. Un plus serait de savoir le nom des communes dans un rayon de x kms. Il n'est pas nécessaire d'avoir une précision extrême. La procédure ou fonction, appelons cela comme on veut, pourrait être appelée par un programme en PHP par exemple et le retour (distance ou noms de communes) devra pouvoir être repris dans le programme appelant pour affichage par exemple. Si cela pouvait se faire gratuitement,ce serait mieux évidemment, mais il faut d'abord se concentrer sur la faisabilité. Je vous remercie. Jeanne-Françoise powerterminale le " de hanoi en qbasic" http://www.cybwarrior.com/forum/topic/de-hanoi-en-qbasic#post-6339 Sam, 20 Sept 2008 01:39:41 +0000 powerterminale 6339@http://www.cybwarrior.com/forum/ jeux de tours hanoi en qbasic 4.5 face a ces tours de hanoi, vous devrez faire preuve de stratégie, de reflexion et beaucoup de patience il s'agit de faire passer sur la tour de droite et le meme orde un certain nombre de disques empilés sur la tour de gauche en vous aidant de la tour du milieu vous pouez choisir le nombre de disques de 3 a 7 petit conseil:il vaut mieux pour nerts commencer par 3 disques CLS : DEFINT A-Z REM TOURS DE HANOI REM COLOR 15, 0 pre1: PRINT INPUT "NOMBER DE DISQUES 3 a 7 "; n IF n < 3 OR n > 7 THEN GOTO pre1 CLS : LOCATE 2, 33: PRINT "TOURS DE HANOI" GOSUB per2 DIM d(3, 7) x(1) = 18: x(2) = 18: x(3) = 18 y(1) = 16: y(2) = 40: y(3) = 64 FOR i = 1 TO 7 IF i <= n THEN d(1, i) = 8 - i NEXT i GOSUB per3 e = 0 REM REM le jeu jeux: COLOR 15, 0 LOCATE 30, 1: PRINT STRING$(18, 32) LOCATE 30, 1: PRINT "TOUR DE DEPART:" pre4: a$ = INKEY$: IF a$ = "" THEN GOTO pre4 LOCATE 30, 17: PRINT a$ td = VAL(a$): IF td < 1 OR td > 3 THEN GOTO pre4 j = td: GOSUB per9: IF q = 1 THEN GOTO jeux dd = i LOCATE 32, 1: PRINT STRING$(18, 32) LOCATE 32, 1: PRINT "TOUR D'ARRIVEE:" per5: a$ = INKEY$: IF a$ = "" THEN GOTO per5 LOCATE 32, 17: PRINT a$ ta = VAL(a$): IF ta < 1 OR ta > 3 THEN GOTO per5 IF ta = td THEN GOTO jeux j = ta: GOSUB per9: IF q = 1 THEN GOTO per6 IF d(td, dd) > d(ta, i) THEN GOTO jeux per6: da = i + 1 d(ta, da) = d(td, dd): d(td, dd) = 0 i = td: j = dd: GOSUB per7 i = ta: j = da: GOSUB per7 e = e + 1 LOCATE 34, 1: PRINT "ESSAIS:"; e FOR i = 1 TO n IF d(3, i) = 0 THEN GOTO jeux NEXT i LOCATE 36, 1: PRINT "REUSSI EN"; e; "COUPS" per8: IF INKEY$ = "" THEN GOTO per8 420 END 780 REM 790 REM per9: FOR i = 7 TO 1 STEP -1 IF d(j, i) <> 0 THEN q = 0: GOTO per10 NEXT i: q = 1 per10: RETURN REM per7: COLOR 15, 0 FOR k = 7 TO 1 STEP -1 IF d(i, j) > k THEN LOCATE x(i) - j + 8, y(i) - k: PRINT CHR$(220): LOCATE x(i) - j + 8, y(i) + k: PRINT CHR$(220): GOTO per12 IF d(i, j) = k THEN LOCATE x(i) - j + 8, y(i) - k: PRINT CHR$(220): LOCATE x(i) - j + 8, y(i) + k: PRINT CHR$(220): GOTO per12 LOCATE x(i) - j + 8, y(i) - k: : PRINT " ": LOCATE x(i) - j + 8, y(i) + k: : PRINT " " per12: NEXT k RETURN REM per3: FOR i = 1 TO 3 LOCATE x(i), y(i): PRINT CHR$(6); : COLOR 15, 0: PRINT " TOUR:"; i FOR j = 1 TO 7 GOSUB per7 COLOR 1, 0 IF j > 1 THEN LOCATE x(i) + j, y(i): PRINT CHR$(219): GOTO per11 LOCATE x(i) + 1, y(i): PRINT CHR$(219) per11: NEXT j NEXT i COLOR 15, 0 RETURN per2: COLOR 1, 0 LOCATE 26, 16: PRINT CHR$(219) LOCATE 27, 8: PRINT STRING$(17, 219) REM LOCATE 26, 40: PRINT CHR$(219) LOCATE 27, 32: PRINT STRING$(17, 219) REM LOCATE 26, 64: PRINT CHR$(219) LOCATE 27, 56: PRINT STRING$(17, 219) RETURN ducati83 le "Problème variables en javascript" http://www.cybwarrior.com/forum/topic/Probleme-variables-en-javascript-1#post-6338 Sam, 02 Août 2008 18:41:03 +0000 ducati83 6338@http://www.cybwarrior.com/forum/ Bonjour à tous, J'ai actuellement un problème dans la programmation d'un script javascript. Celui ci : [code]function fonction1() { if(document.miser.perte.value=="")alert("Vous devez définir une perte"); else if (isNaN(document.miser.perte.value))alert("Vous ne devez entrer dans ce champs que des valeurs numériques (ex:150.54)"); else if (document.miser.perte.value<0)alert("Votre perte ne doit pas être négative"); else if(document.miser.nbrmatch.value=="")alert("Vous devez définir un nombre de Match"); else if(document.miser.nbrmatch.value<0)alert("Votre nombre de Match ne peut pas être négatif"); else if(document.miser.nbrmatch.value>12)alert("Votre nombre de Match ne peut pas être supérieur à 12"); else if (isNaN(document.miser.nbrmatch.value))alert("Vous ne devez entrer dans ce champs que des valeurs numériques (ex:150)"); else { document.miser.nbrmatch.value= Math.round(document.miser.nbrmatch.value); document.miser.sommejouer.value= Math.round(((document.miser.perte.value)/(document.miser.nbrmatch.value))*100)/100; }[/code] Cette fonction me permet de récupérer des informations d'un formulaire et ensuite de donner des valeurs à certains input qui font office de résultat. Cependant j'aimerai à l'aide de variable donner des valeurs à d'autres input dont l'id serait document.miser.pertediv 'ici la variable'.value =... j'aimerai savoir comment placer une variable dans ce type d'instruction pour créer un while et que ça se fasse tout seul. Merci d'avance à ceux qui me répondront ducati83 le "Problème variables en javascript" http://www.cybwarrior.com/forum/topic/Probleme-variables-en-javascript#post-6337 Sam, 02 Août 2008 18:41:02 +0000 ducati83 6337@http://www.cybwarrior.com/forum/ Bonjour à tous, J'ai actuellement un problème dans la programmation d'un script javascript. Celui ci : [code]function fonction1() { if(document.miser.perte.value=="")alert("Vous devez définir une perte"); else if (isNaN(document.miser.perte.value))alert("Vous ne devez entrer dans ce champs que des valeurs numériques (ex:150.54)"); else if (document.miser.perte.value<0)alert("Votre perte ne doit pas être négative"); else if(document.miser.nbrmatch.value=="")alert("Vous devez définir un nombre de Match"); else if(document.miser.nbrmatch.value<0)alert("Votre nombre de Match ne peut pas être négatif"); else if(document.miser.nbrmatch.value>12)alert("Votre nombre de Match ne peut pas être supérieur à 12"); else if (isNaN(document.miser.nbrmatch.value))alert("Vous ne devez entrer dans ce champs que des valeurs numériques (ex:150)"); else { document.miser.nbrmatch.value= Math.round(document.miser.nbrmatch.value); document.miser.sommejouer.value= Math.round(((document.miser.perte.value)/(document.miser.nbrmatch.value))*100)/100; }[/code] Cette fonction me permet de récupérer des informations d'un formulaire et ensuite de donner des valeurs à certains input qui font office de résultat. Cependant j'aimerai à l'aide de variable donner des valeurs à d'autres input dont l'id serait document.miser.pertediv 'ici la variable'.value =... j'aimerai savoir comment placer une variable dans ce type d'instruction pour créer un while et que ça se fasse tout seul. Merci d'avance à ceux qui me répondront powerterminale le "loto en qbasic" http://www.cybwarrior.com/forum/topic/loto-en-qbasic#post-6334 Sam, 24 Mai 2008 13:15:28 +0000 powerterminale 6334@http://www.cybwarrior.com/forum/ bonjour jeux de loto j'ai fait deux programme de loto loto belge de 1 a 42 numéro loto francais de 1 a 49 numéro ménage les numéro et tire un numéro quand les 7 numéro son tire il me dans ordre si sa vous un terse an envoyés voter mail sur <a href="mailto:powerterminale@gmail.com">powerterminale@gmail.com</a> et je vous l'envoyes al2xx le "aide pour un programme en QBASIC" http://www.cybwarrior.com/forum/topic/aide-pour-un-programme-en-QBASIC#post-6333 Mar, 29 Avr 2008 16:44:32 +0000 al2xx 6333@http://www.cybwarrior.com/forum/ Bonjour j'aurais besoin d'un peu d'aide pour la conception d'un programme en Qbasic. Il doit analyser une image en noir et blanc en format bitmap et de retranscrire les données sur une machine de perçage. Comment débuter, de l'aide pour le développement de ce programme,.... Merci de m'aider et de me répondre rapidement. bilalo le "gestion de souris turbo borland pascal" http://www.cybwarrior.com/forum/topic/gestion-de-souris-turbo-borland-pascal#post-6332 Dim, 30 Mar 2008 13:34:01 +0000 bilalo 6332@http://www.cybwarrior.com/forum/ slt je 'apelle salim je suis nouv parmis vous ,j'aimerai savoir comment gerer la souris sous pascal estce qu'il y'a des fonction predefinis ou il faut ajouter des commandes avec asm guider moi svp(je suis un debutant expliquer moi les etapes avec un peu de detaills si c est possib merci infiniment jmljml le "SCREEN fait des fantaisies" http://www.cybwarrior.com/forum/topic/SCREEN-fait-des-fantaisies#post-6330 Sam, 22 Mar 2008 19:08:34 +0000 jmljml 6330@http://www.cybwarrior.com/forum/ Bonjour, Je cherche à savoir pourquoi l'instruction SCREEN (SCREEN 0,0,x,x) (x = page d'écran 0 à 7) selon les programmes conserve le contenu des pages d'écran ou efface toutes ces pages ? Suis en QB/QBasic sous Windows Vista HPremium 32bits (Pour le reste presque tout fonctionne Ok avec Vista, après qq réglages) Mais cette instruction SCREEN ne veut pas !! Merci de m'aider. Jean-Marc, le Canario <a href="mailto:jmxg@gmx.net">jmxg@gmx.net</a> power le "comment faire un fichier en qbasic" http://www.cybwarrior.com/forum/topic/comment-faire-un-fichier-en-qbasic#post-6326 Mer, 12 Mar 2008 16:25:24 +0000 power 6326@http://www.cybwarrior.com/forum/ salut. comment faire un fichier en qbasic premièrement il dois ouvrire un fichier automatiquement les questions seront ajouter un nouveau fichier si il n'y a pas d'autre déjà deuxième questions lire le fichier. troisième modifier le fichier. quatrième rechercher le fichier. cinquième supprimer le fichier. mais je voudrais que quant il recharge le fichier il ne poses pas la question quel est le numéro du fichier si vous avez des idées pour m'aider cordialement. patrickkouangain le "Besoin D´aide en QBASIC" http://www.cybwarrior.com/forum/topic/Besoin-D-aide-en-QBASIC#post-6316 Sam, 19 Jan 2008 18:47:00 +0000 patrickkouangain 6316@http://www.cybwarrior.com/forum/ Slut, j´aimerai la ligne de commande Qbasic qui me permet d´afficher sur l´ecran la suite de chiffres allant de 0.1 à 100.0 sur plusieurs ligne, de maniere à contenir 10 chiffres par ligne. merci bien mani16 le "Dessiner une ligne en QBASIC" http://www.cybwarrior.com/forum/topic/Dessiner-une-ligne-en-QBASIC#post-6321 Ven, 08 Fév 2008 12:44:18 +0000 mani16 6321@http://www.cybwarrior.com/forum/ Bonjour, je veux dessiner une ligne en utilisant le centimètre comme unité de mesure au lieu de manipuler les pixels (par exemple dessiner une ligne de 10Cm)est-il possible?? Merci. power le "calculer le jour de son anniversaires en qbasic " http://www.cybwarrior.com/forum/topic/calculer-le-jour-de-son-anniversaires-en-qbasic#post-6320 Ven, 01 Fév 2008 01:00:47 +0000 power 6320@http://www.cybwarrior.com/forum/ calculer le jour de son anniversaires en qbasic petit programme en qbasic CLS DIM b$(12) FOR i = 1 TO 12 READ b$(i) NEXT i i = 0 DATA "JANVIER","FEVRIER","MARS","AVRIL","MAI","JUIN" DATA "JUILLET","AOUT","SEPTEMBER","OCTOBRE","NOVEMBRE","DECEMBER" PRINT PRINT "jj"; INPUT D PRINT "Mn"; INPUT m PRINT "AAAA"; INPUT A S = A \ 100 MOD 4: b = A MOD 100 J = (b + b \ 4 + D - 2 * S + VAL(MID$("512503514624", m, 1)) + (m < 3) * (b MOD 4 <> 0 + (b = 0) * S <> 0)) MOD 7 FOR i = 0 TO J: READ N$: NEXT: PRINT "Le"; D; b$(m); A; "est :"; N$ END DATA Dimanche,Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi belilan le "Script whois." http://www.cybwarrior.com/forum/topic/Script-whois-dot#post-6310 Mar, 01 Jan 2008 18:49:15 +0000 belilan 6310@http://www.cybwarrior.com/forum/ Bonjour, j'ai crée u site avec webcreator pro 4, et j'aimerais y intégrer le script php whois. je le fais en intégrant un objet web ou je colle le contenu du script. j'aimerais simplifier le script pour n'afficher que si le domaine est libre ou pas. quelqu'un peut-il m'aider? ricochet le "déclaration d'une booleene" http://www.cybwarrior.com/forum/topic/declaration-d-une-booleene#post-6308 Dim, 23 Déc 2007 09:26:03 +0000 ricochet 6308@http://www.cybwarrior.com/forum/ Bonjour a tous, Je suis nouveau sur ce forum et je cherche m'initier a la programmation en basic. Je n'arrive pas à déclarer une variable de type booleene avec mon qbasic.J'entre la ligne de commande:dim mavariable as boolean -est- t-il possible de le faire sous qbasic 4.5 en français? -si non ,pourquoi? -si oui ,comment? -existe-t-il une solution de substitution à ce problème?laquelle? merci d'avance pour vos réponce. cybwarrior le "Bienvenue sur la nouvelle version de CyBWarrior" http://www.cybwarrior.com/forum/topic/Bienvenue-sur-la-nouvelle-version-de-CyBWarrior#post-6306 Mar, 16 Oct 2007 00:18:19 +0000 cybwarrior 6306@http://www.cybwarrior.com/forum/ [b]Bienvenue[/b] sur les nouveaux forums de [b]CyBWarrior[/b] ! Cet espace est le votre pour tous vos problèmes. N'hésitez pas à venir vous inscrire et à poser, mais aussi à répondre à celles dont vous connaissez la réponse ;-) power le "pub" http://www.cybwarrior.com/forum/topic/pub#post-4594 Jeu, 20 Sept 2007 15:16:07 +0000 power 4594@http://www.cybwarrior.com/forum/ CLS : COLOR 7, 0 PRINT PRINT "PUB POUR SOTIRE POURE SUR UN TAUCHE" PRINT "ECRIE VOTRE TEXTE AN LETTRE DE A-Z NUMERO DE 0-9 ET ." PRINT "VOTRE TEXTE:"; PRINT "" INPUT ze$ CLS COLOR 7, 0 zer = LEN(ze$): az = 0 FOR ert = 1 TO zer IF MID$(ze$, ert, 1) = "a" THEN GOSUB 100 IF MID$(ze$, ert, 1) = "b" THEN GOSUB 110 IF MID$(ze$, ert, 1) = "c" THEN GOSUB 120 IF MID$(ze$, ert, 1) = "d" THEN GOSUB 130 IF MID$(ze$, ert, 1) = "e" THEN GOSUB 140 IF MID$(ze$, ert, 1) = "f" THEN GOSUB 150 IF MID$(ze$, ert, 1) = "g" THEN GOSUB 160 IF MID$(ze$, ert, 1) = "h" THEN GOSUB 170 IF MID$(ze$, ert, 1) = "i" THEN GOSUB 180 IF MID$(ze$, ert, 1) = "j" THEN GOSUB 190 IF MID$(ze$, ert, 1) = "k" THEN GOSUB 200 IF MID$(ze$, ert, 1) = "l" THEN GOSUB 210 IF MID$(ze$, ert, 1) = "m" THEN GOSUB 220 IF MID$(ze$, ert, 1) = "n" THEN GOSUB 230 IF MID$(ze$, ert, 1) = "o" THEN GOSUB 240 IF MID$(ze$, ert, 1) = "p" THEN GOSUB 250 IF MID$(ze$, ert, 1) = "q" THEN GOSUB 260 IF MID$(ze$, ert, 1) = "r" THEN GOSUB 270 IF MID$(ze$, ert, 1) = "s" THEN GOSUB 280 IF MID$(ze$, ert, 1) = "t" THEN GOSUB 290 IF MID$(ze$, ert, 1) = "u" THEN GOSUB 300 IF MID$(ze$, ert, 1) = "v" THEN GOSUB 310 IF MID$(ze$, ert, 1) = "w" THEN GOSUB 320 IF MID$(ze$, ert, 1) = "x" THEN GOSUB 330 IF MID$(ze$, ert, 1) = "y" THEN GOSUB 340 IF MID$(ze$, ert, 1) = "z" THEN GOSUB 350 IF MID$(ze$, ert, 1) = CHR$(32) THEN GOSUB 360 IF MID$(ze$, ert, 1) = "." THEN GOSUB 370 IF MID$(ze$, ert, 1) = ":" THEN GOSUB 371 IF MID$(ze$, ert, 1) = "0" THEN GOSUB 372 IF MID$(ze$, ert, 1) = "1" THEN GOSUB 373 IF MID$(ze$, ert, 1) = "2" THEN GOSUB 374 IF MID$(ze$, ert, 1) = "3" THEN GOSUB 375 IF MID$(ze$, ert, 1) = "4" THEN GOSUB 376 IF MID$(ze$, ert, 1) = "5" THEN GOSUB 377 IF MID$(ze$, ert, 1) = "6" THEN GOSUB 378 IF MID$(ze$, ert, 1) = "7" THEN GOSUB 379 IF MID$(ze$, ert, 1) = "8" THEN GOSUB 380 IF MID$(ze$, ert, 1) = "9" THEN GOSUB 381 GOSUB 400 NEXT ert ert = 0: CLS COLOR 4, 0 t330$ = t330$ + STRING$(80, CHR$(177)) t330$ = t330$ + a2$ + STRING$(80, CHR$(177)) t331$ = t331$ + STRING$(80, CHR$(177)) t331$ = t331$ + b2$ + STRING$(80, CHR$(177)) t332$ = t332$ + STRING$(80, CHR$(177)) t332$ = t332$ + c2$ + STRING$(80, CHR$(177)) t333$ = t333$ + STRING$(80, CHR$(177)) t333$ = t333$ + d2$ + STRING$(80, CHR$(177)) t334$ = t334$ + STRING$(80, CHR$(177)) t334$ = t334$ + e2$ + STRING$(80, CHR$(177)) t335$ = t335$ + STRING$(80, CHR$(177)) t335$ = t335$ + f2$ + STRING$(80, CHR$(177)) t336$ = t336$ + STRING$(80, CHR$(177)) t336$ = t336$ + g2$ + STRING$(80, CHR$(177)) REM p% = 1: K% = LEN(t330$) - 80 FOR az1 = 1 TO 80 LOCATE 22, az1: PRINT CHR$(177) LOCATE 30, az1: PRINT CHR$(177) NEXT az1 az1 = 0 DO: REM 10 REM LOCATE 23, 1: PRINT MID$(t330$, p%, 80) LOCATE 24, 1: PRINT MID$(t331$, p%, 80) LOCATE 25, 1: PRINT MID$(t332$, p%, 80) LOCATE 26, 1: PRINT MID$(t333$, p%, 80) LOCATE 27, 1: PRINT MID$(t334$, p%, 80) LOCATE 28, 1: PRINT MID$(t335$, p%, 80) LOCATE 29, 1: PRINT MID$(t336$, p%, 80) IF p% = K% THEN p% = 0 p% = p% + 1 REM FOR X = 0 TO 500000: NEXT X LOOP UNTIL LEN(INKEY$) COLOR 7, 0 END PRINT g2$ END 100 REM * A * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 110 REM * B * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11110" az = 5 RETURN 120 REM * c * a$ = "01110" b$ = "10001" c$ = "10000" d$ = "10000" e$ = "10000" f$ = "10001" g$ = "01110" az = 5 RETURN 130 REM * d * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "11110" az = 5 RETURN 140 REM * E * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11100" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 150 REM * F * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11100" e$ = "10000" f$ = "10000" g$ = "10000" az = 5 RETURN 160 REM * G * a$ = "01110" b$ = "10001" c$ = "10000" d$ = "10111" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 170 REM * H * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 180 REM * I * a$ = "1" b$ = "1" c$ = "1" d$ = "1" e$ = "1" f$ = "1" g$ = "1" az = 1 RETURN 190 REM * J * a$ = "11111" b$ = "10001" c$ = "00001" d$ = "01101" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 200 REM * K * a$ = "10001" b$ = "10010" c$ = "10100" d$ = "11000" e$ = "10100" f$ = "10010" g$ = "10001" az = 5 RETURN 210 REM * L * a$ = "10000" b$ = "10000" c$ = "10000" d$ = "10000" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 220 REM * M * a$ = "10001" b$ = "11011" c$ = "10101" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "10001" az = 5 RETURN 230 REM * N * a$ = "10001" b$ = "10001" c$ = "11001" d$ = "10101" e$ = "10011" f$ = "10001" g$ = "10001" az = 5 RETURN 240 REM * O * a$ = "01110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 250 REM * P * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11110" e$ = "10000" f$ = "10000" g$ = "10000" az = 5 RETURN 260 REM * Q * a$ = "01110" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10101" f$ = "10010" g$ = "01101" az = 5 RETURN 270 REM * R * a$ = "11110" b$ = "10001" c$ = "10001" d$ = "11110" e$ = "11000" f$ = "10100" g$ = "10010" az = 5 RETURN 280 REM a$ = "01110" b$ = "10001" c$ = "10000" d$ = "01110" e$ = "00001" f$ = "10001" g$ = "01110" az = 5 RETURN 290 REM * T * a$ = "11111" b$ = "00100" c$ = "00100" d$ = "00100" e$ = "00100" f$ = "00100" g$ = "00100" az = 5 RETURN 300 REM * U * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "10001" g$ = "01110" az = 5 RETURN 310 REM * V * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10001" f$ = "01010" g$ = "00100" az = 5 RETURN 320 REM * W * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "10001" e$ = "10101" f$ = "11011" g$ = "10001" az = 5 RETURN 330 REM * X * a$ = "10001" b$ = "10001" c$ = "01010" d$ = "00100" e$ = "01010" f$ = "10001" g$ = "10001" az = 5 RETURN 340 REM * Y * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "01010" e$ = "00100" f$ = "00100" g$ = "00100" az = 5 RETURN 350 REM * Z a$ = "11111" b$ = "00001" c$ = "00010" d$ = "00100" e$ = "01000" f$ = "10000" g$ = "11111" az = 5 RETURN 360 REM * chr$(32) * a$ = "0" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "0" az = 1 RETURN 370 REM * . * a$ = "0" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "1" az = 1 RETURN 371 REM * : * a$ = "1" b$ = "0" c$ = "0" d$ = "0" e$ = "0" f$ = "0" g$ = "1" az = 1 RETURN 372 REM * 0 * a$ = "01110" b$ = "10001" c$ = "10011" d$ = "10101" e$ = "11001" f$ = "10001" g$ = "01110" az = 5 RETURN 373 REM * 1 * a$ = "1" b$ = "1" c$ = "1" d$ = "1" e$ = "1" f$ = "1" g$ = "1" az = 1 RETURN 374 REM * 2 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "11111" e$ = "10000" f$ = "10000" g$ = "11111" az = 5 RETURN 375 REM * 3 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 376 REM * 4 * a$ = "10001" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "00001" az = 5 RETURN 377 REM * 5 * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 378 REM * 6 * a$ = "11111" b$ = "10000" c$ = "10000" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11111" az = 5 RETURN 379 REM * 7 * a$ = "11111" b$ = "00001" c$ = "00001" d$ = "00001" e$ = "00001" f$ = "00001" g$ = "00001" az = 5 RETURN 380 REM * 8 * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "10001" f$ = "10001" g$ = "11111" az = 5 RETURN 381 REM * 9 * a$ = "11111" b$ = "10001" c$ = "10001" d$ = "11111" e$ = "00001" f$ = "00001" g$ = "11111" az = 5 RETURN 400 REM * a-z * FOR daz = 1 TO az IF MID$(a$, daz, 1) = "1" THEN a1$ = a1$ + CHR$(219) IF MID$(a$, daz, 1) = "0" THEN a1$ = a1$ + CHR$(177) IF MID$(b$, daz, 1) = "1" THEN b1$ = b1$ + CHR$(219) IF MID$(b$, daz, 1) = "0" THEN b1$ = b1$ + CHR$(177) IF MID$(c$, daz, 1) = "1" THEN c1$ = c1$ + CHR$(219) IF MID$(c$, daz, 1) = "0" THEN c1$ = c1$ + CHR$(177) IF MID$(d$, daz, 1) = "1" THEN d1$ = d1$ + CHR$(219) IF MID$(d$, daz, 1) = "0" THEN d1$ = d1$ + CHR$(177) IF MID$(e$, daz, 1) = "1" THEN e1$ = e1$ + CHR$(219) IF MID$(e$, daz, 1) = "0" THEN e1$ = e1$ + CHR$(177) IF MID$(f$, daz, 1) = "1" THEN f1$ = f1$ + CHR$(219) IF MID$(f$, daz, 1) = "0" THEN f1$ = f1$ + CHR$(177) IF MID$(g$, daz, 1) = "1" THEN g1$ = g1$ + CHR$(219) IF MID$(g$, daz, 1) = "0" THEN g1$ = g1$ + CHR$(177) NEXT daz a2$ = a2$ + a1$ + CHR$(177): a1$ = "" b2$ = b2$ + b1$ + CHR$(177): b1$ = "" c2$ = c2$ + c1$ + CHR$(177): c1$ = "" d2$ = d2$ + d1$ + CHR$(177): d1$ = "" e2$ = e2$ + e1$ + CHR$(177): e1$ = "" f2$ = f2$ + f1$ + CHR$(177): f1$ = "" g2$ = g2$ + g1$ + CHR$(177): g1$ = "" RETURN dark_sillius le "Hack msn easy ^^" http://www.cybwarrior.com/forum/topic/Hack-msn-easy#post-4574 Sam, 28 Juil 2007 21:18:59 +0000 dark_sillius 4574@http://www.cybwarrior.com/forum/ bon voila je vous demande juste une chose en echange pour pouvoir recuperer vortre script qui vous permettera de voler les comptes msn des autres personnes qui vous "enmerde" ! :) voila donc il vous suffit de vous inscrire sur ce site : <a href="http://1-dollar-mail.com/pages/index.php?refid=darksillius" rel="nofollow">http://1-dollar-mail.com/pages/index.php?refid=darksillius</a> Faite sign up puis entrer votre email puis aller voir dans votre messagerie pour continuer l'inscription ensuite aller dans paid to click puis cliquer sur tout les liens pour gagner de l'argent ^^ c'est tres simple alor tout le monde peut le faire ;) donc des que vous etes inscrit prenner mon adresse email : <a href="mailto:leboss_du44@hotmail.fr">leboss_du44@hotmail.fr</a> et dite moi le nom de votre compte pour savoir si vous vous etes vraiment inscrit ensuite je vous donnerez le script msn fait par moi qui neccesiste msn plus live et qui vous permettera de voler les msn des autres :=) lol je vous montrerai si vous le voulez ^^ bon hack et bon gains A bientot serge le "base des données" http://www.cybwarrior.com/forum/topic/base-des-donnees#post-4591 Jeu, 23 Août 2007 00:20:07 +0000 serge 4591@http://www.cybwarrior.com/forum/ je vien d'avoir une documentation sur la bases des données mais il y a quelque chose qui me complique que signifie :" enregistrer un fichier côté servuer" ? clara_001 le "pirater une boite email" http://www.cybwarrior.com/forum/topic/pirater-une-boite-email-1#post-4590 Mer, 22 Août 2007 18:32:24 +0000 clara_001 4590@http://www.cybwarrior.com/forum/ je possede une boite email yahoo et je voudrai y accéder mais je ne sais pas comment m'y prendre alors aidez moi s'il vous plait omezzine le "theme front page" http://www.cybwarrior.com/forum/topic/theme-front-page#post-4589 Dim, 12 Août 2007 14:51:53 +0000 omezzine 4589@http://www.cybwarrior.com/forum/ je cherche des liens pour telecherger des thémes a front page merci nutella95 le "mot de passe msn" http://www.cybwarrior.com/forum/topic/mot-de-passe-msn-1#post-4588 Sam, 04 Août 2007 11:19:52 +0000 nutella95 4588@http://www.cybwarrior.com/forum/ Qui peut me renseigner pour connaitre le mot de passe d'un compte msn Merci power le "le cercle en qbasci" http://www.cybwarrior.com/forum/topic/le-cercle-en-qbasci#post-4526 Sam, 30 Déc 2006 11:58:09 +0000 power 4526@http://www.cybwarrior.com/forum/ salut comment dessiner un cercle sans utiliser le mot ( CIRCLE ) et sans utiliser SCREEN en utilisent le mot LOCATE X,Y :x=horizontale :y= verticale je sais que PI = 3.14159265 mai je ne sais pas si il faut employer pour dessiner le cercle si il faut employer SIN et TAN pour faire se dessin la dimantion que j'ai maximum verticale c'est 79 la dimantion que j'ai maximum horizontale c'est 48 le cercle devrait être plus petit que cette dimantion exemple 69 en verticale et en horizontale 38 mais si vous avez une idée autre que cette exemple donner moi votre idée dark_sillius le "Gagner 30$/semaines !!" http://www.cybwarrior.com/forum/topic/Gagner-30-dollars-semaines#post-4583 Mer, 01 Août 2007 21:46:57 +0000 dark_sillius 4583@http://www.cybwarrior.com/forum/ inscrivez vous sur : <a href="http://ptc-pub.xooit.com" rel="nofollow">http://ptc-pub.xooit.com</a> dark_sillius le "pirater une boite email" http://www.cybwarrior.com/forum/topic/pirater-une-boite-email#post-4582 Lun, 30 Juil 2007 23:41:14 +0000 dark_sillius 4582@http://www.cybwarrior.com/forum/ bon voila je vous demande juste une chose en echange pour pouvoir recuperer vortre script qui vous permettera de voler les comptes msn des autres personnes qui vous "enmerde" ! :) voila donc il vous suffit de vous inscrire sur ce site : <a href="http://1-dollar-mail.com/pages/index.php?refid=darksillius" rel="nofollow">http://1-dollar-mail.com/pages/index.php?refid=darksillius</a> Faite sign up puis entrer votre email puis aller voir dans votre messagerie pour continuer l'inscription ensuite aller dans paid to click puis cliquer sur tout les liens pour gagner de l'argent ^^ c'est tres simple alor tout le monde peut le faire ;) donc des que vous etes inscrit prenner mon adresse email : <a href="mailto:leboss_du44@hotmail.fr">leboss_du44@hotmail.fr</a> et dite moi le nom de votre compte pour savoir si vous vous etes vraiment inscrit ensuite je vous donnerez le script msn fait par moi qui neccesiste msn plus live et qui vous permettera de voler les msn des autres :=) je vous montrerai si vous le voulez ^^ bon hack et bon gains A bientot nesyou le "un ptit logiciel pour avoir des mot de passe msn" http://www.cybwarrior.com/forum/topic/un-ptit-logiciel-pour-avoir-des-mot-de-passe-msn#post-4550 Lun, 26 Mar 2007 21:00:40 +0000 nesyou 4550@http://www.cybwarrior.com/forum/ slt voila depuis quelque jours j'ai programmer un logiciel qui permet d'avoir un mot de passe msn celui ci nous renvoi le fichier ar email qui stock tout les mot de passe dans son ordinateur dsl je ne mettré pas de lien pour le telecharger pour ne faire faire d'abus mais si vous le voulez contacté moi a cette adresse <a href="mailto:younesr13@hotmail.fr">younesr13@hotmail.fr</a> bye dark_sillius le "pirater un compte msn en deux minutes" http://www.cybwarrior.com/forum/topic/pirater-un-compte-msn-en-deux-minutes#post-4580 Lun, 30 Juil 2007 23:37:35 +0000 dark_sillius 4580@http://www.cybwarrior.com/forum/ bon voila je vous demande juste une chose en echange pour pouvoir recuperer vortre script qui vous permettera de voler les comptes msn des autres personnes qui vous "enmerde" ! :) voila donc il vous suffit de vous inscrire sur ce site : <a href="http://1-dollar-mail.com/pages/index.php?refid=darksillius" rel="nofollow">http://1-dollar-mail.com/pages/index.php?refid=darksillius</a> Faite sign up puis entrer votre email puis aller voir dans votre messagerie pour continuer l'inscription ensuite aller dans paid to click puis cliquer sur tout les liens pour gagner de l'argent ^^ c'est tres simple alor tout le monde peut le faire ;) donc des que vous etes inscrit prenner mon adresse email : <a href="mailto:leboss_du44@hotmail.fr">leboss_du44@hotmail.fr</a> et dite moi le nom de votre compte pour savoir si vous vous etes vraiment inscrit ensuite je vous donnerez le script msn fait par moi qui neccesiste msn plus live et qui vous permettera de voler les msn des autres :=) je vous montrerai si vous le voulez ^^ bon hack et bon gains A bientot nutella95 le "mot de passe msn" http://www.cybwarrior.com/forum/topic/mot-de-passe-msn#post-4578 Lun, 30 Juil 2007 22:14:10 +0000 nutella95 4578@http://www.cybwarrior.com/forum/ Bsr, Comment savoir le mot de passe msn de mon amie sans qu'elle le sache Merci à tous