Hari ini saya memperbaiki coding yang masih error. . .
Selasa, 16 April 2013
Senin, 15 April 2013
0
Senin, (15/04/2013)
Hari ini saya mengerjakan script hapus. . .
dengan alur jika belum ada tanggal keluar bisa di hapus jika ada tanggal keluar tidak bisa di hapus...
dengan alur jika belum ada tanggal keluar bisa di hapus jika ada tanggal keluar tidak bisa di hapus...
Jumat, 12 April 2013
0
Jum'at, (12/04/2013)
Hari ini mencoba kembali mengerjakan hapus data pada form transaksi masuk aplkasi parkir. . .
tapi masih bingung dengan alurnya. . .
tapi masih bingung dengan alurnya. . .
Kamis, 11 April 2013
0
Kamis, (11/04/2013)
Hari ini saya di suruh membantu rosi mencari data kelurahan/desa se indonesia. . .
Rabu, 10 April 2013
Selasa, 09 April 2013
0
Selasa, (09/04/2013)
Masih sama seperti kemarin masih kebingungan saat mengerjakan hapus data pada form transaksi masuk. .
Senin, 08 April 2013
0
Senin, (08/04/2013)
Hari ini saya kebingungan saat menghapus data pada form transaksi masuk. . karena alurnya tidak tau. .
Jumat, 05 April 2013
Kamis, 04 April 2013
Rabu, 03 April 2013
Selasa, 02 April 2013
Senin, 01 April 2013
0
Senin, (01/04/2013)
Awal Bulan ini saya mengawali dengan sedikit mengerjakan aplikasi parkir pada form transaksi masuk. . .
Jumat, 29 Maret 2013
Kamis, 28 Maret 2013
Rabu, 27 Maret 2013
Selasa, 26 Maret 2013
Senin, 25 Maret 2013
Jumat, 22 Maret 2013
Kamis, 21 Maret 2013
Rabu, 20 Maret 2013
Selasa, 19 Maret 2013
0
Selasa, (19/03/2013)
Hari saya di suruh mas yondi meneruskan pekerjaan Alfian Pras yang belum selesai. . .
Senin, 18 Maret 2013
Jumat, 15 Maret 2013
Kamis, 14 Maret 2013
Rabu, 13 Maret 2013
Selasa, 12 Maret 2013
Senin, 11 Maret 2013
0
Senin, (11/03/2013)
Hari ini saya Browsing" aja untuk menghilangkan jenuh. .
" Menyimpan data pada form Transaksi Masuk udah Selesai "
" Menyimpan data pada form Transaksi Masuk udah Selesai "
Jumat, 08 Maret 2013
Kamis, 07 Maret 2013
Rabu, 06 Maret 2013
0
Rabu, (06/03/2013)
Hari ini saya melanjutkan aplikasi parkir. .
di sini saya di suruh meneruskan tugas teman saya pada Form Transaksi Masuk. .
di sini saya di suruh meneruskan tugas teman saya pada Form Transaksi Masuk. .
Selasa, 05 Maret 2013
Senin, 04 Maret 2013
0
Senin, (04/03/2013)
Hari ini saya Browsing" Untuk menambah Ilmu. .
mencari Tutorial Belajar Corel Draw. .
mencari Tutorial Belajar Corel Draw. .
Jumat, 01 Maret 2013
Kamis, 28 Februari 2013
0
Kamis, (28/02/2013)
Hari ini sebenarnya di ajak orang kantor ke rumah sakit jember berubung saya ijin jadi saya gak bisa ikut. . .
Rabu, 27 Februari 2013
Selasa, 26 Februari 2013
Senin, 25 Februari 2013
0
Selasa, (19/02/2013)
Hari ini saya membantu mas Yondi Mengerjakan PHP. .
contohnya seperti di bawah ini :
<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed');
class Anamnesis_dokter extends CI_Controller {
public function index()
{
echo '<h4> Anamnesis_dokter </h4>'
}
}
?>
contohnya seperti di bawah ini :
<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed');
class Anamnesis_dokter extends CI_Controller {
public function index()
{
echo '<h4> Anamnesis_dokter </h4>'
}
}
?>
0
Jum'at, (15/02/2013)
- Hari ini saya melihat tugas yang saya berikan kepada anak prakerin baru. . .
- Browsing dan sedikit belajar vb 2012
Selasa, 19 Februari 2013
0
Kamis, (14/02/2013)
Hari ini saya Berdiskusi Sama Mas Yondi Untuk Membuat tugas buat Anak Prakerin Baru..
dan materinya di jelaskan dengan teman saya Alfian dan Rosi. . .
dan materinya di jelaskan dengan teman saya Alfian dan Rosi. . .
0
Rabu, (13/02/2013)
Hari ini saya Browsing Mencari materi Variable dan sorenya Mengajarkan Variable kepada Teman Prakerin Baru. . .
0
Selasa, (12/02/2013)
Hari ini listriknya padam, mulai pagi sampai siang tidak ada kegiatan. .
Tetapi saat jam makan siang ada diskusi pemakaian tabel, saya dapat tugas mencari reference database dari Oracle Programing. .
Akhirnya setelah makan siang listriknya nyala, dan saya browsing untuk mencari tugas Naming convention database oracle. . dan sorenyadi diskusikan bersama Bu Rose, Mas Yondi, Mas Eko dan Alfian. . .
Tetapi saat jam makan siang ada diskusi pemakaian tabel, saya dapat tugas mencari reference database dari Oracle Programing. .
Akhirnya setelah makan siang listriknya nyala, dan saya browsing untuk mencari tugas Naming convention database oracle. . dan sorenyadi diskusikan bersama Bu Rose, Mas Yondi, Mas Eko dan Alfian. . .
0
Senin, (11/02/2013)
Pagi ini saya, alfian dan alaudin membuat materi untuk mengajarkan microsoft studio 2012 kepada teman-teman prakerin yag baru, dari yang sudah kita dapat. Kita memberikan materi sebagai berikut :
* Create New Project
* Create New Form
* Fungsi Properties dan Control-control
* Event-event yaitu : Click, Change, GotFocus, LostFocus dll.
Dan setelah makan siang, saya, alfian dan alaudin menerangkan dan mempraktikan kepada teman prakerin yang baru
* Create New Project
* Create New Form
* Fungsi Properties dan Control-control
* Event-event yaitu : Click, Change, GotFocus, LostFocus dll.
Dan setelah makan siang, saya, alfian dan alaudin menerangkan dan mempraktikan kepada teman prakerin yang baru
0
Jum'at, (08/02/2013)
Hari ini saya belajar Visual Studio 2012 dan mencari materi untuk mengajari anak prakerin Baru. . .
Senin, 18 Februari 2013
0
Selasa, (05/02/2013)
Hari ini browsing-browsing aja untuk menambah ilmu dan di suruh belajar Visual Studio 2012. . .
Minggu, 10 Februari 2013
0
Senin, (04/02/2013)
Hari ini saya browsing* menambah ilmu vb . . .
berikut ini forum* untuk menambah ilmu
berikut ini forum* untuk menambah ilmu
Senin, 04 Februari 2013
Rabu, 30 Januari 2013
0
Rabu, (30/01/2013)
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)
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)
Hari ini saya hanya browsing-browsing aja dan mendapat teman prakerin baru. . . .
Senin, 28 Januari 2013
0
Jum'at, (25/01/2013)
Hari ini saya hanya browsing aja dan mencari cetak struk printer.print. . . .
Minggu, 27 Januari 2013
0
Rabu, (23/01/2013)
Hari ini saya hanya browsing-browsing aja dan mencari script cetak struk dan mengatur letak saat di cetak. . .
0
Selasa, (22/01/2013)
Hari saya bertanya ke mas yondi bingung membuat Class Cetak. .
Kata mas yondi sementara pakai script Struk yang lama. . .
Kata mas yondi sementara pakai script Struk yang lama. . .
0
Jum'at, (18/01/2013)
Hari ini saya memberikan form transaksi keluar ke alvian untuk di gabungkan dengan tugas teman-teman yang sudah selesai. . .
dan browsing aja. . .
dan browsing aja. . .
0
Kamis, (17/01/2013)
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
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)
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.
di suruh membuat class CetakStuk. . .
yang berfungsi untuk mengatur letak dan panjang pada saat cetak.
0
Senin, (14/01/2013)
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
-----------------------------------------------------------------
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)
Hari ini saya kesulitan saat mencetak struk. . .
masih bingung karena yang di print formnya. . . .
masih bingung karena yang di print formnya. . . .
0
Rabu, (09/01/2013)
Hari ini saya menemukan cara untuk mengatur font dan size. . .
script 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. . .
script di bawah ini...
- buka visual basic
- buat form seperti di bawah ini. . .
- TNim
- tNama
- tJurusan
- tSemester
- 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)
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)
Hari ini saya mencari pengertian printer.print di google tapi masih bingung. . .
0
Jum'at, (04/01/2013)
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
saya bertanya ke mas eko suruh mempelajari printer.print
Jumat, 04 Januari 2013
0
Kamis, (03/01/2013)
Hari ini saya masih sama seperti hari kemaren. . .
masih bingung untuk memperbesar ukuran font. .
masih bingung untuk memperbesar ukuran font. .
0
Rabu, (02/01/2013)
Selamat Tahun Baru 2013
hari ini saya masih tetap seperti kemaren kesulitan waktu cetak stuk memperbesar font yang di inginkan...
hari ini saya masih tetap seperti kemaren kesulitan waktu cetak stuk memperbesar font yang di inginkan...
Langganan:
Postingan (Atom)