Percabangan pada visual basic 6

Percabangan pada visual basic 6
Di Posting Oleh : wandi
Kategori : Pelajaran Pemprograman vb6

Kali ini saya akan berbagi mengenai percabangan pada visual basic . Seperti yang kita tau bahwa percabangan adalah merupakan struktur dasar pada algoritma , jadi percabangan merupakan dasar pemprograman . Seluruh bahasa pemprograman pasti ada yang namanya percabangan .

Percabangan vb6

Percabangan ibaratnya kita sedang ulangan fisika dan hasil nilainya adalah 100 dan kkm adalah 99 . Maka tidak perlu lagi adanya remedial . Tetapi jika hasil nilainya lebih kecil dari 99 maka akan ada remedial . Jadi percabangan itu di pengaruhi oleh kondisi , kalo nilai >= 99 maka tidak perlu remedial dan nilai < 99 maka remedial . > , >= , <= , < , = ,!= ( jika tidak sama dengan ) ini disebut operator perbandingan .

Percabangan pada vb6 ada if  , select case .

percabangan dengan if

Oke yang akan pertama kita bahas adalah if . Penulisan if adalah

If kondisi Then
    perintah
    perintah
    ...
Else
    perintah
    perintah
    ...
End If

Sekarang kita akan coba gunakan
Atur tampilan seperti berikut

Sekarang kita ke bagian koding

Private Sub Command1_Click()
bil1 = Val(Text1)
bil2 = Val(Text2)
If bil1 > bil2 Then
    Label3.Caption = "Bilangan 1 lebih besar dari bilangan 2"
Else
    Label3.Caption = "Bilangan 1 lebih kecil dari bilangan 2"
End If
End Sub

Jadi disana terlihat bahwa bil1 > bil2 itu adalah kondisinya . Artinya variable bil1 lebih besar dari variable  bil2. jika kondisinya benar atau kodisinya memenuhi , maka akan melakukan perintah yang if dan jika kondisinya salah atau tidak memenuhi maka akan melakukan perintah else . Mudah kan belajar VB itu .

Baca juga : Array pada vb6

Sekarang bagaimana kalo didalam percabangan ada percabangan lagi atau istilahnya percabangan berantai .
Langsung saja kita ke contohnya
atur tampilan seperti berikut

Bagian koding

Private Sub Command1_Click()
nilai = Val(Text1)
If nilai > 60 Then
    If nilai >= 80 Then
        If nilai >= 90 Then
            Label2 = "A"
        Else
            Label2 = "B"
        End If
    Else
        Label2 = "C"
    End If
Else
    Label2 = "D"
End If
End Sub

Percabangan dengan select case

Sekarang kita akan coba menggunakan select case , select case ini bisa lebih dari dua percabangan . Oleh karena itu select case biasanya di manfaatkan salah satunya pembuatan game yang memerlukan code ascii .Tetapi tidak hanya itu select case ini sangat bermanfaat . Untuk penulisan select case

Select Case variable
    Case 1:
        perintah
    Case 2:
        perintah
    Case 3:
        perintah
    Case 4:
        perintah
    Case 5:
        perintah

....
End Select

Baca juga Operasi File pada vb

Sekarang kita akan coba contohnya , atur tampilan seperti berikut

Di bagian koding

Private Sub Command1_Click()
kode = Val(Text1)
Select Case kode
    Case 1:
        Label2 = "Senin"
    Case 2:
        Label2 = "Selasa"
    Case 3:
        Label2 = "Rabu"
    Case 4:
        Label2 = "Kamis"
    Case 5:
        Label2 = "Jum'at"
    Case 6:
        Label2 = "Sabtu"
    Case 7:
        Label2 = "Minggu"
End Select
End Sub

Nah jadi itu dia bahas bahas mengenai percabangan pada visual basic 6 . Semoga bermanfaat dan juga menambah wawasan .Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .

Mau liat atau download source code aplikasi premium bisa disini.

Tweet