Ch1ldProd1gy Posted April 5, 2007 Share Posted April 5, 2007 When I enter the Date, and click "Check Date" it results as a Zero -.- what did I do wrong? CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;Randy's BlockBuster Thing V1.0;;;;;;;;;;; ;;;;;;;;Last Update: 04/01/07 @ 12:29am;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;includes #include <GUIConstants.au3> #include <File.au3> #include<date.au3> #NoTrayIcon ;Hide the tray icon ;Set Mouse Clicks to relitive ;Set Hotkeys ;Set Variables $Times = 0 $Randy = ("diablo_rules78@hotmail.com") $Credits = ("Randy S.") $Title = ("BlockBuster 28 day wait") $Version = (" V1.0") $Date = ("April 4, 2007") $Today = _NowCalcDate() $createmain = GUICreate($Title & $Version, 300, 200) ;;;;; Menu ;;;;; $filemenu = GUICtrlCreateMenu("File") $fileabout = GUICtrlCreateMenuItem("About", $filemenu) $fileclose = GUICtrlCreateMenuItem("Close", $filemenu) $editmenu = GUICtrlCreateMenu("Edit") $Wordlistedit = GUICtrlCreateMenuitem("Word List", $editmenu) $internetedit = GUICtrlCreateMenuItem("Internet Settings", $editmenu) $proxylist = GUICtrlCreateMenuItem("Proxy List", $editmenu) $helpmenu = GUICtrlCreateMenu("Help") $FAQmenu = GUICtrlCreateMenuItem("FAQ", $helpmenu) ;;;;; Labels ;;;;; GUICtrlCreateLabel("Welcome to Free rental Tracker!", 0,0,160,17) GuiCtrlCreateLabel("Todays Date is: " & $Today, 0, 20, 150, 17) GuiCtrlCreateLabel("Please enter release date (YYYY/MM/DD)", 0, 50, 250, 17) GuiCtrlCreateLabel("Your rental is free on ", 0, 100, 150, 17) ;;;;; Input Boxes ;;;;; ;gUICtrlCreateInput( $YYYY=GUICtrlCreateInput("YYYY", 50, 70, 35, 17, $ES_NUMBER) $MM=GUICtrlCreateInput("MM", 85, 70, 25, 17, $ES_NUMBER) $DD=GUICtrlCreateInput("DD", 110, 70, 25, 17, $ES_NUMBER) $Free = GUICtrlCreateLabel("",0,130,150,17) ;;;;; Boxes ;;;;; $startbrutingbutton = GUICtrlCreateButton("Check Date", 100, 150, 100, 30) GUISetState() While 1 $msg = guigetmsg() if $msg = $startbrutingbutton then Start() Endif If $msg = $faqmenu Then FAQ() EndIf If $msg = $fileclose Then GUIDelete($createmain) EndIf If $msg = $GUI_EVENT_CLOSE Then GUIDelete($createmain) EndIf If $msg = $GUI_EVENT_CLOSE Then GuiDelete($createmain) EndIf if $msg = $FileAbout Then About() EndIf WEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;Start;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Start() $Actual = ($YYYY + "/" + $MM + "/" + $DD) $29days = _DateAdd( "D", 29,$Actual) $Free = GUICtrlCreateLabel($29Days,0,130,150,17) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;Frequently Asked Questions;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func FAQ() $createfaq = GUICreate("FAQ - " & $Title & $Version, 300, 300, 400, 500) $buttonOkfaq = GUICtrlCreateButton("OK", 130, 260, 40, 30) $labelfaq = GUICtrlCreateLabel("FAQ", 140, 25) $labelq1 = GUICtrlCreateLabel("", 45, 60) $labela1 = GUICtrlCreateLabel("", 12, 80) $labela11 = GUICtrlCreateLabel("", 12, 95) $labelq2 = GUICtrlCreateLabel("", 15, 120) $labelq22 = GUICtrlCreateLabel("", 95, 135) $labela2 = GUICtrlCreateLabel("", 23, 155) $labela22 = GuiCtrlCreateLabel(", 55, 170) GUISetState() While 1 $msgfaq = GUIGetMsg() If $msgfaq = $buttonokfaq Then Return GUIDelete($createfaq) EndIf If $msgfaq = $GUI_EVENT_CLOSE Then Return GUIDelete($createfaq) EndIf WEnd EndFunc Func About() $createfaq = GUICreate("FAQ - " & $Title & $Version, 300, 300) $buttonOkfaq = GUICtrlCreateButton("OK", 130, 260, 40, 30) ;Okay Button $labelfaq = GUICtrlCreateLabel("FAQ", 140, 25) $labelq1 = GUICtrlCreateLabel($Title & $Version & " was created by: " & $Credits & " on " & $Date , 15, 60) $labela1 = GUICtrlCreateLabel("", 12, 80) $labela11 = GUICtrlCreateLabel("", 12, 95) $labelq2 = GUICtrlCreateLabel("", 15, 120) $labelq22 = GUICtrlCreateLabel("", 95, 135) $labela2 = GUICtrlCreateLabel("", 23, 155) $labela22 = GuiCtrlCreateLabel("", 55, 170) GUISetState() While 1 $msgfaq = GUIGetMsg() If $msgfaq = $buttonokfaq Then Return GUIDelete($createfaq) EndIf If $msgfaq = $GUI_EVENT_CLOSE Then Return GUIDelete($createfaq) EndIf WEnd EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;Pause Function;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;Force Close Function;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func Terminate() Exit 0 EndFunc Link to comment Share on other sites More sharing options...
martin Posted April 5, 2007 Share Posted April 5, 2007 Func Start()$Actual = ($YYYY + "/" + $MM + "/" + $DD);<-------------replace '+' with '&'$29days = _DateAdd( "D", 29,$Actual)$Free = GUICtrlCreateLabel($29Days,0,130,150,17)EndFunc Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
Ch1ldProd1gy Posted April 5, 2007 Author Share Posted April 5, 2007 Func Start()$Actual = ($YYYY + "/" + $MM + "/" + $DD);<-------------replace '+' with '&'$29days = _DateAdd( "D", 29,$Actual)$Free = GUICtrlCreateLabel($29Days,0,130,150,17)EndFuncstill doesnt work -.-' but in theory...it should lol Link to comment Share on other sites More sharing options...
Ch1ldProd1gy Posted April 5, 2007 Author Share Posted April 5, 2007 still doesnt work -.-' but in theory...it should lolbump, anyone have any idea's? Link to comment Share on other sites More sharing options...
Ch1ldProd1gy Posted April 6, 2007 Author Share Posted April 6, 2007 Bump Link to comment Share on other sites More sharing options...
Developers Jos Posted April 6, 2007 Developers Share Posted April 6, 2007 BumpShow what isn't working so we can see if there's anything wrong.... SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Shides Posted April 6, 2007 Share Posted April 6, 2007 $Actual = _DateAdd( 'd',29, _NowCalcDate()) $split = StringSplit($Actual, '/') $calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1] GUICtrlCreateLabel ("" & $calculed, 0,130,150,17) Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFunc Try it... I'm a Italian a AutoIterMy scriptTxTediTor -->TxTediTor is a simple program similar notepad[center]Please vote me with five star ;)Antonio Caragliano for Nokia Nseries[/center] Link to comment Share on other sites More sharing options...
Shides Posted April 6, 2007 Share Posted April 6, 2007 sorry i try, but don't work I'm a Italian a AutoIterMy scriptTxTediTor -->TxTediTor is a simple program similar notepad[center]Please vote me with five star ;)Antonio Caragliano for Nokia Nseries[/center] Link to comment Share on other sites More sharing options...
Developers Jos Posted April 6, 2007 Developers Share Posted April 6, 2007 (edited) $Actual = _DateAdd( 'd',29, _NowCalcDate()) $split = StringSplit($Actual, '/') $calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1] GUICtrlCreateLabel ("" & $calculed, 0,130,150,17) Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFunc Try it... The script doesn't run this way.... would be helpful to post a cscript we can run to see your issue. But after changing it ... it seems to run fine.... now what exactly isnt working in it ? #include<date.au3> $Actual = _DateAdd( 'd',29, _NowCalcDate()) ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Actual = ' & $Actual & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _NowCalcDate = ' & _NowCalcDate() & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console $split = StringSplit($Actual, '/') $calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1] ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $calculed = ' & $calculed & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFunc Edited April 6, 2007 by JdeB SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Ch1ldProd1gy Posted April 6, 2007 Author Share Posted April 6, 2007 (edited) The script doesn't run this way.... would be helpful to post a cscript we can run to see your issue. But after changing it ... it seems to run fine.... now what exactly isnt working in it ? #include<date.au3> $Actual = _DateAdd( 'd',29, _NowCalcDate()) ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $Actual = ' & $Actual & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _NowCalcDate = ' & _NowCalcDate() & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console $split = StringSplit($Actual, '/') $calculed = $split[3] & '/' & _GetMonth($split[2]) & '/' & $split[1] ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $calculed = ' & $calculed & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console Func _GetMonth($nMonth) Local $aMonth = StringSplit('01,02,03,04,05,06,07,08,09,10,11,12', ',') Return $aMonth[$nMonth] EndFuncoÝ÷ Ú+-ë¬z¸§¦ël¶²yªæ¢{au¬é¨¾'°jÊÞæ¬yÖ§vØ^Ø^¦º ©uÛ6õÖ²²Ú-çZµëaz뮬uçâçZºÚ"µÍÌÍÌY^ÈHÑ]PY ][ÝÑ ][ÝËK ÌÍÐXÝX[ oÝ÷ Ù»¶©®åzh¬Æ®¶sbb33c´7GVÂÒb33cµfײgV÷C²ògV÷C²fײb33c´ÔÒfײgV÷C²ògV÷C²fײb33c´DBalways = Zero Edited April 6, 2007 by Ch1ldProd1gy Link to comment Share on other sites More sharing options...
martin Posted April 7, 2007 Share Posted April 7, 2007 but the problem is...is $Actual = ($YYYY & "/" & $MM & "/" & $DD)always = Zero $YYYY is not a year it is the inpout box You should use GuiCtrRead($YYYY), GuiCtrlRead($MM) etc Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
Ch1ldProd1gy Posted April 17, 2007 Author Share Posted April 17, 2007 $YYYY is not a year it is the inpout boxYou should use GuiCtrRead($YYYY), GuiCtrlRead($MM) etctyvm, it works, <3 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