| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
 Verfasst am: 17.07.2006, 13:16 Titel: cls |
 |
|
kann man auch den bildschirm ab einer bestimmten zeile an löscen, nicht den gesamten bildschirm?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
 |
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 17.07.2006, 13:37 Titel: |
|
|
Du könntest mit Line einen schwarzen Block über die gewünschten Zeilen machen (geht aber nicht in Konsole) oder einfach so etwas:
| Code: | for i=anfang to ende
? " "
next i |
_________________
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 |
|
|
raph ael
Anmeldungsdatum: 12.04.2006
Beiträge: 472
|
| Verfasst am: 17.07.2006, 13:43 Titel: |
|
|
Fehlt da nicht das abschließende ", oder ist das Absicht?
_________________
| Zitat: | | 1000 Yottabytes sind absurd. 640 Yottabytes sollten genug für jeden sein. |
|
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 17.07.2006, 13:50 Titel: |
|
|
im graphik bildschirm könntest du einen imagepuffer machen, also so in etwa:
| Code: |
screen 12
dim as integer pointer clr
const bgc=0 'Hintergrundfarbe Back-Ground-Color
clr=imagecreate(640,480) 'Puffergröße=Bildschirmgröße
'Zufallspixel setzen:
for x=0 to 639
for y=0 to 479
pset(x,y),int(rnd*256)
next y
next x
'Bildschirm ab Zeile 12 und Spalte 0 löschen:
put (0,12),image
|
_________________
Danke an Volta für seine großartige MMX_fade function. *verneig*
Personal-DNA:
<script src="http://personaldna.com/h/?k=qtrCFboSuCOpFrX-OI-AADBA-f78d&t=Free-Wheeling+Leader">
</script>
| Zitat: | | Das Forum für den zum QBASIC kompatieblen open soure FreeBasic Kompiler. |
by DJ. Peters |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 17.07.2006, 18:05 Titel: |
|
|
warum klappt dies nicht?
| Code: |
'blidschirm ab zeile bis maxzeile mit farbe loeschen
declare sub escr(zeile,maxzeile,farbe)
sub escr(zeile,maxzeile,farbe)
color 0,farbe
for counter=zeile to maxzeile
locate 1,counter
?" "
next i
locate zeile,1
end sub
|
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 17.07.2006, 20:28 Titel: |
|
|
| alfonsospringer hat Folgendes geschrieben: | | warum klappt dies nicht? |
 Im ernst:
Zeile immer 1, Spalte immer anders?
Ne, ne Umgekehrt
| raph ael hat Folgendes geschrieben: | | Fehlt da nicht das abschließende ", oder ist das Absicht |
Ist ja da, siehe Links der vielen Leerzeichen .
_________________
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 |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 18.07.2006, 11:50 Titel: |
|
|
Dafür würde ich aber eher die Verwendung von STRING$(??, 32) empfehlen
jb
_________________
Elektronik und Programmieren |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 18.07.2006, 13:36 Titel: |
|
|
bewirkt was ?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 18.07.2006, 13:50 Titel: |
|
|
chr$(32)=" "
oder?
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 22.07.2006, 21:09 Titel: |
|
|
Hi, auch wenn das Problem evtl. schon gelöst ist..
Hier für Konsole oder Grafikfenster eine Lösung für alle Spaltenbreiten.
| Code: | Option Explicit
'blidschirm ab startzeile, anzahlzeilen mit farbe loeschen
Sub escr(startzeile ,anzahlzeilen , farbe)
Dim counter As Integer
Color Not(farbe),farbe
For counter = startzeile To startzeile + anzahlzeilen
Locate counter,1
?String$(Loword (Width), 32)
Next i
Locate startzeile,1
End Sub
'Screen 18
'oder auch
Width 60, 40
escr 12, 15, 10
?"verdisch..."
Sleep
End |
Gruß Volta
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 23.07.2006, 09:49 Titel: |
|
|
Hi Urlauber,
der Urlaub scheint dir ja gut zu bekommen 
Wie ich hier schon beschrieben habe, suche ich immer noch nach einer Lösung
für das Löschen des blidschirms bis zum ZeilenEnde..
escr löst meine Probleme leider nicht völlig 
Wenn ich nämlich bis ans ZeilenEnde schreibe, kommt dieses blöde
LF dazu und dagegen ist auch escr machtlos..
(Ich muß dir ja nicht erklären, daß dazu das -1 entfernt werden muß )
Stör dich bitte nicht daran, das ich Farbe großgeschrieben habe und
zu einem variablen Parameter gemacht habe(löscht mit der aktuellen Farbe)
Ich will dich nicht darauf aufmerksam machen, daß du geschrieben hast,
sondern witzig ist, daß fbc das i komplett ignoriert(Ja, ich weiß, ist optional).
(Ich habe es extra in der Befehls-Referenz nachgelesen, dafür isse ja da..)
Trotz 'Option Explicit' bemängelt fbc nicht die Verwendung einer nicht-deklarierten
Variablen..
Weiterhin einen schönen Urlaub
Gruß
ytwinky
Achso, falls es interessiert: | Code: | 'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=? , ß=á ,§=õ , ©=¸
Option Explicit
'blidschirm ab startzeile, anzahlzeilen mit farbe loeschen
Dim i
Sub escr(startzeile, anzahlzeilen, Farbe=HiWord(Color))
Dim As Integer counter
Color Not(Farbe), Farbe
For counter=startzeile To startzeile+anzahlzeilen
Locate counter, 1
?String$(Loword (Width), 32)
Next i
Locate startzeile, 1
End Sub
Screen 18
'oder auch
'Width 60, 40
For i=1 To 25
?String(Loword (Width)-1, "#")
Next LineInTheForLoop
Sleep
escr 12, 15
?"Fertich.."
Sleep
End |
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 23.07.2006, 14:17 Titel: |
|
|
Hi ytwinky,
bei dieser Hitze sehne ich mich nach den angenehmen Temperaturen und dem Strand in Kühlungsborn .... ach ja..
Dies 'next i' ist mir nicht aufgefallen (kopiert aus dem Beiträgen darüber), aber wirklich seltsam das keine Fehlermeldung kam?
| Zitat: | | suche ich immer noch nach einer Lösung für das Löschen des blidschirms bis zum ZeilenEnde.. |
| Code: | | ?String$(Loword (Width), 32); |
Versuch es mal mit dem Semikolon in dieser Zeile, bei meinen Versuchen ging es!
Gruß Volta
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 23.07.2006, 14:54 Titel: |
|
|
Hi braungebrannterundunterunsererhitzeleidender-volta,
| ytwinky hat Folgendes geschrieben: | | Code: | | Next LineInTheForLoop |
|
..um den 'Fehler' aufzuzeigen, habe ich das ja so geschrieben..
Nix ge'dim't und nix gemeckert..
Ich weiß das mit dem ';' am Ende, ist ja auch nicht schlimm, wg. der Locate-Anweisungen in der Sub..
..aber funktioniert das auch bei überlangen Strings(Dateinamen)?
[Edit]
Erwartungsgemäß klappt es nicht, wenn ich '-1' durch '+4' ersetze..
..merkt der sich nicht irgendwo, wann er ein Zusatz-LF eingefügt hat 
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
