IF, IF ELSE, WHILE, CASE, FOR, CLASS menggunakan bahasa VB.net

1. Berikut adalah cara menggunakan IF, IF ELSE, WHILE, CASE, FOR, CLASS menggunakan bahasa VB.net

2. jangan lupa untuk membuat form yang anda ingin kan. kali ini ini saya menggunakan form data isi seperti diatas
input yang saya gunakan aadalah 'tipe kamar' yang akan menghasilkan output 'harga kamar per 3 bulan' dan
'fasilitas tambahan' yang kita dapatkan.

lalu selain itu saya juga menggunakan input dalam 'tipe pembayaran/bulan' yaitu pembayaran yang dibayar setiap 3 bulan dlm setahun, atau 6 bulan dlm setahun, atau 12 bulan dlm setaun.
 
 sehingga ketika kita mengklik 'total' yang terjadi adalah harga kamar/3bln dikali dengan tipe pembayaran yg dipilih. yang akan muncul dalam texbox 'pembayaran dalam setahun'.

3. berikut adaah source code nya:


Public Class

    Function Total(ByVal HargaKamar, ByVal TipePembayaran)
        Total = (HargaKamar * TipePembayaran)
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        ComboTipeKamar.Items.Clear()
        i = 3
        While i > 0
            ComboTipeKamar.Items.Add(i)
            i -= 1
        End While

        For a = 1 To 31
            ComboTgl.Items.Add(a)
        Next
        For b = 1 To 12
            ComboBln.Items.Add(b)
        Next
        For c = 2016 To 2005 Step -1
            ComboThn.Items.Add(c)
        Next
    End Sub


    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TxtIdentitas.TextChanged

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click

    End Sub

    Private Sub ComboTipeKamar_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboTipeKamar.SelectedIndexChanged

        If ComboTipeKamar.Text = 1 Then
            TxtHarga.Text = "500000"

        ElseIf ComboTipeKamar.Text = 2 Then
            TxtHarga.Text = "650000"

        Else
            TxtHarga.Text = "800000"

        End If

        Select Case ComboTipeKamar.Text
            Case 1
                Txtfasilitas.Text = "Wifi"
            Case 2
                Txtfasilitas.Text = "TV"
            Case Else
                Txtfasilitas.Text = "AC"

        End Select

    End Sub

    Private Sub TxtNama_TextChanged(sender As Object, e As EventArgs) Handles TxtNama.TextChanged

    End Sub

    Private Sub TxtTotal_TextChanged(sender As Object, e As EventArgs) Handles TxtTotal.TextChanged

    End Sub

    Private Sub BttnKlik_Click(sender As Object, e As EventArgs) Handles BttnKlik.Click
        TxtTotal.Text = Total(TxtHarga.Text, ComboTipeKamar.Text)
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

 

    Private Sub ComboBln_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBln.SelectedIndexChanged

    End Sub
End Class



4. setelah mengkoding, hasil akhirnya akan seperti ini, dan aplikasi pun akan berjalan sesuai dengan source code yang kita buat

 

  6. lalu kembali lagi ke sourceode, klik button selesai lalu tambahan kan source berikut ini:

Dim x = MsgBox("Anda Yakin Sudah Selesai? Silahkan Periksa Kembali", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then
            Me.Close()
        End If

agar aplikasi bisa memncul kan form baru  seperti berikut conohnya jika sudah di coding,  

  

selesai:)