Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

smiley bewegen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Bees



Anmeldungsdatum: 11.12.2005
Beiträge: 4
BeitragVerfasst am: 12.02.2006, 12:23    Titel: smiley bewegen Antworten mit Zitat
hallo,
ich habe folgendes problem;

Code:


a = 2
b = 2
CLS

DO
taste$ = INKEY$
LOCATE a, b
COLOR 15, 0
PRINT CHR$(1);

IF taste$ = CHR$(0) + "H" THEN
a = a - 1
END IF

IF taste$ = CHR$(0) + "P" THEN
a = a + 1
END IF

IF taste$ = CHR$(0) + "M" THEN
b = b + 1
END IF

IF taste$ = CHR$(0) + "K" THEN
b = b - 1
END IF

IF taste$ = CHR$(27) THEN END

LOOP


aber wenn ich das jetzt ausführe dann ist hinter dem smiley immer
noch ein smiley da ich das ja mit do und loop gemacht habe und
der jetzt immer wieder "hingeprintet" wird...
aber wenn ich ein cls in die schleife setze dann fängt alles an zu blinken
und das ist nicht besonders schön anzusehen.
Kann mir bitte jemand helfen?
danke schon mal

mfg
Bees
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Stormy



Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)
BeitragVerfasst am: 12.02.2006, 12:42    Titel: Antworten mit Zitat
Probier das mal aus... ist eine Quick&Dirty-Version und ist ungetestet ! lächeln

Code:
a = 2
b = 2
olda = a
oldb = b
CLS

DO
taste$ = INKEY$
LOCATE a, b
COLOR 15, 0
PRINT CHR$(1);

IF taste$ = CHR$(0) + "H" THEN
a = a - 1
END IF

IF taste$ = CHR$(0) + "P" THEN
a = a + 1
END IF

IF taste$ = CHR$(0) + "M" THEN
b = b + 1
END IF

IF taste$ = CHR$(0) + "K" THEN
b = b - 1
END IF

IF olda <> a OR oldb <> b THEN
LOCATE a,b: COLOR 0,0: PRINT " "
olda = a: oldb = b
END IF
IF taste$ = CHR$(27) THEN END

LOOP

_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Bees



Anmeldungsdatum: 11.12.2005
Beiträge: 4
BeitragVerfasst am: 12.02.2006, 15:31    Titel: Antworten mit Zitat
hm das funzt leider nicht...
aber trotzdem danke vll
weißt du ja ne andere möglichkeit

mfg
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
BeitragVerfasst am: 12.02.2006, 17:06    Titel: Antworten mit Zitat
mach so:

Code:
do
locate a,b
print chr$(1)
do:t$=inkey$:loop until t$<>""
locate a,b
print " " 'oder print chr$(32), ist das selbe wie " ", ein leerzeichen halt.

select case right$(t$,1)
case "H": a=a-1
case "K": b=b-1
case "M": b=b+1
case "P": a=a+1
case chr$(27): end 'Escape => beenden
end select
loop

_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
BeitragVerfasst am: 12.02.2006, 17:21    Titel: Antworten mit Zitat
Oben an MisterD's Code gehört noch das hin:
Code:
a = 2
b = 2
CLS

Wenn A=0 und B=0 dann würde es LOCATE 0,0 geben, was ja nicht zulässig ist.
CLS ist selbst erklärend.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Bees



Anmeldungsdatum: 11.12.2005
Beiträge: 4
BeitragVerfasst am: 12.02.2006, 19:11    Titel: Antworten mit Zitat
danke leute es funzt jetzt! JUHU

mfg
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz