[Pytanie] Generowanie losowych liczb

[PoSiak]

Czy da się zrobić, że program będzie generował losowe cyfry i liczby? xxxx-xxxx-xxxx-xxxx tam gdzie x ma być losowa liczba albo cyfra, da się tak zrobić?

[jackraymund]

MsgBox(0, "Uppercase alphabet", losuj()&losuj()&losuj()&losuj()& "-" &losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj())


func losuj()
    $mod = random(1,3,1)
    switch($mod)
        case 1
            return chr(random(48,57,1));; liczby
        case 2
            return chr(random(65,90,1));; duze znaki
            case 3
            return chr(random(97,122,1));; male znaki
    EndSwitch
    EndFunc
 

male wytlumaczenie, chr zwraca znak z tabelki asci

random losuje pseudo losową liczbe

no i w tabelce asci, liczby są od miejsca 48 do 57 itd itd

zawsze możesz usunąć małe znaki, więc musiałbyś case 3 usunąć i randoma flagi na 1,2,1 zmienić

[PoSiak]

 

MsgBox(0, "Uppercase alphabet", losuj()&losuj()&losuj()&losuj()& "-" &losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj())


func losuj()
    $mod = random(1,3,1)
    switch($mod)
        case 1
            return chr(random(48,57,1));; liczby
        case 2
            return chr(random(65,90,1));; duze znaki
            case 3
            return chr(random(97,122,1));; male znaki
    EndSwitch
    EndFunc
 

male wytlumaczenie, chr zwraca znak z tabelki asci

random losuje pseudo losową liczbe

no i w tabelce asci, liczby są od miejsca 48 do 57 itd itd

zawsze możesz usunąć małe znaki, więc musiałbyś case 3 usunąć i randoma flagi na 1,2,1 zmienić

Wielkie dzięki :P

Teraz jeszcze jedno. Mam sobie progress bar'a: $Progress1 = GUICtrlCreateProgress(0, 216, 465, 25)

I jak zrobić żeby po kliknięciu na $Button1 ten progress bar zaczął się "przesuwać" przez X czasu? Jakieś podpowiedzi proszę, bo szukam, szukam i nic nie mogę znaleźć. :C

 

@edit

Już mam

Nie zamykajcie tematu, bo będę jeszcze pytał.

@edit2

Da się zrobić tak, że jak progress dojdzie do 100% to w $Input wpisze mi te losowe liczby? ;____;

@edit3

Już to zrobiłem

Zrobiłem tak: GUICtrlSetData($Input1, $random)

W $random jest: (losuj()&losuj()&losuj()&losuj()& "-" &losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj()& "-"&losuj()&losuj()&losuj()&losuj())

 

To następne pytanie, da się zrobić, żeby można było kliknąć $Button1 RAZ DZIENNIE?

[jackraymund]

możesz użyć iniread, albo file write lecz jest to narażone na łatwe obejście

reg write(czyli zapis do rejestru) najlepiej zapisać dzień i miesiąc

 

RegWrite ( "HKEY_CURRENT_USER\Software\twojprogram", "data", "REG_SZ", @MDAY&"."&@MON)

odczyt(wykonaj go przed zaladowaniem programu)

czyli odczytujesz i porównujesz aktualną date z datą wpisaną w rejestrze

 

if(RegRead ( "HKEY_CURRENT_USER\Software\twojprogram", "data" ) = @MDAY&"."&@MON)
GUICtrlSetState($button1, $GUI_DISABLE)
endif

czyli gdy wartośc z rejestru jest taka sama jak aktualna data, zdezaktywuje guzika

[PoSiak]

Mam taki kod:

xxx

I nie bardzo wiem gdzie to dodać. :/

[Keniger]

Do pętli.

[PoSiak]

Teraz mam kolejny problem.

Chcę zrobić tło w GUI, ale nie mogę... tzn. w KODA wszystko jest OK, widać te tło i wgl, a w SciTE nie ma tego tła :/

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Nazwa = GUICreate("GiftCode Generator", 468, 246, 262, 199)
$Button1 = GUICtrlCreateButton("GENERUJ KOD", 88, 16, 281, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Input1 = GUICtrlCreateInput("Wygenerowany kod...", 56, 88, 353, 21, $ES_READONLY)
$Progress1 = GUICtrlCreateProgress(0, 216, 465, 25)
$Pic1 = GUICtrlCreatePic("C:\Users\User\Desktop\gift.bmp", 0, 0, 465, 241, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 

@edit

Dobra działa, zmieniłem z .bmp na .jpg.

Wielkie dzięki za pomoc. Nie zamykajcie jeszcze tematu, bo mogę o coś pytać.

@edit2

 

No i pytam

Jak zrobić żeby ten obrazek był w .exe? tzn. w jednym pliku.

@edit3

Dobra z tym też sobie już poradziłem, zostało mi tylko to z tym uruchomieniem tylko raz.

@edit4

Dobra, stwierdziłem, że mi to nie jest potrzebne i temat można zamknąć. Dzięki wszystkim za pomoc.

[Phoenix_PL]

No to w takim przypadku zamykam :]

@down

@edit4

Dobra, stwierdziłem, że mi to nie jest potrzebne i temat można zamknąć. Dzięki wszystkim za pomoc.

[jackraymund]

tylko wywal to z pętli, i dodaj przed guisetstate()

po co zamulać program czymś, co i tak będzie raz wykonane

@up

nie zamykaj tematów, jedynie w wypadku spamu