Option Explicit

Private Declare Function mciExecute _
Lib "winmm.dll" ( _
    ByVal lpstrCommand As String _
) As Long

Private Sub Form_Load()
    `Center this form on screen
    Me.Move (Screen.Width - Width) \ 2, _
        (Screen.Height - Height) \ 2
End Sub

Private Sub cmdShow_Click(intIndex As Integer)
    Me.Hide
    Select Case intIndex
    Case 0
        ShowMedia "bmp"
    Case 1
        ShowMedia "ico"
    Case 2
        ShowMedia "wmf"

    Case 3
        PlayMedia "wav"
    Case 4
        ShowMedia "gif"
    Case 5
        ShowMedia "jpg"
    Case 6
        PlayMedia "avi"
    Case 7
        PlayMedia "mpg"
    End Select
    Me.Show
End Sub

Private Sub PlayMedia(strFileExt As String)
    `Process multimedia files
    Dim strFilter As String
    Dim strFile As String
    Dim lngX As Long
    strFilter = "*." & strFileExt & "|*." & strFileExt
    Do
        strFile = GetFileName(strFilter)
        If strFile = "" Then Exit Do
        lngX = mciExecute("Play " & strFile)
    Loop
End Sub

Private Sub ShowMedia(strFileExt As String)
    `Process static images
    Dim strFilter As String
    Dim strFile As String
    Dim lngX As Long
    strFilter = "*." & strFileExt & "|*." & strFileExt
    Do

        strFile = GetFileName(strFilter)
        If strFile = "" Then Exit Do
        frmImage.Display strFile
    Loop
End Sub

Private Function GetFileName(strFilter As String) As String
    `Use CommonDialog control to display a dialog box that allows
    `user to select media file
    With dlgOne
        .DialogTitle = "ShowTell"
        .Flags = cdlOFNHideReadOnly
        .Filter = strFilter
        .FileName = ""
        .CancelError = True
        On Error Resume Next
        .ShowOpen
        On Error GoTo 0
        GetFileName = .FileName
    End With
End Function

Option Explicit

Public Sub Display(strFileName As String)
    Dim lngWedge As Long
    Dim lngHedge As Long
    Me.Caption = strFileName
    With imgOne
        .Picture = LoadPicture(strFileName)
        .Move 0, 0
        lngWedge = Width - ScaleWidth
        lngHedge = Height - ScaleHeith

        Me.Move (Screen.Width - (.Width + lngWedge)) \ 2, _
            (Screen.Height - (.Height + lngHedge)) \ 2, _
            .Width + lngWedge, .Height + lngHedge
    End With
    Me.Show vbModal
End Sub

Option Explicit

Private Sub mnuAbout_Click()
    `Set properties
    With About
        .Application = "WindChill"
        .Heading = "Microsoft Visual Basic 6.0 " & _
            "Developer's Workshop"
        .Copyright = "1998 John Clark Craig"
        .Display
    End With
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuContents_Click()
    With dlgOne
        .HelpFile = App.Path & "\..\..\Help\Mvbdw.hlp"
        .HelpCommand = cdlHelpContents
        .ShowHelp
    End With

Private Sub mnuSearch_Click()
    With dlgOne
        
.HelpFile = App.Path & "\..\..\Help\Mvbdw.hlp"
        .HelpCommand = cdlHelpPartialKey
        .ShowHelp
    End With
End Sub

Private Function Celsius(vntF)
    `Convert Fahrenheit to Celsius
    Celsius = (vntF + 40) * 5 / 9 - 40
End Function

Private Sub ChillOut()
    Dim vntWind
    Dim vntTemp
    Dim vntChill
    Dim strDisplay As String
    `Get working values from scrollbars
    vntWind = sldWindSpeed.Value
    vntTemp = sldTemperature.Value
    `Convert to MPH if KPH selected
    If optKPH.Value = True Then
        vntWind = Mph(vntWind)
    End If
    `Convert to Fahrenheit if Celsius selected
    If optCelsius.Value = True Then
        vntTemp = Fahrenheit(vntTemp)
    End If
    `Calculate windchill index
    vntChill = Int(0.0817 * (Sqr(vntWind) * 3.71 + _
        5.81 - 0.25 * vntWind) * (vntTemp - 91.4) + 91.4)

    `Convert back to Celsius if selected
    If optCelsius.Value = True Then
        vntChill = Celsius(vntChill)
    End If
    `Display windchill index
    strDisplay = "Windchill index is " & Str$(CInt(vntChill))
    If optFahrenheit.Value = True Then
        lblWindChill.Caption = strDisplay & " F"
    Else
        lblWindChill.Caption = strDisplay & " C"
    End If
End Sub

Private Sub cmdCancel_Click()
    `End if Cancel button clicked
    Unload frmWindChill
End Sub

Private Function Fahrenheit(vntC)
    `Convert Celsius to Fahrenheit
    Fahrenheit = (vntC + 40) * 9 / 5 - 40
End Function

Private Sub Form_Load()
    `Force scrollbars to update
    sldWindSpeed_Change
    sldTemperature_Change
End Sub

Private Sub sldTemperature_Change()
    Dim vntTmp
    `Get temperature
    vntTmp = sldTemperature.Value
    `Display using selected units

    If optCelsius.Value = True Then
        lblTemperature.Caption = vntTmp & " C"
    Else
        lblTemperature.Caption = vntTmp & " F"
    End If
    `Calculate windchill index
    ChillOut
End Sub

Private Sub sldTemperature_Scroll()
    `Update when slider knob moves
    sldTemperature_Change
End Sub

Private Sub sldWindSpeed_Change()
    Dim vntTmp
    `Get wind speed
    vntTmp = sldWindSpeed.Value
    `Display using selected units
    If optKPH.Value = True Then
        lblWindSpeed.Caption = vntTmp & " KPH"
    Else
        lblWindSpeed.Caption = vntTmp & " MPH"
    End If
    `Calculate windchill index
    ChillOut
End Sub

Private Sub sldWindSpeed_Scroll()
    `Update when slider knob moves
    sldWindSpeed_Change
End Sub

Private Function Kph(vntMph)

    `Convert MPH to KPH
    Kph = vntMph * 1.609344
End Function

Private Function Mph(vntKph)
    `Convert KPH to MPH
    Mph = vntKph / 1.609344
End Function

Private Sub optCelsius_Click()
    Dim vntC
    `Convert current temperature to Celsius
    vntC = Celsius(sldTemperature.Value)
    If vntC < -45 Then vntC = -45
    `Reset scrollbar for Celsius
    sldTemperature.Min = -45
    sldTemperature.Max = 32
    sldTemperature.Value = CInt(vntC)
    sldTemperature_Change
End Sub

Private Sub optFahrenheit_Click()
    Dim vntF
    `Convert current temperature to Fahrenheit
    vntF = Fahrenheit(sldTemperature.Value)
    If vntF < -50 Then vntF = -50
    `Reset scrollbar for Fahrenheit
    sldTemperature.Min = -50
    sldTemperature.Max = 90
    sldTemperature.Value = CInt(vntF)
    sldTemperature_Change
End Sub

Private Sub optKPH_Click()

    Dim vntK
    `Convert current wind speed to KPH
    vntK = Kph(sldWindSpeed.Value)
    `Reset scrollbar for KPH
    sldWindSpeed.Min = 8
    sldWindSpeed.Max = 80
    sldWindSpeed.Value = vntK
    sldWindSpeed_Change
End Sub

Private Sub optMPH_Click()
    Dim vntM
    `Convert current wind speed to MPH
    vntM = Mph(sldWindSpeed.Value)
    `Reset scrollbar for MPH
    sldWindSpeed.Min = 5
    sldWindSpeed.Max = 50
    sldWindSpeed.Value = vntM
    sldWindSpeed_Change
End Sub