Install Software Data Dynamic active Report

Langkah–langkah instalasi Data Dynamic active Report

1.instalasi Data Dynamic active Report ini sangatlah mudah yaitu : buka folder yang mengandung software Datal Dynamic Active Report lalu klik ganda fille Active Report tersebut :

2. Selanjutnya tahap pertama instalasi dimulai dan akan muncul gambar seperti dibawah ini  lalu klik Next jika ingin melanjutkan tahap berikutnya Cancel Jika ingin membatalkan :

3.  Tahap berikutnya adalah persetujuan lisensi dan jika setuju klik accept   Klik Don’t Accept /Cancel  Jika tidak setuju.

      

4.  Kemudian tahap berikutnya menempatkan file hasil instalasi ke satu folder tujuan klik Next  Jika lokasi file setuju dengan yang ditawarkan  klik Browse Jika  kita ingin menentukan lokasi yang berbeda selanjutnya klik Next

5. berikutnya adalah tahap pemilihan file-file yang disertakan klik tanda Check jika ingin diikutkan atau buang tanda Check Jika tidak ingin diikutkan.

 

6. Selanjutnya menamakan ke program group jika tidak diganti klik next, jika akan mengganti ketikan namanya.

 

7. Tahap terakhir siap untuk instalasi klik tombol Install  jika ingin menyelesaikan instalasi, Cancel Jika ingin membatalkan, Back Jika ingin kembali ke tahapan sebelumnya

SELAMAT MENCOBA .......SEMOGA BERMANFAAT BAGI ANDA..

Source Code Aplikasi Peraturan Perundangan Bidang Kehutanan dengan Visual Basic

Source Code Aplikasi Peraturan Perundangan Bidang Kehutanan dengan Visual Basic

Aplikasi Perpu Bidang Kehutanan
Aplikasi ini di tujukan untuk User yang ingin yang membutuhkan Peraturan Perundang-undangan bidang kehutanan dan juga para  Programmer  pemula yang membutuhkan Source codenya baik hanya di pelajari triknya ataupun untuk mengembangkan sistem ini.

Kegunaan dari Aplikasi ini adalah melakukan proses pencarian berdasarkan kriteria yang kita tentukan misalnya pencarian batasan tahun, Mulai tahun 1945 s/d Tahun 2008, pencarian berdasarkan Nomor dsb.  

Cakupan Peraturan Perundang-undangan bidang kehutanan  antara lain  Perpu, Perpres/Kepres, Permenhut, Dirjen, Ka Baplan, Balitbang, Irjen, SekJen, Perda, Perlain  mulai tahun 1945 s/d tahun 2008.

Menggunakan Aplikasi 
Pertama kali aplikasi di jalankan tampilan awal seperti gambar dibawah ini :

Isikan Kolom Nomor  Jika diinginkan, Mulai Tahun dan S/d Tahun,  ataupun isikan Tentang berupa Kata/Kalimat mengenai Perpu Jika di inginkan, Lalu klik Tombol Cari, Untuk proses Pencarian,
Hasil pencarian akan muncul pada tabel  form.
Hasil Pencarian juga bisa di saring lagi  sesuai kebutuhan dengan mengklik tombol di sisi kiri aplikasi misalnya
Perpu, Perpres/Kepres, Permenhut, Dirjen, Ka Baplan, Balitbang, Irjen, SekJen, Perda, Perlain.
Setelah semua pencarian selesai di lakukan, kita bisa tampilkan salah satu peraturan dengan mendoble click pada daftar hasil,  misalnya ingin menampilkan UU No 8 tahun 1974, Tentang Pokok-pokok Kepegawaian, Setelah di klik ganda maka hasil  muncul seperti gambar dibawah ini :

Source Code 
Source dan Aplikasi lengkap bisa di download di  alamat tautan ini :
http://www.4shared.com/file/146715912/cb7b0d4b/SourceCodeVBPerpuKehutanan.html

Sepenggal Source Code VB :

Dim db As New ADODB.Connection
Dim RS As New ADODB.Recordset
Public nilaitombolnya As Integer
 Sub TENGAH()
MSHFlexGrid1.ColAlignmentFixed(0) = 4
MSHFlexGrid1.ColAlignmentFixed(1) = 4
 End Sub


Sub WARNA()
 On Error Resume Next
For X = 1 To RS.RecordCount

If RS!Status = 0 Then
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Row = X
    MSHFlexGrid1.CellForeColor = &HFF&
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Row = X
    MSHFlexGrid1.CellForeColor = &HFF&
Else
    'MSHFlexGrid1.Row = X
    MSHFlexGrid1.ForeColor = &H0&

End If
RS.MoveNext
 Next
 End Sub


Sub tombol3()
    nilaiTombol = 2
    VniliTombol.Text = nilaiTombol
   Command11.BackColor = &HC0C000
    Command1.BackColor = &HC0C000
    Command13.BackColor = &HC0C000
    Command14.BackColor = &HC0C000
    
End Sub
Private Sub AresButton1_MouseClick()
If Not VnilaiTombol.Text = 0 Then
 nilaitombolnya = 1
  FormTambah.Show
Else
 MsgBox "..Pilih salah satu jenis Peraturan dahulu"
End If
End Sub
Private Sub AresButton2_MouseClick()
On Error GoTo salah
MSHFlexGrid1.Col = 4
vNAMAFILE.Text = App.Path & "\DOC\" + Trim(MSHFlexGrid1.Text) + ""
'Print App.Path & vNAMAFILE.Text
OLE1.CreateLink (vNAMAFILE.Text)
OLE1.DoVerb
Exit Sub
salah:
MsgBox "FILE TIDAK / BELUM  ADA "
End Sub
Private Sub CmdMasuk_Click()
 Select Case VnilaiTombol.Text
'-------------------------------------- KALO NILAI TOMBOLNYA 0
 Case 0
    Set RS = Nothing
    gabung = Tentang.Text & bintang
    If Not Len(NomorUU.Text) = 0 Then
         RS.Open "SELECT * FROM Tbl_UU WHERE nomorUU=" + NomorUU.Text + " and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
        Set MSHFlexGrid1.DataSource = RS
        Call WARNA
        If Not RS.RecordCount = 0 Then
            Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
        Else
            Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
        End If
     Else
         RS.Open "SELECT * FROM Tbl_UU WHERE tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
         Set MSHFlexGrid1.DataSource = RS
         Call WARNA
         If Not RS.RecordCount = 0 Then
             Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
         Else
             Label6.Caption = "..Pencarian Tidak ditemukan.."
         End If
     End If
If Not Len(Tentang.Text) = 0 Then
Set RS = Nothing
gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
 Set RS = Nothing
 If Not Len(Tentang.Text) = 0 And Not Len(NomorUU.Text) = 0 Then
    gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " and nomoruu=" + NomorUU.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
Private Sub Command13_Click()
 Call tombol13
    Set RS = Nothing
    gabung = Tentang.Text & bintang
    If Not Len(NomorUU.Text) = 0 Then
        RS.Open "SELECT * FROM Tbl_UU WHERE Nomor=12 and nomorUU=" + NomorUU.Text + " and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
        Set MSHFlexGrid1.DataSource = RS
        Call WARNA
        If Not RS.RecordCount = 0 Then
            Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
        Else
            Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
        End If
     Else
         RS.Open "SELECT * FROM Tbl_UU WHERE Nomor=12 and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
         Set MSHFlexGrid1.DataSource = RS
         Call WARNA
         If Not RS.RecordCount = 0 Then
             Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
         Else
             Label6.Caption = "..Pencarian Tidak ditemukan.."
         End If
     End If
If Not Len(Tentang.Text) = 0 Then
Set RS = Nothing
gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " and nomor=12 ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
 Set RS = Nothing
 If Not Len(Tentang.Text) = 0 And Not Len(NomorUU.Text) = 0 Then
    gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " and nomor=12 and nomoruu=" + NomorUU.Text + " ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
Call TENGAH
End Sub
Private Sub mshflexgrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
End Sub
Private Sub CommandButton1_Click()
    Call tombol2
Set RS = Nothing
    gabung = Tentang.Text & bintang
    If Not Len(NomorUU.Text) = 0 Then
        RS.Open "SELECT * FROM Tbl_UU WHERE NOMOR =1 and nomorUU=" + NomorUU.Text + " and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT DESC", db, adOpenStatic, adLockOptimistic
        Set MSHFlexGrid1.DataSource = RS
        Call WARNA
        If Not RS.RecordCount = 0 Then
            Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
        Else
            Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
        End If
     Else
         RS.Open "SELECT * FROM Tbl_UU WHERE NOMOR=1 and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " ORDER BY NOMOR,NO_URUT DESC", db, adOpenStatic, adLockOptimistic
         Set MSHFlexGrid1.DataSource = RS
         Call WARNA
         If Not RS.RecordCount = 0 Then
             Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
         Else
             Label6.Caption = "..Pencarian Tidak ditemukan.."
         End If
     End If
If Not Len(Tentang.Text) = 0 Then
Set RS = Nothing
gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " and NOMOR =1 ORDER BY NOMOR,NO_URUT", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
 Set RS = Nothing
 If Not Len(Tentang.Text) = 0 And Not Len(NomorUU.Text) = 0 Then
    gabung = Trim("%") & Tentang.Text & Trim("%")
    RS.Open "SELECT * FROM Tbl_UU where tentang like  '" + gabung + "' and tahun between " + TAHUN.Text + " and " + TahunSD.Text + " and NOMOR=1 and nomoruu=" + NomorUU.Text + "ORDER BY NOMOR,NO_URUT", db, adOpenStatic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = RS
    Call WARNA
    If Not RS.RecordCount = 0 Then
        Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
    Else
        Label6.Caption = "Tidak ditemukan Peraturan Undang-Undang "
    End If
 End If
Call TENGAH
End Sub
Private Sub Form_GotFocus()
'Select Case nilaikini
    MsgBox "DODOL"
End Sub
Private Sub Hapus_MouseClick()
'On Error Resume Next
X = MsgBox("Yakin akan hapus Data " + MSHFlexGrid1.Text + " ini..?", vbYesNo + vbQuestion, "Konfirmasi")
If X = vbYes Then
 Form2.Show
        Select Case VnilaiTombol.Text
        Case 0
         DEL1 = "delete * from Tbl_UU where  TENTANG='" + Trim(Form2.Tentang.Text) + "'"
         db.Execute DEL1
         MsgBox "Sukses.."
     Set RS = Nothing
        RS.Open "SELECT * FROM Tbl_UU ORDER BY NOMOR,NO_URUT DESC", db, adOpenStatic, adLockOptimistic
        RS.Requery
        Set MSHFlexGrid1.DataSource = RS
        MSHFlexGrid1.Refresh
         Call WARNA
        Case Else
         del2 = "delete * from Tbl_UU where  TENTANG='" + Form2.Tentang.Text + "' AND NOMOR=" + VnilaiTombol.Text + ""
         db.Execute del2
         Unload Form2
         MsgBox "Sukses.."
        Set RS = Nothing
        RS.Open "SELECT * FROM Tbl_UU where Nomor=" + VnilaiTombol.Text + " ORDER BY NOMOR,NO_URUT DESC", db, adOpenStatic, adLockOptimistic
        RS.Requery
        Set MSHFlexGrid1.DataSource = RS
          Call WARNA
         End Select
           Unload Form2
 End If
End Sub
Private Sub Image5_Click()
End Sub
Private Sub Image6_Click()
End Sub
Private Sub MSHFlexGrid1_Click()
JENIS.Text = MSHFlexGrid1.Text
End Sub
Private Sub MSHFlexGrid1_DblClick()
On Error GoTo salah
MSHFlexGrid1.Col = 4
vNAMAFILE.Text = App.Path & "\DOC\" + Trim(MSHFlexGrid1.Text) + ""
'Print App.Path & vNAMAFILE.Text
OLE1.CreateLink (vNAMAFILE.Text)
OLE1.DoVerb
Exit Sub
salah:
X = MsgBox(" TIDAK / BELUM  ADA FILE DOKUMEN", vbOKOnly + vbInformation, "INFORMASI")
End Sub
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSHFlexGrid1.ToolTipText = MSHFlexGrid1.Text
End Sub
Private Sub mshflexgrid1_Validate(Cancel As Boolean)
Call WARNA
End Sub
Private Sub Form_Activate()
 Call TENGAH
MSHFlexGrid1.RowHeight(0) = 500
MSHFlexGrid1.ColWidth(0) = 4100
MSHFlexGrid1.ColWidth(1) = 10000
MSHFlexGrid1.ColWidth(2) = 20
MSHFlexGrid1.ColWidth(3) = 20
MSHFlexGrid1.ColWidth(4) = 20
MSHFlexGrid1.ColWidth(5) = 20
MSHFlexGrid1.ColWidth(6) = 20
MSHFlexGrid1.ColWidth(7) = 20
MSHFlexGrid1.ColWidth(8) = 20
MSHFlexGrid1.ColWidth(9) = 20
MSHFlexGrid1.ColWidth(10) = 20
MSHFlexGrid1.ColWidth(11) = 20
MSHFlexGrid1.ColWidth(12) = 20
MSHFlexGrid1.ColWidth(13) = 20
    Dim X, Y As Integer
    For X = 1945 To 2008
       TAHUN.AddItem X
    Next
    For Y = 2008 To 1945 Step -1
       TahunSD.AddItem Y
    Next
  TahunSD.Text = 2008
    TAHUN.Text = 1945
Select Case VnilaiTombol.Text
    Case 0
    Command1_Click
    Case 1
    Command2.SetFocus
    Command2_Click
   Case 2
    Command3.SetFocus
    Command3_Click
    Command3_Click
    Case 3
    Command4.SetFocus
    Command4_Click
    Command4_Click
    Case 4
    Command5.SetFocus
    Command5_Click
    Command5_Click
   Case 5
    Command6.SetFocus
    Command6_Click
    Command6_Click
    Case 6
    Command7.SetFocus
    Command7_Click
    Command7_Click
    Case 7
    Command8.SetFocus
    Command8_Click
    Command8_Click
    Case 8
    Command9.SetFocus
    Command9_Click
    Command9_Click
    Case 10
    Command11.SetFocus
    Command11_Click
    Command11_Click
    Case 11
    Command12.SetFocus
    Command12_Click
    Command12_Click
   Case 12
    Command13.SetFocus
    Command13_Click
    Case 13
    Command14.SetFocus
    Command14_Click
    Command14_Click
End Select
 End Sub
Private Sub Form_Load()
On Error Resume Next
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\dbkehutanan.mdb" + ";Persist Security Info=false;"
db.CursorLocation = adUseClient
RS.Open "SELECT * FROM Tbl_UU ORDER BY ORDER BY NOMOR,NO_URUT dESC", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = RS
For X = 1 To RS.RecordCount
If RS!Status = 0 Then
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Row = X
    MSHFlexGrid1.CellForeColor = &HFF&
    MSHFlexGrid1.Col = 1
    MSHFlexGrid1.Row = X
    MSHFlexGrid1.CellForeColor = &HFF&
Else
     MSHFlexGrid1.ForeColor = &H0&

End If
RS.MoveNext
Next
VnilaiTombol.Text = 0
   Label6.Caption = "Ditemukan " & RS.RecordCount & " Peraturan Undang-Undang"
nilaikini = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set db = Nothing
Set RS = Nothing
End Sub
Private Sub Keluar_MouseClick()
    Unload Me
End Sub
Private Sub NomorUU_KeyPress(KeyAscii As MSForms.ReturnInteger)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or _
            KeyAscii = 8 Or _
            KeyAscii = 44) Then KeyAscii = 0
    If KeyAscii = 44 And llKoma Then KeyAscii = 0
End Sub
Private Sub NomorUU_LostFocus()
    NomorUU.Text = Trim(NomorUU.Text)
End Sub
Private Sub Tentang_LostFocus()
    Tentang.Text = Trim(Tentang.Text)
End Sub
Private Sub Text1_GotFocus()
If nilaikini = True Then
    MsgBox "TEXT"
End If
End Sub
Private Sub TmbEdit_MouseClick()
If Not VnilaiTombol.Text = 0 Then
 nilaitombolnya = 2
 FormEDIT.Show
Else
 MsgBox "..Pilih salah satu jenis Peraturan dahulu"
End If
End Sub

Cara membunuh Autor

Tips Ampuh Cara Mudah Mematikan Autor

Bagai pisau bermata dua serasi sekali dengan peribahasa senjata makan tuan. Sesuatu yang kita anggap bermanfaat kadang sekaligus dapat mengundang bahaya buat kita. Jika dihadapkan permasalahan seperti ini sebaiknya harus dipertimbangkan secara matang, apa yang harus kita lakukan? Tetap mempertahankan hal tersebut ada dengan mengandung bahaya atau meninggalkan saja meski akhirnya kita tidak memperoleh apa-apa. Kalau saya boleh berpendapat, saya akan meninggalkan sesuatu yang membawa bahaya lebih besar daripada manfaatnya.

Di dunia komputer pun demikian. Autorun di windows XP atau windows 7 kadang menjadi pisau bermata dua. Di satu sisi autorun mempermudah kita untuk membuat otomatisasi program berjalan seperti saat kita memasukkan CD atau flashdisk. Tetapi disisi lain bahaya besar yang membonceng dari otomatisasi ini seperti infeksi virus komputer tentu akan sangat merugikan. Tentu kita tidak mau repot-repot instal ulang komputer lagi kan?

Inilah tips ampuh cara mudah mematikan autorun.

1. Klik menu Start
2. Ketik GPEDIT.MSC pada kolom RUN
3. Setelah muncul layar Group Policy klik folder System pada menu “User Configuration” dan “Computer Configuration”
4. Pada kolom Settings, klik dua kali “Turn off Autoplay”Interface Group Policy “User Configuration” Interface Group Policy “Computer Configuration”
5. Setelah muncul layar “Turn off Autoplay” properties, klik
   tabulasi Settings dan pilih opsi “Enable” pada menu “Turn off
   Autoplay” kemudian Pilih “All Drive” pada kolom “Turn off Autoplay on”
6. Kemudian klik tombol “OK”
7. Klik “Close” untuk keluar dari layar “Group Policy”
8. Restart komputer

Demikianlah Tips Trik Komputer tentang Tips Ampuh Cara Mudah Mematikan Autorun semoga membantu Anda. Terimakasih atas kunjungan Anda, semoga menjadikan belajar komputer online kita bermanfaat

Cara Menginstall Windows XP

“Hari gini masih windows XP?!” Eit, jangan salah! yang penting rasanya bung hehehe

Begitu kelakar seorang teman yang masih menggunakan windows XP, padahal dia memiliki spesifikasi komputer yang suport untuk menggunakan OS seperti windows 7. Emang kalo orang udah sama-sama cocok tidak mudah untuk dipisahkan hehehe lho kok ngelantur?

Windows XP merupakan produk microsoft yang masih banyak digunakan meski telah lahir saudaranya Windows 7 dan Windows 8 yang menawarkan banyak kemudahan dan tampilan yang sangat memukau, tetapi pemakai windows XP masih enggan beralih menggunakan OS terbaru buatan microsoft. Windows XP selain masih kompatible dengan beragram program dan game juga tidak membutuhkan spesifikasi hardware komputer yang tinggi. Bahkan, windows XP sudah bisa dijalankan melalui komputer Pentium II 400 Mhz, meski harus bergerak seperti kura-kura (gak pake ninja hehehe)

Nah, bagaimanakah cara instal windows XP? Inilah tips komputer lengkap cara instal windows XP beserta gambar.

1. Siapkan CD Installer Windows XP lengkap dengan serial numbernya
2. Hidupkan komputer dan masukkan ke CDROM/DVDROM
3. Masuklah ke dalam BIOS komputer dengan cara tekan tombol DEL atau F2 sesaat setelah tombol power Anda tekan

4. Setelah masuk BIOS aturlah agar komputer booting melalui CDROM/DVDROM melaui Menu Boot kemudian pilih item Boot Device Priority.

5. Rubah 1st Boot Device untuk boot melalui CDROM dengan menekan tombol + atau - di keyboard. Kemudian simpan dengan menekan F10, kemudian restart komputer Anda 6. Saat Anda diminta menekan sembarang tombol, PRESS ANY KEY TO BOOT FROM CD… tekan sembarang tombol sesegera mungkin 7. Tunggu prosesnya sebentar setelah itu tekan Enter untuk lanjut pada proses instalasi windows XP, bukan R karena untuk reparasi windows menggunakan Recovery Consule atau F3 untuk mengakhiri proses instal 8. Muncul Lisencing Agreement tekan F8 untuk lanjut 9. Jika hardisk belum di partisi seperti gambar dibawah ini, tekan C untuk membuat partisi baru pada harddisk 10. Masukan kapasitas partisi yang ingin dibuat dalam satuan megabytes(MB) dan tekan Enter untuk membuat partisinya

11. Kemudian tekan tombol Enter untuk melanjutkan proses instalasi windows XP atau Delete untuk menghapus partisi.

12. Pilih saja NTFS file system (Quick) lalu tekan Enter

 

13. Tunggu sampai selesai prosesnya sampai komputer restart kembali sehingga muncul gambar berikut ini  

14. Saat muncul layar berikut klik Next

15. Isikan Nama dan Organisasi terserah Anda kemudian tekan Next

 

16. Isilah Product Key atau Serial Number dari type windows Anda setelah yakin benar tekan Next lagi

17. Tunggu prosesnya selesai sampai muncul isian nama komputer dan password. Anda wajib mengisi nama komputer, tetapi password diabaikan saja, kemudian tekan Next

 

18. Aturlah Set Time Zone pada posisi (GMT+07:00) klik Next

19. Pilih Typical settings untuk opsi jaringan default windows atau Custom settings untuk mengatur jaringan kamu secara manual lalu klik Next.

20. Bila komputer terhubung LAN dengan domain tertentu pilih opsi Yes, lalu isi nama DOMAIN yang sama dengan DOMAIN LAN dan sebaliknya jika tidak terhubung LAN atau terhubung LAN tapi tanpa DOMAIN pilih opsi No kemudian tekan Next

 

21. Selanjutnya klik Ok, Next, Skip dan Finish 22.  Selamat Instalasi Anda sukses, sekarang Anda tinggal instal driver hardware Anda yang tidak plug and play dengan driver default windows XP

1. Sebelumnya kamu membutuhkan CD master Windows XP terlebih dahulu kemudian masukan di CDROM/DVDROM kamu. Lalu restart komputer kamu, kemudian nampak tampilan seperti gambar lalu tekan tombol Delete pada keybord agar kamu dapat masuk di BIOS(Basic Input Output System) komputer. Pada beberapa jenis Mainboard harus menekan tombol F2 pada keyboard. Kamu dapat melihatnya pada perintah Press DEL to run Setup.

2. Lalu kamu akan berada dalam BIOS kemudian pilih Boot pada menu dan pilih item Boot Device Priority seperti pada gambar.

3. Setelah itu Kamu merubah [CDROM] pada posisi 1st Boot Device untuk boot melalui CDROM dengan menggunakan tombol +- di keyboard.Lalu tekan F10 untuk menyimpan konfigurasi kamu.

4. Restart komputer tunggu hingga muncul tulisan seperti pada gambar lalu tekan sembarang tombol dengan cepat.
5. Setelah pada tampilan berikut tekan Enter untuk lanjut pada proses instal atau R untuk melakukan reparasi Windows di Recovery Consule atau F3 untuk mengakhiri proses instal.
6. Lanjut pada Lisencing Agreement tekan F8 untuk lanjut dan ESC untuk batalkan proses.

7. Pada gambar posisi partisi belum terisi oleh sistem windows.Tekan C untuk membuat partisi baru pada harddisk dan Enter untuk menginstal.

8. Lalu masukan berapa besar kapasitas partisi yang ingin kamu buat dalam satuan megabytes(MB) dan tekan Enter untuk membuat partisinya seperti terlihat pada gambar.
   
9. Kemudian tekan Enter untuk melakukan proses instal atau Delete untuk menghapus partisi.

10. Dan pilih NTFS file system (Quick) atau FAT file system (Quick) lalu tekan Enter.

11. Bila proses instalasi langkah 1 ? 10 benar maka akan tampil seperti gambar.

12. Setelah itu kamu sampai pada layar berikut klik Next.

13. Lalu isikan dengan Nama dan Organisasi Kamu kemudian tekan Next.

14. Disini Kamu akan mengisikan Produk Key atau Serial Number dari type windows Kamu tekan Next lagi.

15. Isikan nama komputer dan password untuk mengaksesnya lalu tekan Next.

16. Set Time Zone pada posisi (GMT+80:00) klik Next.

17. Typical settings: Pada option ini settingan jaringan akan dibuat default windows dan Custom settings: Untuk mensetting jaringan kamu secara manual lalu klik Next.

18. Bila Kamu terhubung kejaringan local dengan domain pilih option Yes, lalu isi dengan nama DOMAIN yang sama dengan DOMAIN jaringan Kamu dan sebaliknya jika tidak terhubung kejaringan atau terhubung tapi tanpa DOMAIN pilih option No, sekali lagi tekan Next.

19. Selanjutnya Kamutinggal mengklik Ok,Next,Skip dan Finish juga diminta mengisikan nama kamu. hingga Kamu berada pada tampilan Dekstop Windows seperti ini. Sekarang Kamu tinggal menginstal driver hardware CPU Kamu.

Demikianlah Tips Trik Komputer tentang Tips Lengkap Cara Instal windows XP Beserta Gambar semoga membantu Anda. Terimakasih atas kunjungan Anda, semoga menjadikan belajar komputer online kita bermanfaat

Cinta Terakhirkah ini


Setiap malam aku termenung...
beranggan, berkhayal, dan bermimpi
itu yang sering aku lakukan

Cara Mengembalikan Data Yang Telah Hilang

Jika data Anda yang hilang di drive C:, sebaiknya install di komputer atau sistem operasi lain. Jika data yang hilang di drive selain C:, Anda bisa menginstall software ini di mana saja di komputer yang sama, asalkan tidak berada salam satu drive dengan data yang hilang tadi.

Software ini menyediakan sebuah solusi yang sangat komplit sehubungan dengan data yang hilang atau urusan recovery data yang hilang karena:

1. Virus.
2. Sektor yang tidak terbaca
3. Kesalahan aplikasi, system, atau shut down yang tidak normal.
4. Kerusakan pada critical area.
5. Ter-format
6. Penyebab lain yang memungkinkan hilangnya data.

Software ini di-install pada Windows 98 SE, Me, 2000, or XP, dan dapat me-recover data untuk pada semua sistem windows. Software ini memiliki empat feature utama, yaitu:

1. Disk Diagnostics, yaitu tool untuk mengecek kondisi hardisk Anda apakah masih bagus atau tidak.
2. Data Recovery, yaitu tool untuk mengembalikan data / file karena terhapus, terformat, dan sebagainya.
3. Email Repair, yaitu tool untuk mengembalikan data email Outlook Express yang terhapus atau rusak.
4. File Repair, yaitu tool untuk memperbaiki data / file Microsoft Word, Excel, Access, PowerPoint, dan ZIP (winzip) file yang rusak karena virus atau sebab lain.

Mari kita lihat satu per satu fasilitas yang ada dalam software ini.

1. Disk Diagnostics

Tool yang ada dalam Disk Diagnostics ini adalah:

• Data Advisor, untuk membuat disket recovery.
• Drive Tests, untuk mengetes kondisi fisik dari hard disk (disk drive).
• Jumper Viewer, untuk melihat posisi jumper pada hard disk.
• Partition Tests, untuk mengecek kondisi partisi hardisk.
• Size Manager, untuk melihat kapasitas hard disk
• SMART Tests, digunakan untuk mengetes kondisi Self-Monitoring, Analysis and Reporting Technology pada suatu hardisk.

2. Data Recovery

Tool-tool yang ada dalam Data Recovery ini adalah:

• Advanced Recovery, untuk mencari data yang sudah tidak dapat di-recover dengan tool lain, yaitu karena ter-format, ter-partisi, virus, atau hal lain.
• Deleted Recovery, untuk mencari data yang sudah dihapus. Ini adalah tool yang paling sering dipakai penulis.
• Format Recovery, untuk mencari data pada hard disk yang sudah di-format.
• Raw Recovery, untuk mencari file yang hilang berdasarkan signature.
• Resume Recovery, semua proses recovery dapat dihentikan sementara dan dilanjutkan pada lain waktu.
• Emergency Media, untuk membuat disket atau CD yang digunakan untuk me-recover data / file hilang.

3. Email Repair, digunakan untuk mengembalikan data email Outlook dan Outlook Express yang hilang.

4. File Repair, digunakan untuk mengembalikan file-file Microsoft Office dan ZIP yang rusak. Tool ini dapat memperbaiki file Microsoft Word, Excel, Access, PowerPoint, dan ZIP (winzip) file yang corrupt / rusak karena virus atau sebab lain.

Data atau file yang hilang lebih sulit di-recover jika:

1. Anda menambahkan file baru setelah Anda menghapus atau memformat hard disk.
2. Anda menggunakan FAT32 dalam Windows XP.

Demikian cara mengembalikan data yang hilang dengan software EasyRecovery Professional. Semoga data Anda bisa diselamatkan.

Bisnis Internet Banking

7 LANGKAH AMAN BERINTERNET BANKING

Basnis

Jakarta – Internet banking, layanan perbankan di dunia maya ini semakin dilirik. Praktis, menjadi alasan mayoritas para penggunanya. Namun bagaimana soal keamanannya?

Pihak bank pasti telah memikirkan masak-masak sistem keamanannya sebelum mengeluarkan layanan e-Banking ke nasabah. Kini tinggal dari sisi pengguna, apakah mereka juga bisa menjaga kerahasiaannya?
Simak 7 langkah aman berinternet promissory note yang diramu detikINET dari eHow, Jumat (26/5/2011):

1. Hindari Personal Computer Umum
Jangan pernah mengakses akun internet promissory note Anda dari komputer yang ditempatkan secara umum. Dalam hal ini bisa warnet ataupun komputer-komputer yang banyak orang bisa mengaksesnya. Spyware yang ada di Personal Computer umum tersebut bisa mengintai transaksi Anda, dan kejadian pale apesnya adalah module jahat tersebut dapat mencuri data-data Anda.

2. Pengawasan Rutin
Lakukan pengecekan terhadap akun online bank Anda secara rutin. Hal ini untuk memastikan bahwa tidak ada transaksi mencurigakan di rekam jejak akun Anda. Jika ada transaksi aneh, langsung lapor pada bank.

3. Perkuat Password
Gunakan cue atau PIN yang tidak mudah ditebak. Password yang sulit ditembus adalah penggabungan dari huruf dan angka. Jangan pernah berpikir untuk menggunakan hari lahir Anda sebagai password, karena mudah ditebak dan orang banyak yang sudah tahu.
Akan lebih baik jika secara rutin Anda mengubah cue tersebut. Sebuah perusahaan keamanan bahkan merekomendasikan untuk melakukan pengubahan cue per tiga bulan.

4. ‘Jangan Percaya’ Bank atau Polisi
Jangan pernah mengumbar cue atau kode keamanan lainnya kepada siapapun, termasuk jika yang meminta itu adalah pihak bank atau polisi. Bank mungkin sesekali akan menanyakan informasi pribadi, seperti tanggal lahir, nama tengah, atau nama ibu kandung Anda untuk melakukan verifikasi. Namun bank yang baik tidak akan atau tidak berhak untuk menanyakan PIN atau cue rekening Bank nasabah.

5. Software Antivirus
Komputer yang Anda gunakan untuk melakukan transaksi e-banking juga harus dibekali sistem keamanan yang mumpuni, dalam hal ini adalah ketersediaan antivirus dan perangkat internet sekuriti. Sebab aplikasi penjaga ini akan melindungi pengguna ketika berselancar di dunia maya yang penuh dengan jebakan module jahat dan hacker.
Namun yang harus diingat adalah, lakukan refurbish pathogen definisi dari program keamanan Anda. Sebab jika tidak terus diperbaharui akan menjadi percuma.

6. Kumpulkan Kuitansi
Hal ini sepele, namun ketika usai bertransaksi online, ada baiknya bukti-bukti transaksi elektronik tersebut dikumpulkan dalam satu file. Hal ini untuk proses verifikasi ketika ada transaksi-transaksi mencurigakan di rekening Anda.

7. Pencucian Uang
Hindari menggunakan akun rekening pribadi untuk beragam aktivitas transaksi bisnis yang melibatkan uang orang lain dalam jumlah banyak. Sebab, ini bisa dianggap sebagai aktivitas money laundering (pencucian uang) dan dilarang oleh hukum.