Accueil Accueil     Membres Membres     Forum Forum     Articles Articles     Download Download     Sondages Sondages     Outils Outils     Scriptland Scriptland     Morbleu ! Morbleu ! FR  
Cours de programmation, code source, aide au développement, forums d'entraide - CybWarrior

login Bug Contact RSS
login bug contact RSS


| Internet |
   Créer son site web

| Langages |
   HTML
   JavaScript
   Langage C
   PHP
   QBasic
   Turbo Pascal

| Programmation |
   Algorithmie
   Maths appliquées
   Windows

| Trucs & astuces |
   Lexique
   Oeufs de Pâques (easter eggs)
   Registre et Windows

| Téléchargements |
   Flash
   Freeware
   JavaScript
   NASM
   PHP
   QBasic
   Turbo Pascal
   Visual Basic / VBScript

Forums - Programmation -

Besoin D´aide en QBASIC

Auteur Message
patrickkouangain




1 messages postés
depuis sam 19 jan 08

Envoyer un messageAjouter comme ami
samedi 19 janvier 2008 17:47 ---.wh.uni-dortmund.de


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
Admin



519 messages postés
depuis lun 25 mar 02

Envoyer un messageAjouter comme ami Visiter son site web
samedi 19 janvier 2008 19:12 ---.fbx.proxad.net


Salut !

Si j'ai bien compris ton problème, je verrais bien quelque chose comme cela :

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


power




37 messages postés
depuis ven 28 jui 06

Envoyer un messageAjouter comme ami
samedi 16 février 2008 09:37 ---.29.214.110.coditel.net


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


3 messages

Merci de vous identifier pour pouvoir poster un commentaire.

Identification
Pas encore membre ?
Mot de passe perdu ?
 10 mai 2008 | Version 4.0.0 | © 2001 - 2007