 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
sunny0815
Anmeldungsdatum: 24.11.2004
Beiträge: 28
Wohnort: Ludwigshafen
|
 Verfasst am: 13.03.2005, 12:42 Titel: Hintergrund der Schriftfarbe ändern |
 |
|
Hallo Leute,
mein Problem treibt mich zwar nicht in den Selbstmord, aber ist dennoch lästig.
In meinem QB Programm habe ich den Bildschirm in Blau eingestellt. Wenn ich nun Schrift "Printe", erschient die weisse Schrift in schwarz hinterlegt, ich möchte aber den Hintergrund der Schrift in Bildschirmfarbe.
Weiterin möcht ich einzelne Worte im Satz in einer andern Farbe erstellen:
Z.B : das Haus ist groß
"das" in schwarz
"Haus" in Rot
"ist groß" in schwarz
Es ist ein Mess und Regel Programm und ich möchte wichtige Messwerte besonders (in einer anderen Farbe) hervorheben.
Wer kann mir helfen
Besten Dank.
Gruß
Michael |
|
| Nach oben |
|
 |
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 13.03.2005, 12:49 Titel: |
|
|
Hallo,
Für SCREEN 0:
| Code: |
SCREEN 0
CLS
COLOR , 1: REM Hintergrund: blau
COLOR 0: PRINT "Das ";
COLOR 4: PRINT "Haus ";
COLOR 0: PRINT "ist groß."
|
Alles klar?
Mit COLOR wird die Vordergrund/Hintergrundfarbe gesetzt.
jb |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
|
|
| Nach oben |
|
|
sunny0815
Anmeldungsdatum: 24.11.2004
Beiträge: 28
Wohnort: Ludwigshafen
|
| Verfasst am: 13.03.2005, 13:50 Titel: |
|
|
Hallo,
das mit dem color ist perfekt. War selber irgendewie zu doof dafür.
Vielen herzliche Dank
Michael
P.S.Dieses Forumist einfach klasse, habe schon so oft super Hilfe bekomme.
WEITER SO |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 13.03.2005, 13:58 Titel: |
|
|
Einfach alle Buchstaben mit GET einlesen, dann noch die Maske,
und einfach mit PUT wieder ausgeben.
BSP:
| Code: |
SCREEN 7
DIM Buchstaben(64, 65 TO 122)
DIM Masken(64, 65 TO 122)
REM Von a bis Z
FOR i = 65 to 122
REM Buchstaben einlesen
LOCATE 1, 1
PRINT CHR$(i)
GET(0, 0)-(8, 8), Buchstaben(0, i)
REM Und die Maske
FOR x = 0 to 8
FOR y = 0 to 8
IF POINT(x, y) = 0 then PSET(x, y), 15
NEXT y
NEXT x
GET(0, 0)-(8, 8), Masken(0, i)
NEXT
LINE (0, 0)-(320, 200), 10, BF
REM Anzeige des Zeichens "A"
PUT (150, 90), Buchstaben(0, ASC("A")), OR
PUT (150, 90), Masken(0, ASC("A")), AND
END
|
EDIT: Ach so, war wohl zu langsam....
jb |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
