Comment inserer un © dans QBasic

rcx -  
rcx Messages postés 15 Statut Membre -
Bonjour,

J'aimerai créer un programme et je veux insérer la touche ©. Le problème quand je tape la ligne du code, il m'affiche un autre signe lorsqu'il est exécuter. Dans le table ASCII il me dit que c'est la touche alt + 0169.

Donc imaginons je veux écrire se signe je dois faire :

PRINT CHR$(0169)

Une fois exécuter il m'affiche se signe ¬ mais de l'autre coter.

Comment écrire le © dans un programme sans qu'il se modifie lorsqu'on exécute le programme ?

Cordialement rcx.

9 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    écrire le ©: PRINT CHR$(184)
    0
  2. rcx
     
    Re,

    C'est le même problème mais cette fois sa m'affiche un autre signe et non le ©.
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    Qb45: écrire le ©: PRINT CHR$(184)

    VBA excel: écrire le ©: PRINT CHR$(169)

    Cela se complique!!!!!
    0
  4. rcx
     
    Re,

    Excuse je n'est pas spécifier que j'avais QB64. J'ai tester t'es deux et rien ne marche toujours un autre signe.
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. LePierre Messages postés 249 Statut Membre 338
     
    Bonjour

    Essaie ce petit programme : 
    cls
for i=169 to 190
print i;chr$(i),
next i

    Si tu ne vois pas ton caractère, modifie les valeurs du créneau de i (i pouvant varier de 0 à 255)
    Avec QB45 i=184.
    à plus
    0
  7. rcx
     
    Salut LePierre,

    J'ai tester les 255 caractères et il n'y a pas mon signe. Ce que j'ai remarquer c'est qu'il manque :
    mon signe = ©
    et celui là = ®

    Comment faire si sur tout les caractères aucun n'est mon signe.

    Cordialement rcx.
    0
  8. LePierre Messages postés 249 Statut Membre 338
     
    Bonjour
    Effectivement avec QB64 je n'arrive pas non plus à afficher ces caractères.
    Je n'ai pas de solution pour l'instant.
    Désolé.
    0
  10. LePierre Messages postés 249 Statut Membre 338
     
    Bonjour
    J'ai trouvé ceci (utilisation du code page 850) : 

    SCREEN 0
_FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 24, "MONOSPACE") 'select monospace font

RESTORE 'restore single DATA field
FOR ascii = 0 TO 255 'assign unicode values to ascii 128 to 255 only
    READ unicode&
    IF unicode& = 0 THEN unicode& = 9744 'make undefined characters look like a box
    _MAPUNICODE unicode& TO ascii 'replace ascii with unicode value
NEXT

'FOR code = 128 TO 255
'PRINT code; CHR$(code); 'display unicode characters
'NEXT

PRINT
PRINT CHR$(170), CHR$(185)
END

CP850:
DATA 0,9786,9787,9829,9830,9827,9824,8226,9688,9675,9689,9794,9792,9834,9835,9788,9658,9668
DATA 8597,8252,182,167,9644,8616,8593,8595,8594,8592,8735,8596,9650,9660,32,33,34,35,36,37
DATA 38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66
DATA 67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95
DATA 96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,
DATA 118,119,120,121,122,123,124,125,126,8962,199,252,233,226,228,224,229,231,234,235,232
DATA 239,238,236,196,197,201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402,225
DATA 237,243,250,241,209,170,186,191,174,172,189,188,161,171,187,9617,9618,9619,9474,9508
DATA 193,194,192,169,9571,9553,9559,9565,162,165,9488,9492,9524,9516,9500,9472,9532,227,195
DATA 9562,9556,9577,9574,9568,9552,9580,164,240,208,202,203,200,305,205,206,207,9496,9484
DATA 9608,9604,166,204,9600,211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160

    à plus.
    Pierre
    0
    1. LePierre Messages postés 249 Statut Membre 338
       
      Pour éviter de modifier l'ensemble des caractères de la police, tu peux ne modifier que ceux qui t'intéressent en procédant ainsi pour ® et © : 
      FOR ascii = 0 TO 255 'assign unicode values to ascii 128 to 255 only
    READ unicode&
    IF unicode& = 0 THEN unicode& = 9744 'make undefined characters look like a box
    IF ascii = 170 OR ascii = 185 THEN
        _MAPUNICODE unicode& TO ascii 'replace ascii with unicode value
    END IF
NEXT
      0
    2. rcx Messages postés 15 Statut Membre
       
      Merci à tous !
      0