Public Class Form1
    Private Function beregnPris(ByVal romtype As String, ByVal antallgjester As Integer, ByVal antalldager As Integer)
        Dim rompris As Integer
        Dim frokost As Boolean
        If chkFrokost.Checked Then
            frokost = True
        Else
            frokost = False
        End If
        Select Case rompris
            Case romtype = "enkeltrom"
                rompris = 645 * antalldager
            Case romtype = "dobbeltrom"
                rompris = 995 * antalldager
            Case romtype = "suite"
                rompris = 1295 * antalldager
        End Select

        If antalldager > 5 Then
            If romtype <> "suite" Then
                rompris = rompris * 0.8
            End If
        End If
        If frokost = True Then
            rompris += antallgjester * 55
        End If
        Return rompris
    End Function
    Private Sub antalldagerchanged(sender As Object, e As EventArgs) Handles txtAntallDager.TextChanged
        If txtAntallDager.Text.Length > 0 Then
            Try
                Convert.ToDouble(txtAntallDager.Text)
            Catch ex As Exception
                MsgBox("Bruk nummer i antall dager!")
                txtAntallDager.Clear()
            End Try
        End If
    End Sub

    Private Sub txtAntallGjester_TextChanged(sender As Object, e As EventArgs) Handles txtAntallGjester.TextChanged
        If txtAntallGjester.Text.Length > 0 Then
            Try
                Convert.ToDouble(txtAntallGjester.Text)
            Catch ex As Exception
                MsgBox("Bruk nummer i antall gjester!")
                txtAntallGjester.Clear()
            End Try
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim antallgjester = txtAntallGjester.Text
        Dim antalldager = txtAntallDager.Text
        Dim romtype = cboRomType.Text
        Dim pris As Integer
        If antallgjester > 0 And antalldager > 0 Then
            pris = beregnPris(romtype, antallgjester, antalldager)
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Navn: " & txtNavn.Text)
            ListBox1.Items.Add("Epost: " & txtEpost.Text)
            ListBox1.Items.Add("Totalpris:" & pris)
        End If
    End Sub


End Class