Xmas is just around the corner...

[OTWarrior]

...And I was thinking of using my coding knowledge to do a xmas thingy. either in access or word.

I was mainly wondering if anyone else has done anything in the previous years.

I was thinking of having a form with an xmas tree with flashing lights, whilst getting the pc speaker to play jingle bells (or cop out and use a midi file ;)

any other ideas?

[Zack Barresse]

Some good one's here..

http://www.ozgrid.com/forum/showthread.php?t=61331

Some good stuff. I though Ivan Moala and/or Colo has some stuff with a christmas tree as well, but I couldn't find it. Some nice stuff has been done though. Ivan has something on his site with doing a picture in Excel, might look cool with a xmas tree pic. :)

[OTWarrior]

looks like some good stuff on that link, thank you :)

once I have created my one, I will post in on here.

[OTWarrior]

This is mine:


here is the code for mine :):


Private Declare Function WeirdSound Lib "Kernel32.dll" Alias _
"Beep" (ByVal lFrequency As Long, ByVal lDuration As Long) As Boolean
Option Compare Database
Private xcount As Single
Dim nSound As Integer
Dim nsoundcount As Integer
Private Sub Command0_Click()
On Error Resume Next
Me.OnTimer = ""
Me.TimerInterval = 0
DoEvents
Err.Clear
DoCmd.Close acForm, Me.name, acSaveNo
End Sub
Private Sub Form_Load()
Me.Label10.Caption = GetUserName
xcount = 0
nsoundcount = 15
Me.Label20.Caption = DateDiff("d", Date, #12/25/2007#) & " Days Until Xmas Day!"
End Sub
Private Sub Form_Timer()
On Error GoTo SubFail
If xcount < 105 Then
Me.treeimg2.Visible = Not Me.treeimg2.Visible
xcount = xcount + 0.5
nsoundcount = nsoundcount + 5 / nsoundcount
nSound = (Rnd(nsoundcount) * 1000)
WeirdSound nSound, 400
Select Case xcount
Case Is < 5, 26 To 30, 51 To 55, 76 To 80
Label6.ForeColor = vbRed
Case Is < 10, 31 To 35, 56 To 60, 81 To 85
Label6.ForeColor = vbGreen
Case Is < 15, 36 To 40, 61 To 65, 86 To 90
Label6.ForeColor = vbRed + vbBlue
Case Is < 20, 41 To 45, 66 To 70, 91 To 95
Label6.ForeColor = vbYellow
Case Is < 25, 46 To 50, 71 To 75, 96 To 100
Label6.ForeColor = vbBlue
Case Is < 105
Label6.ForeColor = vbRed
End Select
DoEvents
xLen = Len(Me.Label6.Caption)
Select Case xcount
Case Is < 7, 24 To 32, 53 To 57, 78 To 82
Label11.ForeColor = 16711808
Case Is < 12, 33 To 37, 58 To 62, 83 To 87
Label11.ForeColor = vbGreen + vbYellow
Case Is < 14, 38 To 42, 63 To 67, 88 To 92
Label11.ForeColor = vbRed + vbGreen + vbYellow
Case Is < 18, 43 To 47, 68 To 72, 92 To 97
Label11.ForeColor = vbGreen + red
Case Is < 23, 48 To 52, 73 To 77, 98 To 102
Label11.ForeColor = vbRed
Case Is < 3, 103 To 105
Label11.ForeColor = vbBlue
End Select
DoEvents
Else
Call Command0_Click
End If
Exit Sub
SubFail:
Call Command0_Click
End Sub


we have got this form to load when the user logs in, but will only happen between 17/12/07 and 25/12/07, so I can be put in well in advance :)

the Me.treeimg2.Visible is 2 images on top of each other, and makes the top one invisible on timer, giving the impression of flashing lights.

I will develop the pc speaker thing, as it is completey random in tune, and I want it to be christmassy :)