PERCABANGAN

A.        Percabangan

Percabangan adalah proses yang menjalankan suatu proses dengan blok kode yang akan di eksekusi dan mengabaikan blok kode program lainnya apabila masih di dalam blok kode program yang di eksekusi tersebut.

B.        Macam-Macam Percabangan pada Visual Basic

1.         If – Then

If – Then merupakan sebuah kondisi yang akan mengeksekusi perintah di dalam if jika kondisinya bernilai true. Perintah If – Then ini digunakan untuk program dengan 1 kondisi.

Bentuk Umum :

If (Kondisi) Then

        (Perintah)

End If

2.         If – Then – Else

If – Then – Else merupakan bentuk percabangan yang akan menjalankan perintah pada then jika kondisi pada if terpenuhi, dan akan menjalankan perintah pada Else jika kondisi tidak terpenuhi. Biasanya perintah ini untuk kondisi ganda.

Bentuk Umum :

If (Kondisi) Then

        (Perintah 1)

Else

(Perintah 2)

End If

3.         Select Case

Pada dasarnya penggunaan Select Case sama dengan If hanya saja terdapat sedikit perbedaan pada struktur penulisannya.

Bentuk Umum :

Select Case (Pilihan)

Case 1 (Perintah 1)

Case 2 (Perintah 2)

Case 3 (Perintah 3)

… (Apabila lebih dari 3 Case)

End Select

TUTORIAL PRAKTIKUM PERCABANGAN

A.         Alat dan Bahan

Alat dan bahan yang perlu digunakan dalam praktikum form dan objek kontrol kedua ini adalah sebagai berukut.

1.         Laptop

2.         Software Visual Studio Community 2013

B.         Langkah-Langkah Praktikum Percabangan

Berikut ini adalah langkah-langkah praktikum percabangan :

1.         Buat projek baru dengan nama Prak4, sama dengan praktikum sebelumnya.

2.         Maka akan tampil pada tampilan form seperti berikut.


3.         Klik pada Form1 untuk mengatur properti-propertinya sebagai berikut.

Object

Properties

Nilai

Form1

Text

Aplikasi Nilai

 StartPosition

CenterScreen


Sehingga judul pada tampilan form sebagai berikut.


4.         Selanjutnya pada Toolbox, cari Label. Kemudian double klik Label tersebut.


5.         Sehingga tampilan label sebagai berikut.


6.         Klik pada Label1 untuk mengatur propertinya sebagai berikut.

Object

Properties

Nilai

Label1

Text

1 SKS Teori, 2 SKS Praktikum

 

Sehinggan judul pada label berubah seperti berikut.


7.         Pada Toolbox, cari GroupBox. Kemudian double klik GroupBox tersebut. Disini kita menggunakan 3 GroupBox.


8.         Sehingga tampilannya sebagai berikut.


Lalu atur properti-propertinya berikut :

Object

Properties

Nilai

GroupBox1

Text

Nilai Teori (33 %)

GroupBox2

Text

Nilai Praktikum (67 %)

GroupBox

Text

Total Nilai

 

9.         Maka tampilannya sebagai berikut.


10.     Kemudian tambahkan lagi labelnya sebanyak 9.


11.     Lalu tambahkan properti-propertinya sebagai berikut.

Object

Properties

Nilai

Label2

Text

Tugas (30 %)

Label3

Text

Keaktifan (10 %)

Label4

Text

UTS (30 %)

Label5

Text

UAS (30 %)

Label6

Text

Kerja (60 %)

Label7

Text

Laporan (10 %)

Label8

Text

Ujian (30 %)

Label9

Text

Nilai Total

Label10

Text

Nilai Huruf

 

Sehingga hasilnya sebagai berikut.


12.     Pada Toolbox, cari TextBox. Kemudian double klik TextBox tersebut. Disini kita menggunakan 9 TextBox.


13.     Sehingga tampilannya menjadi sebagai berikut.


Lalu atur properti-properti pada TextBox tersebut.

Object

Properties

Nilai

TextBox1

Name

txtTugas

TabIndex

0

TextBox2

Name

txtKeaktifan

TabIndex

1

TextBox3

Name 

txtUTS

TabIndex

2

TextBox4

Name

txtUAS

TabIndex

3

TextBox5

Name

txtKerja

TabIndex

4

TextBox6

Name 

txtLaporan

TabIndex

5

TextBox7

Name 

txtUjian

TabIndex

6

TextBox8

Name

txtTotal

ReadOnly

True

 

TabStop

False

TextBox9

Name

txtHuruf

TabIndex

True

Text

False

 

14.     Pada Toolbox, cari Button. Kemudian double klik Button tersebut. Disini kita menggunakan 2 Button.


15.     Hasilnya seperti gambar dibawah.


Lalu atur properti-propertinya sebagai berikut.

Object

Properties

Nilai

Button1

Name

btnProcess

 

TabIndex

7

Text

Process

Button2

Name

btnClear

TabIndex

8

Text

Clear

 

16.     Sehingga hasilnya seperti berikut.


17.     Selanjutnya klik pada Form1 lalu pilih View Code.


18.     Selanjutnya kita memulai untuk memasukkan codingan agar Form tersebut dapat dijalankan saat di running. Deklarasikan variabel-variabel yang diperlukan.

Dim tugas, keaktifan, uts, uas, teori As Double

    Dim kerja, laporan, ujian, praktikum As Double

    Dim total As Double

    Dim huruf As String

 

19.     Klik ganda button Clear, masukkan kode program berikut.

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        txtTugas.Clear()

        txtKeaktifan.Clear()

        txtUTS.Clear()

        txtUAS.Clear()

        txtKerja.Clear()

        txtLaporan.Clear()

        txtUjian.Clear()

        txtTotal.Clear()

        txtHuruf.Clear()

        txtTugas.Focus()

End Sub

 

20.     Klik ganda button Process, masukkan kode program berikut.

Private Sub btnProcess_Click(sender As Object, e As EventArgs) Handles btnProcess.Click

        'Pengecekan apakah TextBox terisi atau belum'

        If txtTugas.Text = "" Then

            MessageBox.Show("Nilai tugas wajib diisi", "Warning", MessageBoxButtons.OK)

            txtTugas.Focus()

        ElseIf txtKeaktifan.Text = "" Then

            MessageBox.Show("Nilai keaktifan wajib diisi", "Warning", MessageBoxButtons.OK)

            txtKeaktifan.Focus()

        ElseIf txtUTS.Text = "" Then

            MessageBox.Show("Nilai UTS wajib diisi", "Warning", MessageBoxButtons.OK)

            txtUTS.Focus()

        ElseIf txtUAS.Text = "" Then

            MessageBox.Show("Nilai UAS wajib diisi", "Warning", MessageBoxButtons.OK)

            txtUAS.Focus()

        ElseIf txtKerja.Text = "" Then

            MessageBox.Show("Nilai kerja wajib diisi", "Warning", MessageBoxButtons.OK)

            txtKerja.Focus()

        ElseIf txtLaporan.Text = "" Then

            MessageBox.Show("Nilai laporan wajib diisi", "Warning", MessageBoxButtons.OK)

            txtLaporan.Focus()

        ElseIf txtUjian.Text = "" Then

            MessageBox.Show("Nilai ujian wajib diisi", "Warning", MessageBoxButtons.OK)

            txtUjian.Focus()

        Else

            tugas = Val(txtTugas.Text)

            keaktifan = Val(txtKeaktifan.Text)

            uts = Val(txtUTS.Text)

            uas = Val(txtUAS.Text)

            kerja = Val(txtKerja.Text)

            laporan = Val(txtLaporan.Text)

            ujian = Val(txtUjian.Text)

 

            teori = (tugas * 0.3) + (keaktifan * 0.1) + (uts * 0.3) + (uas * 0.3)

            praktikum = (kerja * 0.6) + (laporan * 0.1) + (ujian * 0.3)

            total = (teori * 0.33) + (praktikum * 0.67)

            txtTotal.Text = Format(total, "0.00")

 

            'Aturan penilaian'

            If total >= 80 Then

                huruf = "A"

            ElseIf total >= 75 Then

                huruf = "B+"

            ElseIf total >= 70 Then

                huruf = "B"

            ElseIf total >= 65 Then

                huruf = "C+"

            ElseIf total >= 60 Then

                huruf = "C"

            ElseIf total >= 50 Then

                huruf = "D+"

            ElseIf total >= 40 Then

                huruf = "D"

            Else

                huruf = "E"

            End If

            txtHuruf.Text = huruf

        End If

    End Sub

 

21.     Klik Start untuk menjalankan program, dan hasilnya seperti berikut.


Pada saat kita mengisikan nilai-nilai diatas. Maka secara otomatis nilai semua akan terhitung waktu kita klik pada Process. Hasilnya tersebut terdapat di Total Nilai untuk Nilai Total dan Nilai Huruf.













 

Komentar

Postingan populer dari blog ini

Input dan Output pada Bahasa Pemrograman C++

Pengenalan DFD

DIAGRAM DEPLOYMENT