Jump to content

Recommended Posts

Posted

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

  • 9 months later...
Posted

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]

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
  • Recently Browsing   0 members

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