LABTI Visual Basic - Kondisi Percabangan (Select Case)

   Penjelasan Visual Basic

Pada paktikum pertemuan pertama ini, saya mendapat  visual basic. Visual basic adalah tools dalam pengembangan  aplikasi visual yang dikembangkan oleh Microsoft. Praktikum ini saya membuat aplikasi dari visual basic yaitu percabangan. Berikut adalah contoh sederhana program percabangan.

List Program

1       Logika Program

AnalisaProgram :

Program ini di buatuntuklatihanmembuat program menggunakan Microsoft visual basic. Versi yang di gunakanpada program iniadalah Microsoft Visual Basic 6.0. Pada program inikitamenggunakankondisipercabangan yang terdapatpada Microsoft Visual Basic, yaitukondisipercabangan select case. Di sinikitaakanmembuat program pemilihanujianakhirbedasarkannomorurutan.

Penjelasan program :

1.    Pertama-tama kitamembuat 3 label pada form, yaitu label 1 (SeberapaCepatkah Mobil Anda?), label 2 (Masukkan Gigi) dan label 3 (Kecepatan).

2. Setelahitukitamembuat 2TextBoxpada form yang nantinyadigunakanuntukmemasukanjumlahgigidanmenmpilkankecepatan yang diperoleh, yaituTextBox 1 (memasukanangkadari0-6) danTextBox 2 (Kecepatanyangfakanditampilkan).

3.    KemudiankitamembuatCommandButtonpada form yang terletak di bawahTextBox. PadaCommandButtonkitamasukan program yang ingin di buatdanpadasaatinginmenjalankan program tersebut, lakukanklik 2x padaCommandButton.

4.    Setelahsemua tools telah di buat, di lanjutkandenganmengklik 2x tombol Command Button. Yang selanjutnyakitamasukan program “SeberapaCepatkah Mobil Anda?” seperti yang terterapada list program di atas.

5.    SelanjutnyadeklarasikanMasukkangigisebagaiTextBoxpada (Jumlah Gigi) dansebagaiperintah Select Case, yang nantinyaperintah di bawahnyaakan di laksanakansampaibertemuperintah Case berikutnyaataubertemu End Select. Perlu di ingat, pengujiandilakukandariurutan Case yang paling atasdanhanyasatublok yang dilaksanakan. Jadibilasalahsatu case dipenuhi, program langsungmencabangke End Select. Dan yang terakhirpendeklarasianKecepatanpada (Kecepatan).

Private Sub Command1_Click()

Select Case Jumlah_Gigi

Case 0

Kecepatan = "Berhenti"

Case 1

Kecepatan = "1 s/d 20 Km/h SangatLambat"

Case 2

Kecepatan = "21 s/d 40 Km/h LumayanLambat"

Case 3

Kecepatan = "41 s/d 60 Km/h Lambat"

Case 4

Kecepatan = "61 s/d 80 Km/h Cepat"

Case 5

Kecepatan = "81 s/d 100 Km/h LumayanCepat"

Case 6

Kecepatan = "101 s/d 240 Km/h SangatCepat"

Case Else

MsgBox ("MAAF, Gigi mobilsaatinihanyasampaigigi 6 Kecepatan")

End Select

End Sub

Untuklangkahterakhir, run program menggunakan F5.

1    Output Program