Comment inserer un © dans QBasic

Question

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.


Configuration: Windows 7 / Firefox 10.0

f894009 · Answer

Bonjour,

écrire le ©: PRINT CHR$(184)

rcx · Answer

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

f894009 · Answer

Re,

Qb45: écrire le ©: PRINT CHR$(184)

VBA excel: écrire le ©: PRINT CHR$(169)

Cela se complique!!!!!

rcx · Answer

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.

LePierre · Answer

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

rcx · Answer

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.

LePierre · Answer

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é.

rcx · Answer

Ok, merci quand même.

LePierre · Answer

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

Comment inserer un © dans QBasic

9 réponses

Votre réponse

Newsletters