Sujet Précédent Sujet Suivant

Comment inserer un © dans QBasic

Fermé
rcx - 18 avril 2012 à 14:23
rcx Messages postés 13 Date d'inscription mardi 17 avril 2012 Statut Membre Dernière intervention 19 juillet 2013 - 21 avril 2012 à 20:13
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.


A voir également:

9 réponses

Réponse 1 / 9
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
18 avril 2012 à 16:45
Bonjour,

écrire le ©: PRINT CHR$(184)
0
Réponse 2 / 9
rcx
18 avril 2012 à 17:04
Re,

C'est le même problème mais cette fois sa m'affiche un autre signe et non le ©.
0
Réponse 3 / 9
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
18 avril 2012 à 17:28
Re,

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

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

Cela se complique!!!!!
0
Réponse 4 / 9
rcx
18 avril 2012 à 18:00
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

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

Posez votre question
Réponse 5 / 9
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
18 avril 2012 à 18:37
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
Réponse 6 / 9
rcx
Modifié par rcx le 18/04/2012 à 19:14
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
Réponse 7 / 9
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
19 avril 2012 à 15:24
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
Réponse 8 / 9
rcx
19 avril 2012 à 18:18
Ok, merci quand même.
0
Réponse 9 / 9
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
21 avril 2012 à 15:21
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
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
21 avril 2012 à 17:58
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
rcx Messages postés 13 Date d'inscription mardi 17 avril 2012 Statut Membre Dernière intervention 19 juillet 2013
21 avril 2012 à 20:13
Merci à tous !
0

Discussions similaires

Glisser un mail Outlook dans Excel
Tobar4 -
Babylou -

4 réponses