Sign in to follow this  
Followers 0
CodyBarrett

Desisions Desisions

2 posts in this topic

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

Share this post


Link to post
Share on other sites



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]

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  
Followers 0