Jump to content
Sign in to follow this  
alexandre

Função Random

Recommended Posts

Função de números aleatórios no Autoit

 

 

Script do Dado

Global $Pic[7], $seq = 0
$Form1 = GUICreate("Dado", 628, 500, 190, 122)
$Pic[0]= GUICtrlCreatePic(@ScriptDir & "\dados.bmp", 0, 0, 655, 449)
$Sort  = GUICtrlCreateButton("Sortear", 50, 450, 529, 53)
         GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
		 GUICtrlSetBkColor(-1, 0xbf520f)
		 GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Sort
		     $seq = 0
		     Sorte()
		Case -3
			 Exit
	EndSwitch
WEnd

Func Sorte()
	While 1
		   $seq  += 1
		   $numero = Random(1,6,1)
		If $seq < 50 Then
		   Apagar()
			Switch $numero
				Case 1
					$Pic[1] = GUICtrlCreatePic(@ScriptDir & "\dado 1.bmp", 0, 0, 625, 449)
				Case 2
					$Pic[2] = GUICtrlCreatePic(@ScriptDir & "\dado 2.bmp", 0, 0, 625, 449)
				Case 3
					$Pic[3] = GUICtrlCreatePic(@ScriptDir & "\dado 3.bmp", 0, 0, 625, 449)
				Case 4
					$Pic[4] = GUICtrlCreatePic(@ScriptDir & "\dado 4.bmp", 0, 0, 625, 449)
				Case 5
					$Pic[5] = GUICtrlCreatePic(@ScriptDir & "\dado 5.bmp", 0, 0, 625, 449)
				Case 6
					$Pic[6] = GUICtrlCreatePic(@ScriptDir & "\dado 6.bmp", 0, 0, 625, 449)
			EndSwitch
		   GUICtrlSetData($Sort, "((  " & $numero & "  ))")
		  Beep(400,$seq *10)
		 Else
			Sleep(2500)
			Apagar()
			$Pic[0] = GUICtrlCreatePic(@ScriptDir & "\dados.bmp", 0, 0, 625, 449)
			GUICtrlSetData($Sort, "Sortear")
			GUICtrlSetBkColor($Sort, 0x993388)
			ExitLoop
		EndIf
	WEnd
 EndFunc

 Func Apagar()
	For $i = 0 To 6 Step 1
	    GUICtrlDelete($Pic[$i])
   Next
 EndFunc

Edited by alexandre
  • Like 2

Share this post


Link to post
Share on other sites

Excelente material de estudo e como nosso amigo falou: Tem talento e criatividade de sobra!!!

 

I Liked.

 

JS

Share this post


Link to post
Share on other sites

Esse Cara é tão fera que mesmo depois de anos, seus exemplos e explicações simples me AJUDAM MUITO. :600866:

Posso dizer que ele é um professor pra mim e que me ajuda mesmo estando distante. :ILA2:

Quando tenho umas imaginações para uma projeto e surge uma dúvida ou não fiz ainda recorro logo as Videos Aulas do XAN, Bom Demais. :like_icon:

Canal dele no => Youtube <= :bemvindo: :autoit: :brasil:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

×