[Pytanie] Program Który Losuj

[Blik]

Cześć! Mógłby mi ktoś pomóc jak zrobić program który losuje np. jakiś wyraz z notatnika (są chyba takie z rozszerzeniem .ini czy jakoś tak :P).

Chciałbym zrobić tjb. generator nicków. Daje losuj i wybiera się z tego jakiś. Wiem, że zrobienie generatora takiego jest trudne, dlatego te wszystkie nicki wezmę z innego generatora

Proszę o pomoc

[dziób tukana]

6 milionów kombinacji

 

Dim $aray = StringSplit('stefan,zbyszek,franek,juzek,pankracy,abrakadabra',',')

$nick = $aray[(random(1,$aray[0], 1))] & random(1,997,1)

msgbox(0, "", $nick)

[arturkup....]

No dokladnie 1 Up jest tyle kombinacji ze gwowa mala ja mam z 3 rodzaje ale juz nie daje skoro Up dal

[Blik]

Ale ja chciałem bez tych cyferek ^_^

A nie rozumiem wgl. tego kodu - mógłbyś wytłumaczyć?

Nie koniecznie, ale dobrze by było ^_^

Więc jak bez cyfr?

 

@edit

dobra już wiem jak bez cyfr, ale chciałbym jakieś wytłumaczenie o co w tym chodzi

 

@arturkup

dobrze wszystko się wyświetla

[arturkup....]

Powiedz co ci sie pokazuje to poprawie bo narazie nie mam AutoIt bo nowy komp[

[dziób tukana]

sy-la-bo-wo

tyle kombinacji ze sam nie wiem ile

 

Dim $aray = StringSplit('st,ef,an,zby,sz,ek,fr,an,ek,ju,zek,pa,nk,ra,cy,ab,ra,ka,da,bra',',')
$nick = ""

for $idx = 0 to random(2,4,1)
$nick &= $aray[random(1,$aray[0], 1)]
next

msgbox(0, "", $nick)

 

 

i losując przypadkowe litery

nawet nie wiem jak ta liczba kombinacji sie nazywa

Dim $aray = StringSplit('abcdefghijklmnoprstuwyxyzq1234567890','')
$nick = ""

for $idx = 0 to random(7,15,1)
$nick &= $aray[random(1,$aray[0], 1)]
next

msgbox(0, "", $nick)

[Blik]

Dobra zmieniam zdanie trochę roboty jest żeby kopiować to wszystko i wklejać ^_^

Wie ktoś jak zrobić generator? Podobny do tego w php:

http://wow-space.info/postac/generator-nick

Tylko, że z 1 przyciskiem "generuj", a nie rasami do wyboru ^_^

 

@dziób tukana

dobra 'czaje'

[jackraymund]

sy-la-bo-wo

tyle kombinacji ze sam nie wiem ile

 

Dim $aray = StringSplit('st,ef,an,zby,sz,ek,fr,an,ek,ju,zek,pa,nk,ra,cy,ab,ra,ka,da,bra',',')
$nick = ""

for $idx = 0 to random(2,4,1)
$nick &= $aray[random(1,$aray[0], 1)]
next

msgbox(0, "", $nick)

 

 

i losując przypadkowe litery

nawet nie wiem jak ta liczba kombinacji sie nazywa

Dim $aray = StringSplit('abcdefghijklmnoprstuwyxyzq1234567890','')
$nick = ""

for $idx = 0 to random(7,15,1)
$nick &= $aray[random(1,$aray[0], 1)]
next

msgbox(0, "", $nick)

tak zapytam co daje &=?

[matiszon]

$zxc = "kos"

$zxc &= "miczni"

 

i zxc będzie wyglądać tak : kosmiczni

 

http://www.autoitscript.com/autoit3/docs/intro/lang_operators.htm

[asdek171]

Masz z buttonem:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $var[6] = ["stefan","zbyszek","franek","juzek","pankracy","brakadabra"]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Losowanie Imion", 241, 184, 192, 124)
$Button1 = GUICtrlCreateButton("Generuj", 32, 148, 77, 21, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("", 20, 96, 170,17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func losuj()
$login = $var[random(0, 6)]
GUICtrlSetData($Label3,"Login to : "&$login)
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
       Case $Button1
		losuj()
EndSwitch
WEnd