FinalFayte Posted November 12, 2009 Share Posted November 12, 2009 I messed up my GUI Dice Roller I was given at the beggining and accidentally saved it could someone post it in the forum. You can find this in your AutoIt Folder Under Examples, Under GUI, Under Advanced and I want the script dice. Link to comment Share on other sites More sharing options...
water Posted November 12, 2009 Share Posted November 12, 2009 (edited) This one? expandcollapse popup; autoit version: 3.0 ; language: English ; author: Larry Bailey ; email: psichosis@tvn.net ; Date: November 15, 2004 ; ; Script Function ; Creates a GUI based dice rolling program ; using the Random function #include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> Opt('MustDeclareVars', 1) _Main() Func _Main() Local $button1, $button2, $button3, $button4, $button5 Local $button6, $button7, $button8, $button9, $button10 Local $output, $die, $msg, $results GUICreate("Dice Roller", 265, 150, -1, -1) $button1 = GUICtrlCreateButton("D2", 5, 25, 50, 30) $button2 = GUICtrlCreateButton("D3", 65, 25, 50, 30) $button3 = GUICtrlCreateButton("D4", 125, 25, 50, 30) $button4 = GUICtrlCreateButton("D6", 5, 65, 50, 30) $button5 = GUICtrlCreateButton("D8", 65, 65, 50, 30) $button6 = GUICtrlCreateButton("D10", 125, 65, 50, 30) $button7 = GUICtrlCreateButton("D12", 5, 105, 50, 30) $button8 = GUICtrlCreateButton("D20", 65, 105, 50, 30) $button9 = GUICtrlCreateButton("D100", 125, 105, 50, 30) $button10 = GUICtrlCreateButton("Clear Dice", 185, 105, 65, 30) $output = GUICtrlCreateLabel("", 185, 45, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER)) $die = GUICtrlCreateLabel("", 185, 25, 70, 20, 0x1000) GUICtrlSetFont($output, 24, 800, "", "Comic Sans MS") GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $button1 $results = Random(1, 2, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "2 Sided Die") Case $msg = $button2 $results = Random(1, 3, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "3 Sided Die") Case $msg = $button3 $results = Random(1, 4, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "4 Sided Die") Case $msg = $button4 $results = Random(1, 6, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "6 Sided Die") Case $msg = $button5 $results = Random(1, 8, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "8 Sided Die") Case $msg = $button6 $results = Random(1, 10, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "10 Sided Die") Case $msg = $button7 $results = Random(1, 12, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "12 Sided Die") Case $msg = $button8 $results = Random(1, 20, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "20 Sided Die") Case $msg = $button9 $results = Random(1, 100, 1) GUICtrlSetData($output, $results) GUICtrlSetData($die, "100 Sided Die") Case $msg = $button10 GUICtrlSetData($output, "") GUICtrlSetData($die, "") EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd EndFunc ;==>_Main Edited November 12, 2009 by water My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
FinalFayte Posted November 12, 2009 Author Share Posted November 12, 2009 Yes Thank You Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now