Kamis, 21 Juli 2011

MEMBUAT ROUTER DENGAN LINUK REDHAT

LATAR BELAKANG
Seiring dengan perkembangan teknologi di dunia, teknologi komputer dan jaringan pun juga ikut berkembang dengan pesat dan semakin canggih. Begitu pula dengan teknologi internet. Hampir semua orang di dunia sekarang telah mengenal yang namanya internet. Bahkan dalam suatu lembaga atau perusahaan, internet telah menjadi kebutuhan utama.


Agar semua komputer bisa terhubung ke internet dalam suatu jaringan, maka kita perlu membuat server yang nantinya akan menghubungkan satu komputer dengan komputer lainnya.
Akan tetapi jika hanya dengan satu server, komputer yang akan terhubung dalam jaringan hanya komputer yang ada dalam satu ruangan itu saja. Oleh karena itu, kita juga perlu membuat penghubung dari server menuju ke client lain dalam satu jaringan yang disebut dengan “Router”.
Berdasarkan gambaran di atas, maka pada ujikompetensi kali ini, penulis membuat project work dengan judul “Konfigurasi Router RedHat 9.0”. Dalam project work kali ini juga disertakan konfigurasi DHCP yang fungsinya untuk mempermudah client mendapatkan IP. Dan juga disertakan konfigurasi FTP yang fungsinya untuk mensharing data.
LANGKAH-LANGKAH KONFIGURASI
ROUTER REDHAT 9.0
1. Install linux RedHat 9.0 pada komputer yang hendak kita gunakan sebagai router.
2. Setelah itu kita setting IP dari router yang kita gunakan.
Disini kita menggunakan 2 LAN CARD, satu kita setting sebagai eth0 dan yang satu sebagai eth1.
Untuk mensetting IP eth0 kita gunakan perintah seperti di bawah ini:
· vi /etc/sysconfig/network-scripts/ifcfg-eth0
kemudian akan muncul tampilan seperti di bawah ini:
Kemudian kita isi seperti gambar di atas. IP ini digunakan untuk menghubungkan komputer kita dengan server
Setelah itu kita setting IP untuk eth0
· vi /etc/sysconfig/network-scripts/ifcfg-eth1
kemudian akan muncul seperti gambar di bawah ini:
Untuk eth1 kita isi seperti gambar di atas. IP ini adalah IP yang akan kita sebarkan pada client windows kita
3. untuk selanjutnya kita harus mengaktifkan IP Forward dengan perintah:
· vi /etc/sysctl.conf
kemudian akan muncul tampilan

Sebelum di edit, pada lingkaran tertera angka 0 kemudian kita ganti dengan angka 1 seperti gambar di atas.
4. setelah itu kita harus menuliskan scripts dengan perintah
· vi /etc/rc.d/rc.local
kemudian akan muncul tampilan di bawah ini:
Tuliskan scripts seperti pada lingkaran gambar di atas
Agar semua yang kita setting tidak hilang kalau komputer direstart, maka kita perlu mengetikkan perintah:
· service network restart
5. Setelah semua selesai, kita harus mengecek pada client windows yang telah dihubungkan dengan kabel straight.
Langkah-langkah mengecek router kita pada client windows:
1. Masuk pada Control Panel>Network Connection klik kanan pada Local Area Connection pilih Properties.
2. Pilih pada “Use the following IP address” dan “Use the following DNS server addresses”
3. Kemudian kita masukkan IP seperti gambar di atas (menurut IP pada router).
4. Kemudian kita klik OK
5. Setelah itu kita lihat pada support seperti gambar di bawah ini:
6. Untuk menguji koneksi kita lakukan ping pada client windows seperti gambar di bawah ini:
7. Kemudian kita tes untuk koneksi ke internet
LANGKAH-LANGKAH KONFIGURASI DHCP
1. Melihat file dhcp yang telah terinstall pada router linux dengan menggunkan perintah di bawah ini:
2. Kemudian kita copy scripts dhcp pada directory etc dengan perintah
· cp /usr/share/doc/dhcp3.0pl1/dhcp.conf.sample /etc/dhcpd.conf
3. Setelah itu kita edit scripts dhcp dengan menggunakan perintah
· vi /etc/dhcp.conf
lalu akan muncul tampilan
4. Yang perlu diedit adalah
· subnet harus kita sesuaikan dengan IP yang eth1
· Option routers harus disesuaikan dengan IP eth1
· Option domain-name-servers harus diisi sesuai dengan DNS server yang kita gunakan

· Range dynamic-bootp harus disini kita bisa mengatur IP berapa saja yang akan kita berikan untuk client
5. Setelah itu kita simpan dengan perintah
· :wq
6. Agar settingan tidak hilang pada saat komputer direstart, lakukan perintah
· service dhcpd restart
7. Kemudian kita uji pada client windows
Langkah-langkah mengecek dhcp kita pada client windows:
1. Masuk pada Control Panel>Network Connection klik kanan pada Local Area Connection pilih Properties.
2. Kemudian pilih pada “Obtain an IP address automatically” dan “Obtain DNS server address automatically”
3. Klik OK
4. Kemudian kita lihat pada support

5. Lalu kita uji dengan melakukan ping seperti gambar di bawah ini
6. Kemudian kita uji koneksi ke internet
LANGKAH-LANGKAH KONFIGURASI FTP
1. Melihat file FTP yang telah terinstall pada router linux dengan perintah seperti di bawah ini
2. Kemudian kita masuk pada directory home dan kita buat user beserta password user di dalamnya dengan perintah
· useradd tkj
· passwd tkj
3. Kemudian kita masukkan password
4. Lalu kita isi user tkj seperti contoh di bawah ini
Kemudian akan muncul tampilan
Kita lakukan seperti contoh di atas
5. Kemudian kita simpan dengan perintah
· :wq
6. Setelah itu kita uji pada client windows kita
Langkah-langkah mengecek ftp kita pada client windows:
1. Kita masuk pada internet explorer atau windows explorer
2. pada link kita ketikkan ftp://192.168.20.1 seperti contoh di bawah ini
3. Kemudian kita pilih “Login as”
Maka akan muncul tampilan
4. Kita masukkan user name dan passwordnya
5. Kemudian klik Log on
Maka akan muncul tampilan
6. Kemudian klik ganda pada informatika dan akan muncul tampilan seperti di bawah ini
HASIL YANG DICAPAI
Setelah melalui beberapa proses konfigurasi Router, DHCP dan FTP akhirnya menghasilkan:
Ø Router sebagai penghubung antara server dengan client.
Ø Dhcp server yang berguna untuk mempermudah client mendapatkan IP dari Router secara otomatis
Ø Ftp server yang berguna untuk memindahkan (transfer) file dari suatu komputer yang terhubung ke Internet ke komputer lain yang juga terhubung ke Internet.
SASARAN PASAR/PENGGUNA
Sasaran project ini meliputi:
1) Perusahaan
2) Bisnis (hotel, perkantoran, apartemen)
3) Lembaga / instansi pemerintah atau swasta
4) Institusi pendidikan
5) Warung internet
6) Dan lain-lain
FAKTOR PENDUKUNG DAN FAKTOR PENGHAMBAT
3.1.1 Faktor pendukung
Ø Bimbingan dan pengarahan yang berhubungan dengan bahan yang akan dijadikan Project Work
Ø Tersedianya sarana dan prasarana yang cukup lengkap
Ø Adanya sumber informasi yang jelas dan lengkap
Ø Adanya dukungan dari keluarga tercinta
3.1.2 Faktor penghambat
Ø Keterbatasan pengetahuan penulis tentang Konfigurasi Router, Dhcp dan Ftp
Ø Waktu yang diberikan relatif singkat
Ø Sulitnya mencari narasumber sebagai pembimbing yang sesuai
Manfaat
Manfaat-manfaat yang dihasilkan dari Project yang kami buat adalah sebagai berikut:
Ø Menghasilkan Router sebagai penghubung antara server dengan client.
Ø Dhcp server yang berguna untuk mempermudah client mendapatkan IP dari Router secara otomatis
Ø Ftp server yang berguna untuk memindahkan (transfer) file dari suatu komputer yang terhubung ke Internet ke komputer lain yang juga terhubung ke Internet.

Sabtu, 16 April 2011

Public Class Form1

Dim isitext(4) As String
Dim mListItem As ListViewItem


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

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
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"
Button4.Text = "Batal"
TextBox1.Focus()
Else
isitext(0) = TextBox1.Text
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Microsoft.VisualBasic.Right((ComboBox1.Text), 12)

mListItem = New ListViewItem(isitext)
ListView1.Items.Add(mListItem)
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()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button4.Text = "Keluar"
End Sub

Sub setTampilan()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
End Sub

End Class

Game Puzzel

Temen-temen semua dan setanah air, saya dapat sedikit dari temen deket saya sendiri,walau pun program ini sederhana tapi bisa ngelangin stress juga lho….. ,Ya itu cara membuat game Puzzle dengan Visual studio. Dan ini dibawah ini coding-codingnya.

· Step Pertama : Bukalah program visual basic anda dam PC atau Notebook anda,dan pastikan PC atau Notebook anda sudah terinstal progaram ini.

· Step Kedua : Lalu klik fie, pilih New project. Maka akan tampilan form .

· Step Ketiga : setelah itu buatlah buttom sebayak yang anda suka pada form, yang terdapat pada toolbox

· Step Keempat : Double klik pada setiap buttom,lalu masukan Coding-codingan di bawah ini sesuai urutan buttom dan pastikan coding di bawah sesuai agar tidak terjadi error pada program

· Step KeLima : Setelah itu anda bisa running untuk mencoba program. Bila ok siap dimainkan.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_WLzjUbG533vziNUzOHPKsbbE6KO6Vb0m9zTGU9Q3PbgLQv8RZcbmqO_XFXwOP5YywWIvuulheR726lyrQFOmfI6rUyBsCM9ZPMqH0h6wbyUGYzXd0cPC7oz-QUHVs5mxZR0lF8N7t2WC/s1600/untitled.bmp

Gambar diatas adalah hasil program yang sudah siap dimainkan.

Public Class Form1

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

ElseIf Button4.Visible = False Then

Button4.Visible = True

Button1.Visible = False

Button4.Text = Button1.Text

End If

End Sub

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

Button5.Visible = True

Button2.Visible = False

Button5.Text = Button2.Text

End If

End Sub

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

ElseIf Button6.Visible = False Then

Button6.Visible = True

Button3.Visible = False

Button6.Text = Button3.Text

End If

End Sub

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

End Sub

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 Button5.Visible = False Then

Button5.Visible = True

Button6.Visible = False

Button5.Text = Button6.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button6.Visible = False

Button9.Text = Button6.Text

End If

End Sub

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 Button5.Visible = False Then

Button5.Visible = True

Button8.Visible = False

Button5.Text = Button8.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button8.Visible = False

Button9.Text = Button8.Text

End If

End Sub

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

If Button4.Visible = False Then

Button4.Visible = True

Button7.Visible = False

Button4.Text = Button7.Text

ElseIf Button8.Visible = False Then

Button8.Visible = True

Button7.Visible = False

Button8.Text = Button7.Text

End If

End Sub

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

ElseIf Button8.Visible = False Then

Button8.Visible = True

Button9.Visible = False

Button8.Text = Button9.Text

End If

End Sub

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

End Sub

End Class