Perbedaan Dalam Pengunaan Objek

Rangkuman 3

Object yang saya bandingkan yaitu ListBox dan ComboBox,jangan lupa buat 
disainnya seperti ini :

Dan berikut contoh programnya :

Dan berikut

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            ComboBox1.Items.Add(TextBox1.Text)

        End If

    End Sub

Dari program tersebut maka kita dapat melihat perbedaannya,ComboBox hanya 

dapat atau hanya untuk menampilkan satu persatu kata yang telah di input 

sebelumnya . namun ListBox dapat menampilkan semua kata yang di input 
sebelumnya.

Untuk Pengulangan Looping ,berikut programnya :

Untuk Pengula

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox2.Text)

            ListBox1.Items.Add(i)

        Next

    End Sub

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

        Dim j, u As Integer

        u = 5

        For j = 0 To Val(TextBox2.Text)

        Next

        If j Mod u = 0 Then

            ListBox1.Items.Add(j)

            u = j

        End If

    End Sub

End Class

Memanggil Dan Membersihkan Method

Rangkuman “Part 2”

Method memanggil dan Method membersihkan

 

Penjelasan isi program :

e.keychar = chr (13) =====> angka 13 merupakan kode ascii untuk enter
|___>terdapat pada tulisan Sub Text7_keypress
jadi, itu adalah sebuah ketentuan
TextBox3.Focus()====> maksudnya adalah ketika semua kata telah masuk di 
Pertama kita buat disainnya :

___>terdapat pada tulisan

jadi, itu

Berikutnya kita isi printahnya:

Public Class lat1

    Dim jurusan As String

    Dim kelas, jenjang As String, waktu As Integer

    Dim d As Integer = 5

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

        Call perintah()

    End Sub

    Sub perintah()

        Dim lo As String

        If TextBox1.Text = "TI" Then

            lo = "60"

            TextBox2.Text = "Teknik Informatika"

        Else

            If TextBox1.Text = "SI" Then

                TextBox2.Text = "Sistem Informasi"

            End If

        End If

    End Sub

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

        Call perintah()

    End Sub

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

        pros3()

    End Sub

    Sub pros3()

        ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text)

    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox4.Focus()

        End If

    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox5.Focus()

        End If

    End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox6.Focus()

        End If

    End Sub

    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox7.Focus()

        End If

    End Sub

    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

        If e.KeyChar = Chr(13) Then

            Call pros3()

            Call bersihpros3()

            TextBox3.Focus()

        End If

    End Sub

    Sub bersihpros3()

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

Puzzle Dengan VB.Net 2008

CARA MEMBUAT PUZZLE

Pertama kita buka  VB.NET 2008 lalu new project, kemudian buat desain seperti ini :

kemudian ganti nama

button1   textnya menjadi =3,seperti :

sampai button8...

button2  textnya menjadi =5

button3  textnya menjadi =6

button4  textnya menjadi =2

button5  textnya menjadi =1

button6  textnya menjadi =7

button7  textnya menjadi =8

button8  textnya menjadi =4

sedangkan button9

button9  menjadi visible = false *,seperti:

 kemudian button-button tersebut diisi perintah,
dengan cara double klik pada button tersebut seperti berikut :

Public Class Form1

(button1):

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button2):

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 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

            Button2.Visible = True

            Button5.Visible = False

            Button5.Text = Button2.Text

        End If

        kerja()

    End Sub

(button3):

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As 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

    End Sub

(button4):

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button5):

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button6):

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button7):

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button8):

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

(button9):

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As 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

        kerja()

    End Sub

setelah selesai mengisi printah dari setiap button tersebut sekarang kita tambah methotnya :

    Private Sub kerja()

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

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

                If (Button8.Text = "8") Then

                    MessageBox.Show(" selamat anda berhasil")

                End If

            End If

        End If

    End Sub

End Class

setelah selesai kemudian kita run, dan hasilnya seperti ini:

 

sekian puzzle sederhana yang yang saya buat.

Contoh Program Kalkulator Menggunakan VB

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Jaringan Komputer 2

Konfigurasi Jaringan Lokal

Sebelum mengkonfigurasi WinRoute anda harus memastikan jaringan lokal (LAN) telah dikonfigurasi dengan benar dan berfungsi baik. Dalam tulisan ini diberikan contoh jaringan klas C dengan IP Address 192.168.200.2 dan subnet mask 255.255.25.0. Komputer WinRoute dikonfigurasi dengan IP 192.168.200.2 Berikut adalah beberapa pedoman konfigurasi jaringan lokal.

1. Jaringan dengan IP Statis

Apabila anda mengkonfigurasi LAN dengan IP Address manual / statis maka pada tiap komputer klien harus dikonfigurasi sebagai berikut :

IP Address : 192.168.200.2
Subnet Mask : 255.255.255.0
Default Gateway : IP komputer WinRoute ; 192.168.200.1
DNS Server : IP komputer WinRoute ; 192.168.200.1

Bila anda sudah memiliki DNS Server di jaringan lokal maka dapat digunakan DNS Server yang sudah ada, dan fasilitas DNS Forwarder di WinRoute harus dimatikan (Settings > DNS Forwarder)

Selain itu fasilitas DHCP Server di WinRoute juga harus dimatikan agar tidak konflik dengan konfigurasi IP Statis di klien (Settings > DHCP Server).

2. Jaringan dengan DHCP

Untuk mempermudah alokasi dan konfigurasi IP Address di klien anda dapat menggunakan fasiltas DHCP. WinRoute memiliki fasilitas DHCP yang dapat digunakan untuk mengalokasikan IP Address di jaringan. Pilihan lain adalah menggunakan DHCP yang telah tersedia di Windows NT/2000
Server dan mematikan DHCP Server di WinRoute.

Menggunakan DHCP Non WinRoute
Apabila anda tidak menggunakan DHCP Server yang terdapat di WinRoute, maka lakukan konfigurasi berikut di DHCP Server jaringan lokal :

1) Pastikan IP Komputer WinRoute (192.168.200.2) belum digunakan oleh komputer lain di jaringan. Masukkan IP tersebut di daftar exclusion agar tidak dipakai oleh komputer lain di jaringan.

2) Masukkan IP komputer WinRoute : 192.168.200.1 sebagai default gateway di DHCP Option.

3) Untuk option DNS Server, arahkan ke IP WinRoute apabila anda ingin menggunakan DNS forwarder WinRoute. Jika tidak, masukkan IP DNS Server jaringan anda di DHCP Option dan matikan DNS Forwarder WinRoute.

Menggunakan DHCP dan DNS WinRoute
Cara termudah dan sederhana adalah dengan menggunakan DHCP dan DNS Forwarder yang disediakan WinRoute. Untuk menggunakan teknik ini anda harus mematikan fungsi DHCP yang terdapat di jaringan lokal dan mengaktifkan DHCP WinRoute. Klik Settings > DHCP Server untuk menampilkan konfigurasi DHCP, lalu aktifkan ceklis DHCP Server enabled.

Selanjutnya klik New Scope untuk menentukan alokasi IP Address di jaringan lokal. Masukkan range IP dari 192.168.200.226 s/d 192.168.200.250 Alokasi IP tersebut dapat disesuaikan dengan jumlah komputer di jaringan anda. Alamat 192.168.200.2 telah digunakan untuk WinRoute, sehingga tidak dimasukkan di DHCP. Untuk menentukan option klik Default Gateway dan masukkan IP komputer WinRoute 192.168.200.2. Sedangkan untuk DNS Server masukkan pula 192.168.200.2 di bagian specify value.

Dengan konfigurasi DHCP tersebut IP komputer klien akan disetting otomatis oleh WinRoute sesuai konfigurasi yang telah diisikan.

Langkah berikutnya adalah konfigurasi DNS Forwarder di menu Settings > DNS Forwarder. Anda dapat menggunakan DNS Server yang terdapat di internet atau menggunakan DNS Server yang terdapat di jaringan lokal.

Langkah terakhir adalah konfigurasi IP komputer klien, sehingga dapat mengambil alamat IP secara otomatis dari WinRoute. Perlu diingat apabila terdapat DHCP Server lain di jaringan lokal, anda harus mematikannya sehingga tidak konflik dengan DHCP Server WinRoute.