PureBasic

;kom j'ai dit, j'ai commençé hier, mais je suis tres a l'ancienne (pas programmé depuis 24ans). chris , dobro et je ne sais plus qui m'ont aidé. je voudrais juste savoir si il y a plus simple...

ah oui! c une partie de la routine , les "dim" pas plus courts ? et la boucle, il y a mieux ?

Code : Tout sélectionner

Repeat
r=Random(100)
rnd=Random(100) 
Until rnd=r;a revoir c nawak

;10	neu		code de conduite:1  =normal
;4	med		code de conduite:2  =medecin
;2	psy		code conduite:3     =psy
;32	bad	  code conduite:4     =mechant
;2  kil	  code de conduite:5  =tueur

OpenConsole()
Dim ent.l(50) : Dim cc.l(50) : Dim vie.l(50)

;donne un numero tj different aux 50 entitées
For i=1 To 50
rec:
ent(i)=Random(49)+1
For j=1 To i-1
If ent(i)=ent(i-j)
  Goto rec
EndIf
Next j
Print (Str(ent(i)))
Input()
Next i
End

comme ça tu vois mieux s'il y a des doubles

Code : Tout sélectionner

Repeat
    r=Random(100)
    rnd=Random(100)
Until rnd=r;a revoir c nawak

;10   neu      code de conduite:1  =normal
;4   med      code de conduite:2  =medecin
;2   psy      code conduite:3     =psy
;32   bad     code conduite:4     =mechant
;2  kil     code de conduite:5  =tueur

OpenConsole()
Dim ent.l(50) : Dim cc.l(50) : Dim vie.l(50)

;donne un numero tj different aux 50 entitées
For i=1 To 50
    rec:
    ent(i)=Random(49)+1
    For j=1 To i-1
        If ent(i)=ent(i-j)
            Goto rec
        EndIf
    Next j
    Print (Str(ent(i))+" " )  
    debut:
    If Inkey() ="" 
        Goto debut
    EndIf
    
Next i
End

et lorsque tu post un code sur le forum utilise le bouton

Code : Tout sélectionner

avant de poser ton code, et apres !
comme ça il sera dans un cadre , et c'est mieux ! :)

bon la console , c'est bien joli, mais faudrait voir a faire un application avec les fenêtres et une interface utilisateur maintenant :)

trop sympa, je ne savais pas faire ça, o fait , y a pas de double jesper(?)

le: inkey$="" < merci et pour les lignes en escalier tu utilises "tab" ou des espaces ?

le random n'est pas generé a chaque demarage c normal ?

heu pour passer a autre chose que la console , ça viendra quand j'en aurrai besoin

là c juste metre 50 lettres sur la console, kils se deplacent au hasard et kan 1 entitée rencontre une autre il execute sont code de conduite (reduire la vie , tuer(vie=0), guerir (vie=vie+1) ...etc...

les lettres seront: (n) normal; (d) medecin; (t) tueur; p (psy), m (mechant)

en gros je me demande ce que le hasard decidera, juste par jeu

.......

heu.... mon casse brique etait plus complexe

mais pour recommencer en pure basic , ta routine va bq me servir et pour ça je t'en remercie...

parcontre je le trouve foudroyant de rapidité "la pure"...

j'envisage de faire un truc comme un tamagoshi(?) ma tite bestiole a moi et avec "la pure" ça devrait le faire , bien meme sans peur d'en rajouter..

aaaAAAAhhh je me sens bien > boulot / code / dodo

chikun a écrit : heu.... mon casse brique etait plus complexe

oui oui !! la n'etant pas la question, le but etant de te montrer les bases du mode console ..
pas de te monter que j'avais la plus grosse !

sinon sur mon site j'ai aussi fait 2 casse brique plus "complexe" !!

j'en revient de ton site tres interressant

je vais apprendre "locate x,y" et tout ce qui s'y rapporte
ton casse brique m'a convaincu
merci

par contre et mdrr, ça commence bien , je ne comprend pas le:

resultat=openconsole()

au debut du prog car tu n'utilise pas la variable par la suite, sauf que tu réecris plus bas:

Resultat = RawKey ()

tu pe expliquer tout ça stp car pq ne pas metre seulement:
openconsole()

chikun a écrit : par contre et mdrr, ça commence bien , je ne comprend pas le:

resultat=openconsole()

disont qu'en purebasic une commande est en fait un appel a une procedure interne a purebasic

et comme toute procedure, il y a un retour de procedure, en l'occurence, le message d'erreur

par définition j'aurai même du écrire

Code : Tout sélectionner

if openconsole() 
....
...

endif

executer l'ensemble du code si l'ouverture de la console a réussi

là, j'ai pas voulu compliquer l'aspect du code, alors je recupere le resultat de la bonne ouverture ou non de la console dans une variable, mais elle me servirai seulemnt en cas de debuggage

pour le Rawkey, ben je recupere l'identifiant (scancode) de la touche pressé !

et je m'en sert pour savoir s'il faut deplacer la raquette et dans quel sens

et aussi pour lancer le code

ok c clair (zut g pas le smiley que je veux: le chinois qui remercie) (?)
du reste je n'arrive pas a voir des avatars, il me mank qqchose ?

bon autre chose, : comment tu fais le ti carré a gauche pour developper ou refermer, tres pratique

Le petit carré à gauche, ça fait partie du pliage. Et c'est très pratique.
Pour commencer une zone

Code : Tout sélectionner

;{ Ici tu peux mettre le titre que tu veux, c'est un commentaire

Pour terminer une zone

Code : Tout sélectionner

;} ici aussi tu peux mettre un commentaire

C'est comme les paires de parenthèses dans un calcul : ça peut se rentrer dedans (j'ai oublié le mot précis, «récursif» ptêt...).
Tu peux faire un arbre aussi. Bref, c'est un très bon moyen pour structurer la présentation de ta programmation.

Ollivier

merci

c nikel!

heu pq g pas tous les avatars ? ²

chikun a écrit :merci c nikel!

heu pq g pas tous les avatars ? ²

il faut changer ton theme du Forum (Profil )
celui par defaut est Buggé !

Code : Tout sélectionner


brique(xb,yb)=1

g du mal là...

........

PureBasic

voilà ma routine, merci d'y repondre!!

voilà ma routine, merci d'y repondre!!