fontion consolecolor()

[claudibus]

bonsoir
je continus avec mes anciennes connaisance en Basic pour avoir une aide
petit programme qui ne sert a rien mais qui fais marcher les neurones voici le source

Code : Tout sélectionner

;test de déplacement 
;claudibus alias cpv le 23/01/08

OpenConsole()     ;ouvril une console
EnableGraphicalConsole(1)     ; mode graphique pour utilisation de ConsoleLocate

x=10
y=10

ConsoleColor (2,0)      ; couleur vert sur fond noir ( en principe)
Print (" choisir le texte : ")      ;saisir le texte a afficher
caractere$=Input()

ConsoleCursor(0)       ; pas de curseur

ConsoleLocate (x,y)     ; mettre la texte saisie au coordoné défini ( 10/10)
Print (caractere$)

Repeat      ; boucle principal


a$=Inkey()      ;lecture de la touche
position=RawKey()     ;lecture des touches de déplacement


If position <> 0     

ConsoleLocate(x,y)
longeur=Len(caractere$)

   For i=1 To longeur     ; pour effacé le texte sur la console 
   Print(" ")
   Next


    Select position
    
    Case 38     ;monte droite gauche bas
      y=y-1
    Case 40
      y=y+1
    Case 37
      x=x-1
    Case 39
      x=x+1
    Case 27     ; sortie du programme
      End
      
    EndSelect 
    
    
      
ConsoleLocate(x,y)      ; positionne le texte
Print  (caractere$)     ; affiche le texte

EndIf


ForEver

je n'ai pas de noir en color de fond j'ai essayé plusieur possibilité mais pas de noir en fond sur la console ( je suis nostalgique du fond noir et du texte en vert)
Une aide ou un post serrai le bienvenu
Bonsoir a tous

[Backup]

pour le vert d'origine , c'est la couleur 10 !!

chez moi ce code affiche bien la console fond noir et text en Vert Clair (le vrais Vert des moniteurs monochrome de l'epoque)

Code : Tout sélectionner

;test de déplacement
;claudibus alias cpv le 23/01/08

OpenConsole()     ;ouvril une console
EnableGraphicalConsole(1)     ; mode graphique pour utilisation de ConsoleLocate

x=10
Y=10

ConsoleColor (10,0)      ; couleur vert sur fond noir ( en principe)
Print (" choisir le texte : ")      ;saisir le texte a afficher
caractere$=Input()

ConsoleCursor(0)       ; pas de curseur

ConsoleLocate (x,Y)     ; mettre la texte saisie au coordoné défini ( 10/10)
Print (caractere$)

Repeat      ; boucle principal
  
  
  a$=Inkey()      ;lecture de la touche
  Position=RawKey()     ;lecture des touches de déplacement
  
  
  If Position <> 0     
    
    ConsoleLocate(x,Y)
    longeur=Len(caractere$)
    
    For i=1 To longeur     ; pour effacé le texte sur la console
      Print(" ")
    Next
    
    
    Select Position
      
      Case 38     ;monte droite gauche bas
        Y=Y-1
      Case 40
        Y=Y+1
      Case 37
        x=x-1
      Case 39
        x=x+1
      Case 27     ; sortie du programme
        End
        
    EndSelect
    
    
    
    ConsoleLocate(x,Y)      ; positionne le texte
    Print  (caractere$)     ; affiche le texte
    
  EndIf
  
  
ForEver 

[claudibus]

Merci Dobro pour ton aide j'ai enfin trouvé les valeur pour un fond noir et un texte vert ( sur mon PC)
les valeur que j'utilise sont : ConsoleColor ( 10 , 7 )

pourquoi et comment je ne sait pas mais ca marche

dans le meme etat d'esprit j'utilise ce code pour rendre la console noir

Code : Tout sélectionner

ConsoleColor ( 10,7)       ; couleur de texte vert et fond noir

For y = 0 To 24
  For x=0 To 98
  ConsoleLocate (x,y)
  Print (" ")  
  Next
Next 

Y a t'il une facon plus simple pour avoir le fond de la console avec une couleur défini ?

Merci et bonne journée

[Backup]

tu as surement un probleme !!

les couleurs pour la console avec ConsoleColor ()
c'est :

0 - Noir (fond par défaut)
1 - Bleu
2 - Vert
3 - Cyan
4 - Rouge
5 - Magenta
6 - Brun
7 - Gris clair (couleur texte par defaut)
8 - Gris foncé
9 - Bleu clair
10 - Vert clair
11 - Cyan clair
12 - Rouge clair
13 - Magenta clair
14 - Jaune
15 - Blanc

pour le text ou pour le fond !!

de deux choses, soit tu as eu un problème d'installation
de Purebasic, et je t'encourage a réinstaller !

soit tu utilise une version bizarre de purebasic !!..


mais normalement Purebasic fonctionne bien comme l'indique la Doc !!



ps : il est toujours possible qu'il y ait une incompatibilité avec ta carte graphique !! , mais si tu considère le 7 comme étant la couleur noir

sache que chez tout le monde , la couleur 7 , c'est bien gris clair !

donc ton prg ne fonctionnera bien que chez toi !!

[claudibus]

Bonjour Dobro et a tous les autres

Pour le moment j'utilise la version demo de PureBasic et au debut du mois prochain je m'offre la version enregistré

j'ai ete convaincu par le forum qui est rapide et lu par des pro comme toi

et par la vitesse et la facilité de PureBasic

bonsoir et a bientot