Jump to content

Desisions Desisions


CodyBarrett
 Share

Recommended Posts

its not very impressive because i wrote it in 5 mins... about 3 months ago and havent looked at it since.. my link in my sig to it seems to have not worked anymore.. so i started this topic

REASON for creation:

had some troubles deciding on names.. so i got it down to two, and wrote this..

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Include <Timers.au3>
#include <WindowsConstants.au3>



$GUI = GUICreate ('Decisions...',100,100,-1,-1,-1,BitOR(128,$WS_EX_TOPMOST ))
$B = GUICtrlCreateButton('Go',5,5,90,80)
$lable = GUICtrlCreateLabel('Maybe',25,85,50,20,$SS_CENTER)
$Choice = 1
$Ran = 0
GUISetState()



While 1
    $M = GUIGetMsg()
If $M = $B Then
    $T = _Timer_Init()
    GUICtrlSetData($B,0)
    Do 
    GUICtrlSetState($B, $GUI_DISABLE )
    $Ran = Random(0,19000,1)
    GUICtrlSetData($B,$Ran)
    sleep(100)
    GUICtrlSetState($B,$GUI_ENABLE)
    Until _Timer_Diff($T) >= 19000
    


    If GUICtrlRead($B) >= 9500 Then
    GUICtrlSetData($Lable,'Yes')
    GUICtrlSetBkColor($B,0xffff00)
    GUISetBkColor(0x0000ff,$GUI)
    Else
    GUICtrlSetData($Lable,'No')
    GUICtrlSetBkColor($B,0xff0000)
    GUISetBkColor(0x000000,$GUI)
    EndIf
EndIf   


    if $M = $GUI_EVENT_CLOSE Then
        Exit
    endif
WEnd

it runs for 19 seconds.. and if the number is less than 9500 then it says NO... OVER and it says YES.. haha

Link to comment
Share on other sites

  • 9 months later...

33    If GUICtrlRead($B) >= 9500 Then

45     if $M = $GUI Then

Thank you.. verry cool prog :D

[center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Don't utter a single word[/font][/center][center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Just shut your pretty mouth[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you again[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you[/font][/center][center][font=courier new,courier,monospace]In hell[/font][/center]

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...