Rabu, 30 Januari 2013

0 Rabu, (30/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini masih tetap seperti kemaren masih bingung membuat class cetak dan disuruh bantu pak candra download vidio di www.oracle.com

Selasa, 29 Januari 2013

0 Selasa, (29/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini masih tetap seperti kemarin belajar membuat class cetak tapi masih bingung dan sedikit membantu teman prakerin baru dari smk5 malang

0 Senin, (28/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya hanya browsing-browsing aja dan mendapat teman prakerin baru. . . .

Senin, 28 Januari 2013

0 Jum'at, (25/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya hanya browsing aja dan mencari cetak struk printer.print. . . .

Minggu, 27 Januari 2013

0 Kamis, (24/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya Libur Tanggal merah (Maulid Nabi Muhammad SAW). . . .

0 Rabu, (23/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya hanya browsing-browsing aja dan mencari script cetak struk dan mengatur letak saat di cetak. . .

0 Selasa, (22/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari saya bertanya ke mas yondi bingung membuat Class Cetak. . 
Kata mas yondi sementara pakai script Struk yang lama. . . 

0 Senin, (21/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya bingung dan masih belum bisa membuat class cetak.. . 

0 Jum'at, (18/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya memberikan form transaksi keluar ke alvian untuk di gabungkan dengan tugas teman-teman yang sudah selesai. . .
dan browsing aja. . . 

0 Kamis, (17/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya akan memberi contoh class cetak Struk. . .
Contoh di bawah ini. . .

-----------------------------------------------------------------

Option Explicit
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
-----------------------------------------------------------------
Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type
-----------------------------------------------------------------
Private jumlahstring As Integer
Private kata As String
-----------------------------------------------------------------
Public Sub setJumlahString(jumlah As Integer)
    jumlahstring = jumlah
    kata = ""
End Sub
-----------------------------------------------------------------
Public Sub hapusString()
    kata = ""
End Sub
-----------------------------------------------------------------
Public Function getString() As String
    getString = kata
End Function
-----------------------------------------------------------------
Public Sub tambahString(kata1 As String)
    kata1 = Left(kata1, jumlahstring)
    kata = kata & vbCrLf & kata1
End Sub
-----------------------------------------------------------------
Public Sub tambahString_manual(kata1 As String)
    kata = kata & vbCrLf & kata1
End Sub
-----------------------------------------------------------------
Public Sub tambahString_Tengah(kata1 As String)
    Dim tmljml As Integer
    kata1 = Left(kata1, jumlahstring)
    tmljml = (jumlahstring - Len(kata1)) / 2
    kata = kata & vbCrLf & String(tmljml, " ") & kata1 & String(tmljml, " ")
End Sub
-----------------------------------------------------------------
Public Sub tambahString_Kanan(kata1 As String)
    Dim tmljml As Integer
    kata1 = Left(kata1, jumlahstring)
    tmljml = jumlahstring - Len(kata1)
    kata = kata & vbCrLf & String(tmljml + 1, " ") & kata1
End Sub
-----------------------------------------------------------------
Public Sub tambahString_Kiri_Kanan(kata1 As String, kata2 As String)
    Dim tmljml As Integer
    tmljml = (jumlahstring) / 2
    kata1 = Left(kata1, tmljml)
    kata2 = Left(kata2, tmljml)
    kata = kata & vbCrLf & fungsiStringKiri(kata1, tmljml) & fungsiStringKanan(kata2, tmljml)
End Sub
-----------------------------------------------------------------
Public Sub tambahString_Kiri_Kanan_posisiTengah(kata1 As String, kata2 As String)
    Dim tmljml As Integer
    tmljml = (jumlahstring) / 2
    kata1 = Left(kata1, tmljml)
    kata2 = Left(kata2, tmljml)
    kata = kata & vbCrLf & fungsiStringKanan(kata1, tmljml) & " " & fungsiStringKiri(kata2, tmljml)
End Sub
-----------------------------------------------------------------
Public Sub tambahSparator(kata1 As String)
    kata1 = String(jumlahstring, kata1)
    kata = kata & vbCrLf & kata1
End Sub
-----------------------------------------------------------------
Public Function fungsiStringKanan(kata1, jumlah)
    Dim tmljml As Integer
    tmljml = jumlah - Len(kata1)
    fungsiStringKanan = String(tmljml, " ") & kata1
End Function
-----------------------------------------------------------------
Public Function fungsiStringKiri(kata1, jumlah)
    Dim tmljml As Integer
    tmljml = jumlah - Len(kata1)
    fungsiStringKiri = kata1 & String(tmljml, " ")
End Function
-----------------------------------------------------------------

Public Sub cetakString()
Dim Namafile 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
Namafile = "printer"
Printer.FontSize = 8
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 = kata & vbCrLf
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
-----------------------------------------------------------------

0 Rabu, (16/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya bertanya ke mas yondi bagaimana cara supaya bisa mengatur letak pada saat cetak struk. . 
di suruh membuat class CetakStuk. . .
yang berfungsi untuk mengatur letak dan panjang pada saat cetak. 

0 Selasa, (15/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya masih kesulitan untuk mengatur letak cetak struk. . 

0 Senin, (14/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya akan memberih contoh script cetak struk. . . 
Contoh di bawah ini...

------------------------------------------------------------------------------------------------------------

Sub cetak()
Printer.Font = "Tahoma"
Printer.Show
     Printer.CurrentX = 0
     Printer.CurrentY = 0
     Printer.FontSize = 9.5
     Printer.Print Tab(6); "BIODATA";
     Printer.Print Tab(6); "MAHASISWA BSI     "; Format(Time, "hh:mm:ss AM/PM");
     Printer.Print Tab(2); "===================================";
     Printer.Print Tab(3); "NIM        :"; TNim;
     Printer.Print Tab(3); "NAMA       :"; tNama;
     Printer.Print Tab(3); "JURUSAN    :"; tJurusan;
     Printer.Print Tab(3); "SEMESTER   :"; tSemester;
     Printer.Print Tab(3); "ALAMAT     :"; tAlmt;
     Printer.Print Tab(2); "===================================";
Printer.FontSize = 9.5
     Printer.Print Tab(2); "*Ini hanya sebuah contoh sederhana*";
     Printer.Print Tab(2); "*yang dapat kalian kembangkan lagi*";
 Printer.FontSize = 9.5
    Printer.Print Tab(2); "===================================";
 Printer.Font = "Tahoma"
    Printer.Print Tab(2); "===================================";
-----------------------------------------------------------------

-----------------------------------------------------------------
Private Sub Form_Load()
Call cetak
end sub

-----------------------------------------------------------------

Kamis, 10 Januari 2013

0 Kamis, (10/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya kesulitan saat mencetak struk. . . 
masih bingung karena yang di print formnya. . . . 

0 Rabu, (09/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya menemukan cara untuk mengatur font dan size. . . 
script di bawah ini...


  1. buka visual basic
  2. buat form seperti di bawah ini. . .
  1. TNim
  2. tNama
  3. tJurusan
  4. tSemester
  5. tAlmt

  3. buat buat 1 form lagi bernama cetak
  4. di form yang pertama buat script seperti di bawah ini di bawah ini. . .

-----------------------------------------------------------------

sub Alvanz ()
cetak.Font = "courier new"
     cetak.CurrentX = 0
     cetak.CurrentY = 0
     cetak.FontSize = 13
     cetak.Font = "CW Ciung Wanara Sejati"
     cetak.Print Tab(13); "BIODATA";
     cetak.Print Tab(2); " "
     cetak.FontSize = 9.5
     cetak.Font = "Tahoma"
     cetak.Print Tab(6); "MAHASISWA BSI          "; Format(Time, "hh:mm:ss AM/PM");
     cetak.Print Tab(2); "===================================";
     cetak.Print Tab(5); "NIM           :"; TNim;
     cetak.Print Tab(5); "NAMA        :"; tNama;
     cetak.Print Tab(5); "JURUSAN    :"; tJurusan;
     cetak.Print Tab(5); "SEMESTER    :"; tSemester;
     cetak.Print Tab(5); "ALAMAT      :"; tAlmt;
     cetak.Print Tab(2); "===================================";
cetak.FontSize = 9.5
     cetak.Print Tab(7); "*Ini hanya sebuah contoh sederhana*";
     cetak.Print Tab(7); "*yang dapat kalian kembangkan lagi*";
 cetak.FontSize = 9.5
    cetak.Print Tab(2); "===================================";
 cetak.Font = "Courier New"
    cetak.Print Tab(2); "===================================";
 cetak.Print Tab(13); "Deni Indrawan";
 cetak.Print Tab(11); "www.indrawan21.tk";
End Sub
-----------------------------------------------------------------

 5. klik double pada button
 6. masukkan script seperti di bawah ini. . . .
-----------------------------------------------------------------
Call Alvanz
-----------------------------------------------------------------

Semoga berhasil. . . . 
Good Luck. . . 

0 Selasa, (08/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya masih sama seperti kemaren masih kesulitan untuk cetak struk mengatur font dan size. . .

Senin, 07 Januari 2013

0 Senin, (07/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya mencari pengertian printer.print di google tapi masih bingung. . . 

0 Jum'at, (04/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya masih tetap kemaren tidak bisa memperbesar fontsize  salah satu text yang di inginkan saat di cetak. . .
saya bertanya ke mas eko suruh mempelajari printer.print

Jumat, 04 Januari 2013

0 Kamis, (03/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Hari ini saya masih sama seperti hari kemaren. . .
masih bingung untuk memperbesar ukuran font. . 

0 Rabu, (02/01/2013)


Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!
Selamat Tahun Baru 2013
hari ini saya masih tetap seperti kemaren kesulitan waktu cetak stuk memperbesar font yang di inginkan...