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:

CODE funktioniert nicht ...

 
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
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 21.10.2007, 11:38    Titel: CODE funktioniert nicht ... Antworten mit Zitat

Hi,

hab einen kleinen CODE gebastelt, der dateine verschiebt und gleichzeitig einen sound abspielt.


aber es funktioniert nicht richtig.
weil wenn ich die .exe starte dann wird richtig ausgegeben "nix da" wenn ich aber dann eine Datei in C:\Shared einfüge kommt immernoch fortlaufend "nix da" ...

wenn ich eine Datei vor dem Starten in den Ordner C:\Shared kopiere dann wird die Datei beim Starten verschoben. Dann kommt aber fortlaufend einen Fehler, dass keine Datei da is, dabei sollte der CODE eingetlich dann in die ELSE bedingung springen traurig

Code:
#INCLUDE "TiSound.bi"
DIM File AS STRING = DIR("C:\Shared\*.*")
DO
IF File <> "" THEN
    PRINT "was da"
    DIM strSoundFile AS STRING = "C:\TEMP_SHARE\test.mp3"
    SHELL "move C:\Shared\*.* C:\TEMP_SHARE\MUSIK"
    TiOpenSample(strSoundFile, "Test")
    TiPlaySample("Test")
    SLEEP 2000
    TiStopSample("Test")
    TiCloseSample("Test")
    SLEEP 3000
ELSE
    PRINT "nix da"
    SLEEP 5000
END IF
LOOP
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Flo
aka kleiner_hacker


Anmeldungsdatum: 23.06.2006
Beiträge: 1210

BeitragVerfasst am: 21.10.2007, 12:41    Titel: Antworten mit Zitat

also...
erstens, der titel ist wahnsinnig aussagekräftig... bitte gewöhn dir doch an, eine kleinere beschreibung des problems da reinzuschreiben zwinkern

dann, das geht deshalb nicht, weil am anfang zwar file seinen wert bekommt, nämlich ""
aber dann in der do schleife wird nicht mehr nach der datei gesucht, d.h. file bleibt ""

versuchs mal damit, am anfang file as string zu DIMen, und in der schleife dann file=dir(blablabla) zu machen

und: willkommen im forum happy (auch wenns schon der 5te beitrag ist happy)
_________________
MFG
Flo

Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.

zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 23.10.2007, 20:38    Titel: Antworten mit Zitat

danke jetzt funktionierts super ... grinsen
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 FreeBASIC. 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