Renungan

“Takkan bergeser kedua kaki manusia pada hari kiamat sampai selesai ditanya tentang 4 perkara: tentang UMURNYA, untuk apa dihabiskan; tentang MASA MUDANYA, untuk apa dipergunakan; tentang HARTANYA, dari mana diperoleh dan untuk apa dibelanjakan; dan tentang ILMUNYA, apa yang sudah diperbuat dengannya.”(HR. At-Tirmidzi no.2417)

Saturday, March 10, 2012

Jaringan Kabel LAN - Lokal Area Network

Sekilas Istilah dalam Jaringan :
Local Area Network (LAN) adalah sejumlah komputer yang saling dihubungkan bersama di dalam satu areal tertentu sehingga dapat berbagi perangkat keras, berbagi perangkat lunak, berbagi saluran komunikasi, berbagi data dengan mudah dan memudahkan komunikasi antar pengguna.

Topology Jaringan :
1. Topology Ring
2. Topology  Linear Bus
3. Topology  Star
4. Topology  Tree

Tipe dan Jenis Kabel : UTP dan STP
1. Cat1, Cat2, Cat3,Cat4,Cat5, Cat5 Enhanced, Cat6,Cat7 Kategori, tipe dan jenis kabel ini berkaitan dengan spesifikasi tembaga, jack, isolator peredam induksi, twist,dan  frekuensi yang dapat dilewati.
2. Connector atau Jack
3. 2 tipe penyambungan kabel UTP (Sthraight Cable, Crossover Cable)

Membangun jaringan Straight Cable (Client - Hub, Router,Client-Server)
Di dalam jaringan tipe Sthraight Cable atau Client-Server, komputer yang difungsikan
sebagai server mutlak harus memiliki unjuk kerja yang lebih tinggi dibandingkan komputer-komputer
lain sebagai workstation-nya, karena server akan bertugas menyediakan fasilitas dan mengelola operasional jaringan tersebut.

Step 1 : Siapkan Kabel Jaringan UTP Cat5 atau Cat5 Enhanced disarankan menggunanakan Cat5 enhanced karena telah dilengkapi dengan insulator. Siapkan pula konektor RJ 45 untuk Kabel UTP Cat5.
Jangan lupa Crimping atau tang jaringan.

Susunan Kabel UTP untuk membangun jaringan

White Blue
Blue
White Orange
Orange
White Green
Green
White Brown
Brown


Koneksi Minimum Berdasarkan Standar EIA/TIA-568B RJ45 Wiring Scheme :
Pin 1 = White Orange
Pin 2 = Orange
Pin3 = White Green
Pin 4 = Blue
Pin 5 = White Blue
Pin 6 = Green
Pin 7 = White Brown
Pin 8 = Brown

Membangun Jaringan Crossover Cable atau Peer To Peer (PC-PC/Client-Client, Hub-Hub)
setiap komputer yang terhubung ke jaringan dapat bertindak baik sebagai workstation maupun server.

Dasar Koneksi untuk Crossover Cable / Peer To Peer


Connector  RJ45 Ke 1
Connector  RJ45 Ke 2
Pin1
White Orange
Pin1
White Green
Pin2
Orange
Pin2
Green
Pin3
White Green
Pin3
White Orange
Pin4
-
Pin4
-
Pin5
-
Pin5
-
Pin6
Green
Pin6
Orange
Pin7
-
Pin7
-
Pin8
-
Pin8
-

Ket : Pin4, 5, 7,8 dibiarkan tidak terhubung, WhiteBlue, Blue, White Brown, Brown.

Catatan : Disini saya tidak menjelaskan mengenai Teori Jaringan atau LAN secara keseluruhan karena Disain dan konfigurasi jaringan tidaklah sesederhana yang dibayangkan, mungkin jika saya uraiakan tentang Spesifikasi, Fungsi, Kapabilitas , Kelebihan dan Kekurangan dari 1 jenis kabel saja akan penuh blog saya. uraian diatas merupakan Inti dari Dasar Disain atau Konfigurasi Jaringan dengan menggunakan kabel UTP (Unshielded Twisted Pair) Category5, cukup untuk sekedar mengkoneksikan Hardware berbagi pakai Software, maupun data atau dokumen dalam ruang lingkup tertentu. Semoga Bermanfaat, Amin.

Sunday, March 4, 2012

Menandai Record yang akan Di Hapus Visual Foxpro 9.0




Coding :
Form Init :
thisform.grid1.SetAll ("dynamicbackcolor",;
"iif(DELETED(),RGB(255,0,0), RGB(255,255,255))")

Catatan : Contoh diatas jika menggunakan Pageframe sedangkan jika tidak menggunakan Pageframe cukup ketikan seperti yang tertera di coding Form Init.

Wednesday, February 29, 2012

Mengubah AM Dan PM Menjadi Pagi Dan Malam



                                   Gambar Tampilan Awal
Step 1:  Klik Start kemudian Klik Run 


Step 2 : Ketikan Regedit pada Jendela Run


Step 3 : Pilih HKEY_CURRENT_USER kemudian pilih Control Panel kemudian pilih International lalu pilih s1159 dan ubah dengan mengklik ganda kemudian ketikan Pagi, Begitupun pada s2359 ubah dan ketikan Malam.









Membulatkan Bilangan Pecahan atau Decimal di Visual Basic 6

Dalam kasus kali ini saya menggunakan Database SQL 2000 dengan Type Data Decimal

Ilustrasi Form Data Jabatan di Perusahaan :
Jika Tunjangan Kesehatan di dapat dari satu kali Gaji Pokok dibagi 12 bulan yang hasil pembagiannya dibayarkan setiap bulan kepada karyawan.
Contoh kode jabatan STF (Staff) dengan Gaji Pokok Rp.850.000 / 12 = Rp. 70.833,33333333
Tunjangan Kesehatan untuk karyawan dengan jabatan Staff per bulan ialah =Rp. 70.833,333333 (Tujuh Puluh Ribu Delapan Ratus Tiga Puluh Tiga Koma Tiga Tiga Tiga Tiga  Tiga Tiga  Rupiah)

 
Gambar 1. Sebeleum Pembulatan, Hasil Masih Berbentuk Desimal

Step 1 : Buatlah Function dengan kode sebagai berikut
Private Function Genapkan(ByVal Number As Double, Optional Range = 100) As Double
  Genapkan = (Round((Number / Range) + 0.49)) * Range
End Function

Step 2 : Ketikan Kode pada Keypress di TextBox Gaji Pokok
Private Sub txt_gapok_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or
KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
   KeyAscii = 13
   txt_tjkes = Genapkan(txt_gapok.Value / 12)
txt_tjjab.SetFocus
End If
End Sub


Tunjangan Kesehatan Setelah dibulatkan untuk Level Staff dengan Gaji Pokok Rp. 850.000 / 12 =
Rp. 70.900 (Tujuh Puluh Ribu Sembilan Ratus Rupiah)

Catatan : Setelah dibulatkan maka terdapat penambahan Tunjangan Kesehatan bagi karyawan antara Rp. 1 sampai dengan Rp. 99 tergantung dari Gaji pokok yang ditetapkan akan tetapi hasil pembulatan tetap tidak akan melebihi dari Rp. 99 (Sembilan puluh sembilan rupiah).

Coding di : PrivateSub txt_gapok Keypress sebenarnya ada 3 perintah eksekusi :
1. If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or
KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Memerintahkan hanya dapat di input dengan angka 0123456789 dan mengunci tombol Keyboard kecuali tombol angka.
Jika anda ingin mengunci tombol angka pada keyboard dan hanya mengaktifkan tombol huruf atau tombol-tombol selain angka, anda tinggal mengubah nilai pada >= Asc("0")<= Asc("9") menjadi >= Asc("a")<= Asc("z") dan menghilangkan kode (Or  KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) karna kode tersebut adalah kode untuk mematikan tombol Spasi dan Delete pada Keyboard. Biasanya ini digunakan untuk nama jabatan, nama karyawan, dll.

2. Then KeyAscii = 13
txt_tjjab.SetFocus Memerintahkan jika tombol enter di tekan maka kursor akan menuju ke textbox selanjutnya dalam ilustrasi ini ke Textbox Tunjangan Jabatan.

3. txt_tjkes = Genapkan(txt_gapok.Value / 12) Memanggil Fungsi pembulatan yang telah dibuat diatas yaitu Genapkan dan memerintahkan untuk menampilkan hasil pembagian dari Gaji Pokok / 12 kedalam TextBox Tunjangan Kesehatan setelah dieksekusi oleh Function tersebut.

Coding Tombol Navigasi Pada Flash MX Profesional 2004





Step 1 : Dalam hal ini saya asumsikan Tombol Kemampuan yang akan memanggil file ability.swf, Klik pada Tombol navigasi kemampuan dan pilih Actions-Button lalu ketikan kode seperti berikut ini :

on (release) {
                setProperty("nonformal_movie",_visible,0);
                setProperty("lamaran_movie",_visible,0);
                setProperty("personaldata_movie",_visible,0);
                setProperty("pendidikan_movie",_visible,0);
                setProperty("pengalamankerja_movie",_visible,0);
                setProperty("organisasi_movie",_visible,0);
                setProperty("skill_movie",_visible,0);
                setProperty("f_movie",_visible,0);
                loadMovie("abillity.swf","abillity_movie");
                stopAllSounds();
                }
Ubahlah nilai-nilai loadMovie yang akan memanggil file Flash yang berektensi swf sesuai dengan file swf yang akan anda buat.
File Master.EXE : ialah file induk yang telah di executable seperti Main Form pada Aplikasi Pemrograman lain, contohnya MainForm pada VB, Visual Foxpro, Delphi, atau Index pada PHP maupun html

Catatan : Teknik ini adalah memanggil atau menampilkan beberapa file Flash melalui Tombol Navigasi berbeda jika kita membuat program Flash yang menampilkan Frame per Frame.

AdSense

AdSense