| |
| |
|
| - Página 1 - |
|
Jörg
Sellmeyer | Gibt lo una Möglichkeit una Zufallszahl de una Zona jenseits el Longgrenze a ermitteln.
Wenn Yo
Var n! = 4^16
Imprimir Rnd(n!)
verwende, kommt sólo 0 fuera. Gibts como qué por Api más o menos?
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.12.2007 ▲ |
|
| |
|
|
| |
| |
| - Página 1 - |
|
RGH | |
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 11.12.2007 ▲ |
|
| |
|
|
RGH | ... y de el nächsten XProfan-Versión hay auch el Sonderfall Rnd(), el bislang no posible war. Das Ergebnis es entonces una Flloatwert >= 0 y < 1. Dann löst Du Dein Problem einfach mit:
KompilierenMarcaSeparación
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 11.12.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Sehr schön! Alle kombinierten Werte son nämlich irgendwie gemauschelt y entsprechen no tatsächlichen Wahrscheinlichkeit.
Läßt se hier muy ligeramente nachvollziehen:
KompilierenMarcaSeparación $H Windows.ph
Set(Decimals,0)
Window 300,10 - 800,1010
Cls
SetDialogFont ~GetStockobject($11)
Declare z!,l&,l1&,l2&,z$,i%,i1%,i2%
l&= Create(ListBox,%hwnd,1,10,10,180,Height(%hwnd)-20)
l1&= Create(ListBox,%hwnd,1,212,10,180,Height(%hwnd)-20)
l2&= Create(ListBox,%hwnd,1,414,10,180,Height(%hwnd)-20)
WhileLoop 20670
Randomize
z$=Format$(0000000000,Rnd($7fffffff) + Rnd($7fffffff))
If Left$(z$,2)= 00
Inc i%
EndIf
Case SelectString(l&,-1,z$) = -1:AddString(l&, z$)
z$=Format$(00000,Rnd(256^2))
If Left$(z$,2)= 00
Inc i1%
EndIf
Case SelectString(l1&,-1,z$) = -1:AddString(l1&, z$) + + Format$(0000000000,Rnd(256^2))
z$=Format$(00000,(Rnd(256)+1) * Rnd(256))
If Left$(z$,2)= 00
Inc i2%
EndIf
Case SelectString(l2&,-1,z$) = -1:AddString(l2&, z$) + + Format$(0000000000,Rnd(256^2))
WindowTitle Str$(i%) + + Str$(i1%) + + Str$(i2%) + + Str$(&Loop)
Wend
waitkey
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 11.12.2007 ▲ |
|
| |
|
|
 | RGH
... y de el nächsten XProfan-Versión hay auch el Sonderfall Rnd(), el bislang no posible war. Das Ergebnis es entonces una Flloatwert >= 0 y < 1. Dann löst Du Dein Problem einfach mit: KompilierenMarcaSeparaciónSaludo Roland
Jau el es super! 
@Jörg: Usted greifst así en una vergänglichen BeitragsCache a, Franco hatte seinen Contribución gelöscht. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Diese neue Möglichkeit es en el Ayuda nada erwähnt! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2008 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
Manfred
Barei | ¡Hola Jörg,
kann doch auch nada, Roland ha doch geschrieben de el nächsten XProfan-Versión. 
Grus
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 07.08.2008 ▲ |
|
| |
|
|
Jac
de
Lad | | Yo denke veces, así war XProfan 11 gemeint. |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 07.08.2008 ▲ |
|
| |
|
|
RGH | Jörg Sellmeyer
Diese neue Möglichkeit es en el Ayuda nada erwähnt!
 Sollte Yo qué vergessen haben? Yo schaue heute Abend veces después de.
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 07.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Manfred Barei
¡Hola Jörg, kann doch auch nada, Roland ha doch geschrieben de el nächsten XProfan-Versión. Grus Manfred
Exactamente! Und si Usted el Datümer el Beiträge ansiehst...
P.S.
Lustig - otra vez Grus?  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2008 ▲ |
|
| |
|
|
RGH | RGH
Jörg SellmeyerDiese neue Möglichkeit es en el Ayuda nada erwähnt! Sollte Yo qué vergessen haben? Yo schaue heute Abend veces después de. Saludo Roland
Ha! In el aktuellen Ayuda (letzte Versión vom 4. August) es erwähnt!
So, y ahora erstelle Yo unos pocos Master-CDs. Nichts va mehr!
Saludo
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 07.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | |
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07.08.2008 ▲ |
|
| |
|
(2.513)
Deutsch
English
Français
Español
Italia