Jump to content



Photo

Desisions Desisions


  • Please log in to reply
1 reply to this topic

#1 CodyBarrett

CodyBarrett

    I LOVE Juicy Fruit!!!

  • Active Members
  • PipPipPipPipPipPip
  • 1,225 posts

Posted 12 April 2009 - 02:21 AM

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..
AutoIt         
#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







#2 6105

6105

    Polymath

  • Active Members
  • PipPipPipPip
  • 232 posts

Posted 07 February 2010 - 09:20 PM

33    If GUICtrlRead($B) >= 9500 Then

45     if $M = $GUI Then



Thank you.. verry cool prog :D

Die die die my darling

Don't utter a single word

Die die die my darling

Just shut your pretty mouth

I'll be seeing you again

I'll be seeing you

In hell





0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users