Kleine BASIC 65-Programme - Sammelthread

Da fehlt das 400-Ausschlusskriterium (Jahre, die ohne Rest durch 400 geteilt werden können, sind *keine* Schaltjahre, etwa das Jahr 2000)

Arndt

Edit: Andersherum: die 400er sind Schaltjahre, die 100er nicht. Fehlt aber dennoch!

Quote from Snoopy

Mir ist bislang kein Datum untergekommen, für das der falsche Wochentag ausgegeben wird.

Kannst du überprüfen mit dem 29. Februar 2000 (ein Dienstag). Wenn das ausgegeben wird, entschuldige ich mich für meine Voreiligkeit!

Arndt

(Hab selber gerade keinen Zugriff auf meinen Mega)

Sehr gut. Kannst du da eine Funktion draus machen, damit man es in eigenen Programmen sinnvoll verwenden kann?

=fktWochentag(datDatum)

Und als Nächstes hätte ich gerne eine Funktion, die das Datum von Ostern für ein bestimmtes Jahr errechnet.

=fktOstern(datJahr)

Und eine Funktion, die zu einem bestimmten Datum eine bestimmte Anzahl Tage hnzurechnet oder abzieht.

=fktDatumDiff(datDatum, intTage)

Also z.B. fktDatumDiff("08.05.2025",-100) gibt das Datum vor 100 Tagen aus.

Oder fktDatum("08.05.2025",99) gibt das Datum in 99 Tagen aus.

Ich brauche das zwar nicht. Aber man wird ja mal Anforderungen stellen dürfen.

Vielen Dank.

Omega : ist alles im TSB-Programm „Please login to see this link.“ drin (bis auf die Ostersache).

Arndt

Son Code um Ostersonntag zu berechnen für die Jahre 1900 bis 2099 hab ich hier irgendwo in Python ich muss mal sehen ob ich Zeit finde zu umgestalten.

Ich finde die Idee, kleine Beispielprogramme für den MEGA65 zu sammeln, grundsätzlich super. Aus Erfahrung würde ich aber empfehlen, so eine Sammlung nicht ausschließlich im Forum zu führen. In einem längeren Thread gehen die Beiträge schnell zwischen Kommentaren, Rückfragen und Offtopic-Diskussionen unter. Und nach ein paar Wochen findet man kaum noch etwas wieder.

Sinnvoller wäre es meiner Meinung nach, die Programme zusätzlich auf einer eigenen Webseite zu sammeln - ähnlich wie es z. B. bei der TSB-Webseite gemacht wird. Dort kann man sie thematisch ordnen, durchsuchen und besser pflegen.

Außerdem fände ich es gut, wenn die Beiträge als eigenständige Funktionen mit kurzer Dokumentation veröffentlicht werden. Das erhöht die Übersichtlichkeit und macht es leichter, den Code später weiterzuverwenden oder zu verstehen.

Mit ein bisschen Struktur und Pflege kann so eine Sammlung langfristig wirklich hilfreich für alle werden.

Hallo Leute,

möchte auch mal mein Mini Progrämmchen vorstellen:

Please login to see this attachment.

Please login to see this attachment.

Das ist jetzt nichts weltbewegendes. Es ist nur ein Rad wo sich dreht und von links nach recht fährt. Mit der Taste Q wird das Programm beendet.

So weit die Erklärung zum Programm. Aber dahinter steckt ein kleiner Versuch ob man mit CHATGPT und Co Retroprogrammierung durchführen kann. Wenn ihr aber Denkt das das beim ersten Versuch so raus kam, liegt ihr total falsch.

Meine erste Frage war ob er sich mit dem Basic von Mega65 auskennt.

Und wie jede gute AI sagt er, das er natürlich die Basicbefehle kennt.

OK, legen wir los. Bin richtig gespannt was da jetzt alles passiert

Meine Angabe am Anfang für das kleine Basicprogramm war, das ich ein Rad mit sich drehende Speichen möchte programmiert habe möcht.

Darauf hin überlegte er kurz und spukte dann denn Code auch schon aus.

Ich möchte aber jetzt hier keinen Roman schreiben.

Ich mußte im Laufe des Prozesses ziemlich viele Basicbefehle als falsch deklarieren wie z. B. WAIT 2 - er wollte damit eine Verzögerung für die Animation erstellen. Ich habe in das mitgeteilt das dieser Befehl für was anderes gemüntzt ist, er soll statt dessen den Befehl SLEEP nehmen soll. Und so ging das mit ziemlich vielen Basicbefehlen. Man muss sehr geduldig sein und man muss aber auch die Befehle selber kennen wie Sie funktionieren.

Es mag bis jetzt noch nicht perfekt sein, aber warten wir noch ein paar Jahre, dann kann es sehr in­te­r­es­sant werden.

Aber in Moment für kleine Programme nicht übel, aber für größere Programme nicht wirklich gut.

Aber ich habe noch ein größeres Programm im Kopf, mal schauen in wie weit mir CHATGPT behilflich sein kann.

Wenn es was wird, bekommt ihr es mit.

Hat denn einer von euch auch schon mal so einen Versuch gestartet ?

Moin,

ich faends cool wenn bei den bewegten RUN's

vielleicht in kleines Video mitgeschickt werden kann um einen

Eindruck davon zu bekommen.

Drachen , eigentlich koenntest du daraus auch gleich eine

coole analog Uhr zaubern.

Quote from Snoopy

Quote from Oldie

Drachen , eigentlich koenntest du daraus auch gleich eine

coole analog Uhr zaubern.

Please login to see this link.

Please login to see this attachment.

....wenn jetzt noch der Sekunden Zeige angezeigt wird, waere es Super Supi. :-))

Die Skala ist uebrigens kaum zu erkennen. In Weiss waere es besser zu erkenn.

Quote from Snoopy

Quote from Oldie

....wenn jetzt noch der Sekunden Zeige angezeigt wird, waere es Super Supi. :-))

Die Skala ist uebrigens kaum zu erkennen. In Weiss waere es besser zu erkenn.

Der Sekundenzeiger wandert auf der Skala mit:

Please login to see this attachment.

Die Farben lassen sich frei nach Belieben ändern. Es ist ja ein BASIC-Programm.

Display More

Ah, Ok. Der Sekundenzeiger ist leider bei mir nicht sichtbar.

Da ich noch keinen MEGA65 habe, kann ich das Programm nicht starten.

und bin daher auf bewegte Bilder angewiesen.

Quote from Oldie

Quote from Snoopy

Quote from Oldie

....wenn jetzt noch der Sekunden Zeige angezeigt wird, waere es Super Supi. :-))

Die Skala ist uebrigens kaum zu erkennen. In Weiss waere es besser zu erkenn.

Der Sekundenzeiger wandert auf der Skala mit:

Please login to see this attachment.

Die Farben lassen sich frei nach Belieben ändern. Es ist ja ein BASIC-Programm.

Display More

Ah, Ok. Der Sekundenzeiger ist leider bei mir nicht sichtbar.

Da ich noch keinen MEGA65 habe, kann ich das Programm nicht starten.

und bin daher auf bewegte Bilder angewiesen.

Display More

Und was ist mit dem EMU?

Darauf kannst du dann das Programm starten und anschauen.

Ist etwas dunkel.

Palette ändern oder vorgefertigte Farben 11,12 15 verwenden.

und gut is

Servus zusammen,

ich habe gerade Urlaub und habe mir Dan`s Seite zu Paint durchprobiert.

Please login to see this link.

Dabei kam mir die Idee ob ich mit dem Dot Befehl eine Flamme animieren kann.

Es geht, wenn auch nicht besonders schnell. Man muss nach dem starten ca. 10 sec warten bis sich das Feuer aufgebaut hat.

5 BORDER 0
10 SCREEN 0,320,200,5
15 20 LAENGE=40 : HOEHE=25 : REM GERINGERE AUFLOESUNG FUER SCHNELLIGKEIT
30 DIM FEUER(LAENGE,HOEHE)

100 REM INITIALISIERE ARRAY
110 FOR Y=0 TO HOEHE
120   FOR X=0 TO LAENGE
130     FEUER(X,Y)=0
140   NEXT X
150 NEXT Y

200 REM ENDLOSSCHLEIFE
210 DO
220   REM TASTENABFRAGE FUER ABBRUCH
230   GET A$
240   IF A$="Q" THEN SCREEN CLOSE 0 : END

250   REM NEUE FUNKEN AM UNTEREN RAND
260   FOR X=0 TO LAENGE
270     FEUER(X,HOEHE)=INT(RND(1)*8)
280   NEXT X

290   REM NACH OBEN KOPIEREN UND ABDUNKELN
300   FOR Y=0 TO HOEHE-1
310     FOR X=0 TO LAENGE
320       C=FEUER(X,Y+1)
330       IF C>0 THEN C=C-INT(RND(1)*2) : IF C<0 THEN C=0
340       FEUER(X,Y)=C
350     NEXT X
360   NEXT Y

370   REM ZEICHNEN
380   FOR Y=0 TO HOEHE
390     FOR X=0 TO LAENGE
400       C=FEUER(X,Y)
410       IF C=0 THEN COL=0
415       IF C=1 THEN COL=16
420       IF C=2 THEN COL=2
430       IF C=3 THEN COL=8
440       IF C=4 THEN COL=17
441       IF C=5 THEN COL=18
442       IF C=6 THEN COL=7
450       IF C=7 THEN COL=1
460       DOT X*2,Y*2,COL
470     NEXT X
480   NEXT Y

490 LOOP

Retro_Noob Interessanter Algorithmus.

Ich konnte mich nicht beherschen und hab das Programm auf PETSCII umgebaut und ein wenig beschleunigt.

Jetzt füllt es den ganzen Bildschirm aus.

X=Exit

Please login to see this attachment.

So !

Nu isses aber schnell genug.

Und warten bis das Feuer aufgebaut ist muss man auch nicht mehr.

FIRE-RENDER berechnet einen LOOP von 25 Bildern & und speichert diese in FIRE.FLI.

FIRE-PLAY spielt die Animation ab und zwar so schnell das man es bremsen muss.

Wenn ihr wollt könnt ihr es mit 50 oder 60 FPS laufen lassen,was natürlich viel zuviel ist.

Please login to see this attachment.