Public Class Form_sampul

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

End Sub

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

End Sub

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

End Sub

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

End Sub
End Class

Public Class Form1
Dim isi(8) As String
Dim liat As ListViewItem

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox6.Text = ""
TextBox5.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"
End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(DateTimePicker1.Value)
isi(5) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(6) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(7) = Trim(TextBox2.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cek Bus"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 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

End Sub

End Class

Public Class tiket
Dim isi(15) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"

End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(TextBox5.Text)
isi(5) = Trim(TextBox5.Text)
isi(6) = Trim(DateTimePicker1.Value)
isi(7) = Trim(DateTimePicker1.Value)
isi(8) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(9) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(10) = Trim(TextBox2.Text)
isi(11) = Trim(TextBox5.Text)
isi(12) = Trim(TextBox5.Text)
isi(13) = Trim(TextBox5.Text)
isi(14) = Trim(TextBox5.Text)
isi(15) = Trim(TextBox5.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub tiket_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Bayar"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpaag", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kd Pts", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Bayar", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jum Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Bayar", 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

End Sub
End Class

Public Class Entry_Dan_Cek_Bus
Dim isi(5) As String
Dim liat As ListViewItem
Private Sub Entry_Dan_Cek_Bus_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"

End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button3.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(4) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cari"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 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

End Sub
End Class

Public Class Entry_Data_Penumpang
Dim isi(4) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Trim(TextBox4.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()

End If
End Sub

Private Sub Entry_Data_Penumpang_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call piuw()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If

End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Exit"
Button4.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nm Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Tlp", 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
End Sub
End Class

Buka Yast Control Center

 Kemudian pilih Network Services / DNS Server
 Kemudian Pilih Tab Forwarders lalu pilih “Set Forwarders Manually”
 Pada Kolom IP Address ketikkan alamat DNS Forwarders
 Kemudian Klik Tombol Add
Contoh Seperti gambar dibawah ini:



Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri
 Pada kolom name ketikkan domain name (wahyu-kurniawan.com)
 Lalu Klik Tombol Add
Seperti gambar dibawah ini:

Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu wahyu-kurniawan.com. Klik edit.
Pilih Tab NS Records. Pada Kolom “Name Server to Add” ketikkan Name
Server (ns1.wahyu-kurniawan.com). lalu Klik add.
Seperti gambar dibawah ini:

Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini:

Sekarang kita lanjut lagi Pilih Tab Records
➢ Pertama masukkan record ns
 Ketikkan ns1 pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari ns1.wahyu-kurniawan.com

➢ Masukkan record www
 Ketikkan www pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari www.wahyu-kurniawan.com
➢ Masukkan record mail
 Ketikkan mail pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 202.43.115.83 alamat IP dari mail.wahyu-kurniawan.com

➢ Masukkan record zimbra
 Ketikkan zimbra pada kolom Record Key
 lalu pada kolom Type Pilih “CNAME: Alias for Domain Name”
 Value → www karena zimbra adalah alias dari www.wahyu-kurniawan.com

➢ Masukkan record ftp
 Ketikkan ftp pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari ftp.wahyu-kurniawan.com
Seperti gambar dibawah ini :

➢ Klik OK
➢ Kemudian Klik Finish.

Setelah selesai, kita testing apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :

➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah

/etc/init.d/named restart

➢ Kemudian ketikkan
ns1.wahyu=kurniawan.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:

wahyu-kurniawan.com:/home/linux_user # nslookup ns1.wahyu-kurniawan.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.wahyu-kurniawan.com
Address: 192.168.100.1
wahyu-kurniawan.com:/home/linux_user #

Source Kode :


Public Class Form1
Dim d As Integer = 0
Dim a As Button
Dim b As Point

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If d = 0 Then
b = Button2.Location
d = 1
a = Button2
Else
a.Location = Button2.Location
Button2.Location = b
d = 0
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If d = 0 Then
b = Button1.Location
d = 1
a = Button1
Else
a.Location = Button1.Location
Button1.Location = b
d = 0


End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If d = 0 Then
b = Button3.Location
d = 1
a = Button3
Else
a.Location = Button3.Location
Button3.Location = b
d = 0
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If d = 0 Then
b = Button4.Location
d = 1
a = Button4
Else
a.Location = Button4.Location
Button4.Location = b
d = 0
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If d = 0 Then
b = Button5.Location
d = 1
a = Button5
Else
a.Location = Button5.Location
Button5.Location = b
d = 0
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If d = 0 Then
b = Button6.Location
d = 1
a = Button6
Else
a.Location = Button6.Location
Button6.Location = b
d = 0
End If
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If d = 0 Then
b = Button7.Location
d = 1
a = Button7
Else
a.Location = Button7.Location
Button7.Location = b
d = 0
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If d = 0 Then
b = Button8.Location
d = 1
a = Button8
Else
a.Location = Button8.Location
Button8.Location = b
d = 0
End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If d = 0 Then
b = Button9.Location
d = 1
a = Button9
Else
a.Location = Button9.Location
Button9.Location = b
d = 0
End If
End Sub
End Class

Setting IP Address dan DHCP pada linux suse

DHCP (Dynamic Host Control Protocol) adalah sebuah mekanisme yang memunkinkan sebuah server untuk memberikan IP Address secara dinamik bagi client. Client melakukan permintaan IP Address kepada server, dan server memberikan alokasi bagi si client tersebut. Mekanisme ini akan sangat memberikan keuntungan bagi manajemen jaringan di karenakan proses setting IP Address tidak harus dilakukan manual untuk setiap client yang ada.
Package yang digunakan untuk membuat dhcp pada suse adalah dhcp-server.

1. Untuk menginstall ketik yast –i dhcp-server.


2. Setelah itu atur dhcp dengan mengedit file vi /etc/dhcpd.conf
Penjelasan:
Subnet : 255.255.255.0
Range : 192.168.200.226
Option domain-name-servers : 192.168.200.2
Option domain-name : wahyu

3. Simpan konfigurasinya dan restart dhcp menggunakan konsole rcdhcpd restart. Jika muncul tampilan seperti dibawah, berati dhcp interfacenya belum disetting. Untuk mensetting interface tersebut, edit file vi /etc/sysconfig/dhcpd

4. Pada baris ke 17, tulisan DHCPD_INTERFACE=”“ dalam tanda petik isi nama eth yang digunakan. Contoh seperti pada gambar dibawah. Restart dhcp dan dhcp siap digunakan.

Untuk menguji dhcp pada client, pastikan setting ipnya di obtain dahulu. Alias dikosongkan agar saat kabel lan di pasang pada interface client, client otomatis meminta ip dari server.
Hasil dari konfigurasi dhcp server seperti gambar dibawah.