membuat bilangan ganjil dan genap dengan Visual Basic

Listing program

Private Sub btnTampilkan_Click()

Dim i, j, temp, banyak As Integer

banyak = txtBanyak

lbOutput.Clear

If cbPilihan.ListIndex = 0 Then

For i = 1 To banyak Step 2

 lbOutput.AddItem i

Next

ElseIf cbPilihan.ListIndex = 1 Then

For i = 2 To banyak Step 2

lbOutput.AddItem i

Next

Else

For i = 1 To banyak

    temp = 0

    For j = 1 To i

        If (i Mod j) = 0 Then

            temp = temp + 1

        End If

    Next

    If (temp = 2) Then

        lbOutput.AddItem i

    End If

Next

End If

End Sub

Private Sub cbxBold_Click()

If cbxBold.Value = 1 Then

lbOutput.FontBold = True

Else

lbOutput.FontBold = False

End If

End Sub

Private Sub cbxItalic_Click()

If cbxItalic.Value = 1 Then

lbOutput.FontItalic = True

Else

lbOutput.FontItalic = False

End If

End Sub

Private Sub cbxUnderline_Click()

If cbxUnderline.Value = 1 Then

lbOutput.FontUnderline = True

Else

lbOutput.FontUnderline = False

End If

End Sub

Private Sub lbOutput_Click()

End Sub

Logika Program

Private Sub btnTampilkan_Click()

Dim i, j, temp, banyak As Integer

banyak = txtBanyak

lbOutput.Clear

Statemen diatas maksudnya mendefinisikan kegunaan komponen button yang memiliki nama btnTampilkan ,selanjutnya mendeklarasikan variabel i, j, temp dan banyak dengan tipe data Integer,berikutnya mendeklarasikan variabel banyak dengan komponen textBox yang diberi nama txtBanyak,dan juga mendeklarasikan komponen label yang diberi nama lblOutput.

If cbPilihan.ListIndex = 0 Then

For i = 1 To banyak Step 2

 lbOutput.AddItem i

Selanjutnya membuat Statement percabangan,maksud statement diatas adalah jika kita memilih ganjil yang dideklarasikan pada ListIndex adalah 0 maka akan dilakukan perulangan dimulai dari 1 dan selanjutnya kelipatan 2 dan selanjutnya akan ditampilkan pada komponen label yang diberi nama lblOutput

Next

ElseIf cbPilihan.ListIndex = 1 Then

For i = 2 To banyak Step 2

lbOutput.AddItem i

Selanjutnya jika kita memilih ganjil yang dideklarasikan pada ListIndex adalah 1 maka akan dilakukan perulangan dimulai dari 1 dan selanjutnya kelipatan 2 dan selanjutnya akan ditampilkan pada komponen label yang diberi nama lblOutput

Next

Else

For i = 1 To banyak

    temp = 0

    For j = 1 To i

        If (i Mod j) = 0 Then

            temp = temp + 1

        End If

    Next

    If (temp = 2) Then

        lbOutput.AddItem i

    End If

Next

End If

End Sub

Variable temp berfungsi untuk menampung nilai yang sebelumnya akan dieksekusi dengan nilai = 0. Pada variable i dan j ada terjadi perulangan dari setiap pengeksekusian angka. Pada saat input, angka 2 akan tercetak terlebih dahulu, kemudian angka tersebut akan +1 (ditambah 1) sampai batas angka yang kita masukan. Jika bilangan tersebut tidak bisa dibagi 2 ataupun 3 maka akan tercetak, dan jika bilangan tersebut bisa dibagi 2 ataupun 3 maka bilangan tidak tercetak (kecuali angka 2 dan 3) . Sintaks End If berfungsi untuk berhentinya suatu kondisi percabangan, sedangkan Sintaks End Sub merupakan proses berakhirnya suatu sintaks pada perintah.

Private Sub cbxBold_Click()

If cbxBold.Value = 1 Then

lbOutput.FontBold = True

Else

lbOutput.FontBold = False

End If

End Sub

Statement diatas maksudnya mendeklarasikan sebuah komponen button comboBox yang diberi nama cbxBold,jika kita memilih atau mengklik button tersebut maka diberi nilai 1 yang didefinisikan dengan nilai true maka akan dilakukan bold pada hasil yang dicetak pada komponen label yang diberi nama lbOutput,jika tidak maka hasil akan false yang berarti tidak akan dilakukan bold pada hasil tersebut.

Private Sub cbxItalic_Click()

If cbxItalic.Value = 1 Then

lbOutput.FontItalic = True

Else

lbOutput.FontItalic = False

End If

End Sub

Statement diatas maksudnya mendeklarasikan sebuah komponen button comboBox yang diberi nama cbxItalic,jika kita memilih atau mengklik button tersebut maka diberi nilai 1 yang didefinisikan dengan nilai true maka akan dilakukan pemiringan cetakan pada hasil yang dicetak pada komponen label yang diberi nama lbOutput,jika tidak maka hasil akan false yang berarti tidak akan dilakukan pemiringan cetakan pada hasil tersebut. 

Private Sub cbxUnderline_Click()

If cbxUnderline.Value = 1 Then

lbOutput.FontUnderline = True

Else

lbOutput.FontUnderline = False

End If

End Sub

Private Sub lbOutput_Click()

End Sub

Statement diatas maksudnya mendeklarasikan sebuah komponen button comboBox yang diberi nama cbxUnderline,jika kita memilih atau mengklik button tersebut maka diberi nilai 1 yang didefinisikan dengan nilai true maka akan dilakukan penggaris bawahan pada hasil yang dicetak pada komponen label yang diberi nama lbOutput,jika tidak maka hasil akan false yang berarti tidak akan dilakukan penggaris bawahan pada hasil tersebut.