MENENTUKAN BILANGAN
GENAP DAN GANJIL
ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)
SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING
MENGENAI PROGRAM VISUAL BASIC 10 YANG
SAYA BUAT
PROJECT LATIHAN 10
BERIKUT ADALAH CODING MENENTUKAN BILANGAN
GENAP DAN GANJIL
Public Class Frm_lat10
Dim Genap, Ganjil, Akhir As
Integer
Dim ket As String
Private Sub
Frm_lat10_FormClosed(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
utama.Enabled = True
utama.Show()
Me.Hide()
End Sub
Private Sub
Frm_lat10_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
utama.Enabled = True
utama.Show()
Me.Hide()
End Sub
Sub GenapGanjil()
Dim I,
Sisabagi As Integer
Akhir =
Val(Me.Txtakhir.Text)
If Akhir < 0 Then
MsgBox("Masukan bilangan Genap positif",
vbCritical, "salah input")
Me.Txtakhir.Text = ""
Me.Txtakhir.Focus()
ElseIf Akhir >= 0 And
Akhir < 5 Then
MsgBox("Masukan bilangan Genap positif ke atas ",
vbCritical, "salah input")
Me.Txtakhir.Text = ""
Me.Txtakhir.Focus()
Else
'OK
Me.cklsGenap.Items.Clear()
Me.CbGanjil.Items.Clear()
If ket = ". "
Then
For I = 0 To Akhir
Sisabagi = I Mod 2
If Sisabagi = 0 Then
Me.cklsGenap.Items.Add(I)
ElseIf Sisabagi = 1 Then
Me.CbGanjil.Items.Add(I)
End If
Next
ElseIf ket = "+"
Then
For I = Akhir To 0 Step -1
Sisabagi = I Mod 2
If Sisabagi = 0 Then
Me.cklsGenap.Items.Add(I)
ElseIf Sisabagi = 1 Then
Me.CbGanjil.Items.Add(I)
End If
Next
End If
End If
End Sub
Private Sub
Txtakhir_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Txtakhir.LostFocus
Call GenapGanjil()
End Sub
Private Sub
Bnaik_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Bnaik.Click
ket = "+"
Call GenapGanjil()
End Sub
Private Sub
Bturun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Bturun.Click
ket = "-"
Call GenapGanjil()
End Sub
End Class
