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
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
A voir également:
- Comment inserer un © dans QBasic
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Insérer un sommaire word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer pdf dans word plusieurs pages - Forum Word
9 réponses
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
18 avril 2012 à 16:45
18 avril 2012 à 16:45
Bonjour,
écrire le ©: PRINT CHR$(184)
écrire le ©: PRINT CHR$(184)
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
18 avril 2012 à 17:28
18 avril 2012 à 17:28
Re,
Qb45: écrire le ©: PRINT CHR$(184)
VBA excel: écrire le ©: PRINT CHR$(169)
Cela se complique!!!!!
Qb45: écrire le ©: PRINT CHR$(184)
VBA excel: écrire le ©: PRINT CHR$(169)
Cela se complique!!!!!
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
336
18 avril 2012 à 18:37
18 avril 2012 à 18:37
Bonjour
Essaie ce petit programme :
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
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
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.
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
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
336
19 avril 2012 à 15:24
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é.
Effectivement avec QB64 je n'arrive pas non plus à afficher ces caractères.
Je n'ai pas de solution pour l'instant.
Désolé.
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
336
21 avril 2012 à 15:21
21 avril 2012 à 15:21
Bonjour
J'ai trouvé ceci (utilisation du code page 850) :
à plus.
Pierre
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
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
336
21 avril 2012 à 17:58
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
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
21 avril 2012 à 20:13
Merci à tous !