Membuat Looping Lagi . . .

Mari kita membuat looping lagi.... langakhnya hampir sama tapi disini kita akan menampilkan hasil 0 jika pembaginya 4 dan7 dari bilangan 1 - 100.

Kita buat formnya :

Dan sintaknya adalah.......

Public Class Form1

Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

If (i Mod 7 = 0) And (i Mod 4 = 0) Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Dan hasilnya adalah.......

Selamat Mencoba.....

Rangkuman VB.Net Ke 5

Latihan Looping

Kali ini saya akan mencoba membuat loping dengan menampilkan bilangan 1 - 100 dengan pembagi adalah 4 dan sisa hasilnya adalah 3.

Langsung saja kita buat formnya:

Seperti biasa selanjutnya adalah membuat sintaknya :

Public Class Form1

Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

If (i Mod 4 = 3) Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Clas

Maka hasilnya akan tampak sebagai berikut (Ntu kalo ente g'da error yak) :

Selamat Mencoba.....

Rangkuman VB.Net Ke 4

Memasukkan Data ke ListView

Mari kita belajar lagi, lansung saja kita ke TKP.....

Buat Form seperti gambar berikut :

Kemudian kita kasih sintaknya :

Public Class Form1

Dim isitext(4) As String 'var Array

Dim mylisitem As ListViewItem

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call bersih()

Call isi_combo()

Call Set_Tampilan()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Sub bersih()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

ComboBox1.Text = "06 Teknik Informatika"

End Sub

Sub isi_combo()

ComboBox1.Items.Add("06 Teknik Informatika")

ComboBox1.Items.Add("07 Sistem Informasi")

ComboBox1.Items.Add("67. Komputer Akuntansi")

ComboBox1.Items.Add("05 Teknik Komputer")

ComboBox1.Items.Add("26 Manajemen Informatika")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "Tambah" Then

Button1.Text = "Simpan"

Button2.Enabled = False 'INI

Button3.Enabled = False 'INI

Button4.Text = "Batal"

TextBox1.Focus()

Else

'membuat array

isitext(0) = Trim(TextBox1.Text)

isitext(1) = Trim(TextBox2.Text)

isitext(2) = Trim(TextBox3.Text) 'UNTUK MENAMPILKAN SEMUA

isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2) 'mengambil 2 digit dari kiri dari kombobox

mylisitem = New ListViewItem(isitext) 'dipindahkan secara permanen

ListView1.Items.Add(mylisitem)

Call bersih()

TextBox1.Focus()

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Button4.Text = "keluar" Then

Me.Close() 'FUNGSI UNTUK KELUAR DALAM FORM SENDIRI

Else

Call bersih()

Call normal()

End If

End Sub

Sub normal()

Button1.Text = "Tambah"

Button1.Enabled = True 'INI

Button2.Text = "Ubah"

Button2.Enabled = True 'INI

Button3.Text = "Hapus"

Button3.Enabled = True 'INI

Button4.Text = "keluar"

Button4.Enabled = True 'INI

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "Ubah" Then

Button2.Text = "Simpan"

Button1.Enabled = False 'INi

Button3.Enabled = False 'INI

Button4.Text = "Batal"

TextBox1.Focus()

Else

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Button3.Text = "Hapus" Then

Button3.Text = "Simpan"

Button1.Enabled = False 'INI

Button2.Enabled = False 'INI

Button4.Text = "Batal"

TextBox1.Focus()

Else

End If

End Sub

Sub Set_Tampilan()

ListView1.View = View.Details 'membentuk tampilan menjadi macam2

'membuat kolom : ( nama kolom, lebar kolom, posisi tulisan)

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text 'INI --> e

End Sub

End Class

Selamat Mencoba...

Rangkuman VB.Net Ke 3

Kali ini saya akan mencoba membuat puzzle, langkah pertama kita buat form seperti berikut :

l

Lakukan perubahan pada propertis seperti berikut ini :

Button1 Visible = false Button 2 Teks = 4 Button 3 Teks = 2 Button 4 Teks = 7 Button 5 Teks = 6 Button 6 Teks = 1 Button 7 Teks = 3 Button 8 Teks = 8 Button 9 Teks = 5

Hasilnya :

And than kita masukkan Source Kodenya :

Public Class Utakatik

Private Sub Button1_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button1.Click

If Button2.Visible = False Then

Button2.Visible = True

Button1.Visible = False

Button2.Text = Button1.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button1.Visible = False

Button4.Text = Button1.Text

End If

End If

cek()

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button2.Click

If Button1.Visible = False Then

Button1.Visible = True

Button2.Visible = False

Button1.Text = Button2.Text

ElseIf Button3.Visible = False Then

Button3.Visible = True

Button2.Visible = False

Button3.Text = Button2.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button2.Visible = False

Button5.Text = Button2.Text

End If

cek()

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button3.Click

If Button2.Visible = False Then

Button2.Visible = True

Button3.Visible = False

Button2.Text = Button3.Text

Else

If Button6.Visible = False Then

Button6.Visible = True

Button3.Visible = False

Button6.Text = Button3.Text

End If

End If

cek()

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button4.Click

If Button1.Visible = False Then

Button1.Visible = True

Button4.Visible = False

Button1.Text = Button4.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button4.Visible = False

Button5.Text = Button4.Text

ElseIf Button7.Visible = False Then

Button7.Visible = True

Button4.Visible = False

Button7.Text = Button4.Text

End If

cek()

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button6.Click

If Button3.Visible = False Then

Button3.Visible = True

Button6.Visible = False

Button3.Text = Button6.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button6.Visible = False

Button9.Text = Button6.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button6.Visible = False

Button5.Text = Button6.Text

End If

cek()

End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button8.Click

If Button7.Visible = False Then

Button7.Visible = True

Button8.Visible = False

Button7.Text = Button8.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button8.Visible = False

Button9.Text = Button8.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button8.Visible = False

Button5.Text = Button8.Text

End If

cek()

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button7.Click

If Button8.Visible = False Then

Button8.Visible = True

Button7.Visible = False

Button8.Text = Button7.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button7.Visible = False

Button4.Text = Button7.Text

End If

End If

cek()

End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button9.Click

If Button6.Visible = False Then

Button6.Visible = True

Button9.Visible = False

Button6.Text = Button9.Text

Else

If Button8.Visible = False Then

Button8.Visible = True

Button9.Visible = False

Button8.Text = Button9.Text

End If

End If

cek()

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal eAs System.EventArgs) Handles Button5.Click

If Button2.Visible = False Then

Button2.Visible = True

Button5.Visible = False

Button2.Text = Button5.Text

ElseIf Button4.Visible = False Then

Button4.Visible = True

Button5.Visible = False

Button4.Text = Button5.Text

ElseIf Button6.Visible = False Then

Button6.Visible = True

Button5.Visible = False

Button6.Text = Button5.Text

ElseIf Button8.Visible = False Then

Button8.Visible = True

Button5.Visible = False

Button8.Text = Button5.Text

End If

cek()

End Sub

Private Sub cek()

If (Button1.Text = "1" And Button2.Text = "2" AndButton3.Text = "3" And Button4.Text = "4") Then

If (Button5.Text = "5" And Button6.Text = "6" AndButton7.Text = "7") Then

If (Button8.Text = "8") Then

MessageBox.Show("Selesai")

End If

End If

End If

End Sub

End Class

Selamat mencoba...