Man haben hier einige Probleme.
Laßt euch doch einfach Überraschen. Der gute Mann weiß doch nicht was jeder gebrauchen kann. Das gibt es doch nur in Hollywood.
Hop oder Top.
, so einfach.
Gruß
Bernd
Du bist in Begriff, Forum64 zu verlassen, um auf die folgende Adresse weitergeleitet zu werden:
Bitte beachte, dass wir für den Inhalt der Zielseite nicht verantwortlich sind und unsere Datenschutzbestimmungen dort keine Anwendung finden.
letzter Beitrag von war64burnout am
Man haben hier einige Probleme.
Laßt euch doch einfach Überraschen. Der gute Mann weiß doch nicht was jeder gebrauchen kann. Das gibt es doch nur in Hollywood.
Hop oder Top.
, so einfach.
Gruß
Bernd
Und immer schön den Tracker anwerfen.
Und wehe es postet einer zu früh, dann gibts
hab meine SAM-Batterie schon scharfgeschaltet
Hab noch keine Adresse von einem Wichtelpartner bekommen, ihr etwa ?
Hab noch keine Adresse von einem Wichtelpartner bekommen, ihr etwa ?
Die werden doch erst zu Nikolaus verteilt
Hab noch keine Adresse von einem Wichtelpartner bekommen, ihr etwa ?
I think the original post says we’ll get the addresses on 6.12.
Ich bin auch mit von der Partie
Bin neu im Forum und sehr neugierig auf das Wichteln...:)
Wir haben bereits 43 Wichtel.
Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.
Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?
Die Anforderungen wären folgende:
Alle Teilnehmer werden mit ihrem Usernamen in eine "Datenbank" eingegeben. Es ist nur der Username nötig, da die Adressen extern verbleiben.
Diese Daten sollten immer auch speicherbar sein.
Am Ende der Aktion müsste es eine Funktion geben, welche die Usernamen in eine zufällige Reihenfolge in Form einer Wichtelkette ausgibt
z.B: User1-> Uder12-> User5-> ... User11-> User1 Diese Ausgabe sollte ebenfalls speicherbar sein.
Die Wichtelkette könnte dann vielleicht als Programmcode oder Screenshot hier gepostet werden.
Ich würde es spannend finden einen direkten Bezug zum Forum64 und der Wichtelaktion herzustellen.
Was meint Ihr?
Dieses Jahr mache ich auch wieder mit
Ich wichtel auch mal mit!
Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.
Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?
Also.... BASIC V2 ist bei mir zu lange her,
hier habe ich eilends mal einen Wichtler für Win32 in PowerBASIC geschrieben..
Fenster muss leider manuell auf volle Größe gezogen werden.
#COMPILE EXE
FUNCTION PBMAIN () AS LONG
CONSOLE SET VIEW 50,80
CONSOLE SCREEN 50,80
CLS
?"Wichtelgenerator FORUM64 2018 by ius":?
INPUT "Anzahl Wichtel [2 - 88]: ";wichtel?
IF wichtel?>88 THEN wichtel?=88
DIM wname$(wichtel?)
DIM empfaenger?(wichtel?)
?"Wuerfeln....: ";
FOR i?=1 TO wichtel?
RANDOMIZE TIMER
ermittelt?=0
WHILE ermittelt?=0
COLOR RND(1,15)
LOCATE 4,15
? CHR$(32+RND(1,94)) ;
teilnehmer?=RND(1,wichtel?)
IF empfaenger?(teilnehmer?)=0 AND teilnehmer?<>i? THEN
empfaenger?(teilnehmer?)=i?
ermittelt?=1
END IF
WEND
SLEEP 75
NEXT i?
COLOR 7
LOCATE 4,15
?" "
' waitkey$
IF redo?=0 THEN
FOR i?=1 TO wichtel?
LOCATE 5,17:?" ";:LOCATE 5,1
?"Name Wichtel #";TRIM$(STR$(i?));": ";
INPUT wname$(i?)
wname$(i?)=LEFT$(wname$(i?),15)
NEXT i?
END IF
locationy?=0
locationx?=0
CLS
FOR i?=1 TO wichtel?
IF i?>45 THEN locationy?=45
IF i?>45 THEN locationx?=36
LOCATE i?+1-locationy?,2+locationx?
? FORMAT$(i?,"00");": ";wname$(i?);
LOCATE i?+1-locationy?,19+locationx?
?" -> ";
LOCATE i?+1-locationy?,23+locationx?
?wname$(empfaenger?(i?));
NEXT i?
LOCATE 48,1
?" [TASTE DRUECKEN]"
WAITKEY$
speicher$="WICHTELN_"+DATE$+"_"+TIME$+".TXT"
REPLACE ":" WITH "" IN speicher$
?"Speichern als ";speicher$
OPEN speicher$ FOR OUTPUT AS #1
FOR i?=1 TO wichtel?
?#1,wname$(i?);" -> ";wname$(empfaenger?(i?))
NEXT i?
CLOSE 1
?" ENDE! [TASTE DRUECKEN]";
WAITKEY$
END FUNCTION
(Mist. Irgendwie entfernt das Forum die Einrückungen...naja.. )
Hier mit .BAS und .EXE zum Benutzen, Verbessern oder Wegwerfen.
Ich bin auch dabei
I U S . Gute Arbeit. Schön gemacht.
Gruß
Thomas
Hallo,
bin auch wieder mit dabei HoHoHo
Gruß
aRcAdEsTaTiOn
Liebend gerne wieder mit dabei.
Am besten gefällt mir an der Aktion:
e) wer nur nimmt und nicht gibt, wird für die nächsten Jahre garantiert gesperrt.
Fürs Wichteln oder fürs ganze Forum ? Ich mache übrigens mit, wird sicher lustig.
Bin zwar absolut neu hier, aber DABEI
Mir ist gerade aufgefallen, dass wir noch kein "Auslosprogramm" zum Weihnachtswichteln auf dem C64 haben.
Hättet Ihr nicht Lust gemeinsam ein Basicprogramm zu entwickeln?
Wie jetzt? Wird wohl langsam zuviel Arbeit für den Sohnemann, was?
Einfach nichts mehr los mit der heutigen Jugend...