Initial Upload

DisneyCountdown.PDM

@@ -0,0 +1,192 @@
+[Root]
+Most Recent Package=Countdown to Disney
+
+[Package|Countdown to Disney|DisneyCountdown]
+Icon1=DisneyCountdown.exe
+Title1=DisneyCountdown
+StartIn1=$(AppPath)
+Key1=Icon1
+
+
+[Package|Countdown to Disney|Root]
+SubWizProgID=PDWizard.SetupPkgSubWiz
+BuildFolder=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\Package
+
+[Package|Countdown to Disney|Configure DAO ISAMs]
+Applicable=No
+
+[Package|Countdown to Disney|Configure DAO ODBC]
+JetWorkspace=
+ODBCDirect=
+
+[Package|Countdown to Disney|Files Found]
+
+[Package|Countdown to Disney|Files Released]
+
+[Package|Countdown to Disney|Missing Dependency Information]
+
+[Package|Countdown to Disney|Out-of-Date Dependency Information]
+
+[Package|Countdown to Disney|Files Added]
+c:\documents and settings\u671851\my documents\vb\disneycountdown\save.dat=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\1.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\10.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\11.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\12.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\13.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\14.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\15.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\16.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\17.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\18.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\19.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\2.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\20.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\21.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\22.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\3.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\4.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\5.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\6.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\7.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\8.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\9.bmp=
+c:\documents and settings\u671851\my documents\vb\disneycountdown\img\bg.bmp=
+
+[Package|Countdown to Disney|Files Removed]
+
+[Package|Countdown to Disney|Files In Project]
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\DisneyCountdown.exe=Yes
+C:\WINNT\system32\msvbvm60.dll=Yes
+C:\WINNT\system32\oleaut32.dll=Yes
+C:\WINNT\system32\olepro32.dll=Yes
+C:\WINNT\system32\asycfilt.dll=Yes
+C:\WINNT\system32\stdole2.tlb=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
+C:\WINNT\system32\MSCOMCT2.OCX=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
+C:\WINNT\system32\VB6STKIT.DLL=Yes
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\save.dat=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\1.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\10.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\11.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\12.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\13.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\14.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\15.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\16.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\17.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\18.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\19.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\2.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\20.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\21.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\22.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\3.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\4.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\5.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\6.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\7.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\8.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\9.bmp=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\bg.bmp=Yes
+
+[Package|Countdown to Disney|Configure Registry Files]
+Applicable=No
+
+[Package|Countdown to Disney|Configure Remote Servers]
+Applicable=No
+
+[Package|Countdown to Disney|Install Locations]
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\DisneyCountdown.exe=$(AppPath)
+C:\WINNT\system32\msvbvm60.dll=$(WinSysPathSysFile)
+C:\WINNT\system32\oleaut32.dll=$(WinSysPathSysFile)
+C:\WINNT\system32\olepro32.dll=$(WinSysPathSysFile)
+C:\WINNT\system32\asycfilt.dll=$(WinSysPathSysFile)
+C:\WINNT\system32\stdole2.tlb=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
+C:\WINNT\system32\MSCOMCT2.OCX=$(WinSysPath)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath)
+C:\WINNT\system32\VB6STKIT.DLL=$(WinSysPathSysFile)
+C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath)
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\save.dat=$(AppPath)
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\1.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\10.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\11.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\12.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\13.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\14.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\15.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\16.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\17.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\18.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\19.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\2.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\20.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\21.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\22.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\3.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\4.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\5.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\6.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\7.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\8.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\9.bmp=$(AppPath)\img
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\bg.bmp=$(AppPath)\img
+
+[Package|Countdown to Disney|Configure Shared Files]
+Applicable=Yes
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\DisneyCountdown.exe=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\save.dat=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\1.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\10.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\11.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\12.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\13.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\14.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\15.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\16.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\17.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\18.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\19.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\2.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\20.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\21.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\22.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\3.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\4.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\5.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\6.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\7.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\8.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\9.bmp=No
+C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\img\bg.bmp=No
+
+[Package|Countdown to Disney|Distribution]
+Type=single
+Size=
+Title=Countdown to Disney
+
+[Package|Countdown to Disney|IconGroups]
+Group0=$(Programs)
+PrivateGroup0=True
+Parent0=
+
+[Package|Countdown to Disney|$(Programs)]
+Icon1=DisneyCountdown.exe
+Title1=Countdown to Disney
+StartIn1=$(AppPath)
+Key1=Icon3
+
+[Package|Countdown to Disney|Package]
+PackageFolder=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\Package
+ProjectFolder=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown
+ServerSideCab=
+File1=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\Package\setup.exe
+File2=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\Package\Setup.Lst
+File3=C:\Documents and Settings\U671851\My Documents\VB\DisneyCountdown\Package\DisneyCountdown.CAB
+Handler1=PDWizard.FolderDplySubWiz
+Handler2=PDWizard.WebPostDplySubWiz

DisneyCountdown.vbp

@@ -0,0 +1,36 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINNT\system32\stdole2.tlb#OLE Automation
+Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
+Form=Form1.frm
+IconForm="Form1"
+Startup="Form1"
+HelpFile=""
+Title="DisneyCountdown"
+ExeName32="DisneyCountdown.exe"
+Command32=""
+Name="DisneyCountdown"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+
+[MS Transaction Server]
+AutoRefresh=1

DisneyCountdown.vbw

@@ -0,0 +1 @@
+Form1 = 124, 105, 474, 451, Z, 3, 9, 501, 451, C

Form1.frm

@@ -0,0 +1,141 @@
+VERSION 5.00
+Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
+Begin VB.Form Form1 
+   BorderStyle     =   1  'Fixed Single
+   Caption         =   "Countdown to Disney"
+   ClientHeight    =   5310
+   ClientLeft      =   45
+   ClientTop       =   330
+   ClientWidth     =   7170
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   Picture         =   "Form1.frx":0000
+   ScaleHeight     =   5310
+   ScaleWidth      =   7170
+   StartUpPosition =   3  'Windows Default
+   Begin VB.CommandButton ExitButton 
+      Caption         =   "Exit"
+      Height          =   375
+      Left            =   6000
+      TabIndex        =   1
+      Top             =   4800
+      Width           =   975
+   End
+   Begin MSComCtl2.DTPicker DatePicker 
+      Height          =   375
+      Left            =   120
+      TabIndex        =   0
+      Top             =   4800
+      Width           =   1455
+      _ExtentX        =   2566
+      _ExtentY        =   661
+      _Version        =   393216
+      Format          =   22740993
+      CurrentDate     =   44733
+      MaxDate         =   73050
+      MinDate         =   20285
+   End
+   Begin VB.Label CountdownLabel 
+      Alignment       =   2  'Center
+      BackStyle       =   0  'Transparent
+      Caption         =   "Countdown Text"
+      BeginProperty Font 
+         Name            =   "Arial"
+         Size            =   12
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   375
+      Left            =   1320
+      TabIndex        =   2
+      Top             =   360
+      Width           =   4575
+   End
+End
+Attribute VB_Name = "Form1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Dim vacationDate As Date
+Dim dateDifference As Integer
+
+Private Sub DatePicker_CloseUp()
+vacationDate = DatePicker.Value
+UpdateCaption
+
+End Sub
+
+Private Sub ExitButton_Click()
+    Unload Me
+End Sub
+
+Private Sub Form_DblClick()
+    ChgBackground
+End Sub
+
+Private Sub Form_Load()
+    Dim imgNum As Integer
+    ReadFile
+    UpdateCaption
+    ChgBackground
+End Sub
+
+Public Sub UpdateCaption()
+
+    dateDifference = DateDiff("d", Now, vacationDate)
+    If dateDifference < 0 Then
+        CountdownLabel.Caption = Abs(dateDifference) & " days since Disney"
+    Else
+        CountdownLabel.Caption = dateDifference & " days until Disney!"
+    End If
+
+End Sub
+
+Public Sub WriteFile()
+
+    Dim intFile As Integer
+    Dim strFile As String
+    strFile = App.Path & "\save.dat"
+    intFile = FreeFile
+    Open strFile For Output As #intFile
+        Print #intFile, CLng(vacationDate)
+    Close #intFile
+
+End Sub
+
+Public Sub ReadFile()
+
+    Dim intFile As Integer
+    Dim strFile As String
+    Dim strFileContents As String
+    strFile = App.Path & "\save.dat"
+    intFile = FreeFile
+    Open strFile For Input As #intFile
+        Input #intFile, strFileContents
+    Close #intFile
+    If Not strFileContents < 20285 And Not strFileContents > 73050 Then
+        DatePicker.Value = CVDate(strFileContents)
+        vacationDate = DatePicker.Value
+    Else
+        DatePicker.Value = Now
+        vacationDate = DatePicker.Value
+    End If
+
+
+End Sub
+
+Private Sub Form_Unload(Cancel As Integer)
+    WriteFile
+End Sub
+
+Public Sub ChgBackground()
+    Randomize
+    imgNum = Int((22 - 1 + 1) * Rnd + 1)
+    Form1.Picture = LoadPicture(App.Path & "\img\" & imgNum & ".bmp")
+End Sub

MSSCCPRJ.SCC

@@ -0,0 +1,5 @@
+[SCC]
+SCC=This is a source code control file
+[DisneyCountdown.vbp]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>

save.dat

@@ -0,0 +1 @@
+0