Comment inserer un © dans QBasic

rcx -  
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

  • Votes
  • Date
  • Date décroissante
  2. rcx
    Re,

    C'est le même problème mais cette fois sa m'affiche un autre signe et non le ©.
    1. f894009
      Re,

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

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

      Cela se complique!!!!!
      1. 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.
        2. LePierre
          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
          1. 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.
            1. LePierre
              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é.
              2. LePierre
                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
                1. LePierre
                  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
                2. rcx
                  Merci à tous !