Struktur Kendali Kondisi Select Case-End Select VB

Struktur Kendali Kondisi  Select Case-End Select VB

struktur kendali (kondisi) disini diperlukan dalam pembuatan Qbasic. Dan struktur kendali ini memegang peranan yang sangat penting dalam pembuatan program dengan adanya komputer, tanpa adanya struktur kendali kita hanya dapat membuat program yang sederhana dimana prosesnya hanya dijalankan dari baris pertama sampai selesai. Pada kasus-kasus tertentu, ada kalanya baris tertentu tidak boleh dilaksanakan apabila kondisi tidak terpenuhi, atau baris-baris tertentu harus dibuang sampai suatu kondisi terpenuhi. Programmer dapat menentukan jalur-jalur proses yang harus dikerjakan oleh komputer berdasarkan logika tertentu dengan perintah test pilihan (struktur kendali yang terdapat pada Qbasic).

Bentuk Umum : 

Select Case-End Select

.

SELECT CASE variable

CASE ekspresi 1

Statement1

..

CASE ekspresi 2

Statement2

...

...

CASE ELSE

...

END SELECT

Ø  Contoh program Select Case-End Select:

CLS

PRINT "SELAMAT DATANG"

PRINT "Parkir Universitas Gunadarma"

INPUT "Masukan Nomer Plat Kendaraan:", nomer$

INPUT "Jam Masuk;", jm

INPUT "Jam Keluar:", jk

jam = jk - jm

SELECT CASE jam

CASE IS >= 5

      

        PRINT "Nomer Plat kendaraan:", nomer$

        PRINT "Biaya Parkir= Rp10.000"

        PRINT "TERIMA KASIH"

CASE IS >= 3

        PRINT "Nomer Plat Kendaraan;", nomer$

        PRINT "Biaya Parkir= RP7000"

        PRINT "TERIMA KASIH"

CASE IS >= 2

        PRINT "Nomer Plat Kendaraan:", nomer$

        PRINT "Biaya Parkir= Rp4000"

        PRINT "TERIMA KASIH"

CASE IS >= 1

        PRINT "Nomer Plat Kendaraan:", nomer$

        PRINT "Biaya Parkir= Rp2000"

        PRINT "TERIMA KASIH"

CASE IS < 1

        PRINT "Nomer Plat Kendaraan:", nomer$

        PRINT " Biaya Parkir= Rp1000"

        PRINT "TERIMA KASIH"

END SELECT

END

Output:

Demikian bentuk serta contoh program Select Case-End Select, Terima kasih.

By: dian agus