• Kategori

  • Mamereng Tanggal Da

    Juni 2008
    S S R K J S M
    « Mei    
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    30  
  • Download Software Gratis

  • Jumlah Pengujung sugara's weblog

    • 63,847 hits
  • Foto Robby Sugara Silaen

    Robby Ganteng

    pas photo

    Cross Countri

    Lebih Banyak Foto
  • SILSILAHKU

    - RAJA IHATMANISIA - RAJA MOKMOK - ENGBANUA - RAJA BONANGBONANG - RAJA BATAK - RAJA ISOMBAON - TUAN SORIMANGARAJA - INA-III (ISTRI KE3) - TUAN SORBANIBANUA - NAI ANTING MALELA - TUAN SIHUBUL/br. PASARIBU - RAJA TAMPUKNABOLON/br. SITORUS - RAJA MATANIARI/br. SIAHAAN HINALANG - SODDI RAJA/br. TORUS BOLTOK - O. SUMINDAR(I) - NAMORA RAJA - O. SUMINDAR (II) - O. SIHARONDA/br. SAMOSIR - O. BAHAL/br JUNTAK - K. K. JAIRUS - O.TONGGI - PARHATA SAUT/br. PANJAITAN - O. SAUT(JONATHAN SILAEN/br. PARDOSI) O. SAUT MEMPUNYAI ANAK 9 ORANG - O. RAMSES (MANUEL SILAEN/br. SIMANJUNTAK) - MUDA - MONANG - HULLING - SUMAN - NIRMALA - TIRAMAN br. SILAEN - GOLKARIA br. SILAEN - ZEIN br. SILAEN O. RAMSE(MANUAEL SILAEN/br. SIMANJUNTAK) MEMPUNYAI ANAK 7 ORANG : - TIMUR SILAEN/br. SIMANJUNTAK(A. RAMSES) - O. RICKY br. SILAEN - JONSON SILAEN/br. PARDEDE (A. RONAL) - BAKTIAR/br. SIJABAT (A. ROMA) - NAI HOTBEN br. SILAEN - NAI SISKA br. SILAEN - RAMLI SILAEN/br. SITANGGANG (A. KERI) A. ROMA(BAKTIAR SILAEN/br. SILAEN) MEMPUNYAI ANAK 6 ORANG : - ROMA br. SILAEN (MARGA SIMATUPANG) - RAYMOND SILAEN - ROSSI MUSTIKA SILAEN - ROBBY SUGARA SILAEN (ROSOFT_SILAEN) - RANI ASIMA SILAEN - RUBA SILAEN DIBUAT OLEH ROBBY SUGARA SILAEN (SUDDUT 15) dikutip dari Taromo Op. Siharonda yang dibuat oleh Jonathan Silaen/br. PARDOSI (Op. Saut)

Source Code untuk memerika printer sudah terinstal di komputer dengan viual basic

untuk teman – teman yang sedang belajar pemrograman visual basic sedikit saya bagikan ilmu saya yaitu mengecek apakah dikomputer anda sudah terinstal printer atau belum. silahkan pelajari source code dibawah ini

‘Persiapan: 1. Buat 1 Project baru dengan 1 Form.

                   2. Copy-kan coding ini ke editor form yang bertalian.

 

Public Function IsPrinterInstalled() As Boolean

Dim strDummy As String

  strDummy = Printer.DeviceName

  If Err.Number Then

     PrinterInstalled = False

  Else

     PrinterInstalled = True

  End If

End Function

 

Private Sub Form_Load()

  If IsPrinterInstalled Then

     MsgBox “Printer terinstall di komputer Anda!”, vbInformation, “Terinstall”

  Else

     MsgBox “Printer belum terinstall di komputer Anda!”, vbCritical, “Belum Terinstall”

  End If

End Sub

 

semoga bermanfaatnya.

 

diposting oleh ; rosoft_silaen

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: