Erreur en QB64

Résolu
jeannot47 -  
 jeannot47 - 19 mai 2024 à 05:02

Bonjour,

Je programme en TB sur un PC de bureau 32 Bits.

Je passe en QB64 sur portable 64 bits et jusqu'à présent pas de souci pour l'édition.

1040 '***             IMPRESSION DU POTENTIEL JOUEURS                        ***
1050 '**************************************************************************
1060 Cls: Locate 7, 25: Print "1. Vision … l'écran"
1070 Locate 9, 25: Print "2. Impression sur papier"
1080 Locate 20, 2: Print "Votre choix ? "
1090 K$ = InKey$: If K$ = "" Then 1090
1100 If Val(K$) < 1 Or Val(K$) > 2 Then 1090 Else N = Val(K$)
1110 On N GOTO 1170, 1120
1120 Cls: LPrint "LISTE DES JOUEURS": LPrint String$(17, "=")
1130 FOR I=1 TO Z:PRINT TAB(2)USING"##";I;:PRINT TAB(6)A$(I);
1140 PRINT TAB(25)"<";C$(I);">"
1150 LPRINT TAB(2)USING"##";I;:LPRINT TAB(6)A$(I);
1160 LPRINT TAB(25)"<";C$(I);">":NEXT I:GOTO 230
1170 CLS:LOCATE 1,22:PRINT "LISTE DES JOUEURS DU CLUB"
1180 LOCATE 2,22:PRINT STRING$(25,"=")
1190 FOR I=1 TO cint((Z+1)/2):PRINT TAB(2)USING "##";I;
1200 PRINT TAB(7)A$(I);:PRINT TAB(27)C$(I);
1210 PRINT TAB(42)USING"##";I+CINT(Z/2)+1;:PRINT TAB(47)A$(I+cint(Z/2)+1);
1211 PRINT TAB(65)C$(I+cint(Z/2)+1)
1220 NEXT I
1230 K$=INKEY$:IF K$="" THEN 1230
1235 T=0:POKE 16916,0:GOTO 230

Toutefois sur la ligne 1130 je reçois un code d'erreur 

Expected operator in equation

Pouvez-vous me dire où se trouve l'erreur alors qu'en 32 bits la compilation en EXE ne pose pas de problème.

Merci pour votre aide.


Windows / Edge 124.0.0.0

A voir également:

1 réponse

NHenry Messages postés 15215 Date d'inscription   Statut Modérateur Dernière intervention   363
 

Je ne fais pas de QBasic, mais si je me base sur la doc que j'ai trouvé concernant USING : https://en.wikibooks.org/wiki/QBasic/Full_Book_View#USING

Il serait plus juste d'écrire :

1130 FOR I=1 TO Z:PRINT TAB(2), USING"##";I;:PRINT TAB(6), A$(I);

0
jeannot47
 

Grand merci; votre déduction est plus logique et de ce fait je peux enfin faire tourner mon programme en 64 bits.

Bon week-end

0