BLOQUE

SUNDEC Messages postés 13 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 5 février 2010 - 4 févr. 2010 à 16:15
SUNDEC Messages postés 13 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 5 février 2010 - 5 févr. 2010 à 21:08
Voici un morceau de pg.
LOID =-18 (peut prendre valeurs >0 ou <0)
LOIAR est >0 (il vaut ds l'exemple 60)
le but est de faire décroitre LOI1, LOI2 etc
jusqu'à LGID (=-36 suiv la ligne ci-dessous)
1440 LGID = 2 * LOID
1446 LOI1 = LOIAR - 5: PRINT #1, "LOi1=": PRINT #1, LOI1

1460 LOI2 = LOI1 - 5: PRINT "LOi2=": PRINT #1, " LOI2=", LOI2
1470 IF LOI2 + LOID = LGID THEN GOTO 1830 ELSE GOTO 1480
1480 LOI3 = LOI2 - 5: PRINT "LOi3=": PRINT #1, LOI3
1490 IF LOI3 + LOID = LGID THEN GOTO 1830 ELSE GOTO 1500
etc
En tete il a DEFDBL A-Z
LE pg lancé decroit bien de 60 à 0 mais impossible de
faire prendre à LOI
des valeurs négatives:-5, -10,-15
Que faut-il faire? Merci d'avance!

3 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
4 févr. 2010 à 16:57
pas bonjour non plus ...
Ce n'est pas du VB.Net, mais du Basic pur et simple !

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
0
SUNDEC Messages postés 13 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 5 février 2010
4 févr. 2010 à 18:17
Desolé le Bonjour a été coupé dans le copier-coller a partir du bloc note (je prépare la question à l'avance sur le bloc note car si je tape direct sur le site je suis souvent coupé par internet.)
Oui c'est du basic, mais le basic n'est-il pas le père du VB?
Et je ne vois aucune rubrique sur codes-sources réservé au basic.
Alors si quelqu'un peut me donner un avis.....
Merci d'avance à tous.
0
SUNDEC Messages postés 13 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 5 février 2010
5 févr. 2010 à 21:08
PROBLEME RESOLU
Salutations
0
Rejoignez-nous