Install Puppy Linux di Anoa 212 Zyrex

Kemarin aku di suruh memperbaiki laptop merk Anoa 212 Zyrex yang berhardisk cuma 2 GB, tidak ada CDRoom, DVD. malah tambah bingung lagi di dalamnya udah ada windows dan ternyata blue screen. aku coba install windows XP SP1 setelah proses copy file install lasi dan restart ternyata blue screen lagi. aku coba beberapa kali lagi ternyata sama. aku coba pakai live cd windows ternyata juga sama bluescreen. sehingga aku putuskan untuk install linux. aku coba pakai ubuntu 9.04 versi livecdnya ternyata berjalan dengan sukses (ga ada blue screennya) eh aku coba install ternyata HD ga cukup. pusing dehhhhh
setelah aku browsing n cari linux yang kecil tapi tampilannya bagus aku nemuin yang namanya Puppy Linux dan aku coba download versi yang terakhir dengan besar kurang lebih 100 MB.
setelah itu aku burn di cd dan aku coba ternyata sukses berjalan, yang jadi pertanyaannya gimana cara memasukkan ke HD laptopnya. aku coba beberapa kali mungkin sampai 10 x lebih, karena selama 2 hari aku coba sampai jam 1 malam terus ga berhasil, aku browsing cari di mbah google juga masuh ga bisa2. kemudian aku coba utak utik dan berhasil.....
mau tau caranya:
gini....

Langsung aja ya
1. format HDnya pakai gparted (klik start --> system -- gparted)
2. format dengan ext2 (katanya puppy belum kenal dengan ext3)
3. kemudian klik appply tunggu beberapa menit
4. kemudian klik kanan area HD kemudian klik manage flag
5. kemudian pilih yang boot
6. tunggu kemudian tutup program gparted
7. klik start --> setup --> remastering cdlive
8. ikuti langkah selanjutnya sampai selesa
9. klik start --> setup --> install universal..
10. ikuti langkahnya....
11. sampai cd installnya keluar
12. kemudian restart....
13. kalau ada perintah simpan klik aja simpan
14. tunggu beberapa saat karena biasanya sedikit lama
15. selasai deh anda bisa menikmati puppy linux

pasti anda bertanya kog bisa install pakai cd padahal ga ada cd. anda bisa pakai cd external atau anda buat booting dengan FD.

maaf jika ada kesalahan maklum newbie dalam hal linux.

semoga aja bermanfaat

Chung Chin

Read more

Install Ubuntu 9.04 di Laptop BYON M31W

setelah nunggu akhirnya aku selesai juga download ubuntu 9.04 setelah aku coba di laptop BYON M31W juga harus menyisipkan acpi=off noapic nolapic. dan tidak mendukung VGA SIS, akhirnya aku coba untuk install terus, setelah selesai ternyata ga usah mengedit grub karena secara otomatis juga udah tertulis acpi=off, noapic, nolapic. selain itu Wireless juga langsung ke detect ga harus memakai ndiwswrapper. sekian ya hasil review install ubuntu.9.04 di laptop byon m31w.
semoga aja bermanfaat.

Read more

Cetak struk pakai printer star tipe cutter 2

Yang tadi ada source code yang aku buat, sekarang akan aku berikan source code dengan vb yang di buat oleh team support dari pembuat printernya (star). Silahkan di ikuti ya.... (lanjutkan aja)

source code ini di gabungkan dengan metode rawprinter yang pernah aku bahas di posting yang terdahulu. langsung aja ya ni sourcenya

Call StartPagePrinter(lhPrinter)
' Sending raw data to the printer
sWrittenData = Chr(&H1B) + Chr(&H1D) + Chr(&H61) + Chr(&H1) 'Center Alignment - Refer to Pg. 3-29
sWrittenData = sWrittenData + Chr(&H5B) + "If loaded.. Logo1 goes here" + Chr(&H5D) + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H1C) + Chr(&H70) + Chr(&H1) + Chr(&H0) + vbCrLf 'Stored Logo Printing - Refer to Pg. 3-38
sWrittenData = sWrittenData + "Star Clothing Boutique" + vbCrLf
sWrittenData = sWrittenData + "1150 King Georges Post Rd." + vbCrLf
sWrittenData = sWrittenData + "Edison, NJ 08837" + vbCrLf
sWrittenData = sWrittenData + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H1D) + Chr(&H61) + Chr(&H0) 'Left Alignment - Refer to Pg. 3-29
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H44) + Chr(&H2) + Chr(&H10) + Chr(&H22) + Chr(&H0) 'Setting Horizontal Tab - Pg. 3-27
sWrittenData = sWrittenData + "Date: 12/31/2008 " + Chr(&H9) + " Time: 9:10 PM" 'Moving Horizontal Tab - Pg. 3-26
sWrittenData = sWrittenData + "------------------------------------------------" + vbCrLf + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H45) 'Select Emphasized Printing - Pg. 3-14
sWrittenData = sWrittenData + "SALE" + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H46) 'Cencel Emphasized Printing - Pg. 3-14
sWrittenData = sWrittenData + "SKU " + Chr(&H9) + " Description " + Chr(&H9) + " Total" + vbCrLf
sWrittenData = sWrittenData + "300678566 " + Chr(&H9) + " PLAN T-SHIRT" + Chr(&H9) + " 10.99" + vbCrLf
sWrittenData = sWrittenData + "300692003 " + Chr(&H9) + " BLACK DENIM" + Chr(&H9) + " 29.99" + vbCrLf
sWrittenData = sWrittenData + "300651148 " + Chr(&H9) + " BLUE DENIM" + Chr(&H9) + " 29.99" + vbCrLf
sWrittenData = sWrittenData + "300642980 " + Chr(&H9) + " STRIPE DRESS" + Chr(&H9) + " 49.99" + vbCrLf
sWrittenData = sWrittenData + "300638471 " + Chr(&H9) + " BLACK BOOT" + Chr(&H9) + " 35.99" + vbCrLf
sWrittenData = sWrittenData + vbCrLf
sWrittenData = sWrittenData + "Subtotal " + Chr(&H9) + "" + Chr(&H9) + " 156.95" + vbCrLf
sWrittenData = sWrittenData + "Tax " + Chr(&H9) + "" + Chr(&H9) + " 00.00" + vbCrLf
sWrittenData = sWrittenData + "------------------------------------------------" + vbCrLf
sWrittenData = sWrittenData + "Total" + Chr(&H6) + "" + Chr(&H9) + Chr(&H1B) + Chr(&H69) + Chr(&H1) + Chr(&H1) + " $156.95" + vbCrLf 'Character Expansion - Pg. 3-10
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H69) + Chr(&H0) + Chr(&H0) 'Cancel Character Expansion - Pg. 3-10
sWrittenData = sWrittenData + "------------------------------------------------" + vbCrLf + vbCrLf
sWrittenData = sWrittenData + "Charge" + vbCrLf + "$159.95" + vbCrLf
sWrittenData = sWrittenData + "Visa XXXX-XXXX-XXXX-0123" + vbCrLf + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H34) + "Refunds and Exchanges" + Chr(&H1B) + Chr(&H35) + vbNewLine 'Specify/Cencel White/Black Invert - Pg. 3-16
sWrittenData = sWrittenData + "Within " + Chr(&H1B) + Chr(&H2D) + Chr(&H1) + "30 days" + Chr(&H1B) + Chr(&H2D) + Chr(&H0) + " with receipt" + vbCrLf 'Specify/Cancel Underline Printing - Pg. 3-15
sWrittenData = sWrittenData + "And tags attached" + vbCrLf + vbCrLf
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H1D) + Chr(&H61) + Chr(&H1)
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H62) + Chr(&H6) + Chr(&H2) + Chr(&H2) + " 12ab34cd56" + Chr(&H1E) + vbCrLf 'Barcode - Pg. 3-39 - 3-40
sWrittenData = sWrittenData + Chr(&H1B) + Chr(&H64) + Chr(&O2) 'Cut - Pg. 3-41
sWrittenData = sWrittenData + Chr(&H7)

aku aja bngung tu untuk apa aja. hehe
buanyak kode untuk printer dot matrix
bagi yang bisa kasih komentar ya, buat sharing ilmu aja. maklum newbie tinggal copas

Read more

Cetak struk pakai printer star tipe cutter 1

Kemarin aku nyoba membuat program dengan memanfaatkan printer star aku lupa serinya tapi tipe kayak di market2 yang bisa langsung ada cutternya dan lebarnya cuma sekitar 6-8 cm. menggunakan kertas penggulung. Dulu pernah aku prosting gimana cara agar kertas berhenti sendiri dan tidak menggulung terus. tapi cara tersebut tidak bisa untuk mengatur besar kecilnya huruf. setelah browsing kesana-kemari dan mampir ke situs www.vb-bego.net di salam forumnya di bahas tapi akhirnya juga harus pakai ocx dan di komersilkan ya terpaksa sih cari-cari referensi yang lainnya. setelah cukup lama akhirnya aku menemukan gimana cara agar bisa membuat tulisannya tebal. dan aku gabungkan dengan source untuk tidak menggulung terus. silahkan di lanjutkan aja.

langsung aja aku berikan sourcenya aja ya

Open "Lpt1" For Output As #1

Print #1, Chr(27) & "@" 'mendekeksi printer
Print #1, Chr(27) & "A" & Chr(11)
Print #1, Chr(27) & "E" 'Membuat Tebal
Print #1, "Mencetak dengan ukuran 2 kali biasa"
Print #1, "Mencetak dengan ukuran 2 kali biasa"
Print #1, Chr(27) & "F" ' membuat normal kembali

Print #1, "Mencetak yang normal-normal saja"
Print #1, "Mencetak yang normal-normal saja"

Close #1

printer langsung mencetak sesuai dengan perintah dan akan berhenti sendiri deh.
source code ini aku dapat dari www.pscode.com. Terima kasih bagi yang buat.

semoga aja bermanfaat.

chung chin

Read more

Satu lagi cara membuat report dengan Ms Excell

Kemarin pada waktu aku berkunjung ke www.vb-bego.net aku menemukan source code gimana cara membuat report atau laporan dengan MS. Excell. langsung aja ya aku kasih sourcenya..
terima kasih kepada RidenX yang merupakan member dari www.vb-bego.net
untuk lihat sourcenya lanjutkan aja ya
saya tunggu komentarnya

Dim ApExcel As Object ' persiapkan untuk object Excel
Private Sub Command1_Click()
Dim i As Integer
Dim nama(5) As String
Dim alm(5) As String
Dim gaji(5) As String
'-------ambil data-------------------
Open App.Path & "\data.txt" For Input As #1
i = 1
Do
Input #1, nama(i), alm(i), gaji(i)
If nama(i) = "" Then Exit Do
i = i + 1
Loop Until EOF(1)


Set ApExcel = CreateObject("Excel.application") 'bikin object
ApExcel.Visible = True ' excel muncul
ApExcel.workbooks.Add 'nambahin workbook.
ApExcel.sheets("sheet1").Name = "SATU" ' me Rename Sheet satu
ApExcel.sheets("sheet2").Name = "DUA" ' me Rename Sheet dua
ApExcel.sheets("sheet3").Name = "TIGA" ' me Rename Sheet tiga
ApExcel.sheets("SATU").Activate 'Aktifkan Sheet satu



With ApExcel

.CELLS(1, 1).Value = "PT. INDONESIA TENTREM ADEM"
.CELLS(2, 1).Value = "REKAP GAJI BULAN " & UCase(Format(Month(Now), "MMMM")) & " TAHUN " & Year(Now)


.CELLS(1, 1).Font.COLORINDEX = 17 ' beri warna
.CELLS(2, 1).Font.COLORINDEX = 17



.CELLS(3, 1).Value = "No." 'Menulis di kolom 1 baris 1
.CELLS(3, 2).Value = "NAMA" 'Menulis di Kolom 2 baris 1
.CELLS(3, 3).Value = "ALAMAT" ' Menulis di kolom 3 baris 1
.CELLS(3, 4).Value = "GAJI"


.Columns(1).columnwidth = 6 ' set kolom 1 lebarnya 6
.Columns(2).columnwidth = 20 'set kolom 2 lebarnya 20
.Columns(3).columnwidth = 20 'set kolom 3 lebarnya 20
.Columns(4).columnwidth = 20 'set kolom 4 lebarnya 20
.sheets("SATU").RANGE("A1:d3").Font.Bold = True ' Bikin cetak tebel dari kolom A sampe C di sheet satu
.CELLS(3, 1).horizontalalignment = 3 '
.CELLS(3, 2).horizontalalignment = 3 'Bikin ketengah semua
.CELLS(3, 3).horizontalalignment = 3 '
.CELLS(3, 4).horizontalalignment = 3 '
For i = 1 To 5
.CELLS(3 + i, 1).Value = i 'tulis no urut
.CELLS(3 + i, 2).Value = nama(i) ' tulis nama
.CELLS(3 + i, 3).Value = alm(i) ' tulis alamat
.CELLS(3 + i, 4).Value = Format(gaji(i), "#,###,###") ' tulis gaji
Next i

.CELLS(4 + i, 4).formula = Format("=sum(D3:D" & 3 + i & ")", "#,###,###") ' sum data gajinya
.CELLS(4 + i, 2).Value = "TOTAL"
.CELLS(4 + i, 2).horizontalalignment = 3
.sheets("SATU").RANGE("b" & 4 + i & ":d" & 4 + i).Font.Bold = True 'cetak tebal bawahnya
.RANGE("a3:d" & 4 + i).borders.linestyle = 1 ' buat kotak
End With

Close (1) ' tutup file text

End Sub

databasenya menggunakan file txt jadi anda anda harus mempunyai file txt
silahkan anda buka notepad kemudian copas ni data

Unyil,Tangerang, 5000000
usro,Jakarta,1000000
Jontor,Bekasi,500000
Bapuk,Bogor,789000
JAenab,Jakarta,2000000

kemudian simpan dengan nama "data.txt"
semoga aja bermanfaat

chung chin

Read more