Reset Printer Canon All Type ini termasuk dalam kategori Pixma, antara lain: Canon Pixma iP1200, iP1300, iP1500, iP1600, iP1700, iP1880, iP2200 dan sebagainya. Canon Pixma merupakan printer yang paling banyak digunakan dan umumnya sering juga dalam kurun waktu tertentu mengalami touble sehingga sangat diperlukan sekali Reset Printer.
Reset Printer ini cukup mudah dilakukan, berbekal petunjuk sederhana ini anda sedapat mungkin akan bisa melakukan sebuah teknik me-reset printer khususnya printer canon. Yuk ikuti langkah-langkahnya.
Masuk ke Service Mode:
1. Matikan Printer
2. Lepaskan kabel Power dan USB
3. Tekan dan tahan tombol POWER, tancapkan kabel POWER
4. Tekan RESUME 2x
5. lepaskan tombol POWER dan RESUME
6. Lampu akan kedap-kedip beberapa saat, tunggu hingga lampu menyala stabil
Reset dengan Software Permanen:
1. Tancapkan kembali kabel USB
2. Silahkan buka GENERAL TOOLS SOFTWARE dan pilih USB PORT
3 .Centang di EEPROM CLEAR
4. Klik MAIN sekali (lampu printer akan kedip 1x)
5. Kemudian klik TEST PATTERN 1
6. Matikan printer
Coba lakukan test print, jika langkah diatas tidak membuahkan hasil yang diharapkan, anda disarankan untuk membawa ke Teknisi yang lebih ahli.
Tagged on : software resetter printer canon, software resetter canon ip 1700, software reset canon ip 1880, reset printer canon ip1880, canon pixma reset, reset canon mp160, reset printer canon mp145, reset printer canon ip1000
Reset Printer HP Deskjet
Reset Printer merupakan sebuah teknik untuk me-reset sebuah printer ke keadaan default. Hal ini biasa dilakukan ketika printer mengalami trouble sehingga perlu dilakukan Reset Printer.
Reset Printer HP Deskjet ini terbilang cukup simple namun harus hati-hati, mengingat printer adalah barang yang paling sensitif dengan kelistrikan. Yuk diterapkan.
Langkah-Langkah:
1. Hidupkan printer, buka cover printer, keluarkan salah satu cartridge
2. Selotip bagian cartridge (lihat gambar) yang warna merah
3. Pasang cartridge, tutup cover printer, biarkan printer bekerja
4. Buka Cover printer, keluarkan cartridge selotip bagian cartridge (lihat gambar) bagian biru. Sementara selotip sebelumnya jangan dilepaskan
5. Pasang cartridge, tutup cover printer, biarkan printer bekerja.
6. Buka cover printer, keluarkan cartridge, lepaskan kedua selotip. Pasang kembali cartridge.
7. Matikan printer, lepaskan kontak listrik printer, lepaskan kabel koneksi komputer, diamkan kurang lebih 20 detik.
8. Sambungkan dan nyalakan seperti biasa
9. Selamat mencetak.
Tagged on : reset printer hp, reset printer canon, software reset printer, cara reset printer, manual reset printer, reset printer blogs, reset printer pictures, reset printer 1
Selasa, 27 Juli 2010
[VB 6] Cara Membuat MySQLConnectionKami.dll yang sederhana
Bagi banyak programmer VB 6 yang sudah mahir, mungkin membuat DLL koneksi database sudah hal yang lumrah dan biasa saja. Namun apakah hal itu juga berlaku pada pemula VB 6 ? hemmm tentu jawabannya relatif juga, ada yang bisa dan ada yang tidak, nah… bagi yang sudah bisa jangan menghina kesederhanaan coding DLL ini oke hehehehe, karena tujuan penulis membuat tulisan ini untuk membantu para pemula yang kesulitan dalam membuat koneksi database menggunakan DLL.
Oke, dari pada penulis berkata panjang lebar, lebih baik penulis langsung saja membahas bagaimana membuat MySQLConnectionKami.dll dengan VB 6
Langkah pertama kita buat dll-nya terlebih dahulu
1. Buka VB6
2. Buat Project DLL baru (File – ActiveX DLL – OK)
3. Beri nama Class1 dengan nama clsMySQLConnection
4. Ketik listing program berikut pada clsMySQLConnection
Option Explicit
Private strServer As String
Private strDatabase As String
Private strUID As String
Private strPWD As String
Private strPort As String
Private cnOpen As Boolean
Private cn As ADODB.Connection
Private DGError
Private cnString As String
‘open connection
Public Sub Open_Cn(ByVal nstrServer As String, ByVal nstrDatabase As String, ByVal nstrUID As String, ByVal nstrPWD As String, ByVal nstrPort As String)
On Error GoTo errhandler
strServer = nstrServer
strDatabase = nstrDatabase
strUID = nstrUID
strPWD = nstrPWD
strPort = nstrPort
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cnString = “Driver=MySQL ODBC 3.51 Driver;Server=” & strServer & “;UID=” & strUID & “;PWD=” & strPWD & “;Database=” & strDatabase & “;port=” & strPort
cn.Open cnString
cnOpen = True
Exit Sub
errhandler:
Call MsgBox(“Connection Error.”, vbOKOnly, “Error”)
strServer = “”
cnOpen = False
End Sub
‘re open connection
Public Sub Re_Open_Cn()
Call Close_Cn
Call Open_Cn(strServer, strDatabase, strUID, strPWD, strPort)
End Sub
‘close connection
Public Sub Close_Cn()
If cnOpen = True Then
cn.Close
Set cn = Nothing
cnOpen = False
End If
End Sub
‘ambil nama server
Public Property Get myStrServer() As String
myStrServer = strServer
End Property
‘memberi nama server
Public Property Let myStrServer(ByVal nstrServer As String)
strServer = nstrServer
End Property
‘ambil nama database
Public Property Get myStrDatabase() As String
myStrDatabase = strDatabase
End Property
‘memberi nama database
Public Property Let myStrDatabase(ByVal nstrDatabase As String)
strDatabase = nstrDatabase
End Property
‘ambil nama user
Public Property Get myStrUID() As String
myStrUID = strUID
End Property
‘memberi nama user
Public Property Let myStrUID(ByVal nstrUID As String)
strUID = nstrUID
End Property
‘memberi password
Public Property Let myStrWD(ByVal nstrPWD As String)
strPWD = nstrPWD
End Property
‘ambil port
Public Property Get myStrPort() As String
myStrPort = strPort
End Property
‘memberi port
Public Property Let myStrPort(ByVal nstrPort As String)
strPort = nstrPort
End Property
‘ambil connection
Public Property Get myStrConnection() As ADODB.Connection
Set myStrConnection = cn
End Property
5. Save Project dengan nama MySQLConnectionKami di foleder (Project MySQLConnection)
6. Make MySQLConnectionKami.dll dan simpan di folder (Project MySQLConnection\DLL)
7. Buat Form pemanggil, dengan mebuka VB 6 (File – New Project – VB Enterprise Edition Controls – OK)
8. Beri nama Form dengan frm_CobaMySQLConnection
9. Tambahkan 1 buah Listview dan Button
10. Beri nama Listview1 dengan lvAmbilData
11. Beri nama Button1 dengan nama cmd_AmbilData
12. Rekomendasikan MySQLConnectionKami.dll (Project – Reference – Browse File MySQLConnection.dll – OK)
13. Pada lvAmbilData rubah view-nya pada Properties dengan 3-lvwReport
14. Ketik listing program berikut ini pada Form frm_CobaMySQLConnection
Private ambilConnection As MySQLConnectionKami.clsMySQLConnection
Private rs As ADODB.Recordset
Private Sub cmd_AmbilData_Click()
On Error Resume Next
Dim i As Double
Dim j As Double
Dim k As Double
Set rs = New ADODB.Recordset
Set ambilConnection = New MySQLConnectionKami.clsMySQLConnection
ambilConnection.Open_cn “localhost”, “MySQL”, “root”, “badboyfuck”, “8080″
rs.Open “SELECT * FROM help_category h;”, ambilConnection.myStrConnection, adOpenDynamic
jmlhRecord = rs.RecordCount
If jmlhRecord > 0 Then
For i = 0 To rs.Fields.Count – 1
lvAmbilData.ColumnHeaders.Add , , rs.Fields(i).Name, 2000
Next i
For k = 0 To rs.RecordCount – 1
If IsNull(rs.Fields(0).Value) Then _
lvAmbilData.ListItems.Add , , “” Else lvAmbilData.ListItems.Add , , rs.Fields(0).Value
For j = 1 To rs.Fields.Count – 1
If IsNull(rs.Fields(1).Value) Then _
lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , “” Else lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , rs.Fields(j).Value
Next j
rs.MoveNext
Next k
End If
rs.Close
ambilConnection.Close_cn
Set rs = Nothing
End Sub
15. Jalankan program, semoga berhasil dan bermanfaat...
Oke, dari pada penulis berkata panjang lebar, lebih baik penulis langsung saja membahas bagaimana membuat MySQLConnectionKami.dll dengan VB 6
Langkah pertama kita buat dll-nya terlebih dahulu
1. Buka VB6
2. Buat Project DLL baru (File – ActiveX DLL – OK)
3. Beri nama Class1 dengan nama clsMySQLConnection
4. Ketik listing program berikut pada clsMySQLConnection
Option Explicit
Private strServer As String
Private strDatabase As String
Private strUID As String
Private strPWD As String
Private strPort As String
Private cnOpen As Boolean
Private cn As ADODB.Connection
Private DGError
Private cnString As String
‘open connection
Public Sub Open_Cn(ByVal nstrServer As String, ByVal nstrDatabase As String, ByVal nstrUID As String, ByVal nstrPWD As String, ByVal nstrPort As String)
On Error GoTo errhandler
strServer = nstrServer
strDatabase = nstrDatabase
strUID = nstrUID
strPWD = nstrPWD
strPort = nstrPort
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cnString = “Driver=MySQL ODBC 3.51 Driver;Server=” & strServer & “;UID=” & strUID & “;PWD=” & strPWD & “;Database=” & strDatabase & “;port=” & strPort
cn.Open cnString
cnOpen = True
Exit Sub
errhandler:
Call MsgBox(“Connection Error.”, vbOKOnly, “Error”)
strServer = “”
cnOpen = False
End Sub
‘re open connection
Public Sub Re_Open_Cn()
Call Close_Cn
Call Open_Cn(strServer, strDatabase, strUID, strPWD, strPort)
End Sub
‘close connection
Public Sub Close_Cn()
If cnOpen = True Then
cn.Close
Set cn = Nothing
cnOpen = False
End If
End Sub
‘ambil nama server
Public Property Get myStrServer() As String
myStrServer = strServer
End Property
‘memberi nama server
Public Property Let myStrServer(ByVal nstrServer As String)
strServer = nstrServer
End Property
‘ambil nama database
Public Property Get myStrDatabase() As String
myStrDatabase = strDatabase
End Property
‘memberi nama database
Public Property Let myStrDatabase(ByVal nstrDatabase As String)
strDatabase = nstrDatabase
End Property
‘ambil nama user
Public Property Get myStrUID() As String
myStrUID = strUID
End Property
‘memberi nama user
Public Property Let myStrUID(ByVal nstrUID As String)
strUID = nstrUID
End Property
‘memberi password
Public Property Let myStrWD(ByVal nstrPWD As String)
strPWD = nstrPWD
End Property
‘ambil port
Public Property Get myStrPort() As String
myStrPort = strPort
End Property
‘memberi port
Public Property Let myStrPort(ByVal nstrPort As String)
strPort = nstrPort
End Property
‘ambil connection
Public Property Get myStrConnection() As ADODB.Connection
Set myStrConnection = cn
End Property
5. Save Project dengan nama MySQLConnectionKami di foleder (Project MySQLConnection)
6. Make MySQLConnectionKami.dll dan simpan di folder (Project MySQLConnection\DLL)
7. Buat Form pemanggil, dengan mebuka VB 6 (File – New Project – VB Enterprise Edition Controls – OK)
8. Beri nama Form dengan frm_CobaMySQLConnection
9. Tambahkan 1 buah Listview dan Button
10. Beri nama Listview1 dengan lvAmbilData
11. Beri nama Button1 dengan nama cmd_AmbilData
12. Rekomendasikan MySQLConnectionKami.dll (Project – Reference – Browse File MySQLConnection.dll – OK)
13. Pada lvAmbilData rubah view-nya pada Properties dengan 3-lvwReport
14. Ketik listing program berikut ini pada Form frm_CobaMySQLConnection
Private ambilConnection As MySQLConnectionKami.clsMySQLConnection
Private rs As ADODB.Recordset
Private Sub cmd_AmbilData_Click()
On Error Resume Next
Dim i As Double
Dim j As Double
Dim k As Double
Set rs = New ADODB.Recordset
Set ambilConnection = New MySQLConnectionKami.clsMySQLConnection
ambilConnection.Open_cn “localhost”, “MySQL”, “root”, “badboyfuck”, “8080″
rs.Open “SELECT * FROM help_category h;”, ambilConnection.myStrConnection, adOpenDynamic
jmlhRecord = rs.RecordCount
If jmlhRecord > 0 Then
For i = 0 To rs.Fields.Count – 1
lvAmbilData.ColumnHeaders.Add , , rs.Fields(i).Name, 2000
Next i
For k = 0 To rs.RecordCount – 1
If IsNull(rs.Fields(0).Value) Then _
lvAmbilData.ListItems.Add , , “” Else lvAmbilData.ListItems.Add , , rs.Fields(0).Value
For j = 1 To rs.Fields.Count – 1
If IsNull(rs.Fields(1).Value) Then _
lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , “” Else lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , rs.Fields(j).Value
Next j
rs.MoveNext
Next k
End If
rs.Close
ambilConnection.Close_cn
Set rs = Nothing
End Sub
15. Jalankan program, semoga berhasil dan bermanfaat...
Langganan:
Postingan (Atom)