PROPOSAL PEMBUATAN HOTSPOT

SUMBER :http://bakana-hito.blogspot.com/2012/11/tugas-jarkom_20.html

A. Latar Bekalang

Dengan semakin dekatnya era globalisasi/perdagangan bebas, dimana jarak tidak merupakan hambatan, komunikasi akan bisa dilakukan kapan saja, dimana saja, maka perlu suatu alat yang dapat mendukung kearah itu, salah satunya dengan internet. Internet merupakan sarana bagi sekolah untuk dapat mengembangkan komunikasi dan transaksi dengan dunia luar, baik dengan dunia bisnis maupun mitra kerja.

Disamping itu internet juga merupakan salah satu sarana praktek untuk memperkenalkan siswa dengan dunia teknologi maju dan sebagai media untuk pengajaran. Internet bukan hanya membuka wawasan regional tetapi sudah go international dengan pulsa lokal, biarpun berkomunikasi dengan luar negeri. Disamping sebagai alat media bisa juga memperkenalkan keunggulan sekolah, surat menyurat (email), berbicara dengan orang lain (teleconfrence), saling tukar pikiran (chating) dll, maka sekarang ini disekolah sudah harus ada fasilitas tersebut yang biasa disebut dengan HOTSPOT.

B. Tujuan

·         Memunculkan sikap kompetetif diantara warga sekolah

·         Menumbuh kembangkan jiwa wiraswasta dan mampu menciptakan lapangan kerja baru bagi lulusan.

·         Mampu memperbaiki ekonomi warga sekolah

·         Meningkatkan sumber dana operasional sekolah yang mampu meningkatkan kualitas operasional sekolah

·         Mendukung pembelajaran dengan pendekatan Broard based Curiculum

C.  Manfaat

• Manfaat membangun HOTSPOT adalah sebagai berikut :
• Sebagai Jaringan yang mencakup seluruh dunia
• Dapat memberikan informasi yang dibutuhkan
• Memberikan pelayanan internet yang baik
• Memberikan pendidikan Internet kepada Siswa-siswa dan masyarakat Luar
• Memberikan akses internet yang cepat
• Untuk memudahkan guru-guru dan siswa-siswa dalam mencari referensi pelajaran yang lain
• Agar semua murid bisa lebih memperluas IPTEK

D.  Desain (Perancangan)

 

 

E.  Anggaran

KETERANGAN IP ADDRESS, SUBNET MASK, DAN GATEWAY PADA SEMUA PERANGKAT

Perangkat	IP Address	Subnet Mask	Gateway
PC server KJ	10.1.4.2	255.255.255.0	10.1.4.1
PC server ICT	10.1.6.2	255.255.255.0	10.1.6.1
Radio KJ	10.1.4.4	255.255.255.0	10.1.4.1
Radio ICT	10.1.6.4	255.255.255.0	10.1.6.1
Client	DHCP

DNS yang digunakan adalah

Preferred DNS Server : 202.155.0.10

Alternative DNS Server : 202.155.0.15

FASILITAS DAN PERALATAN

NO	NAMA BAHAN	SPESIFIKASI	JUMLAH	OWNER
1	OBENG	+	1	SEKOLAH
2	Kabel UTP		1 pack	SEKOLAH
2	MEJA		1	SEKOLAH
3	KABEL TESTER		1	SEKOLAH
4	KURSI		1	SEKOLAH
5	TANG CRIMPING		1	SEKOLAH

BARANG YANG DIPERLUKAN

NO	NAMA BARANG	SPESIFIKASI	JUMLAH	HARGA
				SATUAN	JUMLAH
1	Komputer	1. Pentium IV 2.0 Ghz 2. Memory 256MB 3. Hardisk 20 4. VGA 32 Mb 6. Ethernet Card 10/100Mbps 7. CD-Rom 52x 8. Cassing ATX	2 Unit	2.000.000	4.000.000
2	Antenna	Omni GNF 24 DBI 2.4 Ghz	2 Unit	700.000	1.400.000
3	RADIO	3Com	2 Unit	1.250.000	2.500.000
4	HUB	SMC EZ-SWITCH 6 PORT EZ 6508 TX	1 Unit	500.000	500.000
5	KABEL UTP	Belden	1 Dus	600.000	600.000
Total					Rp. 9.000.000

Sistematika Kerja

Perencanaan

1. Merencanakan Skema jaringan
2. Merakit PC yang akan dijadikan server
3. Menginstal Driver Ethernet card pada semua PC
4. Menentukan IP Address dan subnet mask pada semua PC server

Setting Jaringan

1.        mendaftarkan Mac Address PC/Laptop pada server

2.        Menginstal Mikrotik pada semua PC server

3.        Menyetting bandwidth yang akan dipakai dalam jaringan

 Setting Radio

1.         Menyetting IP dan subnet mask radio yang standar menjadi yang sama pada server

2.         Mengubah Set mode pada radio

3.         Menyamakan SSID yang sama di setiap server

4.         Memberikan DNS

Uji Coba

1.         Mencoba apakah semua PC yang sudah terdaftar bisa terkoneksi dengan server dengan cara mengeping

2.         Mengatur posisi antenna Omni agar bisa menyebarkan sinyal dengan baik

3.         Menjalankan internet

F. Tinjauan pustaka/Landasan teori

·         Wireless AP (Harware Based atau Soft-Based)

Mendukung berbagai konfigurasi : AP, AP-client, AP-router/Gateway, AP repeater.

·           Antenna (Home Made atau Comercial )

Menggunakan Antenna Omni sebagai Access Point pada OS Linux/BSD/Mikrotik, yang mampu mendukung lebih banyak layanan. Seperti VPN, Captive Portal (nocat) dan Proxy.

·         Server Mikrotik : Bandwidth limiter/Proxy, Server Otentikasi

Untuk mengatur bandwidth sambungan hotspot

·         Koneksi Internet

Penutup

Demikian proposal yang kami buat, semoga langkah ini dapat turut andil dalam mencerdaskan bangsa dan bisa bermanfaat bagi semua orang.

Semoga Allah Swt memberikan berkat dan Rahmatnya bagi kita semua, sebelum dan sesudahnya kami ucapkan terima kasih banyak.

Daftar Referensi :

1. http://affan.web.id (2007). Wireless LAN
2. PT.CIPTA GUNA DATA (2007). Pembelajaran WAN bagi pemula

Read More

TEKNIK DASAR CSS (Cascading Style Sheet )

selamat datang pengunjung setia blog RocKrr
kali ini saya akan memposting artikel mengenai teknik dasar CSS,, atau (Cascading Style Sheet )
Ok deh sedikit tentang penjelasan mengenai CSS, silahkan baca dulu
Pengertian CSS (Cascading Style Sheet)
Cascading Style Sheet apalagi ini?. Mungkin sebagai orang awam anda tentu belum mengenal
apa itu CSS. Cascading Style Sheet adalah suatu teknologi yang digunakan untuk
mempermudah pembuatan suatu tampilan sebuah website.
Jangan mengernyitkan dahi, anggap saja ini mudah. Dengan menggunakan CSS kita dapat
mempercepat pembuatan situs sekaligus mempermudah kita dalam proses mengeditnya.
Pada bab 5 ini kita akan mencoba menerapkan penggunaan CSS dalam beberapa contoh yang
sederhana. Selanjutnya kita akan merubah format tampilan personal homepage yang telah
kita buat pada bab 3 dengan menambahkan CSS kedalamnya..
Ok deh, jangan banyak teori langsung saja praktek,
silahkan buka notepad dan ketikkan


body{font-family: verdana; font-size: 12px}
td{font-family: verdana; text-align: center}
a{font-color: green; text-decoration: none}
a:hover{background-color: yellow; font-weight: bold}
a:hover.green{background-color: green; color: yellow}

kemudian save as,, pilih all files, dan beri nama dengan my_css.css
langkah selanjutnya buat file html,
!, buka notepad
2. ketikkan kode berikut


<html>
<head>

<title>Meload CSS dari File</title>
<link rel="stylesheet" href="my_css.css" type="text/css">
</head>
<body>
<p>Penerapan CSS pada halaman ini melalui media file. Bukan menuliskannya
langsung diantara tag head.</p>
<p><table border="1" style="border-collapse: collapse" width="75%"
cellpadding="8" bordercolor="black">
<tr>
<td><a href="#">Ini link biasa</a></td></tr>
<tr>
<td><a href="#" class="green">Ini link dengan class</a></td></tr>
</table></p>
<p>Dari contoh 2 link diatas dimana link 2 masih mendapat efek tebal dari hover
biasa. Namun dia juga mendapat efek sendiri yaitu background hijau dan warna
kuning. Yang seperti ini juga biasa disebut dengan <b>PEWARISAN
(inheritance)</b>.</p>
</body>
</html>

kemudian save as-pilih all files-dan simpan dengan nama file_css.css
langkah selanjutnya buka file_css.css dan lihat apa yang akan terjadi,,
ok, mungkin itu saja materi yang saya tulisakan tentang materi TEKNIK DASAR CSS (Cascading Style Sheet ) ini, apabila ada salah penulisan atau wajah saya yang kurang berkenan saya mohon maaf,, maaf untuk para webmaster, tolong jangan di tertawakan artikel ini,, karen penulis sendiri juga masih miyabi.. eh newbie,, heheheh,, salam programmer indonesia,

Read More

Aplikasi Dengan Metode Fuzzy Tsukamoto

Aplikasi Dengan Metode Fuzzy Tsukamoto

 SUMBER : http://dlaboratory.wordpress.com/2012/04/13/aplikasi-dengan-metode-fuzzy-tsukamoto/

Tugas, tugas dan tugas Kira-kira sampai kapan ya tugas itu berakhir untuk mahasiswa . Kali ini saya coba share sebagian source code hasil dari tugas kuliah yang sudah terselesaikan (Tapi sebenarnya masih harus dipresentasikan tanggal 7 Mei sih) . Sesuai dengan judul posting ini tugas yang diberikan adalah tugas membuat aplikasi dengan menggunakan metode Fuzzy Tsukamoto Berdasarkan suatu Kasus. Kasus itu yang saya jadikan acuan, lihat disini untuk mengetahui serperti apa kasusnya (Program : 1). Aplikasi yang dibuat menggunakan Visual Basic.

Berikut langkah-langkahnya
Pasang 8 TextBox dan 16 ComboBox, Berikut Setting untuk propertiesnya

[TextBox]
{Text1}
Nama : Variabel
Index : 0
{Text2}
Nama : Variabel
Index : 1
Atur nama Text3 sampai Text6 menjadi “Variabel” dan atur indexnya menjadi berurutan mulai dari 2-5
[ComboBox]
{Combo1}
Nama : Pembayaran
Index : 0
Lakukan hal sama dengan TextBox, Untuk 3 ComboBox berikutnya. Hanya Saja Nama = “Pembayaran” dan Index mulai dari 1-3
{Combo5}
Nama : Operator
Index : 0
Lakukan Hal yang sama dengan ComboBox1 – ComboBox4 hanya saja nama = “Operator”
{Combo9}
Nama : Pelayanan
Index : 0
Lakukan Hal yang sama dengan ComboBox5 – ComboBox8 hanya saja nama = “Pelayanan”
{Combo13}
Nama : Tips
Index : 0
Lakukan Hal yang sama dengan ComboBox9 – ComboBox12 hanya saja nama = “Tips”

Tambahkan Label dan ComboBox
Ketikkan kode berikut. Kode berikut merupakan fungsi nantinya yang akan digunakan sebagai aturan fuzzy (rule).

01	'SETTING VARIABEL KEANGGOTAAN DAN OPERATOR

02	Private Sub AddRule()

03	Dim a As Long, b As Long, c As Long, d As Long

04	For a = Pembayaran.LBound To Pembayaran.UBound

05	Pembayaran(a).AddItem "SEDIKIT"

06	Pembayaran(a).AddItem "BANYAK"

07

Next

08	For b = Operator.LBound To Operator.UBound

09	Operator(b).AddItem "AND"

10	Operator(b).AddItem "OR"

11

Next

12	For c = Pelayanan.LBound To Pelayanan.UBound

13	Pelayanan(c).AddItem "CEPAT"

14	Pelayanan(c).AddItem "LAMA"

15

Next

16	For d = Tips.LBound To Tips.UBound

17	Tips(d).AddItem "SEDIKIT"

18	Tips(d).AddItem "BANYAK"

19

Next

20

End Sub

Langkah selanjutnya ketikkan kode berikut. Kode ini merupakan fungsi untuk menghitung derajat keanggotaan dari masing-masing variabel

01	'MENGHITUNG DERAJAT KEANGGOTAAN DARI MASING-MASING VARIABEL

02	Private Function setDerajatKeanggotaan() As String

03	Dim a As Long, b As Long, c As Single, d As Single, MBayar As String, MPelayanan As String

04	Dim Sedikit As Long, Banyak As Long

05	Dim Cepat As Long, Lama As Long

06	a = Val(Nilai(0).Text)

07	b = Val(Nilai(1).Text)

08	Sedikit = Val(Variabel(0).Text)

09	Banyak = Val(Variabel(1).Text)

10	Cepat = Val(Variabel(2).Text)

11	Lama = Val(Variabel(3).Text)

12

13	If a <= Sedikit Then

14

c = 1

15	ElseIf Sedikit <= a <= Banyak Then

16	c = (Banyak - a) / (Banyak - Sedikit)

17	ElseIf a >= Banyak Then

18

c = 0

19

End If

20	MBayar = c

21	If a <= Sedikit Then

22

c = 0

23	ElseIf Sedikit <= a <= Banyak Then

24	c = (a - Sedikit) / (Banyak - Sedikit)

25	ElseIf a >= Banyak Then

26

c = 1

27

End If

28	MBayar = MBayar & "|" & c

29

30

31	If b <= Cepat Then

32

d = 1

33	ElseIf Cepat <= b <= Lama Then

34	d = (Lama - b) / (Lama - Cepat)

35	ElseIf b >= Lama Then

36

d = 0

37

End If

38	MPelayanan = d

39

40	If b <= Cepat Then

41

d = 0

42	ElseIf Cepat <= b <= Lama Then

43	d = (b - Cepat) / (Lama - Cepat)

44	ElseIf b >= Lama Then

45

d = 1

46

End If

47	MPelayanan = MPelayanan & "|" & d

48

49	setDerajatKeanggotaan = MBayar & "#" & MPelayanan

50	End Function

Selanjutnya ketikkan kode berikut. Fungsi ini berfungsi untuk mencari Alpha Predikat dan nilai Z dari rule yang ditentukan

01	'PROSES UNTUK RULE

02	Private Function setProsesRule() As String

03

Dim Pisah

04	Dim MBayar

05	Dim MPelayanan

06	Dim NilaiAlpha

07	Dim a As Long, b As Long, c As Single, d As Single, AlphaPredikat As String, NilaiZ As String

08	Pisah = Split(setDerajatKeanggotaan, "#")

09	MBayar = Split(Pisah(0), "|")

10	MPelayanan = Split(Pisah(1), "|")

11

12	For a = Pembayaran.LBound To Pembayaran.UBound

13	Select Case Operator(a).ListIndex

14

Case 0

15	If MBayar(Pembayaran(a).ListIndex) >= MPelayanan(Pelayanan(a).ListIndex) Then

16	c = MPelayanan(Pelayanan(a).ListIndex)

17

Else

18	c = MBayar(Pembayaran(a).ListIndex)

19

End If

20

Case 1

21	If MBayar(Pembayaran(a).ListIndex) <= MPelayanan(Pelayanan(a).ListIndex) Then

22	c = MPelayanan(Pelayanan(a).ListIndex)

23

Else

24	c = MBayar(Pembayaran(a).ListIndex)

25

End If

26	End Select

27	If a <> 3 Then

28	AlphaPredikat = AlphaPredikat & c & "|"

29

Else

30	AlphaPredikat = AlphaPredikat & c

31

End If

32

Next a

33

34	'Menentukan Nilai Z

35	NilaiAlpha = Split(AlphaPredikat, "|")

36	For b = Tips.LBound To Tips.UBound

37	Select Case Tips(b).ListIndex

38

Case 0

39	d = Val(Variabel(5).Text) - (NilaiAlpha(b) * (Val(Variabel(5).Text) - Val(Variabel(4).Text)))

40

Case 1

41	d = (NilaiAlpha(b) * (Val(Variabel(5).Text) - Val(Variabel(4).Text))) + Val(Variabel(4).Text)

42	End Select

43	If b <> 3 Then

44	NilaiZ = NilaiZ & d & "|"

45

Else

46	NilaiZ = NilaiZ & d

47

End If

48

Next b

49

50	setProsesRule = AlphaPredikat & "#" & NilaiZ

51	End Function

Berikut ini merupakan fungsi untuk menghitung nilai Z akhir

01	Private Function HasilAkhir() As Integer

02	Dim NilaiZ

03	Dim AlfaPredikat

04	Dim Potong

05	Dim Alpha As Single

06	Dim Sigma As Single

07	Dim a As Long, b As Long

08	Potong = Split(setProsesRule, "#")

09	AlfaPredikat = Split(Potong(0), "|")

10	NilaiZ = Split(Potong(1), "|")

11

Alfa = 0

12

Sigma = 0

13	For a = LBound(NilaiZ) To UBound(NilaiZ)

14	Sigma = Sigma + (NilaiZ(a) * AlfaPredikat(a))

15

Next a

16	For b = LBound(AlfaPredikat) To UBound(AlfaPredikat)

17	Alpha = Alpha + AlfaPredikat(b)

18

Next b

19

20	HasilAkhir = Sigma / Alpha

21	End Function

kode-kode tadi masih belum terpanggil. kode untuk memanggilnya adalah sebagai berikut

1	Private Sub Form_Load()

2	call AddRule

3

End Sub

4

5	Private Sub Command1_Click()

6	Label1.Caption = Format(HasilAkhir, "#,###")

7

End Sub

Read More