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:

prog beenden ?
Gehe zu Seite 1, 2  Weiter
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 22.07.2006, 11:50    Titel: prog beenden ? Antworten mit Zitat

hi
nachdem ich mich seit ner weile net mehr gemeldet habe , hab ich mal wieder ne frage happy
mein prog , lässt sich nur am ende beenden durch tastendruck ...
jetzt wollt ich fragen , wie bekomm ich hin , dass sich das prog auch während des prozesses über das "X" beenden lässt . denn momentan , kannste bei mir draufklicken , und es passiert nichts .
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 22.07.2006, 13:03    Titel: Antworten mit Zitat

Bau 'ne Abfrage ein..
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
jb



Anmeldungsdatum: 14.01.2005
Beiträge: 2010

BeitragVerfasst am: 22.07.2006, 13:06    Titel: Antworten mit Zitat

Code:

E$ = INKEY$
IF E$ = CHR$(255) + "k" THEN END

Damit sollte das klappen. Wenn das immer abgefragt werden sollte, solltest du dir die Befehle
THREADCREATE und THREADWAIT anschauen, damit kannst du eine Art Multitasking erreichen...

jb
_________________
Elektronik und Programmieren
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 22.07.2006, 13:57    Titel: Antworten mit Zitat

jb hat Folgendes geschrieben:
Wenn das immer abgefragt werden sollte, solltest du dir die Befehle
THREADCREATE und THREADWAIT anschauen, damit kannst du eine Art Multitasking erreichen...

jb

Nein, das ist dann echtes Multitasking. Zunge rausstrecken

Kann der Zweite Thread überhaupt der ersten beenden?

Ich probiere es gleich aus.

Edit:
Code:
dim x
dim y
declare sub ender()

threadcreate(@ender)

do
    getmouse x,y
    locate 1,1
    ? x;y;"  "
loop

sub ender()
 IF INKEY$ = CHR$(255) + "k" THEN END
 sleep 20
end sub

Ja, es geht also.
_________________
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
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 22.07.2006, 15:00    Titel: Antworten mit Zitat

hi danke für die antowrten ,
nur ich kappier net ganz wie das jetzt geht .
kann man nicht einfach machen das man einfach wie es üblich ist , das programm über das kreuzchen bei windows oben rechts beenden ?

ich hab auch mal diesen code kopiert , aer wenn ichs starten will , kommt nen fehler .
danke
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
raph ael



Anmeldungsdatum: 12.04.2006
Beiträge: 472

BeitragVerfasst am: 22.07.2006, 15:08    Titel: Antworten mit Zitat

Welcher Fehler denn?
Wie meinst du, dass das Programm nicht beendet wird, wenn du auf das X klickst?

MfG Raphael
_________________
Zitat:
1000 Yottabytes sind absurd. 640 Yottabytes sollten genug für jeden sein.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 22.07.2006, 18:24    Titel: Antworten mit Zitat

Mark hat Folgendes geschrieben:
ich hab auch mal diesen code kopiert , aer wenn ichs starten will , kommt nen fehler .
danke

Ich habe Freebasic 0.16 Beta, welche hast du?

raph ael hat Folgendes geschrieben:
Wie meinst du, dass das Programm nicht beendet wird, wenn du auf das X klickst?

Windows hat oben rechts bei Freebasic Fenstern so ein Lustiges X.
Normalle Programme beenden sich, wenn du drauf klickst, FB Programme normallerweisse nicht.

Zum Fehler: Vielleicht geht es so?
Code:
dim x
dim y
declare sub ender()

threadcreate(@ender)
screen 12
do
    getmouse x,y
    locate 1,1
    ? x;y;"  "
loop

sub ender()
 IF INKEY$ = CHR$(255) + "k" THEN END
 sleep 20
end sub

_________________
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
raph ael



Anmeldungsdatum: 12.04.2006
Beiträge: 472

BeitragVerfasst am: 22.07.2006, 18:39    Titel: Antworten mit Zitat

*genervt*
ICH WEISS WAS DER X KNOPF IST! böse
Ich geb' dir den guten rat:

Versteck dich Frey, versteck dich gut!
Wenn man dich kommende Woche beim Fragen "Was ist der X Knopf oben rechts?" erwischt, wirst du mich zutiefst betrübt sehen, denn ich will das meine Männer dich finden. Und wenn sie das tun, übergeben wir dich nicht den Admins!
Also geb ich dir nochmal den rat: Versteck dich gut!

Und bisjetzt hab' ich jedes Programm mit dem X beenden können!
_________________
Zitat:
1000 Yottabytes sind absurd. 640 Yottabytes sollten genug für jeden sein.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 22.07.2006, 20:14    Titel: Antworten mit Zitat

Hi Mark,
kann es sein, daß du mit einem Konsolefenster arbeitest?
Wenn du mit Screen - Anweisung arbeitest (-s gui nicht vergessen) lässt sich jedes Fenster mit dem X-Button schließen.

Gruß Volta
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 22.07.2006, 20:33    Titel: Antworten mit Zitat

@volta : ich arbeite mit dem IDE oder wie das heißt . und da benutzt ich auch s gui , aber es lässt sich nichts schließen .

@raph ael : ja das meine ich .

@Michael Frey : jetzt gehts , aber wie beendet man jetzt das prog ?
- ich muss doch irgendeine taste + k drücken oder ?
achso wenn ich das dann einbauen würde , kann man das dann jederzeit während das prog läuft anwenden ?

danke für eure antworten .
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 22.07.2006, 21:02    Titel: Antworten mit Zitat

Hmmm,
auch wenn du mit der 'IDE' arbeitest erstellst du eine Konsolenanwendung, wenn du nicht SCREEN, oder SCREENRES benutzt.

Michaels Prog arbeitet mit 'Screen 12', und siehe: da geht es!
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 23.07.2006, 00:22    Titel: Antworten mit Zitat

ich benutze screen 16 .
thx
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 23.07.2006, 09:01    Titel: Antworten mit Zitat

Mark hat Folgendes geschrieben:
@Michael Frey : jetzt gehts , aber wie beendet man jetzt das prog ?

Mit dem X oben Rechts.
Mark hat Folgendes geschrieben:
- ich muss doch irgendeine taste + k drücken oder ?

Code:
IF INKEY$ = CHR$(255) + "k" THEN END

Das ist Alt und F4, wenn du auf das X oben Rechts klickst, "simuliert" Freebasic die diese Tastenkombination.
Du kannst dein Programm jetzt mit Alt F4 oder dem X oben Rechts beenden.


Ein grosser Nachteil sei noch gesagt:
Das Programm ist ziemlich launisch, verschluckt bei Input eingaben usw.
Code:
dim x
dim y
declare sub ender()
screen 12
threadcreate(@ender)

do
    input a$
    ? a$
loop

sub ender()
    do
        sleep 20
        IF INKEY$ = CHR$(255) + "k" THEN END
    loop
end sub

_________________
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
jb



Anmeldungsdatum: 14.01.2005
Beiträge: 2010

BeitragVerfasst am: 23.07.2006, 11:18    Titel: Antworten mit Zitat

Also ich hab irgendwo mal gehört, dass threadcreate und Konsorten etwas launisch sein sollen...

Da kann man lieber mit ein bisschen Verstand ein eigenes Pseudo-Multitasking hinbekommen, man
muss halt nur Routinen wie INPUT ersetzen, was allerdings kein allzu großes Problem darstellen sollte.

jb
_________________
Elektronik und Programmieren
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 23.07.2006, 14:25    Titel: Antworten mit Zitat

Michael Frey hat Folgendes geschrieben:
Ein grosser Nachteil sei noch gesagt:
Das Programm ist ziemlich launisch, verschluckt bei Input eingaben usw.


jap .hab es eingebaut und das gefällt mir net so .
gibts da noch ne alternative ?

@jb : sorry bin noch total unerfahren , und weiß net was du damit meinst
verlegen

Danke für die vielen Antworten !
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 23.07.2006, 14:40    Titel: Antworten mit Zitat

Mark hat Folgendes geschrieben:
ich benutze screen 16 .
thx

Es würde mich sehr wundern wenn es ein FB-prog mit
Code:
'...
Screen 16
'...
Sleep
End
gibt, dass nicht auf den X-Knopf reagiert.
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Mark



Anmeldungsdatum: 02.05.2006
Beiträge: 37

BeitragVerfasst am: 30.07.2006, 15:47    Titel: Antworten mit Zitat

ne es reagiert auch nicht auf den x- knopf .
_________________
gewinn nen pc oder 1000€ in bar !!!
http://mark.schenkt-dir-einen-pc.de
(ist nen gutes gewinnspiel zwinkern )
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 30.07.2006, 18:35    Titel: Antworten mit Zitat

Du könntest dich mit deiner Frage an v1ctor wenden..
Aber der reagiert ungehalten, wenn er nicht eine einzige Zeile Quellcode sieht..
..außerdem müßtest du in englisch schreiben.
Also poste den fraglichen Quellcode hier, dann kannste auch in deutsch schreiben
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 30.07.2006, 18:58    Titel: Antworten mit Zitat

volta hat Folgendes geschrieben:
Mark hat Folgendes geschrieben:
ich benutze screen 16 .
thx

Es würde mich sehr wundern wenn es ein FB-prog mit
Code:
'...
Screen 16
'...
Sleep
End
gibt, dass nicht auf den X-Knopf reagiert.

mark hat Folgendes geschrieben:
ne es reagiert auch nicht auf den x- knopf .

Machen wir wieder das Spiel, welche FB und welche Windows Version durchgeknallt .
Code:
screen 16
do
    sleep 1
loop

compiliert mit -s gui

Windows XP SP 2, Freebasic 0.16. x-Knopf beendet das Programm nicht.
_________________
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
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 30.07.2006, 20:06    Titel: Antworten mit Zitat

Hi,
bei Hardwareausstattung wie bei Michel Frey funktioniert das Prog einwandfrei(mit einer kleinen Änderung):
Code:
screen 16
do
    a$=inkey
    Sleep 1
loop until a$<>""
..und es reagiert auf den x-Knopf..
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite 1, 2  Weiter
Seite 1 von 2

 
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