IP ADDRESS VERSI 4 Dan 6 (IPv4 & IPv6)

          IP address digunakan sebagai alamat dalam hubungan antar host di internet sehingga merupakan sebuah sistem komunikasi yang universal karena merupakan metode pengalamatan yang telah diterima di seluruh dunia. Dengan menentukan IP address berarti kita telah memberikan identitas yang universal bagi setiap interadce komputer. Jika suatu komputer memiliki lebih dari satu interface (misalkan menggunakan dua ethernet) maka kita harus memberi dua IP address untuk komputer tersebut masing-masing untuk setiap interfacenya.


2.1       Format IP Address
IP address terdiri dari bilangan biner 32 bit yang dipisahkan oleh tanda titik setiap 8 bitnya. Tiap 8 bit ini disebut sebagai oktet. Bentuk IP address dapat dituliskan sebagai berikut :
-       xxxxxxxx.xxxxxxxx.xxxxxxxx.xxxxxxxx
           
Notasi IP address dengan bilangan biner seperti ini susah untuk digunakan, sehingga sering ditulis dalam 4 bilangan desimal yang masing-masing dipisahkan oleh 4 buah titik yang lebih dikenal dengan “notasi desimal bertitik”. Setiap bilangan desimal merupakan nilai dari satu oktet IP address. Contoh hubungan suatu IP address dalam format biner dan desimal :

Elegi Tentang Rembulan

Elegi Tentang Rembulan

Engkau,yang hari itu berkena merah..

Dibalik daun pintu buat pandang terbelah..

Lewat sanubari tatapku,cantik wajahmu cerah..

Jiwa,sukma,terpana terperangah..

Gumamnya.. “Indah”…..

Engkau yang hadirnya laksana lentera menyala..

Tak hanya ranah mata kau meraja..

Ya.. kaupun ada,ada di semesta dada..

Aku tak hirau berpunya Tanya…

Mungkin jadi rindu berbuah lara mendera..

Engkau tak hapus fakta bukan pertama..

Namun jujur ku dalam ungkap kata terkata..

Engkau nyata di jantung nuansa..

Engkau yang jadi ruh dalam dawai gitar kugetar..

Harapku nurani bertanya besar misteri menghampar..

Yakinlah aku bukan makar kutebar..

Aku punya arti dari tatap terpendar..



Tau Judulnya Apa

Tau Judulnya Apa

Kalo ini sih sebenernya lirik lagu yang iseng-iseng saya ciptain .. xixixi
Enggak tau deh judulnya apa..:
```~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~```

Every day is always my own, still up in the morning
Want to sleep again but for a week of a dirty clotes piling

Want I don't want to get up and wash all my clotes..
oh NO NO NO there's no forced soap to cleaned.

I had to go to buy it.

As I was hanging my clothes, I saw a woman
she stood looking at the plants in the garden of her house
who is she who is she who is she say appers in my heart
beautifull beautiful girl,

Beautifull beautiful girl, who you are ??

she'e a woman I want

She's a woman I thing

She's a woman I need to turn my world

And she is a woman I need to really wan to know life
Desperate to bring courege to say hello
Really want to make sure she was alone and didn't have a boyfriend
Really want to crazy cause the woman and chause I did not a girlfriens.

She's a Woman I want

She's a Woman I thing

She's a woman I need to turn my world
CINTA BERLEBIH

CINTA BERLEBIH

CINTA BERLEBIH


Keakraban kini berpendar
Terpisah mengisi ruangnya
Sendiri, Sendiri dan tetap sendiri
Dan Tetap sendiri
Terpedaya tipuan rasa
Terkucil Menyendiri dengan rasa enggan
Digelaknya rasa cinta
Gelapi artinya
Samarkan rasanya
Butakan segalanya


Cinta Berlebih sanggup mengubur hari

Seorang sahabat yang pernah kucintai

MENGENAL JARINGAN (Versi Server to Server )

MENGENAL JARINGAN (Versi Server to Server )



Jaringan komputer adalah sebuah sistem yang terdiri atas komputer dan perangkat jaringan lainnya yang bekerja bersama-sama untuk mencapai suatu tujuan yang sama, diantaranya :
  1. Untuk membagi sumber daya, contohnya didalam penggunaan printer, CPU, memori atau Hardisk  secara bersamaan.
  2. Untuk komunikasi : contohnya E-mail, Instant Messaging, Chatting.
  3. Untuk akses informasi : contohnya Web Browsing

ILPENGTEK INDIA

KOMPONEN ILMU PENGETAHUAN DAN TEKNOLOGI

A. Umum

     Tradisi ilmu pengetahuan dan teknologi (S & T) di India adalah lebih dari 5000 tahun. Sebuah kebangkitan disaksikan pada paruh pertama abad ke-20. S & T infrastruktur telah berkembang dari sekitar Rs. 10 juta pada saat kemerdekaan pada tahun 1947 Rs. 30 miliar. prestasi yang signifikan telah dibuat dalam bidang elektronik nuklir dan ilmu pengetahuan ruang, dan pertahanan.    Pemerintah berkomitmen untuk membuat S & T merupakan bagian integral dari pembangunan social ekonomi negara.
India memiliki tenaga ilmiah dan teknis ketiga terbesar di dunia; 162 4.000 universitas penghargaan gelar doktor dan 35.000 gelar pasca sarjana dan Dewan Penelitian Ilmiah dan Industri mengelola 40 laboratorium penelitian yang telah membuat beberapa prestasi signifikan. Dibidang Teknologi Peluncuran Rudal, India adalah di antara lima negara besar dunia.

      Ilmu dan teknologi, bagaimanapun,  adalah  digunakan sebagai instrumen yang efektif untuk pertumbuhan dan perubahan.   Hal ini yang dibawa ke dalam arus utama perencanaan ekonomi di sektor pertanian, industri dan jasa. Sumber daya negara yang digunakan untuk menurunkan output maksimum untuk kepentingan masyarakat dan peningkatan kualitas hidup. Sekitar 85 persen dana untuk S & T datang langsung atau tidak langsung dari Pemerintah. S & infrastruktur T dalam rekening negara untuk lebih dari satu persen dari GNP. S & T di India sedang memasuki frontier baru. 

PEMROGRAMAN BERORIENTASI OBJEK

PEMROGRAMAN BERORIENTASI OBJEK



Pengantar

     Pemrograman Berorientasi Objek sebenarnya bukanlah bahasa pemrograman baru, tetapi jalan baru untuk berpikir dan merancang aplikasi yang dapat membantu memecahkan persoalan mengenai pengembangan perangkat lunak. Pemrograman berorientasi objek disusun dan dipahami oleh ilmuwan yang memandang dunia sebagai populasi objek yang berinteraksi dengan yang lain.      Prosedur yang digunakan dalam objek dipandang sebagai kepentingan kedua karena tergantung pada objek itu sendiri.        Tentunya hal tersebut berbeda dengan pemrograman terstruktur. Pemrograman terstruktur mempunyai sifat pemisahan data dengan kode yang mengolahnya.

   Pemrograman Berorientasi Objek (PBO) adalah metode pemrograman yang meniru cara kita memperlakukan sesuatu (benda). Ada tiga karakteristik bahasa Pemrograman Berorientasi Objek, yaitu :

1. Pengkapsulan (Encapsulation) : mengkombinasikan suatu struktur dengan fungsi yang memanipulasinya untuk membentuk tipe data baru yaitu kelas (class).

2. Pewarisan (Inheritance) : mendefinisikan suatu kelas dan kemudian menggunakannya untuk membangun hirarki kelas turunan, yang mana masing-masing turunan mewarisi semua akses kode maupun data kelas dasarnya.

3. Polimorphisme (Polymorphism) : memberikan satu aksi untuk satu nama yang dipakai bersama pada satu hirarki kelas, yang mana masing-masing kelas hirarki menerapkan cara yang sesuai dengan dirinya.


Pengkapsulan (Encapsulation)

      Salah satu keistimewaan C++ adalah pengkapsulan. Pengkapsulan adalah mengkombinasikan suatu struktur dengan fungsi yang memanipulasinya untuk membentuk tipe data baru yaitu kelas (class).

     Kelas akan menutup rapat baik data maupun kode. Akses item di dalam kelas dikendalikan. Pengendalian ini tidak hanya berupa data tetapi juga kode. Saat kelas akan digunakan, kelas harus sudah dideklarasikan. Yang penting, pemakai kelas mengetahui deskripsi kelas, tetapi bukan implementasinya. Bagi pemakai, detail internal kelas tidak penting. Konsep ini disebut penyembunyian informasi (information hiding).

         Untuk menggunakan kelas, kita perlu mengetahui sesuatu tentangnya. Kita perlu mengetahui fungsi apa yang bisa digunakan dan data apa saja yang dapat diakses. Fungsi yang dapat digunakan dan data yang dapat diakses disebut antarmuka pemakai (user interface). Antarmuka pemakai menceritakan bagaimana kelas berperilaku, bukan bagaimana kelas dibuat. Kita tidak perlu mengetahui implementasi kelas. Sekali kelas dibuat, kita bisa memakainya berulang-ulang. Bagi pandangan pemakai, kelas adalah kotak hitam dengan perilaku tertentu.


Kendali Akses terhadap Kelas

    Tugas kelas adalah untuk menyembunyikan informasi yang tidak diperlukan oleh pemakai. Ada tiga macam pemakai kelas:

1. kelas itu sendiri
2. pemakai umum
3. kelas turunan

    Setiap macam pemakai mempunyai hak aksesnya masing-masing. Hak akses ini ditandai dengan kenampakan anggota kelas. Kelas pada C++ menawarkan tiga aras kenampakan anggota kelas (baik anggota data maupun fungsi anggota):

1. private
   Anggota kelas private mempunyai kendali akses yang paling ketat. Dalam bagian private, hanya fungsi anggota dari kelas itu yang dapat mengakses anggota private atau kelas yang dideklarasikan sebagai teman (friend).

2. public
    Dalam bagian public, anggotanya dapat diakses oleh fungsi anggota kelas itu sendiri, instance kelas, fungsi anggota kelas turunan. Suatu kelas agar bisa diakses dari luar kelas, misalnya dalam fungsi main(), perlu mempunyai hak akses publik. Hak akses ini yang biasanya digunakan sebagai perantara antara kelas dengan dunia luar.

3. protected
   Suatu kelas dapat dibuat berdasarkan kelas lain. Kelas baru ini mewarisi sifat-sifat dari kelas dasarnya. Dengan cara ini bisa dibentuk kelas turunan dari beberapa tingkat kelas dasar. Bila pada kelas dasar mempunyai anggota dengan hak akses terproteksi, maka anggota kelas ini akan dapat juga diakses oleh kelas turunannya. Anggota kelas terproteksi dibentuk dengan didahului kata kunci protected. Pada bagian protected, hanya fungsi anggota dari kelas dan kelas-kelas turunannya yang dapat mengakses anggota.


Pewarisan (Inheritance)

          Suatu kelas dapat diciptakan berdasarkan kelas lain. Kelas baru ini mempunyai sifat-sifat yang sama dengan kelas pembentuknya, ditambah sifat-sifat khusus lainnya. Dengan pewarisan kita dapat menciptakan kelas baru yang mempunyai sifat sama dengan kelas lain tanpa harus menulis ulang bagian-bagian yang sama. Pewarisan merupakan unsur penting dalam pemrograman berorientasi objek dan merupakan blok bangunan dasar pertama penggunaan kode ulang (code reuse). Jika tidak ada fasilitas pewarisan ini, maka pemrograman dalam C++ akan tidak banyak berbeda dengan pemrograman C, hanya perbedaan dalam pengkapsulan saja yang menggunakan kelas sebagai pengganti struktur. Yang perlu menjadi catatan di sini adalah bahwa data dan fungsi yang dapat diwariskan hanya yang bersifat public dan protected. Untuk data dan fungsi private tetap tidak dapat diwariskan. Hal ini disebabkan sifat protected yang hanya dapat diakses dari dalam kelas saja.

       Sifat pewarisan ini menyebabkan kelas-kelas dalam pemrograman berorientasi objek membentuk hirarki kelas mulai dari kelas dasar, kelas turunan pertama, kelas turunan kedua dan seterusnya. Sebagai gambaran misalnya ada hirarki kelas unggas.

       Sebagai kelas dasar adalah Unggas. Salah satu sifat Unggas adalah bertelur dan bersayap. Kelas turunan pertama adalah Ayam, Burung dan Bebek. Tiga kelas turunan ini mewarisi sifat kelas dasar Unggas yaitu bertelur dan bersayap. Selain mewarisi sifat kelas dasar, masing-masing kelas turunan mempunyai sifat khusus, Ayam berkokok, Burung terbang dan Bebek berenang. Kelas Ayam punya kelas turunan yaitu Ayam Kampung dan Ayam Hutan. Dua kelas ini mewarisi sifat kelas Ayam yang berkokok. Tetapi dua kelas ini juga punya sifat yang berbeda, yaitu: Ayam Kampung berkokok panjang halus sedangkan Ayam hutan berkokok pendek dan kasar. Jika hirarki kelas Unggas diimplementasikan dalam bentuk program, maka secara sederhana dapat ditulis sebagai berikut:

        Dapat dilihat, bahwa kelas Ayam dan kelas Bebek dapat menjalankan fungsi Bertelur() yang ada dalam kelas Unggas meskipun fungsi ini bukan merupakan anggota kelas Ayam dan kelas Bebek. Kelas AyamKampung dapat menjalankan fungsi Berkokok() yang ada dalam kelas Ayam walaupun dua fungsi tersebut bukan merupakan anggota kelas AyamKampung. Sifat-sifat di atas yang disebut dengan pewarisan (inheritance).


Polimorfisme

         Polimorfisme merupakan fitur pemrograman berorientasi objek yang penting setelah pengkapsulan dan pewarisan. Polimorfisme berasal dari bahasa Yunani, poly (banyak) dan morphos (bentuk). Polimorfisme menggambarkan kemampuan kode C++ berperilaku berbeda tergantung situasi pada waktu run (program berjalan).

       Konstruksi ini memungkinkan untuk mengadakan ikatan dinamis (juga disebut ikatan tunda, atau ikatan akhir). Kalau fungsi-fungsi dari suatu kelas dasar didefinisikan ulang atau ditindih pada kelas turunan, maka objek-objek yang dihasilkan hirarki kelas berupa objek polimorfik. Polimorfik artinya mempunyai banyak bentuk atau punya kemampuan untuk mendefinisi banyak bentuk. Perhatikan kelas sederhana berikut :

        Kelas TX berisi fungsi FA dan FB, dimana fungsi FB memanggil fungsi FA. Kelas TY, yang merupakan turunan dari kelas TX, mewarisi fungsi FB, tetapi mendefinisikan kembali fungsi FA. Yang perlu diperhatikan di sini adalah fungsi TX::FB yang memanggil fungsi TY::FA dalam konteks perilaku polimorfisme. Berapakah output dari program ini? Jawabnya adalah 4.5 dan bukan 13.5! Mengapa? Jawabannya adalah karena kompiler memecahkan ungkapan Y.FB(3) dengan menggunakan fungsi warisan TX::B, yang akan memanggil fungsi TX::FA. Oleh karena itu fungsi TY::FA ditinggalkan dan tidak terjadi perilaku polimorfisme. C++ menetapkan persoalan ini dan mendukung perilaku polimorfisme dengan menggunakan fungsi virtual. Fungsi virtual, yang mengikat kode pada saat runtime, dideklarasikan dengan menempatkan kata kunci virtual sebelum tipe hasil fungsi. Untuk program di atas, kode double FA(double p) tulis menjadi virtual double FA(double p) baik di kelas TX maupun yang ada di kelas TY. Dengan perubahan ini maka output dari program di atas menjadi 13.5.

         Fungsi dari adanya polymorpishm adalah untuk mendapatkan metode yang sama dengan perilaku yang berbeda-beda dari class. Hirarki dari class secara abstrak mendefinisikan data utama dan kemampuan tingkah laku dari sebuah keluarga class, sehingga setiap anggota dari keluarga class memiliki kemampuan utama dan semua object dalam keluarga class dapat merespon terhadap metode.

Mekanisme dari polymorpishm ialah :
1. Murni dengan bahasa OOP, smalltalk semua object merupakan bagian yang sama dari hirarki object.
2. C++ sebagai hybrid bahasa OOP, membutuhkan pointer ke supeclass object (sebuah pointer dari superclass dapat menunjuk langsung ke subclass tanpa seleksi).

Metode polymorpishm pada C++ :
1. Superclass mendefinisikan metode yang virtual (polymorpic).
2. Subclass dapat mendefinisikan sendiri versi mereka tentang virtual metodenya.
Virtual metode di deklarasikan superclass dan virtual keywordnya digunakan sebelum mendeklarasikan superclass metodenya.

Contoh :
       { virtual int draw (); // virtual keyword dibutuhkan ;
          Pada definisi yang terpisah virtual keyword tidak digunakan .
Contoh :
        { virtual int draw (); // virtual keyword tidak dibutuhkan ;
           Sekali superclass virtual maka semua subclass menjadi virtual.

       Untuk mendukung polymorpishm C++ menggunakan pointer. Pointer dari superclass dapat digunakan untuk menunjuk subclass tanpa seleksi, hal ini dikarenakan subclass merupakan bagian dari superclass. Sedangkan pointer dari subclass tidak dapat menunjuk langsung ke superclass karena  superclass merupakan supertype dari subtype.

Untuk virtual methode ini dalam C++ ada beberapa aturan antara lain :
1.    Virtual metode dapat dibuat static, karena virtual metode merupakan milik semua object dan tidak dapat menjadi bagian class secra keseluruhan.
2.   Menggunakan virtual keyword pada deklarasi virtual metode, pada superclass harus menggunakan virtual keyword dalam deklarasinya sedangkan subclass dapat menggunakan atau tidak dan virtual keyword tidak digunakan dalam definisi terpisah dari virtual metode.
Makna Dua Kalimat Syahadat

Makna Dua Kalimat Syahadat

Makna Dua Kalimat Syahadat
Penulis: Syaikh Dr. Sholeh bin Fauzan bin Abdullah Al Fauzan
Aqidah, 23 Agustus 2003, 01:17:33
A. Makna Syahadat Laa Ilaaha Illallah
     Yaitu beritikad dan berikrar bahwasanya tidak ada yang berhak disembah dan menerima ibadah kecuali Allah Subhanahu wa Ta’ala, mentaati hal tersebut dan mengamalkannya. La ilaaha menafikan hak penyembahan dari yang selain Allah, siapapun orangnya. Illallah adalah penetapan hak Allah semata untuk disembah.
   
   Jadi kalimat ini secara ijmal (global) adalah, “Tidak ada sesembahan yang hak selain Allah.” Khabar Laa ilaaha illallah harus ditaqdirkan bihaqqin (yang hak), tidak boleh ditaqdirkan dengan maujud (ada). Karena ini menyalahi kenyataan yang ada, sebab Tuhan yang disembah selain Allah banyak sekali. Hal itu akan berarti bahwa menyembah tuhan-tuhan tersebut adalah ibadah pula untuk Allah. Ini tentu kebatilan yang nyata.
Kalaimat laa ilaaha illallah telah ditafsiri dengan beberapa penafsiran yang batil, antara lain:

1. Laa ilaaha illallah artinya:
   “Tidak ada sesembahan kecuali Allah.” Ini adalah batil, karena maknanya: Sesungguhnya setiap yang disembah, baik yang hak maupun yang batil, itu adalah Allah.

2. Laa ilaaha illallah artinya:
   “Tidak ada pencipta selain Allah.” Ini adalah sebagian dari arti kalimat tersebut. Akan tetapi bukan ini yang dimaksud, karena arti hanya mengakui tauhid rububiyah saja, dan itu belum cukup.

3. Laa ilaaha illallah artinya:
   “Tidak ada hakim (penentu hukum) selain Allah.” Ini juga sebagian dari makna kalimat laa ilaaha illallah. Tapi bukan ini yang dimaksud, karena makna tersebut belum cukup.
Semua tafsiran di atas adalah batil atau kurang. Kami peringatkan di sini karena tafsir-tafsir itu ada dalam kitab-kitab yang banyak beredar. Sedangkan tafsir yang benar menurut salaf dan para muhaqqiq (ulama peneliti) Laa ilaaha illallah ma’buuda bihaqqin illallah (tidak ada sesembahan yang hak selain Allah) seperti tersebut di atas.

B. Makna Syahadat Anna Muhammadan Rasuulullah
   Yaitu mengakui secara lahir batin bahwa beliau adalah hamba Allah dan RasulNya yang diutus kepada manusia secara keseluruhan, serta mengamalkan konsekuensinya: mentaati perintahnya, membenarkan ucapannya, menjauhi larangannya, dan tidak menyembah Allah kecuali dengan apa yang disyari’atkan.

Dinukil dari Kitab Tauhid, Dr. Shaleh bin Fauzan bin Abdullah Al-Fauzan)
Aplikasi Perhitungan Sederhana Pisan ..

Aplikasi Perhitungan Sederhana Pisan ..

Posting Lagii Ahh ....

Postingan Kali ini Masih Seputaran Program juga nih, heheh....
program buatan temen saya yang biasa saya panggil taplak.. :P
ok, Program Sederhananya tentang perhitungan Bangun Ruang 
dan Bangun datar, Aplikasi yang ditujukan untuk anak kecil yang malas berhitung .. :D
Nih Aplikasinya sayah langsung kasih sajah .. :D
Namanya, MathNgunTaRang = Matematika Bangun Datar dan Ruang ... hehehhe





Form Master Buku "Perpustakaan Sederhana"



Listingnya Nih, Tapi Jangan Lupa Buat Dulu Database dan Field-Fieldnya sesuai dengan Form yang diatas, dan Nama Object di Formnya juga jangan lupa disesuaikan kawan.


Dim a As ListItem

Sub nomor()
Dim no, oto As String
Adodc1.RecordSource = "select * from buku"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
    oto = "BSI-001"
    Else
    Adodc1.Recordset.MoveLast
    no = Right(Adodc1.Recordset!kd_buku, 3) + 1
    oto = "BSI-" & Right("00" & no, 3)
    End If
    tkode.Text = oto
End Sub

Sub tampil()
With Adodc1.Recordset
tkode.Text = !kd_buku
tjudul.Text = !judul_buku
tpenerbit.Text = !penerbit
tpengarang.Text = !pengarang
cbtahun.Text = !thn_terbit
tjumlah.Text = !jml_buku
End With
End Sub

Private Sub cmdbatal_Click()
nonaktif
bersih
cmdtambah.SetFocus
End Sub

Private Sub cmdbersih_Click()
bersih
End Sub

Private Sub cmdcari_Click()
If opt1.Value = True Then
Adodc1.RecordSource = "select * from buku where kd_buku='" & tcari.Text & "'"
Adodc1.Refresh
    If Adodc1.Recordset.RecordCount = 0 Then
    MsgBox "Data Tidak Ada"
    End If
    tampil
Else
    If opt2.Value = True Then
    Adodc1.RecordSource = "select * from buku where thn_terbit='" & tcari.Text & "'"
    Adodc1.Refresh
    tampil
    If Adodc1.Recordset.RecordCount = 0 Then
    MsgBox "Data Tidak Ada"
    End If
    tampil
Else
MsgBox " Masukan Pilihan Anda Terlebih Dahulu !! "
End If
End If
End Sub

Private Sub cmdedit_Click()
If tkode.Text <> "" Then
    If cmdedit.Caption = "Edit" Then
    aktif
    cmdedit.Caption = "UPDATE"
        Else
            With Adodc1.Recordset
                !kd_buku = tkode.Text
                !judul_buku = tjudul.Text
                !penerbit = tpenerbit.Text
                !pengarang = tpengarang.Text
                !thn_terbit = cbtahun.Text
                !jml_buku = tjumlah.Text
            End With
        bersih
        nonaktif
        cmdedit.Caption = "Edit"
        ListView1.Refresh
    End If
Else
MsgBox "Tidak Ada data Yang Di Edit", vbOKOnly + vbInformation, "Pesan"
End If
End Sub


Private Sub cmdfirst_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdhapus_Click()
i = InputBox("Masukan Berdasarkan Kode Barang : ", "Pencarian Data")
Adodc1.RecordSource = "select * from buku where kd_buku='" & i & "'"
Adodc1.Refresh
tampil
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "Data Tidak Ada"
Else
a = MsgBox("Yakin Data Akan Di Hapus??", vbOKCancel, "Konfirmasi")
If a = vbOK Then
Adodc1.Recordset.Delete
End If
End If
End Sub

Private Sub cmdlast_Click()
On Error Resume Next
Adodc1.Recordset.MoveLast
tampil
End Sub

Private Sub cmdnext_Click()
On Error Resume Next
If Adodc1.Recordset.EOF Then
MsgBox "Anda Berada di Akhir record !!"
Else
Adodc1.Recordset.MoveNext
tampil
End If
End Sub

Private Sub cmdprev_Click()
On Error Resume Next
If Adodc1.Recordset.BOF Then
MsgBox "Anda Berada di Awal record !!"
Else
Adodc1.Recordset.MovePrevious
tampil
End If
End Sub

Private Sub cmdsimpan_Click()
Adodc1.RecordSource = "select * from buku"
Adodc1.Refresh
With Adodc1.Recordset
.AddNew
!kd_buku = tkode.Text
!judul_buku = tjudul.Text
!penerbit = tpenerbit.Text
!pengarang = tpengarang.Text
!thn_terbit = cbtahun.Text
!jml_buku = tjumlah.Text
.Update
End With

For i = 1 To ListView1.ListItems.Count
            Adodc1.RecordSource = "select * from buku where kd_buku =""" & ListView1.ListItems(i) & """"
            Adodc1.Refresh
            If Adodc1.Recordset.RecordCount = 0 Then
                Adodc1.Recordset.AddNew
                Adodc1.Recordset!kd_buku = ListView1.ListItems(i).SubItems(1)
                Adodc1.Recordset!judul_buku = ListView1.ListItems(i).SubItems(2)
                Adodc1.Recordset!penerbit = ListView1.ListItems(i).SubItems(3)
                Adodc1.Recordset!pengarang = ListView1.ListItems(i).SubItems(4)
                Adodc1.Recordset!thn_terbit = ListView1.ListItems(i).SubItems(5)
                Adodc1.Recordset!jml_buku = ListView1.ListItems(i).SubItems(6)
                Adodc1.Recordset.Update
                End If
Next
bersih
End Sub

Private Sub cmdtambah_Click()
aktif
nomor
tkode.SetFocus
End Sub

Private Sub Form_Load()
Dim tahun As Integer

Adodc1.ConnectionString = " Provider =Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path + "\perpuspuspus.mdb"
Adodc1.RecordSource = "select * from buku"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Set a = ListView1.ListItems.Add()
    a.Text = ""
    a.SubItems(1) = Adodc1.Recordset.Fields(0)
    a.SubItems(2) = Adodc1.Recordset!judul_buku
    a.SubItems(3) = Adodc1.Recordset!penerbit
    a.SubItems(4) = Adodc1.Recordset!pengarang
    a.SubItems(5) = Adodc1.Recordset!thn_terbit
    a.SubItems(6) = Adodc1.Recordset!jml_buku
    Adodc1.Recordset.MoveNext
Loop

tahun = 1980
While tahun < 2030
cbtahun.AddItem tahun
tahun = tahun + 1
Wend
nonaktif
End Sub

Sub bersih()
tkode.Text = ""
tjudul.Text = ""
tpenerbit.Text = ""
tpengarang.Text = ""
cbtahun.Text = ""
tjumlah.Text = ""
tcari.Text = ""
opt1.Value = False
opt2.Value = False
End Sub

Sub aktif()
tkode.Enabled = True
tjudul.Enabled = True
tpenerbit.Enabled = True
tpengarang.Enabled = True
cbtahun.Enabled = True
tjumlah.Enabled = True
tcari.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdcari.Enabled = True
cmdhapus.Enabled = True
cmdbersih.Enabled = True
End Sub

Sub nonaktif()
tkode.Enabled = False
tjudul.Enabled = False
tpenerbit.Enabled = False
tpengarang.Enabled = False
cbtahun.Enabled = False
tjumlah.Enabled = False
tcari.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdcari.Enabled = False
cmdhapus.Enabled = False
cmdbersih.Enabled = False
End Sub

Private Sub Image1_Click()
Image1.BorderStyle = 1
y = MsgBox("Yakin Akan Keluar ?? ", vbYesNo + vbQuestion, "Perpustakaan")
If y = vbYes Then
End
Else
Image1.BorderStyle = 0
End If
End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Date, "long date")
Label9.Caption = Time
End Sub

Private Sub Timer2_Timer()
Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Form Petugas "Perpustakaan Sederhana"


Listingnya Nih, Tapi Jangan Lupa Buat Dulu Database dan Field-Fieldnya sesuai dengan Form yang diatas, dan Nama Object di Formnya juga jangan lupa disesuaikan kawan.



Sub aktif()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Enabled = True
Next
End Sub

Sub bersih()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Text = ""
If TypeOf h Is ComboBox Then h.Text = ""
Next
End Sub

Sub non()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Enabled = False
Next
End Sub

Sub tampil()
With Adodc1.Recordset
        tkd_petugas = !kd_petugas
        tnm_petugas = !nm_petugas
End With
End Sub

Private Sub ccancel_Click()
h = MsgBox("Batalkan?", vbYesNo + vbQuestion, "Perpustakaan Bhendy | Konfirmasi")
If h = vbYes Then
   bersih
End If
End Sub

Private Sub cclose_Click()
h = MsgBox("Quit this application??", vbYesNo + vbQuestion, " Perpustakaan Bhendy | Konfirmasi ")
If h = vbYes Then
   Unload Me
End If
End Sub

Private Sub cdelete_Click()
If tkd_petugas.Text = "" Or tnm_petugas.Text = "" Then
MsgBox "Masukan Data yang Akan Di Hapus Terlebih Dahulu !!"
Else
h = MsgBox("Hapus Data Petugas??", vbYesNo + vbQuestion, " Perpustakaan Bhendy | Konfirmasi ")
If h = vbYes Then
   Adodc1.Recordset.Delete
   MsgBox "Data Telah Dihapus!!!", vbOKOnly + vbInformation, " Perpustakaan Bhendy | Informasi"
   bersih
End If
End If
End Sub

Private Sub cedit_Click()
If tkd_petugas <> "" Then
    If cedit.Caption = "&EDIT" Then
    aktif
    cedit.Caption = "UPDATE"
        Else
            With Adodc1.Recordset
                !kd_petugas = tkd_petugas
                !nm_petugas = tnm_petugas
                .Update
            End With
        bersih
        cedit.Caption = "&EDIT"
    End If
Else
MsgBox "Tidak Ada data Yang Di Edit", vbOKOnly + vbInformation, " Perpustakaan Bhendy | Informasi"
End If
End Sub

Private Sub cfirst_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
tampil
End Sub

Private Sub clast_Click()
On Error Resume Next
Adodc1.Recordset.MoveLast
tampil
End Sub

Private Sub cnew_Click()
aktif
bersih
tkd_petugas.SetFocus
End Sub

Private Sub cnext_Click()
On Error Resume Next
If Adodc1.Recordset.EOF Then
MsgBox " Anda Berada di Akhir Record !!"
Else
Adodc1.Recordset.MoveNext
tampil
End If
End Sub

Private Sub cprev_Click()
On Error Resume Next
If Adodc1.Recordset.BOF Then
   MsgBox "Anda Berada Di Awal Record !!"
Else
   Adodc1.Recordset.MovePrevious
   tampil
End If
End Sub

Private Sub csave_Click()
Adodc1.RecordSource = "select * from tblpetugas"
Adodc1.Refresh
If tkd_petugas.Text = "" Or tnm_petugas.Text = "" Then
   MsgBox "Data Belum Lengkap!!!", vbOKOnly + vbCritical, " Perpustakaan Bhendy | Informasi"
Else
   With Adodc1.Recordset
        .AddNew
        !kd_petugas = tkd_petugas.Text
        !nm_petugas = tnm_petugas
        .Update
        MsgBox "Data Sudah Disimpan!!!", vbOKOnly + vbInformation, " Perpustakaan Bhendy | Informasi"
        bersih
        non
   End With
   DataGrid1.Refresh
End If
End Sub

Private Sub DataGrid1_Click()
tampil
End Sub

Private Sub Form_Load()
bersih
non

Adodc1.Visible = False
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data source = " & App.Path & "\perpustakaan.mdb"
Adodc1.RecordSource = "select * from tblpetugas"
Adodc1.Refresh
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) & Left(Label1.Caption, 1)
End Sub

Private Sub tkd_petugas_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii))) ‘Huruf Kapital
If KeyAscii = 13 Then
   Adodc1.RecordSource = "select * from tblpetugas where kd_petugas = '" & tkd_petugas.Text & "'"
   Adodc1.Refresh
   If Adodc1.Recordset.EOF = False Then
           MsgBox "Kode sudah ada"
           bersih
           tkd_petugas.SetFocus
   Else
           tkd_petugas.Enabled = False
           tnm_petugas.SetFocus
   End If
End If
End Sub

Form Anggota "Perpustakaan Sederhana"



Listingnya Nih, Tapi Jangan Lupa Buat Dulu Database dan Field-Fieldnya sesuai dengan Form yang diatas, dan Nama Object di Formnya juga jangan lupa disesuaikan kawan.


Private Sub cfirst_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
End Sub

Private Sub clast_Click()
On Error Resume Next
Adodc1.Recordset.MoveLast
End Sub

Private Sub cmdadd_Click()
aktif
bersih
nomat
tnama.SetFocus
End Sub

Sub nomat()
Dim no, oto As String
Adodc1.RecordSource = "select * from tblanggota"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
    oto = "AA001"
    Else
        Adodc1.Recordset.MoveLast
        no = Right(Adodc1.Recordset.Fields(0), 3) + 1
        oto = "AA" & Right("00" & no, 3)
    End If
tkode = oto
End Sub

Private Sub cmdcancel_Click()
non
bersih
cmdexit.Enabled = True
cmdadd.Enabled = True
cfirst.Enabled = True
cprev.Enabled = True
cnext.Enabled = True
clast.Enabled = True
cmdedit.Caption = "EDIT"
End Sub

Private Sub cmdclean_Click()
bersih
Combo1.Text = ""
End Sub

Private Sub cmddelete_Click()
i = InputBox("Masukan Kode Buku :", "Perpustakan")
Adodc1.RecordSource = " Select * from tblanggota where kd_anggota= '" & i & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
    tampil
    h = MsgBox("Hapus Data Ini ??", vbYesNo + vbQuestion, "Perpustakaan")
    If h = vbYes Then
        Adodc1.Recordset.Delete
        bersih
    End If
Else
MsgBox "Data Tidak Ditemukan"
End If
End Sub

Private Sub cmdedit_Click()
If tkode <> "" Then
    If cmdedit.Caption = "EDIT" Then
    aktif
    cmdedit.Caption = "UPDATE"
        Else
            With Adodc1.Recordset
                 .Fields(0) = tkode
                 .Fields(1) = tnama
                 .Fields(2) = tnim
                 .Fields(3) = Combo1
                 If opt1.Value = True Then .Fields(4) = "L"
                 If opt2.Value = True Then .Fields(4) = "P"
                 .Fields(5) = talamat
                 .Fields(6) = DTPicker1.Value
                 .Fields(7) = ttelp
            End With
        bersih
        cmdedit.Caption = "EDIT"
    End If
Else
MsgBox "Tidak Ada data Yang Di Edit", vbOKOnly + vbInformation, "Pesan"
End If
End Sub

Sub tampil()
With Adodc1.Recordset
     tkode = .Fields(0)
     tnama = .Fields(1)
     tnim = .Fields(2)
     Combo1 = .Fields(3)
     If .Fields(4) = L Then opt1.Value = True
     If .Fields(4) = P Then opt2.Value = True
     talamat = .Fields(5)
     DTPicker1.Value = .Fields(6)
     ttelp = .Fields(7)
End With
End Sub

Private Sub cmdexit_Click()
h = MsgBox("Yakin Akan Keluar ???", vbYesNo + vbQuestion, "Perpustakaan")
If h = vbYes Then
    Unload Me
End If
End Sub

Private Sub cmdsave_Click()
Adodc1.RecordSource = " Select * From tblanggota"
Adodc1.Refresh
With Adodc1.Recordset
    .AddNew
    .Fields(0) = tkode
    .Fields(1) = tnama
    .Fields(2) = tnim
    .Fields(3) = Combo1
    If opt1.Value = True Then .Fields(4) = "L"
    If opt2.Value = True Then .Fields(4) = "P"
    .Fields(5) = talamat
    .Fields(6) = DTPicker1.Value
    .Fields(7) = ttelp
    .Update
End With
bersih
MsgBox "Data Berhasil Disimpan !!!!"
End Sub

Private Sub cnext_Click()
On Error Resume Next
If Adodc1.Recordset.EOF Then
    MsgBox "Anda Berada di Akhir Record"
    Else
        Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub cprev_Click()
On Error Resume Next
If Adodc1.Recordset.BOF Then
    MsgBox "Anda Berada di Awal Record !!"
    Else
        Adodc1.Recordset.MovePrevious
End If
End Sub

Private Sub Form_Load()
Adodc1.Visible = False
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data source = " & App.Path & "\perpustakaan.mdb"
Adodc1.RecordSource = "select * from tblanggota"
Adodc1.Refresh

non
bersih
cmdadd.Enabled = True
cmdexit.Enabled = True
cfirst.Enabled = True
cprev.Enabled = True
cnext.Enabled = True
clast.Enabled = True
End Sub

Private Sub tcari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc1.RecordSource = "select * from tblanggota where kd_anggota='" & tcari & "'"
Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
       tampil
    End If
End If
End Sub

Private Sub Timer1_Timer()
cmdexit.Caption = Right(cmdexit.Caption, Len(cmdexit.Caption) - 1) & Left(cmdexit.Caption, 1)
t.Caption = Right(t.Caption, Len(t.Caption) - 1) & Left(t.Caption, 1)
End Sub

Sub bersih()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Text = ""
If TypeOf h Is OptionButton Then h.Value = False
Next h
End Sub

Sub aktif()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Enabled = True
If TypeOf h Is OptionButton Then h.Enabled = True
If TypeOf h Is DTPicker Then h.Enabled = True
If TypeOf h Is CommandButton Then h.Enabled = True
Next h
End Sub

Sub non()
Dim h As Control
For Each h In Me
If TypeOf h Is TextBox Then h.Enabled = False
If TypeOf h Is OptionButton Then h.Enabled = False
If TypeOf h Is DTPicker Then h.Enabled = False
If TypeOf h Is CommandButton Then h.Enabled = False
Next h
End Sub

Private Sub Timer2_Timer()
t.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub