Erreur en QB64

Résolu
jeannot47 - Modifié le 4 mai 2024 à 18:04
 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 15175 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 25 décembre 2024 350
4 mai 2024 à 20:48

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

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