Beiträge von Ticker

BruderJo

Herzlichen Glückwunsch.

Wow ganze vier in Worten vier Teilnehmer.
Wo sind die ganzen Meganer hin?

Ich fühle mich doch etwas alleine. 🤷‍♂️

Endspurt.
Habt ihr schon Schweiß unter der Zunge?

Hier schreibt doch nur keiner was um die Konkurrenz nicht zu wecken oder?

Wieder sehr aufschlussreich und informativ.
Es ist sehr angenehm dir zu folgen. Tolles Video.
Das es um Bier geht macht es noch interessanter.

Angekommen

Danke an alle Beteiligten.
Doppel Danke an ZeHa.

Schön wie hier Leben in die Bude kommt.

Freue mich auf die 5. Runde.

Weltherrschaft?

Wer?

Wann?

Wo?

Und vor allem von wo fährt wann der Bus?

Mein Mega steht hier, ich habe zwei „Projekte“ angefangen und nun habe ich einfach keine Zeit.

Ich hoffe das es im neuen Jahr besser wird und ich dann wieder durchstarten kann.

Sehr cooles Design.

Vielleicht habe ich nächste Woche mal Zeit zum Basteln.

Zitat von Snoopy

Zitat von Sierohpätsch

Zitat von Snoopy

wirklich relevanten Jugend-Disketten.

Also da solltest du unbedingt deinen geübten Kennerblick mal schweifen lassen.

Ist ja jetzt schon nach Mitternacht ...

Spoiler anzeigen

Alles anzeigen

Danke für diese äußerst ergiebigen Ergüsse.

das Programm hatte ich auch mal und es war besonders toll die Namen im Listing auf die Mädels aus der Klasse anzupassen.

Wir waren Jung und es war nichts Peinlich.

Fast nichts.

Vielleicht etwas.

Oder doch.

Super Sache.
Und das in BASIC. Ich bin begeistert.

Snoopy hat nicht nur einen Geldkoffer auf dem Dachboden gesucht sondern auch jede Menge Altlasten wieder gefunden.

Aber ich wäre selbst nicht auf die Idee gekommen auf diese Weise soviel Kurzweil zu erzeugen.

Mir gefallen diese "tausche Kaputt gegen Unterhaltung" Dinger sehr gut.

weiter so.

Meine ist heute eingetroffen.
mal sehen wann ich Zeit habe rein zu schauen.
Ik feu mi as de Dübel sien Grohtmudder.

Danke an alle.

Zitat von Goodwell

Die dritte Folge sollte bald fertig sein, ich hab aber entschieden, mich erstmal mit Grippe ins Bett zu legen.

aber sie wird kommen

Ich habe da einen Daumen hoch dran gemacht.
Nicht weil ich mich freue, dass du Grippe hast sondern weil ich mich freue das es bald weitergeht.
Also schön pflegen lassen und bald wieder auf die Beine kommen.
Alles Gute.

Sehr schöne Sache.
sowas hab ich mit 14 auch mal gebastelt.
Ich war jung und hatte kein Geld.
Das beste war das mein Lehrer nicht verstehen konnte, dass ein so schlechter Schüler wie ich sowas kann.

Zitat von Neptun

Hi,

meinst du so:

Code

1. 10 z=rnd(-ti-atn(1)):z=0
2. 30 dimf(3,3)
3. 40 fori=0to3
4. 50 forj=0to3
5. 60 f(i,j)=z:z=z+1
6. 70 next:next
7. 80 fori=0to3:forj=0to3
8. 90 z1=int(rnd(1)*4):z2=int(rnd(1)*4)
9. 100 r=f(i,j):f(i,j)=f(z1,z2):f(z1,z2)=r
10. 110 next:next:print
11. 120 fori=0to3
12. 130 forj=0to3
13. 140 print" "right$(str$(f(i,j)),2);
14. 150 next:print:next

Alles anzeigen

@Neptun genau DAS!!!

vielen Dank für die schnelle Hilfe.

Ich werde das in den nächsten Tagen mal für mich zerlegen um es auch wirklich zu verstehen.

Aber es ist genau das was ich gesucht / versucht habe..

DANKE!

Zitat von Kosmas

Ich stoße gerade durch Zufall hier drauf. Es geht noch schneller, auch ich brauche nur ein Feld, aber ich komme ohne if aus. Daher sind die Zeiten immer gleich, bei 100 Zahlen benötigt man knapp 4 sec. Getestet mit WinVice und C64Studio.

Das Feld wird initialisiert und mit Werten belegt. Dann kann man in einer weiteren Schleife alles mischen: Beim 1. Element kann man dieses mit irgendeinem der restlichen tauschen (also 100), dann das 2. Element mit einem der restlichen (also 99) usw. Die Variable P ist die Position, an der ich gerade mische, die Anzahl der noch nicht gemischten sind N-P. Z ist meine zufällige Zahl (zwischen 0 und N-P-1), sodass ich einfach die Stelle P mit (N-1) - Z tauschen kann.
P muss dann nur von 0 bis N-2 laufen (das letzte Element N-1 kann man ja nicht mehr tauschen).

Wenn man die ganzen REMs ab 100 entfernt, geht es noch etwas schneller.

Code

1. 10 REM MISCHEN INNERHALB EINES FELDES
2. 20 REM N:ANZAHL ZAHLEN
3. 30 REM M:ARRAY FUER ZAHLEN
4. 40 REM RE:NOCH NICHT GEMISCHTE ANZAHL
5. 50 N=100
6. 60 DIM M%(N-1)
7. 70 FOR I=0 TO N-1:M%(I)=I+1:NEXTI
8. 80 ?TI$:T=TI
9. 90 FOR P=0 TON -2
10. 100 REM N-P:SO VIELE ZAHLEN SIND NOCH NICHT GEMISCHT
11. 110 REM Z:SUCHE EINE DAVON AUS
12. 120 Z=INT((N-P)*RND(1))
13. 130 REM TAUSCHE INDEX P MIT N-1-Z
14. 140 T%=M%(P):M%(P)=M%(N-1-Z):M%(N-1-Z)=T%
15. 150 NEXT P
16. 160 ?TI$,(TI-T)/60
17. 170 FOR I=0 TO N-1:?M%(I),:NEXT I

Alles anzeigen

Alles anzeigen

Ich grabe das Ding nochmal aus. Ich möchte die Zahlen 0 bis 15 in ein 4x4 Zellen Array schreiben und mischen,

aber scheinbar bin ich zu dämlich das umzustellen. Geschwindigkeit ist relativ egal (BASIC 65)

Währe super wenn da jemand helfen könnte. Ich versuche mich jetzt schon mehrere Tage an dem Mist und bekomme es nicht hin.

Sehr interessant und lehrreich.

Weiter so.

Da sehe ich mich auch.
Das ganze in BASIC wäre der große Wurf, und dass das möglich ist hast du ja schon gezeigt.
Ich bin weiter sehr gespannt.

Disketten und sinnfrei in einem Satz?

Das verstehe ich nicht.
Das ist ja wie Computer und Kaktus.

Ich bin begeistert!!!

WiSim spukt mir schon eine Weile im Kopf herum. Ich bin mit meinem BASIC aber noch nicht so weit.

Für mich als MEGA´ner hat dein Ansatz einen besonderen Reiz.

Bitte weiter so und unbedingt nochmal über den Blog nachdenken.

GEILES PROJEKT!!!

Wiedermal ein schönes Ding. Für mich leider wie immer zu kurzweilig.

Es wahr wieder sehr informativ und inspirierend.

Gerne weiter so.