programme 2 est fin
CLS : COLOR 15
DIM a$(300, 3)
zz = 0: NB.Enr% = 0: zz = 1
OPEN "test0.txt" FOR INPUT AS #3
DO UNTIL EOF(3) = -1
LINE INPUT #3, ligne$
a$(zz, 1) = ligne$
programme 2 est fin
CLS : COLOR 15
DIM a$(300, 3)
zz = 0: NB.Enr% = 0: zz = 1
OPEN "test0.txt" FOR INPUT AS #3
DO UNTIL EOF(3) = -1
LINE INPUT #3, ligne$
a$(zz, 1) = ligne$
boujour
dans le site vous avec fait:
Comment effectuer un tri dans un fichier à accès direct (random)
il y a une réponse Hier, 23h19
bonjour Eric
Mon prénom est jean jacques et habite en belgique
mais connais l'informatique en année 1996
connais sur t.r.s mode 1 et 2 et 3 et 16
sur commodore 64 et 128
sur amiga 1200 et 2000...
j'ai fait un messages votre adresse mail a tu resu le mail
bonjour orca29
si vous avez fait des enregistrements dans un fichier à accès séquentie
( OPEN "test.txt" FOR APPEND AS #1 )
pour classer alphabétiquement des enregistrements
j'ai mi dim(300)...
bonjour orca29
si vous avez fait des enregistrements dans un fichier à accès séquentie
( OPEN "test.txt" FOR APPEND AS #1 )
pour classer alphabétiquement des enregistrements
j'ai mi dim(100)...
CLS
TYPE TestRecord
NameField AS STRING * 20
ScoreField AS SINGLE
END TYPE
DIM Rec AS TestRecord
DIM I AS LONG
OPEN "d:\ZYX987\TESTDAT2.DAT" FOR RANDOM AS #1 LEN = LEN(Rec)
classer alphabétiquement mes enregistrements
si vous-avec windows
fait un nouveau dossier
dans le dossier mettre vos enregistrements par nom de famille
pour vous amis
pernon :
nom de...
bonjour orca29
fait un nouveau dossier : le nom set: ZYX987
dans dossier mettre le programme fichier.bas
pour OPNE possibilite enregistrement
pour disk dur ou cle usb
exemple:
(...
bonjour
http://www.emu-france.com/emulateurs/10-ordinateurs/118-ibm-pc-et-compatibles/7136-dosbox-x/
bonjour
c'est un site sur qb64 qbasic 64
https://translate.google.be/translate?hl=fr&sl=en&u=http://forums.whirlpool.net.au/archive/2449276&prev=search
bonjour
en qbasic j'ai fait un programme l'heures avec la fonction time$
cls
time$="23:59:50"
do
heure$=time$
locate 1,1:print heures$
loop until len(inkey$)
ce programme est simple mais...
bonjour
vous pouvez utiliser dosbox
avec dosbox utiliser qbasic
pour le qbasic 4.0 au qbasic 4.5 au qbasic 7.1
http://quickbasic.free.fr/
il y a qbasic 4.0 et qbasic 4.5 et qbasic 7.1 en winrar
bonjour
open office color voyelles
http://lirecouleur.arkaline.fr/
se me pas du basic
bojour
'Un Petit Test Pour Input
cls
PRINT "Test INPUT N$ : Pour une lettre"
INPUT "Une Lettre "; n$
PRINT "Lettre = "; n$
---------------------------------------