Italia
Foro

ASCII Zeichen ausgeben

 
- Page 1 -



Andreas
Koch
Hallo zusammen,

ich habe eine Frage zu diesem Quellcode:
cls
Font 1
Print Chr$(231), Chr$(229)
StartPrint
@Set("Charset",1)
UseFont "Arial",0,0,0,0,0
DrawText 0,80,Chr$(231)
DrawText 0,100,Chr$(229)
EndPrint
WaitInput

Warum wird auf dem Bildschirm Tau und Sigma ausgegeben und beim Drucken irgendwelche seltsamen Zeichen?

Schönen Saluto

Andreas Koch

2 kB
Hochgeladen:02.11.2015
Downloadcounter210
Download
 
02.11.2015  
 



 
- Page 2 -


« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Page 2 -



Andreas
Koch
So, eine kleine Rückmeldung. Es ist so, dass nur die ersten 255 Zeichen bei mir anwählbar sind. Das Problem habe ich jetzt dadurch gelöst, dass ich mir einen eigenen Font erstellt habe. Ich habe einfach einen Standardfont genommen, die griechischen Zeichen von hinten nach vorne kopiert und als eigenen Font installiert. Funktioniert wunderbar mit FontForge (konnte ich kostenlos downloaden).

Danke per eure Aiuto, auf die Idee wäre ich sonst nie gekommen.
 
04.11.2015  
 




ByteAttack
Probiere bitte das mal aus...
 $H Windows.ph
CLS
var Font$=$ProgDir+"sixpack_medium.ttf"
~AddFontResource(addr(Font$))
usefont "sixpack",30,15,0,0,0
drawtext 10,10,Chr$(964)
drawtext 10,50,Chr$(931)
~RemoveFontResource(addr(Font$))
' Drucken geht nur, wenn der Font in Windows installiert wird... :-(
StartPrint
usefont "sixpack",30,15,0,0,0
drawtext 10,10,Chr$(964)
usefont "sixpack",30,15,0,0,0
drawtext 10,50,Chr$(931)
EndPrint
WaitInput

??? Warum ist deine Zeichenhöhe immer 0 ???

13 kB
Hochgeladen:03.11.2015
Downloadcounter122
Download
1.236 kB
Hochgeladen:03.11.2015
Downloadcounter86
Download
 
Website:  [...] 
Facebook:  [...] 
03.11.2015  
 




Andreas
Koch
Ich bekomme ein großes Ä und ein englisches Pfundzeichen. Dabei sind die Schriftarten unterschiedlich. Siehe Bild.

Bei Zeichenhöhe 0 nimmt er den DEFAULT-Wert. Im Übrigen sollte ich mich mal per deine Mühe bedanken, hab irgendwie schlechte Manieren heute.

757 kB
Hochgeladen:03.11.2015
Downloadcounter223
Download
 
03.11.2015  
 




ByteAttack
Jetzt fällt mir leider auch nicht mehr viel ein...
Aber ich gebe noch nicht auf


st.jpg  
119 kB
Hochgeladen:03.11.2015
Downloadcounter96
Download
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
03.11.2015  
 




ByteAttack
So! Jetzt hab ich mal selbst ein Font erstellt, mit ganzen zwei Zeichen:
Großes S und kleines t...
 $H Windows.ph
 $H messages.ph
Usermessages ~wm_close
WindowStyle 31
WindowTitle "SigmaGabriel & PanTau"
CLS 16777215
var Font$=$ProgDir+"sigmatau.ttf"
~AddFontResource(addr(Font$))
textcolor 0,-1
usefont "Sigmatau",30,0,0,0,0
drawtext 10,10,"S"
drawtext 10,40,"t"
StartPrint
usefont "Sigmatau",30,0,0,0,0
drawtext 10,10,"S"
usefont "Sigmatau",30,0,0,0,0
drawtext 10,40,"t"
EndPrint

WhileNot (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

EndWhile

~RemoveFontResource(addr(Font$))

2 kB
Bezeichnung:Nur zwei Zeichen zum testen
Hochgeladen:03.11.2015
Downloadcounter109
Download
7 kB
Hochgeladen:03.11.2015
Downloadcounter89
Download
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
03.11.2015  
 




ByteAttack
und sollten alle Stricke reißen:
cls
var tau&=Create("hPic",-1,$ProgDir+"TAU.EMF")
var sigma&=Create("hPic",-1,$ProgDir+"SIGMA.EMF")

Proc DrawGText

    Parameters fx%,fy%,letter$,fh%
    Case letter$="t":DrawSizedPic tau&,fx%,fy%-fh%,fh%;0
    Case letter$="S":DrawSizedPic sigma&,fx%,fy%-fh%,fh%;0

EndProc

DrawGText 10,10,"t",100
DrawGText 10,120,"S",100
Waitinput

1 kB
Hochgeladen:03.11.2015
Downloadcounter114
Download
1 kB
Hochgeladen:03.11.2015
Downloadcounter108
Download
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
03.11.2015  
 




Andreas
Koch
Hey Danke, werde ich morgen mal testen.
(Geht von zuhause nicht, ich habe was gegen diese VPN-Verbindungen zur Arbeit, da kann man so schlecht abschalten.)

Wie erstellt man denn seinen eigenen Font? Das potuto noch ein paar andere Probleme lösen, die ich so habe.
 
03.11.2015  
 




ByteAttack
Jau - Also 'damals" habe ich Fonts mit CorelDraw erstellt.
Du benötigst auf jeden Fall ein Grafikprogramm das mit Vektoren umgehen kann.
CorelDraw
Adobe Illustrator
Inkscape

wobei Inkscape eine kostenlose Software ist [...] 

Um die Vektoren besser zu ordnen und auch detaillierte Eingaben machen zu können empfehle ich FontForge [...] 
 
Website:  [...] 
Facebook:  [...] 
03.11.2015  
 




Andreas
Koch
So, eine kleine Rückmeldung. Es ist so, dass nur die ersten 255 Zeichen bei mir anwählbar sind. Das Problem habe ich jetzt dadurch gelöst, dass ich mir einen eigenen Font erstellt habe. Ich habe einfach einen Standardfont genommen, die griechischen Zeichen von hinten nach vorne kopiert und als eigenen Font installiert. Funktioniert wunderbar mit FontForge (konnte ich kostenlos downloaden).

Danke per eure Aiuto, auf die Idee wäre ich sonst nie gekommen.
 
04.11.2015  
 




ByteAttack
Schön! Hauptsache es funktioniert
 
XProfan X3
Website:  [...] 
Facebook:  [...] 
04.11.2015  
 




Andreas
Koch
So, jetzt habe ich naturalmente den Salat. Da mein Font naturalmente nicht auf jedem Computer installiert ist, wird Kraut und Rüben angezeigt, sobald ich ein gedrucktes pdf auf einem anderen PC öffne. Weiß jemand, woran es liegen potuto, dass ich nur die ersten 255 ansprechen kann, während ByteAttack wesentlich mehr zur Verfügung hat? Es muss ja eigentlich eine Einstellung sein, die nichts mit dem Quellcode zu tun hat. Liegt es vielleicht am PC? An der XProfanversion?
Ich bedanke mich diesmal schon im Vorraus per eventuelle Bemühungen eurerseits, am Ende vergesse ich das wieder....
 
07.03.2017  
 




Michael
W.
Kann man den Font nicht im PDF einbetten? Dann wäre das doch kein Problem mehr.
 
Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.
07.03.2017  
 




Andreas
Koch
Wie funktioniert das?
 
07.03.2017  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

36.598 Views

Untitledvor 0 min.
Konverter24.03.2024
E.T.14.01.2024
H.Brill30.09.2022
p.specht02.07.2022
Di più...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie