Al-Quran V 2.2 di Ms Office ( add-Ins Al quran ) for win64/32

Assalamu `alaina wa `ala `ibadillahis shalihin .....

Program kecil ini mampu menampilkan ayat Al-Quran secara lengkap dengan terjemahnya dalam Microsoft Word, sehingga tidak perlu repot lagi mengetik manual dan cukup dengan copy paste saja. Tentunya bagi Anda sobat yang memiliki jasa pengetikan plus Arab khususnya Quran, mahasiswa dan pelajar ataupun siapa saja yang membutuhkan penulisan ayat-ayat al-Qur’an dengan cepat maka software ini akan sangat membantu.

Software ini merupakan add in yang mampu berintegrasi dengan program MS Office untuk windows 64 maupun 32bit. Cara pemakaiannyapun sangat mudah, cukup install program sesuai dengan OS komputer sobat , lalu klik add-ins , Muncul dah.... simple kan???

langsung aja sedot, dan semoga bermanfaat dan menjadi ladang amal buat pembuat program ini , donasi silahkan isi kotak amal di masjid masjid terdekat atau di rumah yatim terdekat, atau tetangga yg fakir.

Download.

#wisngunutok

Read More

Apakah Barcode Grade A,B atau C itu?

Seorang sahabat bertanya :

1.    Mau tanya, untuk barcode bedanya grade A dan grade B apa ya,?
2.    dan untuk barcode pakai matt Artpaper dan semicoated lebih bagus mana ?

Trimksh,
Anik

Jawab :

1.    Grade pada barcode adalah kualitas hasil cetak , dan daya baca oleh barcode verifier, jadi grade A,B,C,D maupun E hanya bisa dibaca oleh barcode verifier

Sedangkan Barcode scanner biasa tidak dapat dipakai untuk menguji barcode karena alat tersebut hanya dirancang untuk membaca kode dan setiap barcode scanner mempunyai cara yang berbeda dalam mendeteksi barcode, ada yang memiliki sensor lebih peka dalam mendeteksi barcode ada pula yang memakai sensor biasa, jadi menguji barcode menggunakan barcode scanner, apakah barcode tersebut mempunyai grade A,B,C,D atau E sangat tidak bisa.

Untuk menguji barcode, dibutuhkan alat yang dapat mendeteksi dan mengukur kualitas pada gambar dalam barcode, pada umumnya disebut dengan barcode verifier. Dengan menggunakan alat pengukur refleksi dan kekontrasan warna Anda dapat mengetahui seberapa akurat jika keduanya dipadukan sehingga dapat menghasilkan gambar dan data produk tersebut. Gambaran tersebut mencakup ukuran panjang maupun lebar dan seberapa relative kedua hal tersebut bagi yang lainnya.

Barcode Verifier tersebut biasa disebut dengan Standar ISO/IEC 15416 Bar Code Print Quality Test Specifications, hanya dengan verifikator ini, Anda dapat mengetahui kualitas barcode yang dapat berubah selama poses mencetak. Alat ini juga dapa memastikan bahwa nomor-nomor yang dikodekan pada produk tersebut diwakili oleh barcode secara benar.

2.    Sepengetahuan saya, artpaper maupun semicoated adalah bahan yang sama. Setiap vendor memiliki penamaan tersendiri.
Kita ambil contoh : KTS menyebut semicoted dengan artpaper, Lintex menyebut artpaper dengan Semicoted, begitu juga raflatac menyebutnya raflatacoated  dan lain lain.

Semoga penjelasan di atas membantu memberikan informasi dan pengetahuan yg sedikit.

Best Regards
#wisngunutok

Read More

RAW PRINT FOR USB PRINTER

Assalamu 'alaikum.......  And Good Afternoon, sob !!!

Kali ini ane mau share Program pencetak yang mana output file yg diterima klien adalah sebagai berikut :

  ^XA
  ^FO250,20^ADN,110,50^FDINNER^FS
  ^FO40,120^ADN,30,15^FDPT SANGO CERAMICS INDONESIA^FS
  ^FO40,180^ADN,30,10^FDPEDIDO:^FS
  ^FO200,180^ADN,30,15^FD0077000274^FS
  ^FO40,230^ADN,30,10^FDMATERIAL:^FS
  ^FO200,230^ADN,30,10^FD000000000000027434^FS
  ^FO480,230^ADN,30,10^FDQTD:^FS
  ^FO530,230^ADN,30,10^FD      6^FS
  ^FO630,230^ADN,30,10^FDUN. MED:^FS
  ^FO730,230^ADN,30,10^FDINN^FS
  ^FO40,280^ADN,30,10^FDROYAL GARDEN PRATO RASO AZBR^FS
  ^FO40,340^BY2^BC,150,N,N,N^FD0077000274265032050000148217^FS
  ^FO120,500^ADN,30,10^FD(01)0077000274(02)26503(03)2050000148217^FS
  ^FO20,170^GB760,0,4^FS
  ^FO20,320^GB760,0,4^FS
  ^XZ

makanan apa juga , beliau juga kurang paham. sampailah info tersebut di meja ane.
yap!!!  langsung aja ane langsung jelasin (versi ane gan) --> ini adalah print to file dari aplikasi/program pencetak barcode yang mana printer menggunakan merk "Zebra" . #wisngunutok

Jika diprint lansung tanpa script maka akan didapat hasil seperti dibawah ini :

maka untuk menghasilkan hasil printout yg sama / dicetak di klient maka kita harus menginstall Printer Generic text only , dengan syarat menggunakan Port LPT atau COM ...

naaah...... berhubung komputer jaman sekarang terlalu jadul untuk port LPT atau COM , dan Port USB menjadi andalan unutk era sekarang ini,  maka kita harus ngakali dengan script yang telah dibuat terlebih dahulu. like this brow !!! :

Option Explicit

Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long

Public Sub GSN_Print(NamaFile As String, DataPrint As String)
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData As String
Dim MyDocInfo As DOCINFO

lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
If lReturn = 0 Then
MsgBox "Printer tidak dikenali!", vbCritical, "Error"
Exit Sub
End If

MyDocInfo.pDocName = NamaFile
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = "RAW"
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)

sWrittenData = vbCrLf & DataPrint & vbCrLf
' vbFormFeed
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)

lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub

Hasil compile dapat disedot dimari

Semoga Bermanfaat

Read More