CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

un truc que je sais pas

raiku
raiku
Niveau 8
03 octobre 2004 à 12:08:29

voilà ça c le prog , il est moche mal structuré ect... je sais.
C´est du qbasic juste au cas ou.
CLS
SCREEN 12
DIM x AS LONG
DIM y AS LONG
DIM a AS LONG
DIM i AS LONG
DIM joueur1 AS STRING
DIM p1 AS LONG
PRINT " 8 = haut"
PRINT " 2 = bas"
PRINT " 4 = gauche"
PRINT " 6 = droite"
PRINT " 5 = choisir un cercle"
PRINT " 0 = afficher les points"
PRINT " F1 = quitter"
COLOR 2
INPUT " entrer le nom du joueur 1"; joueur1
PRINT " appuyez sur une touche pour continuer"
DO
LOOP UNTIL LEN(INKEY$)
CLS
COLOR 9
x = 40
y = 60
a = 25
FOR cercleX = 40 TO 580 STEP 60
FOR cercleY = 60 TO 360 STEP 55
CIRCLE ( cercleX, cercleY), 25
SOUND cercleX + cercleY, 1
PAINT ( cercleX, cercleY)
NEXT
NEXT
LINE ( 15, 370)-(605, 372), 4, BF
LOCATE 25, 4
COLOR 5
PRINT joueur1
compte:
LOCATE 26, 4
PRINT " points:"; p1 + i
COLOR 5
CIRCLE ( 40, 60), 25
DO
SELECT CASE INKEY$
CASE " 8"
GOSUB haut:
CASE " 2"
GOSUB bas:
CASE " 4"
GOSUB gauche:
CASE " 6"
GOSUB droite:
CASE " 5"
GOSUB action:
END SELECT
LOOP UNTIL INKEY$ = CHR$(27)
END
haut:
CIRCLE ( x, y), a, 9
y = y - 55
IF y < 60 THEN y = y + 55
CIRCLE ( x, y), a
RETURN
bas:
CIRCLE ( x, y), a, 9
y = y + 55
IF y > 360 THEN y = y - 55
CIRCLE ( x, y), a
RETURN
gauche:
CIRCLE ( x, y), a, 9
x = x - 60
IF x < 40 THEN x = x + 60
CIRCLE ( x, y), a
RETURN
droite:
CIRCLE ( x, y), a, 9
x = x + 60
IF x > 580 THEN x = x - 60
CIRCLE ( x, y), a
RETURN
action:
COLOR 0
SOUND 131, 2
CIRCLE ( x, y), a
PAINT ( x, y)
SOUND 264, 2
SOUND 330, 2
SOUND 392, 2
COLOR 9
CIRCLE ( 311, 408), 25
PAINT ( 311, 409)
SLEEP 1
SOUND 392, 2
PAINT ( 311, 408), 0
CIRCLE ( 311, 408), 25
SLEEP 1
SOUND 440, 2
PAINT ( 311, 408)
SLEEP 1
LOCATE 1, 2
PRINT " appuyez sur 0 pour afficher vos points"
DO
FOR i = -50 TO 50 STEP 2
IF INKEY$ = " 0" THEN EXIT DO
NEXT i
LOOP UNTIL INKEY$ = " 0"
SOUND 494, 2
PAINT ( 311, 408), 0
CIRCLE ( 311, 408), 25
SLEEP 1
SOUND 523, 2
SOUND 659, 2
SOUND 784, 2
LOCATE 26, 38
COLOR 5
PRINT i
GOTO compte

raiku
raiku
Niveau 8
03 octobre 2004 à 12:12:40

ne tenez pas compte du goto compte et du print"points"; p1+i
Bon voilà ce que je voudrais faire le nombre qui s´affiche dans le cercle doit s´afficher là ou il y´a écrit print , c´est un score en fait et il doit s´additionner à chaque fois et ça je sais pas faire ( ou peut etre que si mais bon....) parce que si je met print i les point ne s´ajouterons jamais.
J´avais alors penser à ce que l´ordi cree une nouvelle variable à chaque fois et qui les additionne mais par contre c sur je sais pas faire et je sais pas si c possible.
Enfin bref si vous savez comment je peux faire pour additionner le i dite le moi.

dnob700
dnob700
Niveau 10
03 octobre 2004 à 17:07:31

avant d´apprendre à programmer en qbasic, il faut aprendre la programmation structuré en français, enfin, surtout apprendre à structurer le français.

te comprendre est une vraie douleure ( comme disent les anglais).

bon, je crois que tu veux en gros un truc ou tu sélectionne des rond avec des chiffres dedans et la somme de tout les point que tu as sélectionnez s´affiche ?

tout en haut, tu mets :
DIM Point as integer ´c´est peut-^tre ce que tu appelle déjà P1
puis, a chaque fois que le joueur sélectionne un cercle avec le numéro i dedans tu fait :
Point=Point + i
et juste après :
print Point

Ca va ? c´est vraiment pas très dur, tu ne vas pas ma faire croire que tu ne sais pas affecter des valeur à des variables. Si c´est le cas, replonge toi dans des tuto ou des bouquin avant d´essayer de faire des programme comme ça.

raiku
raiku
Niveau 8
03 octobre 2004 à 17:45:14

lol c bizarre je me débrouille plutot bien en fr au lycée, ha c peut etre parce que je prend 2 h.
Enfin bref, si en fait je savit le faire d´ailleur j´ai fais ça et ça n´avait pas fonctionné alors j´avais du faire une erreur conne quelque part.
Merci pour le coup de main.
PS: J´essayerai de m´exprimer avec une plus grande clareté à l´avenir.

Sous forums
  • Aide à l'achat Mac
  • Création de Jeux
  • Linux
  • Programmation
  • Création de sites web
  • Internet
  • Steam Deck
  • Macintosh
  • Hardware
La vidéo du moment