Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Sonstiges » kleine basic-spielerei » Themenansicht

Autor

Thread - Seiten: -1-

000
13.02.2010, 10:41 Uhr
ralle

Spielerei am Rande

10 COLOR 7,0:CLS:PRINT“LOWRES-DEMO“
20 PRINT AT(20,17);INK 8;“KC85“
30 FOR i=0.01 TO 2 STEP 0.05
40 A=159:rem +100*cos(i)
50 B=160-120*cos(i)
60 C=127:rem +100*sin(i)
70 D=128-120*sin(i)
80 LINE A,C,B,D,7
90 LINE A,C,B,D,7+128:rem nur /4 aufwärts
100 NEXT i
110 GOTO 20

Funktioniert aber nur auf dem kc85/4 aufwärts, da mit +128 eine Löschfunktion benutzt wird. Leider weigert sich das BASIC standhaft dem UHRZEIGERSINN. Dafür sieht es doch recht nett aus

--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Dieser Beitrag wurde am 13.02.2010 um 12:28 Uhr von ralle editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
13.02.2010, 11:07 Uhr
Mobby5

Zitat:

ralle schrieb
Leider weigert sich das BASIC standhaft dem UHRZEIGERSINN.

Glaube ich nicht:

30 FOR i=2 TO 0.01 STEP -0.05

und ausserdem muss in Zeile 20 der Doppelpunkt durch ein Semikolon ersetzt werden
--
und ausserdem muss in Zeile 20 der Doppelpunkt durch ein Semikolon ersetzt werden

Dieser Beitrag wurde am 13.02.2010 um 11:36 Uhr von Mobby5 editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
13.02.2010, 12:29 Uhr
ralle

probiers, fehlt nur noch eine kollisionsabfrage mit beep
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
13.02.2010, 18:36 Uhr
Mobby5

Zitat:

ralle schrieb
probiers, ...

Bedeutet das, dass ich das probieren soll oder Du das probierst?
--
und ausserdem muss in Zeile 20 der Doppelpunkt durch ein Semikolon ersetzt werden

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
14.02.2010, 09:35 Uhr
ralle

das ist ja der sinn vom ganzem, wollte nur einen radarschirm nachstellen hihi
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
14.02.2010, 09:51 Uhr
Mobby5

Hatte es ja schon probiert. Also, bei mir kann das Radar im Uhrzeigersinn.
--
und ausserdem muss in Zeile 20 der Doppelpunkt durch ein Semikolon ersetzt werden

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
14.02.2010, 10:31 Uhr
DL
Default Group and Edit

aha...Radar...

im jkcemu funktioniert es auch , in beide Richtungen

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
14.02.2010, 10:53 Uhr
ralle

naja, der gek ist vieleicht eben der byte-modus bei den vordergrundfarben, bei mir hat der nur ein viertelkreis gezeichnet und mehr net...
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
11.05.2010, 14:28 Uhr
jmueller

Ich habe jetzt diese kleine BASIC-Spielerei auch mal ausprobiert,
sieht ja ganz süß aus!

In JKCEMU funktioniert es in der KC85/4-Emulation wunderbar,
auch in beide Richtungen.

In der KC85/3-Emulation bleiben die Linien stehen.
Da ich nicht weiß, ob das so sein muss oder ob es ein Fehler
in meinem Emulator ist,
habe ich das Programm auch in Torstens KCemu (KC85/3-Emulation) ausprobiert.
Und da gibt es wieder ein anderes Verhalten.
Die Linien bleiben auch stehen,
aber nach einem Durchlauf kommt eine Fehlermeldung.

Wie ist denn nun das Verhalten auf einem realen KC85/3?
- Bleiben die Linien stehen? ja/nein
- Kommt nach einem Durchlauf eine Fehlermeldung? ja/nein

Hier ein Link auf das konkrete Programm:
http://www.jens-mueller.org/tmp/radar.sss

Jens

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
11.05.2010, 15:22 Uhr
tp

Zitat:

jmueller schrieb
In der KC85/3-Emulation bleiben die Linien stehen.
Da ich nicht weiß, ob das so sein muss oder ob es ein Fehler

Ich denke, das meinte ralle im ersten Posting mit: "Funktioniert aber nur auf dem kc85/4 aufwärts, da mit +128 eine Löschfunktion benutzt wird"

Zitat:

jmueller schrieb
habe ich das Programm auch in Torstens KCemu (KC85/3-Emulation) ausprobiert.
Und da gibt es wieder ein anderes Verhalten.
Die Linien bleiben auch stehen,
aber nach einem Durchlauf kommt eine Fehlermeldung.

Die Fehlermeldung kommt nur, wenn man das BASIC Programm einfach in den Speicher bügelt. Dabei werden derzeit die BASIC-Speicher-Pointer nicht gesetzt und die Variablenzugriffe überschreiben das Programm. Damit knallt es mit dem ersten Sprungbefehl.
Wenn man das Programm über die Tape-Routinen nachlädt, passiert das nicht.
--
Die Zeit ist auch nicht mehr, was sie mal war! (Albert Einstein)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

010
11.05.2010, 16:23 Uhr
jmueller

@tp:

Zitat:

Ich denke, das meinte ralle im ersten Posting mit: "Funktioniert aber nur auf dem kc85/4 aufwärts, da mit +128 eine Löschfunktion benutzt wird"

Ich muss zugeben, dass habe ich auf die Schnelle überlesen,
und somit war das Ausprobieren in der KC85/3-Emulation eigentlich sinnfrei, sorry!

Zitat:

Die Fehlermeldung kommt nur, wenn man das BASIC Programm einfach in den Speicher bügelt. Dabei werden derzeit die BASIC-Speicher-Pointer nicht gesetzt und...

A-ha, danke!

Dass beim Laden einer SSS-Datei die BASIC-Zeiger nicht angepasst werden,
ist mir beim schnellen Ausprobieren gar nicht als mögliche Ursache in den Sinn gekommen.
Und somit hätte es ja durchaus sein können, dass der Aufruf dieser KC85/4-Löschfunktion
auf dem /3 tatsächlich das bewirkt was in deinem Emulator zu sehen ist.
Immerhin ist der KCemu im KC85-Umfeld ja viel mehr ausgetestet als mein Emulator,
sodass ein Fehler in JKCEMU nicht unwahrscheinlich wäre.

Jens

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

011
11.05.2010, 21:27 Uhr
KC87

Avatar von KC87

Habs mal als GIF gemacht und hochgeladen.

--
Freiheit in den kapitalistischen Gesellschaften ist nach wie vor, mehr oder weniger, das, was es auch in den antiken griechischen Demokratien war: Freiheit für die Eigentümer von Sklaven.
Wladimir Iljitsch Lenin, (1870 - 1924)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

012
14.05.2010, 19:47 Uhr
ralle

im gam hab ich auch was endeckt, muß nur mit gosub was gebaut werden, weil das orginale so mist ist. micha, warscheinlich wird es mit matrix
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

013
15.05.2010, 06:37 Uhr
ralle

hier mein nächstes attentat:
4999 end
5000 for x=a to b step-1
5010 printat(c,x);a$
5020 printat(c,x);b$
5030 next x
5040 return

und damit des geht:
1 a=37:b=0:c=7:a$="kc85":b$=" ":gosub 5000

also bei b$ soviele leerzeichen+1, wie a$ stellen hat. sonst wird es net gelöscht, was vorher mit printat geschrieben wurde.

5025 printat(c,x);a$

viel spass

edit: noch 2 zeilen hinzugefügt, damit es noch mehr spass macht
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Dieser Beitrag wurde am 15.05.2010 um 11:26 Uhr von ralle editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

014
15.05.2010, 17:35 Uhr
KC87

Avatar von KC87

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

015
15.05.2010, 18:33 Uhr
ralle

geht noch weiter, ein knickrittereffekt:

zeile 5025 vergessen oder löschen

5050 for x=b to a step 1
5060 printat(c,x);a$
5070 printat(c,x);b$
5080 next x
5090 return

zeile 1 gosub 5000 endfernen; wert b auf 1 und wert a auf 35 setzen

2 gosub 5000: gosub 5050
3 goto 2

jedemfalls kann man diverse sprüche zeilenversetzt (wert c) hinundherwabern lassen (werte a und b)
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

016
30.05.2010, 16:19 Uhr
ralle

das ganze geht auch hoch und runter, mit einem wert d. wenns fertig ist, hup ich mal
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

017
03.01.2012, 18:55 Uhr
ralle

Hier mal wieder eine kleine Spielerrei

10 CLS
20 A=39:B=12:C=10:A$="Ž":B$=" "
30 FORY=1TO14:READX$
40 GOSUB5000:PRINTAT(C,B);X$
50 B=B+1
60 NEXT:!RESTORE
61 !A=12:B=0:C=10:B$=" "
70 FORY=15TO27:READX$
80 GOSUB5050:PRINTAT(C,B);X$
90 B=B-1:! A=A+1
91 PRINTAT(C,B);" "
100 NEXT:RESTORE
4999 END
5000 FOR X=A TO B STEP-1
5010 PRINTAT(C,X);X$
5020 PRINTAT(C,X);B$
5025 NEXT
5030 RETURN
5050 FOR X=B TO A STEP 1
5060 PRINTAT(C,X);X$
5070 PRINTAT(C,X);B$
5080 NEXT X:RETURN
5100 FOR X=A TO C STEP-1
5110 PRINTAT(X,B);X$
5120 PRINTAT(X,B);B$
5130 NEXT X:RETURN
5150 FOR X=C TO A STEP 1
5160 PRINTAT(X,B);X$
5170 PRINTAT(X,B);B$
5180 NEXT X:RETURN
6000 DATAW,W,W,.,K,C,-,C,L,U,B,.,D,E
6001 DATAE,D,.,B,U,L,C,-,C,K,.,W,W,W

und der ausgangspunkt:

10 CLS
20 A=39:B=12:C=10:A$="Ž":B$=" "
30 FORY=1TO14:READX$
40 GOSUB5000:PRINTAT(C,B);X$
50 B=B+1
60 NEXT:RESTORE
61 A=12:B=0:C=10:B$=" "
70 FORY=1TO14:READX$
80 GOSUB5000:PRINTAT(C,B);X$
90 A=A+1
91 PRINTAT(C,B);" "
100 NEXT:RESTORE
4999 END
5000 FOR X=A TO B STEP-1
5010 PRINTAT(C,X);X$
5020 PRINTAT(C,X);B$
5025 NEXT
5030 RETURN
5050 FOR X=B TO A STEP 1
5060 PRINTAT(C,X);X$
5070 PRINTAT(C,X);B$
5080 NEXT X:RETURN
5100 FOR X=A TO C STEP-1
5110 PRINTAT(X,B);X$
5120 PRINTAT(X,B);B$
5130 NEXT X:RETURN
5150 FOR X=C TO A STEP 1
5160 PRINTAT(X,B);X$
5170 PRINTAT(X,B);B$
5180 NEXT X:RETURN
6000 DATAW,W,W,.,K,C,-,C,L,U,B,.,D,E

Schaut auch nicht schlecht aus
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

018
05.05.2019, 18:43 Uhr
ralle

Mal wieder was kleines, aber nur KC85/4 aufwärts.

10 cls:print"farbdemo"
15 for y=0 to 20o :step 15
20 for x=0 to 15
30 line 10,y+x,220,y+x,x
40 next x,y

Ist mir mal so eingefallen, aufgrund einer Diskussion. Dafür sehenswert.
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

019
25.02.2024, 19:36 Uhr
ralle

Wieder was lustiges, im EMU läuft es genau anders rum als am /4 aufwärts.

10 CLS
20 PRINT CHR$(27);"2";:COLOR 1,7:CLS:GOSUB 40
30 PRINT CHR$(27);"1";:COLOR 7,1:CLS:GOSUB 40
31 PRINT CHR$(27);"1";:PRINT CHR$(27);"2";
32 GOTO 31
39 END
40 PRINT:PRINT "* KC-CHAOS 4,5 *"
50 PRINT "%BASIC"
60 PRINT "%REBASIC"
70 PRINT "%SWITCH"
80 PRINT "%JUMP"
90 PRINT "%MENUe"
100 PRINT "%SAVE"
110 PRINT "%VERIFY"
120 PRINT "%LOAD.8.1"
130 PRINT "%COLOR"
140 PRINT "%DISPLAY"
150 PRINT "%MODIFY"
160 PRINT "%WINDOWS"
170 PRINT "%KEY"
180 PRINT "%SYSTEM"
190 PRINT "%LSTDEV"
200 PRINT "%V24DUP"
210 RETURN
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Sonstiges ]