Anonymous




Register
Login

Amiga Future

Community

Knowledge

Service

Search




Advanced search

Unanswered topics
Active topics

Last Magazine

The Amiga Future 147 will be released on the 5th November.

The Amiga Future 147 will be released on the 5th November.
The Amiga Future 147 will be released on the 5th November.

The Amiga Future 147 will be released on the 5th November.
More informations

Social Media

Twitter Amigafuture Facebook Amigafuture RSS-Feed [german] Amigafuture RSS-Feed [english] Instagram YouTube

Advertisement

Amazon

Partnerlinks

Amiga Future Aktion: Probeheft für 1 Cent
Im Augenblick gibt es im Shop unter https://www.amigashop.org die Möglichkeit ein Probeheft der Amiga Future für 1 Cent (+ Versandkosten, inkl. MwSt.) zu bestellen.

Amiga Future Promotion: Sample issue for 1 cent
We have a special offer for all of you who’ve gotten a taste of it: Right now you can order an Amiga Future issue for 1 cent (plus shipping costs and included VAT) at https://www.amigashop.org.

Arexx: Fehler im Skript ?

Alles über programmieren am Amiga, Pegasos, Aros...

Moderator: AndreasM

Post Reply
ThorstenS

Arexx: Fehler im Skript ?

Post by ThorstenS »

In einer der AMIGA-Magazin Ausgaben habe ich ein Arexx-Skript gefunden, dass wie folgt ausschaut:

Code: Select all

/* Datumsausgabe mit Begrüßung */

Datum=date(s) ; Tag=date(w) ; Zeit=Time(n)
T=1*right(Datum,2) ; MNr=substr(Datum,5,2) ; J=left(Datum,2) Stunde=left(Zeit,2)

Monate = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
TageE = "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
TageD = "Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag"

if Stunde >=0 & Stunde <=3 then Begr="Hi, so spät noch aktiv ???"
if Stunde >3 & Stunde <=6 then Begr="So früh am Computer? Geh lieber ins Bett!"
if Stunde >6 & Stunde <=8 then Begr="Guten Morgen! Schon so früh auf?"
if Stunde >8 & Stunde <=12 then Begr="Guten Morgen."
if Stunde >12 & Stunde <=18 then Begr="Guten Tag."
if Stunde >18 & Stunde <=23 then Begr="Guten Abend."
if MNr=12 & T=31 then Begr="Ich wünsche eine feuchtfröhliche Silvester-Party!"
if MNr=01 & T=1 then Begr="Ich wünsche ein frohes neues Jahr."
if MNr=12 & T=23 then Begr="Frohe Weihnachten Thorsten!"

MonatName = word(Monate,MNr)
TNr = find(TageE,Tag)
TagName = word(TageD,TNr)

say " "; say Begr; say " "
say "Heute ist "TagName" der "T". "MonatName" "J". Es ist "left(Zeit,5)"  Uhr"
exit
Mein Problem ist, dass er die Jahreszahl nicht korrekt ausgibt. Dort wo die Jahreszahl stehen sollte, steht nur eine Ziffer, die Null ( 0 ).

Zudem steht ganz oben in dem Fenster das Wort "Begr". Dort sollte aber, so denke ich, der betreffende Tageszeiten-Satz stehen.

Benötige Hilfe !!

Ein paar Umstellungen im Skript, brachten keinen Erfolg. :(

Thomas
Amiga Future Redaktion
Amiga Future Redaktion
Posts: 969
Joined: 03.07.2001 - 02:00
Contact:

Post by Thomas »

Da fehlt ein Semikolon zwischen J=left(Datum,2) und Stunde=left(Zeit,2). Ich würde dir raten, als Anfänger immer nur einen Befehl in eine Zeile zu schreiben.

Außerdem muß es J=left(Datum,4) heißen.

Gruß Thomas
Last edited by Thomas on 11.01.2007 - 17:14, edited 1 time in total.

daxb
AFF Profi
AFF Profi
Posts: 593
Joined: 10.11.2002 - 01:42

Post by daxb »

Code: Select all

/* Datumsausgabe mit Begrüßung */

Datum=date(s) ; Tag=date(w) ; Zeit=Time(n)
T=1*right(Datum,2) ; MNr=substr(Datum,5,2) ; J=left(Datum,4) ; Stunde=left(Zeit,2)

Monate = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
TageE = "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
TageD = "Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag"

if Stunde >=0 & Stunde <3>3 & Stunde <6>6 & Stunde <8>8 & Stunde <12>12 & Stunde <18>18 & Stunde <=23 then Begr="Guten Abend."
if MNr=12 & T=31 then Begr="Ich wünsche eine feuchtfröhliche Silvester-Party!"
if MNr=01 & T=1 then Begr="Ich wünsche ein frohes neues Jahr."
if MNr=12 & T=23 then Begr="Frohe Weihnachten Thorsten!"

MonatName = word(Monate,MNr)
TNr = find(TageE,Tag)
TagName = word(TageD,TNr)

say " "; say Begr; say " "
say "Heute ist "TagName" der "T". "MonatName" "J". Es ist "left(Zeit,5)" Uhr"
exit

ThorstenS

Post by ThorstenS »

Vielen Dank!

Es hat funktioniert.. als nächstes kommt die Sprachausgabe dran...

Post Reply