Emails empfangen

[Robin F. (gehacktes)]

Schönen guten Morgen,

ich muss eine Facharbeit in QBasic (ich weiß nicht warum wir in der 
Techniker Schule noch Basic lernen) schreiben. Dazu hab ich mir überlegt 
eine Konsolen Anwendung zu Programmieren, wo man seine Email-Adresse 
eingeben kann und dann sobald eine Email rein kommt ein Signal Ton 
ausgegeben wird oder ein USB Port ein Signal bekommt um das weiter zu 
verarbeiten (bsp. LED Blinken lassen).

Da ich mehr Erfahrung in C habe, wollte ich das Projekt erstmal mit 
dieser Programmiersprache realisieren um es dann für QBasic 
umzufunktionieren (wenn es in Basic überhaupt möglich ist).

Ich habe bisher noch nix mit Emails empfangen etc. gemacht, daher ist 
das alles noch Neuland für mich.
Meine Frage ist daher, wonach muss ich im Web suchen für mein vorhaben? 
Mir fehlen Schlagwörter um eingehende Emails ab zugreifen. Ich hab es 
bisher mit "Emails empfangen in C" oder so versucht, bisher ohne erfolg. 
Mir fehlen gerade etwas die Ideen?!

Mit freundlichen Grüßen

[Hopper (Gast)]

emails gehen nicht einfach so ein. Die kommen zu einem Mailserver. Und 
von dort kann man sie abrufen. Je nacht mail server muss man auch 
Verschluesselung und Authentifikation machen.

Ohne passendes Betriebssystem mit den benoetigten Libraries wird das 
nichts. Man sollte bereits aus Kommunikationsanwendungen sepzialisiert 
sein, sonst wird das nichts.

Mein Tip. Mach was anderes.

[Bastler (Gast)]

Hi,
ich würde nach folgendem suchen
 - POP-Server abfrage
 - IMAP server abfrage

[Robin F. (gehacktes)]

Okey danke für die schnelle Antwort.

Hast du evtl. eine andere Idee was ich machen könnte? Will etwas machen, 
was auch irgendwie einen Nutzen hat und nicht einfach irgendwas wie z.B. 
eine Ampelsteuerung oder ein Ping Pong spiel.

[Jens (Gast)]

Robin F. schrieb:
> (ich weiß nicht warum wir in der
> Techniker Schule noch Basic lernen)

Weil es vermutlich so im Lehrplan steht. Vor einigen Jahren haben 
Informatiker noch gelernt, was Lochkarten sind.

Wobei Basic per Definition nichts schlechtes ist. Schaue dir mal das 
Visual Basic von MS. Die Grundfunktionen und Befehle sind die gleichen 
wie vor 25 Jahren. Das VB aber auf das .NET Framework aufsetzt kann man 
damit nahezu alle denkbaren Anwendungen programmieren. Das Senden und 
Abrufen von Emails ist damit ebenfalls möglich. Ob das mit QBasic geht, 
weiß ich nicht, vermutlich aber nicht. Dazu werden einfach die Befehle 
für die systemnahe Programmierung (Netzwerk) fehlen.

[Sparfuchs (Gast)]

Robin F. schrieb:
> (ich weiß nicht warum wir in der
> Techniker Schule noch Basic lernen)

Weil der Lehrer zu faul ist sich
mit den heute üblichen Programmiersprachen
auseinanderzusetzten. Er verwendet lieber
seine 20 Jahre alten Unterrichtskonzepte
und macht in den Freien nix.

[Robin F. (gehacktes)]

Ja Visual Baisc hab ich vor Jahren auch mal programmiert. Damit habe ich 
damals den Einstieg in die Programmierung gefunden.

Wir dürfen derzeit leider nur QBasic programmieren, da wir VB erst im 
kommenden Semester behandeln werden.

[Robin F. (gehacktes)]

Habt ihr dann irgendwelche anderen Vorschläge für Projektideen?

Das erschien mir derzeit am sinnvollsten von allen meinen Ideen.

[Jens (Gast)]

Robin F. schrieb:
> was auch irgendwie einen Nutzen hat und nicht einfach irgendwas wie z.B.
> eine Ampelsteuerung oder ein Ping Pong spiel.

Sorry, aber welchen besonderen Nutzen hat dein Email-Programm? Was kann 
es, was andere nicht können? Das automatische Anzeigen von neuen Emails 
machen Outlook und Co. auch. Die laden die Email auch gleich runter und 
speichern sie.

Für eine Belegarbeit sollte man sich immer so eine Aufgabe suchen, die 
man gut beherrscht und auch sicher bewältigen kann. Wenn dein 
Email-Programm nicht sauber funktioniert oder du nicht fertig wirst hast 
du eine schlechte Note. Schreibst du ein einfaches Programm, was sicher 
funktioniert, sauber dokumentiert ist und der Lehrer auch versteht, 
wirst du mit ziemlicher Sicherheit die bessere Note bekommen.

[G T M. (gt_m)]

Hi,

wenn das Thema noch nicht fest ist, würde auch Mailversand gehen? Das 
wäre gerade in einer Konsolenanwendung wesentlich praktischer zu 
realisieren.
Bspw. Anwendung mit Zieladresse und Betreff starten, von der 
Standardeingabe den Mailtext lesen und dann das Ganze abschicken.

RFC 5322 (oder welche das aktuell ist), ist ganz gut umsetzbar.

[technikerausbildung auf dem neuesten Stand (Gast)]

Robin F. schrieb:
> Habt ihr dann irgendwelche anderen Vorschläge für Projektideen?
>
> Das erschien mir derzeit am sinnvollsten von allen meinen Ideen.

Wenn der Lehrer die Tür aufmacht scrollt über den Bildschirm:
"Unser Lehrer ist stinkfaul. Er quält uns mit Sprachen aus der 
Kreidezeit."

Neben der Türe kann auch eine oder besser mehrere Druckluftfanfaren 
platziert werden.

[Robin F. (gehacktes)]

@G.T.M.

Das auch eine gute Idee. Das ganze kann man, wenn es soweit läuft und 
noch Zeit ist erweitern indem man Profile anlegen kann und dann nicht 
immer wieder vom neuen die ganzen Einstellungen tätigen muss.

[MirkoB (Gast)]

QBasic ist eine reine DOS Anwendung (auch wenns im Fenster läuft).
Du wirst deine eigenen Hardwaretreiber für die Netzwerkkarte schreiben 
müssen, danach einen IP-Stack aufsetzen und vielleicht danach irgendwann 
mal mit einem Mailserver reden können... Schau Dir mal das 
8086-Assembler an und freunde Dich mit PEEK und POKE an.

Achja...das ganze in nur 64kB...

Einfacher sollte es gehen, wenn Du dich über ein Modem (serielle 
Schnittsstelle!) an einen Zugangspunkt einwählst. Dann ist alles nur 
noch String-basiert.

Ansonsten schaue mal hier nach:
http://www.qbasic.de/  -> QBasic-MonsterFAQ -> Netzwerk

...über Hilfsprogramme scheint es auch zu gehen.

Mirko

[Robin F. (gehacktes)]

@technikerausbildung auf dem neuesten Stand

xD auch ne gute Idee. Allerdings ist es bestimmt suboptimal für meine 
Note.

@MirkoB

Ich vielen Dank ich gucke mal was da zu machen ist.

[Karl H. (kbuchegg)]

Dein Hauptproblem ist die Netzwerkanbindung.
Sobald du die gemeistert hat ist der Rest nur noch Strings hin und her 
schicken.

An einem POP Server Mails abholen ist nichts anderes als dem Server 
einen String (ein Kommando) schicken und der Server antwortet mit einem 
String zurück. (Angenommen SSL ist aus und es reicht die simple 
Authentizierung)

Der Knackpunkt an der ganzen Sache ist die Netzwerkanbindung. Hast du 
die in der Tasche, dann ist der Rest eine reine Zeitsache.
Also überprüf als erstes mal, ob und wie du von QBasic aus ans Netzwerk 
rankommst. Wenn das zu aufwändig ist, oder du nicht klar kommst, dann 
lass es. Und damit ist gemeint: alles was mit Internet oder Netzwerk 
auch nur im entferntesten zu tun hat. Dann eröffnest sonst eine 
Sysiphus-Arbeit, an der du nicht ferig werden wirst. Egal ob du dann 
Mail holst, eien Telnet-Client baust, einen kleinen HTPP Server machst 
oder per FTP eine Datei übertragen willst. Der Knackpunkt ist immer die 
untere Ebene des Netzwerks: wie öffne ich eine Verbindung, wie 
verschicke ich Daten. Kriegst du das nicht hin, dann ist es völlig 
wurscht, welche geniale Idee auf darüber liegenden Software-Schichten 
NICHT funktioniert.

[(prx) A. K. (prx)]

Karl Heinz schrieb:
> Dein Hauptproblem ist die Netzwerkanbindung.
> Sobald du die gemeistert hat ist der Rest nur noch Strings hin und her
> schicken.

Nett ausgedrückt, angesichts eines DOS Programms ohne 
Netzwerkfunktionen.

Robin F. schrieb:
> ich muss eine Facharbeit in QBasic

DOS-Basic und Netzwerk kannst du vergessen. Andere Aufgabe suchen.

[Robin F. (gehacktes)]

Ok dann mach ich mich mal an die Arbeit und such neue Ideen.

[(prx) A. K. (prx)]

Robin F. schrieb:
> ich weiß nicht warum wir in der Techniker Schule noch Basic lernen

Es ist letztlich egal, welche prozedurale Sprache du lernst. Du lernst 
primär, was Programmieren an sich ist, nicht die konkrete Sprache. Und 
das geht im Rahmen von Schulen mit QBasic auch, und einfacher als mit 
einem von der Sprache her nützlicheren C-Compiler.

In den 80ern konnte man im Informatik-Studium Assembler-Programmierung 
anhand eines programmierbaren Taschenrechners von TI erklärt bekommen. 
Auch das war nicht so absurd, wie es zuerst wirkte.

[Simon S. (-schumi-)]

Es gibt im übrigen einen sehr guten neueren Basic-Compiler:
http://www.freebasic-portal.de/

Mit dem habe ich mich nach QBasic beschäftigt, die Programme laufen ganz 
genauso (Ich glaube 1 oder 2 Kleinigkeiten muss man evlt. im Quellcode 
anpassen)

Mit Netzwerk habe ich nie programmiert, aber es scheint da was in die 
Richtung zu geben:
http://www.freebasic-portal.de/tutorials/netzwerkprogrammierung-tsne-v3-60.html

[EDIT]
Ein paar Beispiele zum Netzwerken:
http://www.freebasic-portal.de/code-beispiele/internet-netzwerke/

[Rainer V. (rudi994)]

Nimm doch das Übliche: Kundenkartei, Taschenrechner, Kartenspiel.

Wenn es nichts mit Schnittstellen oder Kommunikation sein muß, keinen 
alltägl. Nutzen haben muß und eine Grafikanwendung sein darf, dann mach 
doch was mit Baum des Pythagoras, Fraktal-Generator oder 2-dimensionalem 
Zellularautomat. Letzteres (s. Conway's Game of Life, Turing-Maschine) 
läßt sich auch gut mittels ASCII-Grafik darstellen. Es gibt eine Menge 
Infos auf z.B. Wikipedia, privaten Webseiten, teils engl.-sprachig.

Ich habe das mal unter DOS, später Windows, in z.B. QBasic, TPascal, VB6
und VB für Excel gemacht, versuche es jetzt in Java u. C/Cpp mit WinAPI.
Für mich haben o.g. 3 Grafikbeispiele eine spez. Bedeutung, man kann 
auch anders anfangen. In jedem Fall habe ich dabei eine Menge gelernt 
und bin dahin gekommen, meine Programme so zu schreiben, daß ich mögl. 
viele Dinge übernehmen kann und andere nur austausche, z.B. Routinen 
oder Ressourcen für Fenster, Menüs, Dialogboxen, Datenstrukturen.

[Karl H. (kbuchegg)]

Rainer V. schrieb:

> doch was mit Baum des Pythagoras, Fraktal-Generator oder 2-dimensionalem
> Zellularautomat. Letzteres (s. Conway's Game of Life, Turing-Maschine)
> läßt sich auch gut mittels ASCII-Grafik darstellen.

Ja, die sind immer beliebt.
Eine etwas weniger bekannte Abart davon, die nichts desto trotz 
interessant ist, ist zb. Wator

Eine torusförmige Welt (keine Angst, das klingt schlimmer als es ist. Es 
bedeutet einfach nur, wenn man auf einem 2D-Gitter rechts rausfährt, 
kommt man links wieder rein, dasselbe mit oben/unten) leben Haie und 
Fische. Fische haben unbegrenzt Nahrung und vermehren sich nach n 
Zyklen. Haie vermehren sich nach m Zyklen, müssen aber nach spätestens f 
Zyklen einen Fisch gefressen haben, damit sie nicht sterben. Ansonsten 
bewegen sich alle zufallsgesteuert. Ein Fisch bewegt sich in einem 
Zyklus auf ein Nachbarfeld, wenn eines frei ist. Ein Hai bewegt sich auf 
ein Nachbarfeld mit einem Fisch wenn möglich (den er dann frisst) bzw. 
auf eines der freien Nachbarfelder, wenn kein Fisch in der Nähe ist.

Das interessante daran: es stellen sich Zyklen ein, in denen die sich 
die Fische wie die wilden vermehren, woraufhin auch die Haie immer mehr 
werden, die dann fast alle Fische ausrotten (aber eben nur fast). 
Woraufhin dann die Haie zugrunde gehen und sich die Fischpopulationen 
sich wieder vermehren.

Angeblich hat man genau diese Zyklen bei ähnlich einfachen Systemen 
gebildet aus Schneehasen und (ich glaube es waren) Wölfe in den Weiten 
Kanadas tatsächlich gefunden.

http://www.kanitrino.de/de/Register/jaeger.html

[Rainer V. (rudi994)]

Passend zum Jahresende könnte man anstatt Tieren auch Nikoläuse nehmen, 
die böse Kinder auf dem Nachbarfeld in den Keller sperren. Und schon 
haben wir einen Keller-Automaten. Wenn das Spielfeld am Rand offen ist, 
dann stürzen sie alle ab, Nikoläuse, Haifische, Schneehasen usw.

[Odenwälder Tannenbaum (Gast)]

Wenn dein Lehrer ziemlich doof ist kannst du ihm das unterjubeln:

Du kannst von QBasic aus eine Textdatei auslesen die von einem anderen 
Programm beschrieben wird das die eigentliche Arbeit macht. Es verbindet 
sich mit dem Mailserver und fragt nach ob schon mail angekommen sind und 
schreibt die Infos in die Textdatei.
Da euer QBasic sowieso im Fenster unter Windows rennt kannst du das 
andere Programm in einer Scriptsprache deiner Wahl (was gerade auf dem 
Rechner installiert ist) erstellen. In Perl, PHP,... sind das nur ein 
paar Zeilen, da es schon entspr. Libs für Zugriff auf Mailserver gibt. 
Evt. gibts auch schon ein Kommandozeilenprogramm das unter Windows läuft 
und solche Abfragen durchführt. Unter Unix hiess sowas früher Xbiff, es 
check in regelmässigen Abständen Mailaccounts auf neue Mails, such mal 
nach winbiff biff for windows, evt. gibts sowas auch für Windows und 
einem Modus der die Daten als Text ausgibt. Die Ausgabe leitest du dann 
per ">" in eine Datei um.

[Robin F. (gehacktes)]

Danke für die wirklich guten Ideen.

Ich habe mir gestern Abend auch ein Projekt überlegt. Un zwar werde ich 
einen Terminkalender erstellen. Der soll unter anderem folgende 
Funktionen haben:

- Monatskalender (Grafisch anzeigen lassen, Termine anzeigen und 
farblich kennzeichnen sowie in einer späteren Version mit der Maus 
bedient werden können um Termine direkt dort einzutragen)
- Alle Termine anzeigen (in Auflistung)
- Termin eintragen
- Termin bearbeiten
- Option (Farbauswahl, Schriftauswahl, etc.)

Wenn ich mein eben beschriebenes Projekt fertig gestellt habe, werde ich 
mich zur Übung an die weiteren oben beschriebenen Projekte machen und 
euch dann präsentieren, falls es erwünscht ist.
Ich werde mich dann aber evtl. eher wieder der Sprache C widmen.

Grüße

[Rainer V. (rudi994)]

Super-Idee! Mir ist noch etwas eingefallen: Lotto-Statistik
Das habe ich mal in VB für Excel gemacht. Problem wäre noch, in 
Abständen an die aktuellen Daten der Lotto-Ausspielungsliste 
heranzukommen. Die gab es früher für ein paar Mark auf Diskette.

[Robin F. (gehacktes)]

Nabend,

ich habe das Prgramm soweit in C fertig gestellt. Also ich habe die 
wichtigsten Funktionen funktionstüchtig gemacht und jetzt will ich 
gerade alles in QBasic umschreiben.

Jetzt habe ich ein Problem. Ich weiß nicht wie ich das Datum als Wert 
einlesen soll.

In C ging das ganz einfach:

printf("\nGeben Sie Ihr gewuenschtes Datum ein: ");
  scanf("%d.%d.%d", &tag, &monat, &jahr);

In QB geht das aber nicht so wie ich es mir vorgestellt habe. Ich habe 
schon mehrere Sachen probiert, leide ohne erfolg. Hat einer von euch 
eine Idee wie ich das Datum in QB so wie in C einlesen kann?

Danke für die Hilfe

Liebe Grüße

[Rainer V. (rudi994)]

INPUT var1$  oder INPUT "Eingabe bitte:", var1$
http://www.o-bizz.de/qbtuts/qbefehl/index.htm
http://www.o-bizz.de/qbtuts/qb_befel/qb_befel.htm

[Robin F. (gehacktes)]

Achso jetzt weiß ich was mit dem $ Zeichen gemeint ist. Vielen Danke für 
die schnelle Hilfe.

[Rainer V. (rudi994)]

Dollarzeichen $ am Ende kennzeichnet eine Stringvariable.
In VBasic ebenso:  var1$  oder auch  var1 as String
Wie das mit Mehrfacheingabe ist weiß ich nicht mehr. Versuch es mal mit 
Komma oder Semikolon als Formatierungszeichen, z.B.:
INPUT "Tag, Monat, Jahr eingeben:", datum1$, monat2$, jahr3$

[Robin F. (gehacktes)]

Also mit Semikolon geht es gar nicht (kommt gleich ne Fehlermeldung) und 
mit Komma, wird das Datum nur in die erste Variable geschrieben. Aber 
ich glaub man kann bei QB das auch noch lösen indem man sagt, nach 2 
Tastenschlägen, benutz die 2. Variable oder? Da müsste ich aber noch 
gucken wie ich die Punkte vernachlässige/ignoriere beim eingeben. Wenn 
die Idee Funktioniert, wäre das die Lösung.

[Robin F. (gehacktes)]

Oder ich benutze ein String Array zum einlesen?! Dann könnte ich ja bei 
10 Zeichen die ich bei dem Datum eingebe jedes einzelne Zeichen 
auslesen. Somit könnte ich die Ziffern auch raus picken?!

[Robin F. (gehacktes)]

Hab es jetzt so versucht:

 
DIM dat(9)

INPUT "Tag, Monat, Jahr eingeben:" dat()  '<--- hier liegt der Fehler denk ich
PRINT dat(0), dat(1)
PRINT dat(3), dat(4)
PRINT dat(6), dat(7), dat(8), dat(9)

funktioniert aber nicht. Wie schon kommentiert, vermute ich dort den 
Fehler.
Weiß aber nicht wie das Array richtig einlesen soll?
Vielleicht ist schon etwas zu spät dafür aber wenn einer ne Idee hat 
wäre es sehr lieb, wenn Ihr mir einen Tipp geben könnt.

[Karl H. (kbuchegg)]

Robin F. schrieb:
> Oder ich benutze ein String Array zum einlesen?!

?
Wozu das Array?

> Dann könnte ich ja bei
> 10 Zeichen die ich bei dem Datum eingebe jedes einzelne Zeichen
> auslesen. Somit könnte ich die Ziffern auch raus picken?!

Das ist sowieso eine gute Idee, den benutzer erst mal einen String 
eingeben zu lassen. Denn was machst du, wenn der Benutzer "ABCDEF" 
anstelle von "1.1.2014" eingibt? Deswegen darf ein Programm nicht 
abstürzen.
Endbenutzertaugliche Eingaben beginnen normalerweise immer damit, vom 
Benutzer erst mal einen String eingeben zu lassen. Und aus dem holt man 
sich dann die Teile raus und verarbeitet sie weiter, die man braucht.

[Rainer V. (rudi994)]

Robin F. schrieb:
> INPUT "Tag, Monat, Jahr eingeben:" dat()

Da fehlt das Komma zw. den Parametern und ein unspezifiziertes Datenfeld 
eingeben geht schon gar nicht. Es könnte z.B. so heissen:
INPUT "Tag=", dat(1) :: INPUT "Monat=", dat(2) :: INPUT "Jahr=", dat(3)

[Rainer V. (rudi994)]

Hier ist mal ein Versuch, aber ohne umfassende Fehlerbehandlung:

REM Fehlerwert Errc: 0=kein Fehler, 65535=Abbruch, keine Eingabe
DIM Errc AS LONG, Erln AS LONG, Datum(3) AS INTEGER
CONST StopOnError AS BOOLEAN=False

SUB Datumeingabe()
DIM a$, b$, i AS INTEGER, j AS INTEGER

PRINT "Heute ist der " & DATE$ & ", " & TIME$ & " Uhr."

Label1: ON ERROR GOTO ErrHnd
REM  Eingabeschleife für Tag, Monat, Jahr
FOR i=1 TO 3
  b$=TRIM$(MID$( "Tag   Monat Jahr", i*6-5, 6)) :: INPUT b$ & " ? ", a$
  j=LEN(TRIM$(a$)) :: IF j<1 THEN GOTO Err1
1: Datum(i)=VAL(a$)
NEXT i

REM  Eingabewerte prüfen
FOR i=1 TO 3 
  SELECT CASE i
    CASE 1: IF (Datum(i)<1) OR (Datum(i)>31) THEN GOTO Err2
    CASE 2: IF (Datum(i)<1) OR (Datum(i)>12) THEN GOTO Err2
    CASE 3: IF (Datum(i)<0) OR (Datum(i)>9999) THEN GOTO Err2
  END SELECT
NEXT i

Errc=0 :: IF Datum(3)<100 THEN Datum(3)=Datum(3)+2000
Exit1: ON ERROR GOTO 0 :: EXIT SUB
Err1: Errc=65535 :: GOTO Exit1
Err2: PRINT "DU DÖDEL! Falsche Eingabe." :: BEEP :: GOTO Label1
ErrHnd: Errc=Err :: Erln=Erl :: ON ERROR GOTO 0
IF Erln=1 THEN GOTO Err2
IF StopOnError THEN ERROR(Errc) 
END SUB

Falls Funktion INSTR() in QBasic existiert, sollte o.g Code von Label1 
bis zum Ende der 1. FOR-Schleife durch folg. Code ersetzt werden können, 
wenn zu Beginn die Variable/Konstante "Vergleichstyp" definiert ist:

REM Vergleichstyp (aus VBasic): 0=vbBinaryCompare, 1=vbTextCompare
CONST Vergleichstyp AS INTEGER=1
...
Label1: ON ERROR GOTO ErrHnd
INPUT "Datum im Format tt.mm.jjjj eingeben: ", a$
j=LEN(TRIM$(a$)) :: IF j<1 THEN GOTO Err1
REM Analyse der Eingabe
FOR i=1 TO 3
  j=INSTR(1, a$, ".", Vergleichstyp)
  SELECT CASE i
    CASE 1, 2: IF j<1 THEN GOTO Err2
    CASE ELSE 
      j=LEN(a$)+1 
  END SELECT
  b$=MID$(a$, 1, j-1) :: a$=MID$(a$, j+1, LEN(a$)-J)  
  IF LEN(b$)<1 THEN GOTO Err2
1: Datum(i)=VAL(b$)
NEXT i

[Robin F. (gehacktes)]

Nabend,

so ich habe das Programm soweit erfolgreich programmiert.
Es sind noch einige Dinge die ich gern noch eingefügt hätte, aber ich 
habe keine lust mehr...noch mehr mit QBasic zu machen! Ich werde jetzt 
nach der Facharbeit mich wieder mit C und C++ beschäftigen.

Hier mal mein Programm: Es wird noch etwas an den Kommentaren und der 
Form gefeilt, aber alle Funktionen sind soweit vorhanden.
Falls ihr das Programm testen wollt, empfehle ich euch daraus eine Exe 
zu machen und die Dateien: Datum.rtf , Ereignis.rtf , bearbeiten.rtf & 
bearbeiten1.rtf zu erstellen
Wenn Ihr eine Exe erstellt habt und die .rtf Dateien im selben Ordner 
habt, braucht ihr keinen Pfad für die Dateien angeben.

'########################################################################
'#                                                                      #
'# Projekt: Terminkalender  V1.0                                        #
'# Autor: ****************************************                      #
'# Klasse: E12A1                                                        #
'# Fach: GRDV                                                           #
'#                                                                      #
'########################################################################

'----Display loeschen----
CLS
'------------------------------
'----Hauptprogramm----
'------------------------------
CALL menue
END
'
'
'------------------------------
'----Unterprogramme----
'------------------------------
SUB menue
w% = 7
DIM Zeilen(100) AS STRING

'------------------------------
'----aktuelles Datum anzeigen----
'------------------------------
d$ = DATE$
datum$ = MID$(d$, 4, 2) + "." + LEFT$(d$, 2) + "." + RIGHT$(d$, 4)
LOCATE w%, 28
PRINT "Heute ist der: "; datum$
'------------------------------
'----Termin Ja/Nein----
'------------------------------
w% = w% + 1
LOCATE w%, 20
OPEN "Datum.rtf" FOR INPUT AS #1
OPEN "Ereignis.rtf" FOR INPUT AS #2

DO UNTIL EOF(1)
    LINE INPUT #1, da$
    LINE INPUT #2, e$
    IF da$ = datum$ THEN
        w% = w% + 1
        LOCATE w%, 20
        PRINT "Sie haben heute folgenden Termin: "; e$
    END IF
    s$ = da$ + e$
    Zeilen(i) = s$
    i = i + 1
LOOP

CLOSE #1: CLOSE #2

IF da$ <> datum$ THEN
    LOCATE w%, 20
    PRINT "Fuer heute sind keine Termine eingetragen"
END IF
wiederholen:
'------------------------------
'----Menueoberflaeche----
'------------------------------
w% = w% + 2
LOCATE w%, 28
PRINT "<1> Termin eintragen"
w% = w% + 1
LOCATE w%, 28
PRINT "<2> Alle Termine anzeigen"
w% = w% + 1
LOCATE w%, 28
PRINT "<3> einzelne Termine loeschen"
w% = w% + 1
LOCATE w%, 28
PRINT "<4> Alle Termine loeschen"
w% = w% + 1
LOCATE w%, 28
PRINT "<5> Beenden"
w% = w% + 1
LOCATE w%, 28
PRINT "Eingabe:"
DO: taste$ = INKEY$: LOOP UNTIL taste$ <> "" 'Zahl zw. 1 und 5 druecken um in gewuenschte Untermenues zu gelangen
LOCATE , , 0 'Blinkenden Cursor deaktivieren
SELECT CASE taste$
    CASE "1"
        CALL eintragen
    CASE "2"
        CALL anzeigen
    CASE "3"
        CALL bearbeiten
    CASE "4"
        CALL loeschen
    CASE "5"
        CALL beenden
    CASE ELSE
        CLS
        w% = 7
        LOCATE w%, 22
        PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
        w% = w% + 1
        LOCATE w%, 22
        PRINT "Bitte erneut eingeben"
        GOSUB wiederholen
END SELECT
END
END SUB
'------------------------------
'----<1>Termin eintragen----
'------------------------------
SUB eintragen
CLS
wiederholen: 'bei fehlerhafter Eingabe hier hin zurueck kehren
LOCATE 6, 10
INPUT "Geben Sie Ihr gewuenschtes Datum (tt.mm.jjjj) ein: ", var1$ 'Datum fuer einen Termin eingeben

IF LEN(var1$) <> 10 THEN
    CLS
    GOSUB wiederholen
END IF
LOCATE 7, 10
INPUT "Geben Sie Ihren Termin ein: ", var2$ 'Ereignis fuer den vorher eingegeben Tag eingeben
'Speichert das Datum und das Ereignis in 2 Datein

OPEN "Datum.rtf" FOR APPEND AS #1
OPEN "Ereignis.rtf" FOR APPEND AS #2

wiederholen1:
LOCATE 9, 15
INPUT "Wollen Sie Ihre Eingabe wirklich speichern? [J/N] ", var$
var$ = UCASE$(var$)
IF var$ = "J" THEN
    PRINT #1, var1$
    PRINT #2, var2$
ELSEIF var$ = "N" THEN
    wiederholen2:
    LOCATE 10, 15
    PRINT "Wollen Sie Ihre Eingabe wiederholen? [J/N]"
    DO: taste$ = INKEY$: LOOP UNTIL taste$ <> ""
    LOCATE , , 0
    IF taste$ = "J" THEN
        CLS
        GOSUB wiederholen
    ELSEIF taste$ = "N" THEN
        LOCATE 12, 15
        PRINT "Press any Key"
        taste$ = ""
        WHILE taste$ = ""
            taste$ = INKEY$
        WEND
        CLS
        RESET
        CALL menue
        END
    ELSE
        CLS
        LOCATE 6, 15
        PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
        LOCATE 7, 15
        PRINT "Bitte erneut eingeben"
        GOSUB wiederholen2
    END IF
    END
ELSEIF var$ <> "J" OR var$ <> "N" THEN
    CLS
    LOCATE 6, 15
    PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
    LOCATE 7, 15
    PRINT "Bitte erneut eingeben"
    GOSUB wiederholen1
END IF
RESET
CLOSE #1: CLOSE #2

LOCATE 11, 15
PRINT "Der Termin wurde erfolgreich gespeichert!"
LOCATE 12, 15
PRINT "Press any Key"
taste$ = ""
WHILE taste$ = ""
    taste$ = INKEY$
WEND
CLS
RESET
CALL menue
END
END SUB
'------------------------------
'----<2>alle Termine anzeigen----
'------------------------------
SUB anzeigen
CLS
w% = 6
DIM Zeilen(100) AS STRING
'----der gesamte Inhalt der Textdateien wird gelesen----
OPEN "Datum.rtf" FOR INPUT AS #1
OPEN "Ereignis.rtf" FOR INPUT AS #2

DO UNTIL EOF(1)
    LINE INPUT #1, d$
    LINE INPUT #2, e$
    s$ = d$ + "    " + e$ 'Datum und Ereignis verknuepfen
    LOCATE w%, 25
    PRINT s$ 'Ausgabe der Verknuepften Variablen
    Zeilen(i) = s$
    i = i + 1
    w% = w% + 1
LOOP
RESET
CLOSE #1: CLOSE #2
IF s$ = "" THEN
    LOCATE w%, 15
    PRINT "Es sind keine Termine eingetragen"
    w% = w% + 2
    LOCATE w%, 35
    PRINT "Press any Key"
    taste$ = ""
    WHILE taste$ = ""
        taste$ = INKEY$
    WEND
    CLS
    RESET
    CALL menue
END IF

w% = w% + 1
LOCATE w%, 35
PRINT "Press any Key"
taste$ = ""
WHILE taste$ = ""
    taste$ = INKEY$
WEND
CLS
RESET
CALL menue
END

END SUB
'------------------------------
'----<3> Termine bearbeiten----
'------------------------------
SUB bearbeiten
CLS
DIM Zeilen(100) AS STRING
wiederholen:
w% = 6
'----der gesammte Inhalt der Textdateien wird gelesen----
OPEN "Datum.rtf" FOR INPUT AS #1
OPEN "Ereignis.rtf" FOR INPUT AS #2

DO UNTIL EOF(1)
    LINE INPUT #1, d$
    LINE INPUT #2, e$
    s$ = d$ + "    " + e$ 'Datum und Ereignis verknuepfen
    LOCATE w%, 15
    PRINT s$ 'Ausgabe der Verknuepften Variablen
    Zeilen(i) = s$
    i = i + 1
    w% = w% + 1
LOOP
RESET
CLOSE #1: CLOSE #2
'--------------------------------------------
IF s$ = "" THEN
    LOCATE w%, 15
    PRINT "Es sind keine Termine eingetragen"
    w% = w% + 2
    LOCATE w%, 15
    PRINT "Press any Key"
    taste$ = ""
    WHILE taste$ = ""
        taste$ = INKEY$
    WEND
    CLS
    RESET
    CALL menue
END IF
'--------------------------------------------

w% = w% + 1
LOCATE w%, 15
INPUT "Welcher Tag soll geloescht werden: ", var$

IF LEN(var$) <> 10 THEN
    CLS
    w% = 6
    LOCATE w%, 15
    PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
    w% = w% + 1
    LOCATE w%, 15
    PRINT "Bitte erneut eingeben"
    GOSUB wiederholen
END IF

OPEN "Datum.rtf" FOR INPUT AS #1
OPEN "Ereignis.rtf" FOR INPUT AS #2
DO UNTIL EOF(1)
    LINE INPUT #1, da$
    LINE INPUT #2, e$
    IF da$ = var$ THEN
        w% = w% + 1
        LOCATE w%, 15
        PRINT da$ + "    " + e$
        PRINT
        EXIT DO
    END IF
    s$ = da$ + e$
    Zeilen(i) = s$
    i = i + 1
LOOP
RESET
CLOSE #1: CLOSE #2

wiederholen1:
w% = w% + 1
LOCATE w%, 15
INPUT "Wollen Sie diesen Termin wirklich loeschen? [J/N]: ", var1$
var1$ = UCASE$(var1$)
IF var1$ = "J" THEN ' "J"a der Termin wird geloescht
    OPEN "Datum.rtf" FOR INPUT AS #1
    OPEN "bearbeiten.rtf" FOR OUTPUT AS #2
    OPEN "Ereignis.rtf" FOR INPUT AS #3
    OPEN "bearbeiten1.rtf" FOR OUTPUT AS #4
    DO UNTIL EOF(1)
        LINE INPUT #1, A$
        LINE INPUT #3, B$
        IF A$ <> var$ THEN
            PRINT #2, A$
            PRINT #4, B$
        END IF
    LOOP
    RESET
    CLOSE #1: CLOSE #2: CLOSE #3: CLOSE #4
    '-------------------------
    OPEN "bearbeiten.rtf" FOR INPUT AS #1
    OPEN "Datum.rtf" FOR OUTPUT AS #2
    OPEN "bearbeiten1.rtf" FOR INPUT AS #3
    OPEN "Ereignis.rtf" FOR OUTPUT AS #4

    DO UNTIL EOF(1)
        LINE INPUT #1, A$
        LINE INPUT #3, B$
        PRINT #2, A$
        PRINT #4, B$
        w% = w% + 1
        LOCATE w%, 15
        PRINT A$ + "   " + B$
    LOOP
    RESET
    CLOSE #1: CLOSE #2: CLOSE #3: CLOSE #4
    w% = w% + 1
    LOCATE w%, 15
    PRINT "Der Termin wurde erfolgreich geloescht!"
    w% = w% + 1
    LOCATE w%, 15
    PRINT "Press any Key"
    taste$ = ""
    WHILE taste$ = ""
        taste$ = INKEY$
    WEND
    CLS
    RESET
    CALL menue
    END
ELSEIF var1$ = "N" THEN ' "N"ein der Termin soll nicht geloescht werden
    w% = w% + 1
    LOCATE w%, 15
    PRINT "Press any Key"
    taste$ = ""
    WHILE taste$ = ""
        taste$ = INKEY$
    WEND
    CLS
    RESET
    CALL menue
    END
ELSE
    CLS
    LOCATE 6, 15
    PRINT "Es wurde eine falsche Eingabe getaetigt."
    LOCATE 7, 15
    PRINT "Bitte wiederholen Sie Ihre Eingabe! "
    GOSUB wiederholen1
END IF
END SUB
'------------------------------
'----<4>loeschen der gesamten Eintraege----
'------------------------------
SUB loeschen
'----der gesamte Inhalt der Textdatei wird geloescht----
CLS
wiederholen:
LOCATE 9, 15
INPUT "Wollen Sie wirklich alle Termine loeschen? [J/N]: ", var$
var$ = UCASE$(var$)
IF var$ = "J" THEN
    OPEN "Datum.rtf" FOR OUTPUT AS #1
    OPEN "Ereignis.rtf" FOR OUTPUT AS #2
    OPEN "bearbeiten.rtf" FOR OUTPUT AS #3
    OPEN "bearbeiten1.rtf" FOR OUTPUT AS #4
    PRINT
    RESET 'leert Puffer
    CLOSE #1: CLOSE #2: CLOSE #3: CLOSE #4
    LOCATE 11, 25
    PRINT "Alle Termine wurden geloescht!"
    LOCATE 12, 25
    PRINT "Press any Key"
    taste$ = ""
    WHILE taste$ = ""
        taste$ = INKEY$
    WEND
    CLS
    RESET
    CALL menue
    END
ELSEIF var$ = "N" THEN
    CLS
    CALL menue
ELSE
    CLS
    LOCATE 6, 15
    PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
    LOCATE 7, 15
    PRINT "Bitte erneut eingeben"
    GOSUB wiederholen
END IF
END SUB
'------------------------------
'----<5>beenden des Programms----
'------------------------------
SUB beenden
CLS
wiederholen:
LOCATE 9, 15
INPUT "Wollen Sie das Programm wirklich beenden? [J/N]: ", var$
var$ = UCASE$(var$)
IF var$ = "J" THEN
    SYSTEM 'beendet das Programm
ELSEIF var$ = "N" THEN
    CLS
    CALL menue 'kehrt zum Menue zurueck
ELSE
    CLS
    LOCATE 6, 15
    PRINT "Es wurde eine fehlerhafte Eingabe getaetigt"
    LOCATE 7, 15
    PRINT "Bitte erneut eingeben"
    GOSUB wiederholen
END IF
END SUB

Danke für all eure Hilfen.

Beste Grüße

[Rufus Τ. F. (rufus)]

Ich habe gewisse Zweifel daran, daß RTF hier das richtige Dateiformat 
ist.

[Robin F. (gehacktes)]

rtf ist ein typisches Mac OS Textdatei Format und funktioniert auch 
einwandfrei unter Windwos.

[(prx) A. K. (prx)]

Robin F. schrieb:
> rtf ist ein typisches Mac OS Textdatei Format und funktioniert auch
> einwandfrei unter Windwos.

Wobei man fairerweise sagen muss, dass RTF von MS stammt, nicht von 
Apple. Und es ein eher grausliches Format ist.

[Robin F. (gehacktes)]

Okey kann ja sein.

Daran soll es aber nicht scheitern ;). Ist ja schließlich ein leichtes, 
das Format zu ändern.

[Daniel F. (df311)]

ich habe gewissen zweifel daran, dass hier wirklich rtf erstellt wird. 
für mich sieht das eher nach plain text aus.
aber ich gebs zu, ich habe den code nur überflogen - ist mir zuviel code 
auf einmal mit zuwenig kommentaren...

[Rufus Τ. F. (rufus)]

Was hier erzeugt wird, ist nebensächlich, aber wenn in das Programm mal 
eine richtige RTF-Datei gesteckt wird, wie sie entweder von Textedit.app 
unter OS X oder von MS Word erzeugt wird, dann wird das Programm nicht 
mehr unbedingt das erwartete tun, denn auch wenn RTF formell ein 
Textdateiformat ist, ist der Nutzinhalt nicht so leicht zugänglich.

RTF ("rich text format") enthält nämlich diverse 
Formatierungsanweisungen und kann große Teile der 
Formatierungsinformation transportieren, die ein typisches Word-Dokument 
enthält - im schlimmsten Fall auch mit eingebetteten Graphiken etc.

Und so etwas verdaut das Progrämmchen da oben ganz sicher nicht.