Cart Search
New Topic
Forum Home | Login
RomanDA
RomanDA
Join Date 12/2003
+147

Countdown to disaster - Part 7

Last Code

November 8, 2008 1:55:26 PM from WinCustomize ForumsWinCustomize Forums

Ok those that are still with me, I have refined the code some, modified the graphics, and i belive the only part left will be to put the graphic in that will display when today is their birthday.  I have also added a "sound" object with a mp3 to play Happy Birthday.  The buttons have been replaced with balloons to fit into the images better.

Here is the code:

Code: vbscript
  1. Dim BDate,BMonth,BDay
  2. '--  for INI FILE
  3. Dim IniName, IniCnt, IniTitle(100), IniDetails(100)
  4. Const ForWriting =2 : Const ForReading = 1 : Const ForAppending = 8
  5. '--- End INI
  6. Dim HappyBirthdayToday
  7. Dim INIPath
  9. Sub Object_OnScriptEnter
  10.      Set objShell = CreateObject("WScript.Shell")
  11.     INIPath = objShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal")
  12.      Set objShell = nothing
  13.      If right(INIPath,1) <> "\" Then INIPath = INIPath & "\"
  14.     HappyBirthdayToday = False
  15.     IniName = "CommunityBday.ini" '---- INI FILE NAME
  16.     Call ReadINI() '-- Read INI File
  17.     BMonth = ReadINIValue("Month") '--Set Initial Values
  18.     BDay = ReadINIValue("Day")
  19.     Call SetMode(ReadINIValue("Mode"))
  20.     Call GetBDay
  21.     Object.SetTimer 1, 1000
  22. End Sub
  24. Sub Object_OnTimer1
  25.     CurTime = formatdatetime(now,3)
  26.      i = DateDiff("s", Now, BDate)
  27.   DaysLeft = i \ 86400
  28.   i = i Mod 86400
  29.   HoursLeft = i \ 3600
  30.   i = i Mod 3600
  31.   MinutesLeft = i \ 60
  32.   i = i Mod 60
  33.   SecondsLeft = i
  34.   desktopx.Object("Birthday-CD-Large-days").text = DaysLeft
  35.   desktopx.Object("Birthday-CD-Large-hrs").text = HoursLeft
  36.   desktopx.Object("Birthday-CD-Large-min").text = MinutesLeft
  37.   desktopx.Object("Birthday-CD-Large-sec").text = SecondsLeft
  38.   Call GetBDay()
  39. End Sub
  42. Sub Object_OnScriptExit
  43.  object.KillTimer 1
  44. End Sub
  46. Function SetMode(Mode)
  47.   desktopx.Object("Birthday-CD-Flame-BG").visible = False
  48.     Select Case Mode
  49.         Case "Mini"
  50.       desktopx.object("Birthday-CD-LargeBG").visible = False
  51.         desktopx.object("Birthday-CD-MiniBG").visible = True
  52.         FT = 48 : FL = 193
  53.         Call SetINIValue("Mode","Mini")
  54.         Case "Large"
  55.         desktopx.object("Birthday-CD-MiniBG").visible = False
  56.       desktopx.object("Birthday-CD-LargeBG").visible = True
  57.         FT = 74 : FL = 204
  58.       Call SetINIValue("Mode","Large")
  59.     End Select
  60.   desktopx.Object("Birthday-CD-Flame-BG").top = FT
  61.   desktopx.Object("Birthday-CD-Flame-BG").left = FL
  62.   desktopx.Object("Birthday-CD-Flame-BG").visible = True
  63. End Function
  65. Function Object_OnLButtonUpEx(obj,x,y,dragged)
  66.     If Not dragged Then
  67.         Select Case obj.name
  68.        
  69.     Case "Birthday-CD-LargeModeBtn"
  70.       Call SetMode("Large")
  72.     Case "Birthday-CD-MiniModeBTN"
  73.             Call SetMode("Mini")
  75.     Case "Birthday-CD-Mini-PrefsBTN"
  76.       Call PrefsMenu()
  77.      
  78.     Case "Birthday-CD-Large-PrefsBTN"
  79.       Call PrefsMenu()
  81.     Case "HappyBirthday"
  82.         Call ResetBirthday
  84.     Case "Birthday-CD-Large-Close-BTN"
  85.       widget.Close
  86.      
  87.     Case "Birthday-CD-Mini-Close-BTN"
  88.         widget.Close
  90.         End Select
  91.   End If
  92. End Function
  94. Function PrefsMenu()
  95.     Set frm = DesktopX.CreateForm
  96.     frm.caption = "Community Birthday Countdown Prefs"
  98.   frm.AddPreference "B-Month"
  99.   frm.Preference("B-Month").Type = "ComboList"
  100.   For x = 1 To 12
  101.       frm.Preference("B-Month").AddValue x
  102.   Next
  103.   frm.Preference("B-Month").DefaultValue = BMonth
  104.   frm.Preference("B-Month").Caption = "Month"
  106.   frm.AddPreference "B-Day"
  107.   frm.Preference("B-Day").Type = "ComboList"
  108.   For x = 1 To 31
  109.       frm.Preference("B-Day").AddValue x
  110.   Next
  111.   frm.Preference("B-Day").DefaultValue = BDay
  112.   frm.Preference("B-Day").Caption = "Day"
  114.     If frm.prompt Then
  115.         BMonth = frm.Preference("B-Month").value
  116.         BDay = frm.Preference("B-Day").value
  117.         Call SetINIValue("Month",BMonth)
  118.         Call SetINIValue("Day",BDay)
  119.     End If
  120.     Call GetBDay()
  121. End Function
  123. Function GetBDay()
  124.   BdayToday = False
  125.   testDate = FormatDate(BMonth &"/" & BDay &"/" & year(now))
  126.   CheckDate = IsDate(testDate)
  127.   If CheckDate <> True Then
  128.    Msgbox "Date: " & testDate & vbnewline & "is Invalid" & vbnewline & "Please select a new date"
  129.    Call PrefsMenu()
  130.   Else
  131.         s = DateDiff("s", Now, testdate)
  132.         If s > 0 Then
  133.             BDate = cdate(testdate)
  134.         Else
  135.           testDate = FormatDate(BMonth &"/" & BDay &"/" & (year(now)+1))
  136.             BDate = cdate(testdate)
  137.       End If
  138.       d = DateDiff("d", Now, testdate)
  139.       If d= 365 Then
  140.           Call HappyBirthday
  141.       Else
  142.           HappyBirthdayToday = False
  143.       End If
  144.       desktopx.Object("Birthday-CD-Mini-BDate").text = BDate
  145.       desktopx.Object("Birthday-CD-Large-BDate").text = BDate
  146.   End If
  147. End Function
  148. '---INI FILE FUNCTIONS ----
  150. Function WriteBlankINI()
  151.     '------------------ INI DEFAUTL VALUES HERE -----------------------
  152.     IniCnt = 0
  153.     IniCnt = IniCnt+ 1 : IniTitle(1) = "Mode" : IniDetails(1) = "Mini"
  154.     IniCnt = IniCnt+ 1 : IniTitle(2) = "Month"         : IniDetails(2) = 11
  155.     IniCnt = IniCnt+ 1 : IniTitle(3) = "Day"     : IniDetails(3) = 20
  156.         ' The INI File is Stored in the Directory where the Program is run
  157.     IniContents = ""
  158.     For x = 1 To INICnt   
  159.    IniContents = IniContents & IniTitle(x) & "|" & IniDetails(x) & vbnewline
  160.     Next
  161.     'fn = desktopx.ExecutableDirectory & IniName
  162.      fn = INIPath & IniName
  163.     System.SimpleWrite fn, IniContents, 1
  164. End Function
  166. Function ReadINI()
  167.     Call CheckForINI()
  168.     fn = INIPath & IniName
  169.     TextList = System.SimpleRead(fn, 1)
  170.   Lines = Split(TextList, Chr(10))
  171.     IniCnt = 0
  172.     For A = UBound(Lines) To LBound(Lines) Step -1
  173.          If Len(Lines(A)) > 0 Then
  174.           t = instr(Lines(A),"|")
  175.           IniCnt = IniCnt + 1
  176.           IniTitle(IniCnt) = left(Lines(A),t-1)
  177.           IniDetails(IniCnt) = mid(Lines(A),t+1)
  178.           l = len(IniDetails(IniCnt))
  179.           IniDetails(IniCnt) = left(IniDetails(IniCnt),l-1)
  180.       End If
  181.     Next
  182. End Function
  184. Function WriteINI()
  185.     ' The INI File is Stored in the Directory where the Program is run
  186.     IniContents = ""
  187.     For x = 1 To INICnt   
  188.    IniContents = IniContents & IniTitle(x) & "|" & IniDetails(x) & vbnewline
  189.     Next
  190.     fn = INIPath & IniName
  191.     System.SimpleWrite fn, IniContents, 1
  192. End Function
  194. Function CheckForINI()
  195.     'fn = desktopx.ExecutableDirectory & IniName
  196.     fn = INIPath & ININame
  197.     Set filesys = CreateObject("Scripting.FileSystemObject")
  198.     temp = filesys.FileExists(fn)
  199.     path = filesys.GetAbsolutePathName(fn)
  200.     If Not filesys.FileExists(fn) Then
  201.        Call WriteBlankINI()
  202.     End If
  203. End Function
  205. Function ReadINIValue(Item)
  206.     ReadINIValue = ""
  207.     For x = 1 To INICnt
  208.         If UCase(IniTitle(x)) = UCase(Item) Then    temp = IniDetails(x)     
  209.     Next
  210.     ReadINIValue = Temp
  211. End Function
  213. Function SetINIValue(Item,value)
  214.     For x = 1 To INICnt
  215.         If UCase(IniTitle(x)) = UCase(Item) Then    IniDetails(x) = Value
  216.     Next
  217.  Call WriteINI()
  218. End Function
  221. '---- FIX DATE FOR ANY LOCATION
  222. Function FormatDate(xdate)
  223.     On Error Resume Next
  224.   Dim ,s1,s2,sx
  225.      If instr(xdate,"/") > 0 Then
  226.       s1 = "/"
  227.      ElseIf instr(xdate,".") > 0 Then
  228.       s1 = "."
  229.      ElseIf instr(xdate,"-") > 0 Then
  230.       s1 = "-"
  231.      End If
  232.      Set objShell = CreateObject("WScript.Shell")
  233.   = objShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sShortDate")
  234.   s2 = objShell.RegRead("HKEY_CURRENT_USER\Control Panel\International\sDate")
  235.      Set objShell = nothing
  236.   sx = split(xdate,s1)
  237.   If left(LCase( ),1) = "d" Then = sx(1)&s2&sx(0)&s2&sx(2) Else = sx(0)&s2&sx(1)&s2&sx(2)
  238.   FormatDate = FormatDateTime( ,2)
  239.      Set = nothing
  240.      Set s1 = nothing
  241.      Set s2 = nothing
  242.      Set sx = nothing
  243. End Function
  245. Function HappyBirthday()
  246.     If HappyBirthdayToday = False Then
  247.         desktopx.object("Birthday-CD-PlaySong").state = "Play"
  248.       desktopx.Object("Today").text = "WOOT!"
  249.       HappyBirthdayToday = True
  250.       desktopx.object("Birthday-CD-LargeBG").visible = False
  251.       desktopx.object("Birthday-CD-MiniBG").visible = False
  252.         desktopx.Object("Birthday-CD-Flame-BG").visible = False
  253.         desktopx.Object("Birthday-CD-TimeBack").visible = False
  254.         desktopx.object("HappyBirthday").visible = True
  255.         msgbox "HAPPY BIRTHDAY!!" & vbnewline & "Click OK to stop music"
  256.         desktopx.object("Birthday-CD-PlaySong").state = "Stop"
  257.     End If
  258. End Function
  260. Function ResetBirthday()
  261.     desktopx.Object("Today").text = "   "
  262.     desktopx.object("HappyBirthday").visible = False
  263.     Call SetMode(ReadINIValue("Mode"))
  264.     desktopx.Object("Birthday-CD-TimeBack").visible = True
  265. End Function

This section of code controls what happens when TODAY is the birthday.

Code: vbscript
  1. Function HappyBirthday()
  2.     If HappyBirthdayToday = False Then
  3.         desktopx.object("Birthday-CD-PlaySong").state = "Play"
  4.       HappyBirthdayToday = True
  5.       desktopx.object("Birthday-CD-LargeBG").visible = False
  6.       desktopx.object("Birthday-CD-MiniBG").visible = False
  7.         desktopx.Object("Birthday-CD-Flame-BG").visible = False
  8.         desktopx.Object("Birthday-CD-TimeBack").visible = False
  9.         desktopx.object("HappyBirthday").visible = True
  10.         msgbox "HAPPY BIRTHDAY!!" & vbnewline & "Click OK to stop music"
  11.         desktopx.object("Birthday-CD-PlaySong").state = "Stop"
  12.     End If
  13. End Function

You can see in this line:
        desktopx.object("Birthday-CD-PlaySong").state = "Play"

That it simply changes the STATE of the object that I assigned the MP3 to.  This allows you to play the song "on command".
If left alone it will continue to play, so I added a MSGBOX to tell the person Happy Birthday and to STOP the playback of the song.

I also use the IF at the begining to stop this from showing every time the timer ticks off.  You can see that inside the code it adds HappyBirthdayToday = True so that the next time it will not show.  This is RESET back in the CheckBDay Code here:

Code: vbscript
  1.       If d= 365 Then
  2.           Call HappyBirthday
  3.       Else
  4.           HappyBirthdayToday = False
  5.       End If

This allows this to be reset the next day so that it will work again in 365 days (as if anyone's pc will be working no-stop for 1 year.. LOL)

The gadget is about done, I will post a comment with the link when its 100% done.  I will upload a WIDGET and a GADGET version so that if you want to take it apart and see how it works in more detail.

I hope that you have enjoyed this step into how a gadget is created, i know its not 100% perfect but it does allow you to get an idea on how this all works, and how to go about building your own. 

If anyone has any other ones they would like me to create, please let me know.  clock? calendar? weather? (ROFL).

RomanDA

Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
RomanDA
RomanDA
Join Date 12/2003
+147
Reply #1 November 8, 2008 1:56:40 PM
from WinCustomize ForumsWinCustomize Forums

oops forgot:

I added this line of code so that it always puts the INI file in the "My Documents" folder, this is important with Vista's security.

Code: vbscript
  1. INIPath = objShell.RegRead(" HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal ")
Reason for Karma (Optional)
Successfully updated karma reason!
RomanDA
RomanDA
Join Date 12/2003
+147
Reply #2 November 13, 2008 8:41:53 PM
from WinCustomize ForumsWinCustomize Forums

If anyone has an interest, I have finished this widget/gadget and uploaded it here:

https://www.wincustomize.com/skins.aspx?skinid=1434&libid=34

If you want the latest code, download the zip, extract the widget and IMPORT it into DX.

I really hope someone got something out of all this.. it was a lot of work.

Reason for Karma (Optional)
Successfully updated karma reason!
Stardock Forums v        Server Load Time:   Page Render Time: