Minggu, 20 Maret 2011

VB.Net












masukkan syntax berikut :

Public Class Puzzle

Private Sub Button1_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button2_Click(ByVal sender As 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

Button5.Visible = True

Button2.Visible = False

Button5.Text = Button2.Text

End If

cek()

End Sub

Private Sub Button3_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button4_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button6_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button8_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button7_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button9_Click(ByVal sender As 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

cek()

End Sub

Private Sub Button5_Click(ByVal sender As 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

cek()

End Sub

Private Sub cek()

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("Selesai")

End If

End If

End If

End Sub

End Class

Setting DNS Server Pada OpenSuse

Buka Menu 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:

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4dQTUl4-ftTvZr_3ByXFr32vF3p1Y-5Um-4-F1FK6iW209OnHncjbxZN0p0VOvkPfUr0YJSvorsxBKSz97rzNi0YqW54VT0HwSjkflUY3HCb1eLi2lZhzpjjaMjMUcHYYDula8vu_3t8/s320/1.bmp



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

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhraVym0-cPg_V4gg3LWwsKzkIrk_6evaXBCPTHMmV-1J-F-cAwapZR_MN4kmqSEd2J-7qcEXhuYffrTJMTpf_doP8tngJEwIv4It1y-vKe3EHmrMidItaVRFB00L8Wg_RkcnAkm6OC2qw/s320/2.bmp

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

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpXPbUjOa6khZAEKmKIBhPzwsZjHp5g89swcy6TJKZgGW2StcSHYu3RkQMVPAZDUHgYB_X7Bg9HMo2hCVGcu5vgGo54Q5UwDtc2mlHIK-NzVi3ZlBAYJ9m1FwmKMLL3CVfhPb-2W5umWw/s320/3.bmp

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

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmXFokCCJCr2a38n3BwkWSbz8YpsYdCFOZbvjB2gA0jFHKuXT-SUIBybZJoi8wNeMVsLgNr_Tro0GJKvLzLJhsEIClKI31lh5Rl_U1SR5jXOAFFUf1Pwudj4bNuurlYHGoY5srPTSk0fU/s320/4.bmp

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.gomez.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.gomez.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.gomez.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.regus-wanda.net
➢ 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.aris.net
Seperti gambar dibawah ini :

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUMJoJfNbGpiT4HZtdr816RkVyLAT8zCpl2u8BDr7NjaY-VgZ3QOFjvoyRV4HEb0ms7X4sxaVVX74KFK7e6R6MjsksJLaxdbGGIFgX3ZLXdBJ0Z_xXQxSRKu5dhWE-PkQtNRxh41cJ4do/s320/5.bmp

➢ Klik OK
➢ Kemudian Klik Finish.

Setelah selesai, kita lakukan percobaan 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.gomez.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:

aris.net:/home/linux_user # nslookup ns1.gomez.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.gomez.com
Address: 192.168.100.1
Gomez.com:/home/linux_user #
Diposting oleh saur margomgom di 08.21

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)