Zahlenraten :-)
Jap, ist richtig. Mein Geburtstag.
Geburtsmonat wäre BE, Jahr wäre... da müsste man die Tabelle aber ordentlich erweitern...
Deswegen, als Karl sagte: "Nee, is nicht richtig", da dachte ich schon: "Wenn Karl Recht hat, dann müssten Computer neu erfunden werden."
Geburtsmonat wäre BE, Jahr wäre... da müsste man die Tabelle aber ordentlich erweitern...

Deswegen, als Karl sagte: "Nee, is nicht richtig", da dachte ich schon: "Wenn Karl Recht hat, dann müssten Computer neu erfunden werden."
PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
OK.
Keiner sonst noch ne Zahl, die er nennen mag? Niemand, der wenigstens so tut, als ob...?
OK, dann würde ich sagen: Wer mag, kann das Geheimnis lüften
Keiner sonst noch ne Zahl, die er nennen mag? Niemand, der wenigstens so tut, als ob...?

OK, dann würde ich sagen: Wer mag, kann das Geheimnis lüften

PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
-
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
die spalten sind die Bits...
spalte 1 = 1
spalte 2 = 2
spalte 3 = 4
spalte 4 = 8
spalte 5 = 16
jede zahl von 0-31 steht in den spalten, die den Bits entsprechen, aus denen sie zusammengesetzt ist.
...man könnte jetzt die reihenfolge der spalten vermischen...
z.B. 4,16,1,8,2
und natürlich die zahlen darin rein aufsteigend anordnen, das lässt einen so schnell lesen,
dass man die ordnung übersieht...
spalte 1 = 1
spalte 2 = 2
spalte 3 = 4
spalte 4 = 8
spalte 5 = 16
jede zahl von 0-31 steht in den spalten, die den Bits entsprechen, aus denen sie zusammengesetzt ist.
...man könnte jetzt die reihenfolge der spalten vermischen...
z.B. 4,16,1,8,2
und natürlich die zahlen darin rein aufsteigend anordnen, das lässt einen so schnell lesen,
dass man die ordnung übersieht...
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Der Weise weiß, dass er ein Narr ist.
So, jetzt ist es raus.
Ich hoffe trotzdem, dass es euch Spaß gemacht hat.

Ich hoffe trotzdem, dass es euch Spaß gemacht hat.

PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End
-
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
- Froggerprogger
- Badmin
- Beiträge: 855
- Registriert: 08.09.2004 20:02
Code: Alles auswählen
spalten.s = "CAB"
For i=1 To Len(spalten)
zahl + 1<<(Asc(Mid(UCase(spalten), i, 1))-65)
Next
Debug zahl
!UD2