Wednesday, March 14, 2012

Bagaimana Mengatasi Icon Printer Yang Tidak Terdeteksi Atau Hilang

Saat Anda ingin melakukan Print pada dokumen excel atau word atau apa saja yang bisa di print. Pernahkan Anda mengalami "tidak bisa melakukan print"? Dan dari komputernya sendiri mengatakan bahwa printernya belum terinstal, padahal Anda sangat yakin sudah menginstalnya. Saat di cek di bagian control panel - printer and faxes juga tidak terlihat icon printer tersebut. Dan sekali lagi, Anda sangat yakin sudah menginstall printer tersebut.

Lalu bagaimana mengatasi hal ini? Berikut tutorial yang bisa membantu Anda:

1. Klik start-run, pada kotak run ketik "services.msc" (tanpa tanda petik)setelah itu tekan Enter.

2. Maka akan muncul kotak services yang berisi berbagai macam pilihan, jangan bingung, scroll kebawah dan pilih saja bagian Printer Spooler

3. Double klik pada bagian itu, nanti akan muncul lagi kotak dialog, perhatikan isinya baik-baik

4. Pada bagian startup type pilih automatic, kemudian dibagian bawah sedikit ada tombol start, tekan tombol tersebut

5. Klo sudah tekan Apply, lalu ok.

6. Selesai.....

Dengan cara ini semoga printer Anda bisa digunakan kembali dan kegiatan Anda kembali berjalan..
 
Selamat Mencoba..!!!

Tuesday, March 6, 2012

Cara membuat garis bawah Kop Surat pada MS.Word


Berkaitan dengan pekerjaan perkantoran di suatu lembaga perusahaan, yayasan atau instansi tertentu, tidak akan pernah lepas dari kegiatan surat menyurat. Dalam membuat surat ini akan selalu dicantumkan Kop Surat sebagai identitas lembaga atau instansi sekaligus sebagai keabsahan daripada surat tersebut selain tanda tangan dan stempel.

Kop surat berada di bagian atas dari lembar surat dan dibatasi oleh sebuah garis dari isi bagian surat tersebut. Untuk membuat garis bawah pada kop surat tersebut bermacam-macam cara yang dapat dilakukan.

Cara pertama adalah setelah Kop surat beserta logonya ditulis atau diketik, barulah diberi garis dengan menggunakan perintah klik ribbon insert kemudian klik shapes pilih garis (line). Dengan menggunakan mouse, klik dan tahan dibawah kop surat kemudian drag kekanan sampai batas margin sambil menekan tombol shift pada keyboard. Jika ingin garis yang tampil dengan type yang lain dapat diedit dengan caradisini.

Cara yang kedua adalah setelah kop surat dan logo telah diketik, letakkan kursor dibawah kop surat, kemudian tekan tombol pada keyboard :
  1. --- (- sebanyak 3 kali) kemudian tekan enter, untuk membuat garis tunggal mendatar
  2. === (= sebanyak 3 kali) kemudian tekan enter, untuk membuat garis dobel mendatar
  3. ### (# sebanyak 3 kali) kemudian tekan enter, untuk membuat garis rangkap 3 mendatar.

Cara yang ketiga adalah dengan menggunakan fasilitas tabel.
  1. Buatlah tabel 2 kolom 1 baris, kemudian atur sedemikian rupa, sehingga kolom yang kiri diisi logo dan kolom sebelah kanan diisi dengan Kop surat.
  2. Blok tabel tersebut, kemudian pada ribbon design klik tanda panah kebawah pada group menu Draw Borders untuk membuka jendela borders and shading.

     
  3. Pada tab Borders, pada setting klik None kemudian klik Custom.
  4. Pada bagian Style, scroll kebawah untuk memilih jenis garis yang dibutuhkan.
  5. Atur color dan width.
  6. Pada preview, klik pada pilihan garis bawah tabel
  7. Klik OK

     
Maka garis bawah pada kop surat telah dibuat. Silahkan saja pilih cara yang paling mudah menurut anda dari ketiga cara diatas.

Selamat mencoba ..!!

Membuat daftar isi secara otomatis dengan microsoft word


Sepele sebenarnya masalah ini, cuman kalau gak ditulis disini, saya sendiri sering lupa
oke. sudah pada tau daftar isi kan, Daftar isi adalah halaman yang menyajikan isian dari judul judul utama tiap halaman, misalnya pendahuluan, isi, penutup dsb.
Microsoft word sendiri sudah mendukung untuk membuat daftar isi secara otomatis, berdasarkan halaman dan daftar yang akan ditulis. oke langsung saja caranya :
  1. bikin style dari bagian yang akan ditulis ke daftar isi, misal BAB 1, BAB 2 dll. select kalimat BAB 1, pilih style untuk BAB 1 (pada bab 1 ini style heading 1 dipilih)
  2. bikin style lagi jika ada sub bab, misal 1.1 Sub Bab 1 (select dan pilih style, pilih style heading 2)
  3. Bikin halaman kosong untuk daftar isi
  4. Klik References – table of contens – insert table of content – option – pilih style (misal heading 1 nilai 1, heading 2 nilai 2. nilai disini menandakan sub sub nya)
  5. klik ok
  6. daftar isi akan terbentuk secara otomatis.
  7. jika ada penambahan isian lagi, klik References – update table
  8. mudah bukan

    Selamat Mencoba..!!!

Membuat Fix File dengan Visual Basic


WM/VB.BG (terdeteksi oleh Antivir)
Trojan Backdoor Generic6.GMX (terdeteksi oleh AVG)
Backdoor.Delf (terdeteksi oleh Norton Anti Virus)
TR/Drop.Loops.A.1 (terdeteksi oleh Antivir)
w32/delf.cd worm (terdeteksi oleh Avira)
Inti dari perbaikan file ini ada 3 yaitu:
- Mendeteksi Ukuran File
- Memotong badan file yang berisi virus
- Menyimpan file yang telah jadi
seperti penjelasan di artikel sebelumnya, ukuran virus yang menempel di badan file sehat itu adalah 331299 byte, untuk itu kita akan melakukan pendeletan virus yang menyisip di file tersebut, caranya … buka visual basic, atau alat andalan utnuk membuat tools
MENDETEKSI UKURAN FIE
untuk dapat menjalankan fungsi pendeteksian file, cukup ketik fungsi BytesInBytes di bawah ini…
Function BytesInBytes(bIn() As Byte, bFind() As Byte, startPosn As Long) As Long
Dim I, iFinal, iLimit, xLimit, uIn, uFind As Long ’2GB limit
Dim X As Integer
uFind = UBound(bFind)
iLimit = UBound(bIn) – uFind + 1
xLimit = uFind – 1
uIn = UBound(bIn)
For I = startPosn To iLimit
For X = 0 To xLimit
If I + X <= uIn Then
If bIn(I + X) <> bFind(X + 1) Then Exit For
If X + 1 = uFind Then
iFinal = BytesInBytes(bIn, bFind, I + 1)
If iFinal > I Then I = iFinal
BytesInBytes = I
Exit Function
End If
End If
Next X
Next I
BytesInBytes = -1
End Function
MEMOTONG BAGIAN VIRUS YANG MENEMPEL DI FILE
Untuk dapat memotong virus tersebut, cukup ketikkan kode di bawah ini:
Private Sub CutPaste(OP As Boolean, PasteBytes() As Byte)
‘TRUE=Cut..FALSE=Paste
SL = 331299 ’662598 ’331299
If SFP >= 0 Or SL > 0 Then
Dim nBytes As Long
Dim I As Long
If OP = False Then ‘Paste
nBytes = UBound(PasteBytes)
ReDim Preserve WorkSpace(1 To FL + nBytes)
‘ Move the bytes DOWN in the Array–Dest,Src,Bytes to move
If FL – SFP > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(nBytes + SFP + 1)), ByVal VarPtr(WorkSpace(SFP + 1)), FL – SFP)
‘ Copy the selected data to the Array–Dest,Src,Bytes to move
Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), PasteBytes(1), nBytes)
FL = FL + nBytes
Else ‘Cut
If FL – SL > 0 Then
‘ Move the Data UP in the Array–Dest,Src,Bytes to move
If FL – (SL + SFP) > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), ByVal VarPtr(WorkSpace(SL + SFP + 1)), FL – (SL + SFP))
FL = FL – SL
ReDim Preserve WorkSpace(1 To FL)
Else
ReDim WorkSpace(1 To 1)
FL = 1
End If
End If
If FF > FL Then FF = FL
If FF < 0 Then FF = 0
‘ShowFileInfo
End If
End Sub
guna skrip di atas tadi adalah untuk memotong bagian yang berukuran 331299 byte atau ukuran virus itu sendiri … lalu setelah dipotong, bagaimana cara menyimpannya?
MENYIMPAN FILE YANG TELAH DIBERSIHKAN
Cukup ketikkan kode di bawah ini:
Private Sub goSave()
On Error GoTo CLSerr
Dim Fnum As Integer
Dim Fname As String
Dim saveok As Boolean
If optxls.Value = True Then
‘MsgBox Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 3)
Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.xls”
‘MsgBox Right(Fname, 4), 0, “dsasd”
End If
If optdoc.Value = True Then
Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.doc”
‘MsgBox Right(Fname, 3), 0, “dsasd”
End If
If FSO.FileExists(Fname) Then FSO.DeleteFile (Fname)
Fnum = FreeFile
Open Fname For Binary Access Write As Fnum
Put Fnum, , WorkSpace()
Close Fnum
OpenFileName = Fname
FL = FSO.GetFile(OpenFileName).Size
Exit Sub
CLSerr:
If Err <> 32755 Then MsgBox (Error & vbCr & vbCr & “Error Number: ” & Str(Err)), vbCritical, “! ERROR !”
End Sub
File yang dibersihkan akan disimpan sesuai nama file dan extensinya, tapi nama file-nya ditambahi judul “_fix” gitu untuk membedakan file yang sakit dan yang sehat…
nah mudah bukan??? 

Semoga bermanfaat..!!!
Selamat mencoba,,,

Saturday, March 3, 2012

SEJARAH TAXI



Di Paris, Nicolas sauvage menawarkan kereta kuda dan driver untuk disewakan. Pada tahun 1635, di Hackney Carriage Undang adalah undang-undang pertama berlalu yang mengendalikan kereta kuda untuk disewa di Inggris.


http://www.parma-airport.it/immagini/taxi.jpg


Nama taksi ini diambil dari kata Argometer. The Argometer adalah alat yang mengukur jarak atau waktu perjalanan kendaraan, dan memungkinkan tarif yang akurat yang akan ditentukan. Yang Argometer diciptakan oleh penemu Jerman, Wilhelm Bruhn pada tahun 1891.


http://www.ubergizmo.com/photos/2007/4/nyc-future-taxi.jpg

Gottlieb Daimler adalah perusahaan jasa taksi pertama di dunia yang di bentuk pada tahun 1897 taksi khusus yang disebut Daimler Victoria. Taksi datang dilengkapi dengan taksi yang baru diciptakan meter. Di 16 Juni, 1897 taksi Daimler Victoria dikirim ke Friedrich Greiner, seorang Stuttgart pengusaha yang memulai bermotor pertama di dunia perusahaan taksi.


http://lansfordborough.com/taxi%208.jpg


Pada 13 September 1899, Amerika pertama meninggal dalam kecelakaan mobil. Mobil itu adalah Taksi, ada sekitar seratus taksi beroperasi di jalan-jalan New York tahun itu. Enam puluh delapan tahun Henry Malcolm sedang membantu seorang teman dari jalan mobil ketika seorang sopir taksi kehilangan kendali dan memukul fatal Bliss.


http://www.smartdesignworldwide.com/xmg/feature/Ny_taxi.jpg


Pemilik perusahaan taksi, Harry Allen adalah orang pertama yang memiliki taksi kuning Allen dicat kuning taksi nya untuk berdiri keluar. berkat idenya gan sekarang taksi identik dengan warna kuning

Enjoy the Post..!!!