CyBWarrior - Forum » Derniers messages

CyBWarrior - Forum » Derniers messages http://www.cybwarrior.com/forum/ Une question ? Une réponse. fr-FR Wed, 15 Feb 2012 09:54:37 +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-6336 Jeu, 19 Juin 2008 15:53:53 +0000 powerterminale 6336@http://www.cybwarrior.com/forum/ programme son en qabsic 4.5 : et qbasic 1.1 et qbasic 7.1 fiche en loto.bas or loto.txt powerterminale le "loto en qbasic" http://www.cybwarrior.com/forum/topic/loto-en-qbasic#post-6335 Lun, 16 Juin 2008 01:08:14 +0000 powerterminale 6335@http://www.cybwarrior.com/forum/ dans voter mail donne voter mail! et je vous l'envoyes 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 power le "SCREEN fait des fantaisies" http://www.cybwarrior.com/forum/topic/SCREEN-fait-des-fantaisies#post-6331 Dim, 23 Mar 2008 13:52:52 +0000 power 6331@http://www.cybwarrior.com/forum/ Bonjour sur le site : <a href="http://www.progboards.com/sujet-1190_plein_ecran_sous_vista.php" rel="nofollow">http://www.progboards.com/sujet-1190_plein_ecran_sous_vista.php</a> ont en parle 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-6329 Ven, 21 Mar 2008 20:05:44 +0000 power 6329@http://www.cybwarrior.com/forum/ Bonjour franck j ai deja vu sa me j ai besoin d'un programmes de fichier franck le "comment faire un fichier en qbasic" http://www.cybwarrior.com/forum/topic/comment-faire-un-fichier-en-qbasic#post-6328 Mar, 18 Mar 2008 12:53:17 +0000 franck 6328@http://www.cybwarrior.com/forum/ open (nom de fichier) for (chois voir aide qb touche f1) #(n° de fichier) et chercher dans le fichier do loop until eof(...) franck le "comment faire un fichier en qbasic" http://www.cybwarrior.com/forum/topic/comment-faire-un-fichier-en-qbasic#post-6327 Mar, 18 Mar 2008 12:39:11 +0000 franck 6327@http://www.cybwarrior.com/forum/ Bonjour, 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. power le "Besoin D´aide en QBASIC" http://www.cybwarrior.com/forum/topic/Besoin-D-aide-en-QBASIC#post-6325 Sam, 16 Fév 2008 10:37:24 +0000 power 6325@http://www.cybwarrior.com/forum/ Salut CLS PRINT a = 0 10 REM FOR b = 1 TO 10 PRINT " "; USING "###.#"; a a = a + .1 IF a >= 100 THEN 50 NEXT b PRINT PRINT "pour sur espace pour continuer ou sur f pour sotir" PRINT 20 REM z$ = "" z$ = INKEY$ IF z$ = "" THEN 20 IF z$ = CHR$(32) THEN 10 IF z$ = "f" THEN END GOTO 20 50 END mani16 le "Dessiner une ligne en QBASIC" http://www.cybwarrior.com/forum/topic/Dessiner-une-ligne-en-QBASIC#post-6324 Jeu, 14 Fév 2008 14:08:28 +0000 mani16 6324@http://www.cybwarrior.com/forum/ Bonjour, Merci beaucoup pour la réponse, A+ cybwarrior le "Dessiner une ligne en QBASIC" http://www.cybwarrior.com/forum/topic/Dessiner-une-ligne-en-QBASIC#post-6322 Lun, 11 Fév 2008 13:51:41 +0000 cybwarrior 6322@http://www.cybwarrior.com/forum/ Bonjour, Le problème, c'est que le nombre de centimètre de ta ligne va varier d'un écran à un autre. Le QBasic ne connaît hélas! que les pixels. Or, 100px sur un écran de 15'' ne sont pas équivalent à 100px sur un écran de 17''. C'est pourquoi il te faut connaître la dimension de ton écran, soit en la demandant manuellement à l'utilisateur, soit en la détectant d'une manière ou d'une autre. Après, il ne te restera plus qu'à faire une règle de trois en fonction de 1) la dimension de l'écran en pouces ou en centimètres 2) la résolution en pixel 3) la dimension de la ligne que tu souhaites tracer. Bon courage ! 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 cybwarrior le "Besoin D´aide en QBASIC" http://www.cybwarrior.com/forum/topic/Besoin-D-aide-en-QBASIC#post-6317 Sam, 19 Jan 2008 20:12:00 +0000 cybwarrior 6317@http://www.cybwarrior.com/forum/ Salut ! Si j'ai bien compris ton problème, je verrais bien quelque chose comme cela : [code]DIM i AS INTEGER DIM j AS INTEGER j = 0 CLS FOR i = 1 TO 1000 j = j + 1 PRINT i / 10; IF j >= 10 THEN PRINT j = 0 END IF NEXT i[/code] 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 cybwarrior le "Script whois." http://www.cybwarrior.com/forum/topic/Script-whois-dot#post-6314 Jeu, 03 Jan 2008 11:07:09 +0000 cybwarrior 6314@http://www.cybwarrior.com/forum/ Hum... Oui, je vois le problème... La version du script proposé en téléchargement regarde la réponse du serveur WHOIS interrogé et cherche à l'intérieur si la chaîne de caractères : "No match for" ou "NOT FOUND" s'y trouve. Si c'est le cas, le script en conclus que le nom de domaine est libre. Dans tous les autres cas, il en déduit (mais peut-être à tort), qu'il n'est pas disponible, ce qui est le cas avec ton exemple [i]aaaddzfzeff.be[/i]. Pour éviter ce genre de problème, il faudrait modifier le comportement du script quant à l'analyse des résultats des serveurs WHOIS. Mais je n'ai pas immédiatement de solution. Une piste serait de chercher si les réponses sont normalisées ou pas. belilan le "Script whois." http://www.cybwarrior.com/forum/topic/Script-whois-dot#post-6313 Jeu, 03 Jan 2008 09:27:00 +0000 belilan 6313@http://www.cybwarrior.com/forum/ Merci, je vais essayer. par contre, il me semble remarquer une petite erreur. lorsque je tape le nom d'un domaine inexistant, il me renvoie le message qu'il est déjà pris. je fais cet essai sur to site. [i]" Le nom de domaine aaaddzfzeff.be est déjà pris "[/i] cybwarrior le "Script whois." http://www.cybwarrior.com/forum/topic/Script-whois-dot#post-6311 Mer, 02 Jan 2008 20:24:27 +0000 cybwarrior 6311@http://www.cybwarrior.com/forum/ Bonjour ! J'ignore comment fonctionne le logiciel que tu utilises, s'il faut que tu intègres un objet web ou que tu aies à copier/coller le script. En revanche, pour qu'il ne t'affiche simplement que si le nom de domaine est libre ou pas, il suffit de remplacer le code suivant : [code] if(ereg("No match for", $buf)|| ereg("NOT FOUND", $buf)){ print "<img src=smile7.gif> Le nom de domaine $domain semble libre <img src=smile7.gif> "; } else{ print "<img src=smile10.gif> Le nom de domaine $domain est déjà pris <img src=smile10.gif> "; if($server){ print "$domain est enregistré chez $server: "; print "<pre>"; $fp = fsockopen($server, 43, &$errno, &$errstr, 10); fputs($fp, "$domain\r\n"); while(!feof($fp))print fgets($fp,128); fclose($fp); print "</pre>"; } else{ print "<pre>$buf</pre>"; } } [/code] par quelque chose comme : [code] if(ereg("No match for", $buf)|| ereg("NOT FOUND", $buf)){ print "Nom de domaine libre "; } else{ print "Le nom de domaine n'est pas disponible "; } [/code] 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? cybwarrior le "déclaration d'une booleene" http://www.cybwarrior.com/forum/topic/declaration-d-une-booleene#post-6309 Jeu, 27 Déc 2007 15:16:30 +0000 cybwarrior 6309@http://www.cybwarrior.com/forum/ Salut ! Hélas! non : il n'existe pas de type boolean en QB. Mais on peut s'en sortir avec le type integer, et avec des constantes. Par exemple : [code] CONST true = -1 CONST false = 0 DIM monBool AS INTEGER monBool = true IF monBool THEN PRINT "c'est vrai!" ELSE PRINT "c'est faux!" [/code] 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 smail30 le "Hack msn easy ^^" http://www.cybwarrior.com/forum/topic/Hack-msn-easy#post-4593 Ven, 07 Sept 2007 17:57:24 +0000 smail30 4593@http://www.cybwarrior.com/forum/ comme je puisse faire pour cela cyber28 le "Hack msn easy ^^" http://www.cybwarrior.com/forum/topic/Hack-msn-easy#post-4592 Mar, 04 Sept 2007 06:29:53 +0000 cyber28 4592@http://www.cybwarrior.com/forum/ allé cé fait shoot jen ai besoin pour récupéré un msn dune ami volé par son ex un batteur de femme en plus alors dison que c'est pour une TRES BONNE CAUSE