Gagal Install Blankon di Laptop BYON M31W

Kemarin pada waktu cari tutorial gimana cara install Linux dengan driver VGA SIS di dalamnya. akhirnya pengen coba distro Blankon buatan dalan negeri sendiri. setelah donlot beberapa lama n beberapa kali gagal. akhirnya aku suruh teman saya untuk mendownloadkan dan berrhasil donwnload Blankon yang versi 4 setelah burning Cd aku coba n juga aku masukan kata kunci acpi=off noapic nolapic setelah proses boooting tetep aja layar gerak terus sehingga tidak dapat diteruskan installasinya. Karena ingin coba maka aku download lagi yang versi 5 aku burning n coba install tetep aja ga bisa.
bagi temen-teman yang bisa bantu tolong donk kash masukkannya.....

Read more

Menjalankan BackTrack (BT) 3 di Laptop BYON M31W

Sudah sekian lama aku beli laptop BYON yang sangat menjengkelkan kalau di install linux dan sudah beberapa kali aku coba menginstall linux di laptopku, tapi hasilnya nihil hehe...hee... maklum newbie kalau linux, setelah tanya sana sini dan browsing akhirnya dapat juga menginstall linux di dalam laptopku kuncinya yaitu acpi=off noapic nolapic. udah aku coba bebrapa linux akhirnya bisa di install termasuk ubuntu.
permasalahan muncul lagi pada waktu nyoba menjalankan BT3 karena keinginkan untuk belajar hacking WEP jadi mencoba menjalankan.. tapi udah aku masuknya kata kuncinya acpi=off noapic nolapic dan jreeeeeng akhirnya ga bisa masuk ke GUI hanya sampai command aja.

karena penasaran aku coba oprek tu cara agar bisa masuk ke BT3 tapi mentok juga, akhirnya aku coba semua menu pilihan pada waktu booting BT3 dan akhirnya pada menu yang VESA grapic akhirnya aku bisa masuk juga. permasalahannya emang pada driver sis yang yang bisa untuk layar BYON, hehe...
tapi jangan lupa juga memasukkan kata kuncinya...
semoga bermanfaatttt....

Read more

Cetak kertas continous biar tidak menggulung di LX 300

Ini merupakan source code yang ada di forum.vbbego.net semoga aja source code ini bermanfaat dan udah aku manfaatkan untuk program parkir sebuah rumah sakit di daerah jawa tengah. silahkan anda lanjutkan aja ya....

hehe....
anda udah melanjutkan ya
ni aku kasih source codenya

anda buat dulu classmodule dan di beri nama clsRAWPrinter
silahkan anda copas ni source code

Option Explicit


Public Enum PrinterErrors
vbPE_CantOpenPrinter = 2000 ' Can't Open the printer device.
vbPE_CantStartJob ' Can't Start the print job.
vbPE_CantStartPage ' Can't start printing a page.
vbPE_UnSentBytes ' Some bytes were not successfully sent to the printer.
vbPE_KillDocFailed ' Could not cancel the print job.
vbPE_CantChangeName ' Can't change document name.
vbPE_FailedWrite ' Failed write to printer.
vbPE_ReadFileError ' Could not read from file.
vbPE_CantEndPage ' Call to end page failed.
vbPE_CantEndDoc ' Call to close doc failed.
vbPE_CantChangeDevice ' Can't change device while printing.
vbPE_CantCreateDC ' Can't create a device context.
End Enum

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
pDefault As Any) As Long

Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
pDocInfo As Any) As Long

Private Declare Function StartPagePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long

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 Type DOC_INFO_1
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function SetJob Lib "winspool.drv" Alias _
"SetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, _
ByVal Level As Long, pJob As Any, _
ByVal Command As Long) As Long

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Type JOB_INFO_1
JobId As Long
pPrinterName As String
pMachineName As String
pUserName As String
pDocument As String
pDatatype As String
pStatus As String
Status As Long
Priority As Long
Position As Long
TotalPages As Long
PagesPrinted As Long
Submitted As SYSTEMTIME
End Type

Private Const JOB_POSITION_UNSPECIFIED = 0

Private Declare Function GetJob Lib "winspool.drv" Alias "GetJobA" _
(ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, _
pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long) As Long

Private Const MAX_PRIORITY = 99
Private Const MIN_PRIORITY = 1
Private Const DEF_PRIORITY = 1


Private Declare Function WritePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long, pBuf As Any, _
ByVal cdBuf As Long, pcWritten As Long) As Long


Private Const JOB_CONTROL_PAUSE = 1
Private Const JOB_CONTROL_RESUME = 2
Private Const JOB_CONTROL_CANCEL = 3
Private Const JOB_CONTROL_RESTART = 4
Private Const JOB_CONTROL_DELETE = 5


Private lPrinter As Long ' Printer handle
Private lBytesWritten As Long ' Number of bytes written
Private lBytesSent As Long ' Number of bytes that should have been written.
Private lJob As Long ' Print job handle
Private sDocName As String ' Name of the document
Private sDeviceName As String ' Device name.

Private bJobStarted As Boolean ' Have we started a print job.

Public Sub NewPage()
If Not bJobStarted Then
NewDoc
Else
'end last page
If EndPagePrinter(lPrinter) <= 0 Then
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Err.Raise vbPE_CantEndPage, "RAWPrinter", "Can't end page."
Exit Sub
End If

If StartPagePrinter(lPrinter) <= 0 Then
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Err.Raise vbPE_CantStartPage, "RAWPrinter", "Can't start page."
Exit Sub
End If
End If
End Sub

Public Sub NewDoc(Optional DocName As String = "", Optional FileName As String = vbNullString)
Dim di As DOC_INFO_1

If bJobStarted Then
EndDoc
End If

If OpenPrinter(sDeviceName, lPrinter, ByVal 0&) <= 0 Then
Err.Raise vbPE_CantOpenPrinter, "RAWPrinter", "Can't Open Printer Device"
Exit Sub
End If

If DocName <> "" Then
sDocName = DocName
End If

di.pDocName = sDocName & vbNullChar
If FileName = vbNullString Then
di.pOutputFile = FileName
Else
di.pOutputFile = FileName & vbNullChar
End If
di.pDatatype = "RAW" & vbNullChar

lJob = StartDocPrinter(lPrinter, 1, di)

If lJob <= 0 Then
Call ClosePrinter(lPrinter)
Err.Raise vbPE_CantStartJob, "RAWPrinter", "Can't start print job."
Exit Sub
End If

If StartPagePrinter(lPrinter) <= 0 Then
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
Err.Raise vbPE_CantStartPage, "RAWPrinter", "Can't start page."
Exit Sub
End If

lBytesWritten = 0
lBytesSent = 0
bJobStarted = True
End Sub

Public Sub KillDoc()
Dim b As Long

If bJobStarted Then
b = SetJob(lPrinter, lJob, 0, ByVal 0&, JOB_CONTROL_CANCEL)
Call EndPagePrinter(lPrinter)
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Else
b = 0
End If

If b <= 0 Then
Err.Raise vbPE_KillDocFailed, "RAWPrinter", "Could not cancle the print job."
End If
End Sub

Public Sub EndDoc()
If Not bJobStarted Then
Exit Sub
End If

If EndPagePrinter(lPrinter) <= 0 Then
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Err.Raise vbPE_CantEndPage, "RAWPrinter", "Can't end page."
Exit Sub
End If

If EndDocPrinter(lPrinter) <= 0 Then
Call ClosePrinter(lPrinter)
bJobStarted = False
Err.Raise vbPE_CantEndDoc, "RAWPrinter", "Can't end print job."
Exit Sub
End If

Call ClosePrinter(lPrinter)

bJobStarted = False

If lBytesWritten <> lBytesSent Then
Err.Raise vbPE_UnSentBytes, "RAWPrinter", "Some data was not sent to the printer."
End If
End Sub

Public Property Let DeviceName(Name As String)
If bJobStarted Then
Err.Raise vbPE_CantChangeDevice, "RAWPrinter", "Can't change device while printing."
Else
sDeviceName = Name
End If
End Property

Public Property Get DeviceName() As String
DeviceName = sDeviceName
End Property

'
' Bug... this doesn't work
'
Public Property Let DocumentName(DocName As String)
Dim di As JOB_INFO_1

If bJobStarted Then
di.pDocument = DocName & vbNullChar

If SetJob(lPrinter, lJob, 1, di, 0&) <= 0 Then
Err.Raise vbPE_CantChangeName, "RAWPrinter", "Failed to change document name."
Exit Property
End If
End If

sDocName = DocName
End Property

Public Property Get DocumentName() As String
DocumentName = sDocName
End Property

Public Sub PrintText(txt As String)
Dim i As Long

If Not bJobStarted Then
NewDoc
End If

lBytesSent = lBytesSent + Len(txt)

If WritePrinter(lPrinter, ByVal txt, Len(txt), i) = 0 Then
Call EndPagePrinter(lPrinter)
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Err.Raise vbPE_FailedWrite, "RAWPrinter", "Failed write to printer."
Exit Sub
End If

lBytesWritten = lBytesWritten + i
End Sub

Public Sub PrintFile(fname As String)
Dim fh As Long
Dim Buffer As String
Dim fl As Long
Dim r As Long
Dim i As Long
Dim bs As Long

If Not bJobStarted Then
NewDoc
End If

fh = FreeFile(0)
bs = 8192
Buffer = String(bs, 0)

Open fname For Binary Access Read As fh
fl = LOF(fh)
r = 0

If fl = 0 Then
Close fh
Exit Sub
End If

Do
If fl - r < bs Then
bs = fl - r
Buffer = String(bs, 0)
End If

Get fh, , Buffer

lBytesSent = lBytesSent + bs
r = r + bs

If WritePrinter(lPrinter, ByVal Buffer, bs, i) = 0 Then
Call EndPagePrinter(lPrinter)
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
On Error GoTo 0
Err.Raise vbPE_FailedWrite, "RAWPrinter", "Failed write to printer."
Exit Sub
End If

lBytesWritten = lBytesWritten + i
Loop While r <> fl

Close fh
Exit Sub

PrintFileError:
On Error Resume Next

Call EndPagePrinter(lPrinter)
Call EndDocPrinter(lPrinter)
Call ClosePrinter(lPrinter)
bJobStarted = False
Close fh

On Error GoTo 0
Err.Raise vbPE_ReadFileError, "RAWPrinter", "Could not read from file."
End Sub

Private Sub Class_Initialize()
sDocName = "Visual Basic - RAWPrinter"
sDeviceName = Printer.DeviceName
bJobStarted = False
End Sub

Private Sub Class_Terminate()
If bJobStarted Then
EndDoc
End If
End Sub

Public Property Get hPrinter() As Long
hPrinter = lPrinter
End Property

Public Property Get hJob() As Long
hJob = lJob
End Property

Public Property Get Priority() As Long
Dim di As String ' stores JOB_INFO_1
Dim i As Long

Call GetJob(lPrinter, lJob, 1, ByVal di, 0, i)
di = String(i, 0)
Call CopyMemory(i, ByVal (Mid$(di, 33, 4)), 4)

Priority = i
End Property

' Bug: Doesn't work?
Public Property Let Priority(ByVal i As Long)
Dim di As JOB_INFO_1

'JobId, pPrinterName, pMachineName, pDrivername,
'Size, Submitted, and Time are ignored
If i < MIN_PRIORITY Then
i = DEF_PRIORITY
ElseIf i > MAX_PRIORITY Then
i = MAX_PRIORITY
End If

di.Priority = i
di.Position = JOB_POSITION_UNSPECIFIED
di.pUserName = vbNullString
di.pDocument = vbNullString
di.pDatatype = vbNullString
di.pStatus = vbNullString
di.Status = 0
di.TotalPages = 0
di.PagesPrinted = 0

Call SetJob(lPrinter, lJob, 1, di, 0)
End Property

anda sudah copas, silahkan anda buat source code sesuai keingginan sebagai contoh ni aku kasih source code yang aku buat pada project parkir aku

Sub Printing()
Dim p As New clsRAWPrinter
Open App.Path + "\cetak.txt" For Output As #1
Print #1, Tab(1); Nama
Print #1, Tab(1); Alamat
Print #1, Tab(1); "Telp. " + Telp
Print #1, Tab(1); " "
Print #1, Tab(1); "===================================="
Print #1, Tab(1); "Parkir tanggal " + txtFields(0).Text
Print #1, Tab(1); "No. Karcis = " + NoKarcis
Print #1, Tab(1); "Nopol = " + txtFields(1).Text + txtFields(2).Text + txtFields(3).Text
Print #1, Tab(1); "Tarif = " + Bayare
Print #1, Tab(1); "Petugas = " + txtPetugas.Text
Print #1, Tab(1); "====> Terima Kasih <==="
Print #1, Tab(1); " "
Print #1, Tab(1); " "
Print #1, Tab(1); " "
Print #1, Tab(1); " "
Print #1, Tab(1); " "
Close #1
p.PrintFile (App.Path + "\cetak.txt")
p.EndDoc
End Sub

selamat mencoba ya semoga sukses

Read more

Tugas Database Untuk Anak TKJ kelas 2

Silahkan anda buat suatu database di MS. Access, kemudian anda buatkan formnya di Visual basic, dari semua database itu anda pilih salah satu tabel kemudian anda gabung, semua adalah team, jadi salah satu ga jadi maka seluruh database tersebut juga tidak akan jadi. Untuk itu anda harus bisa kerjasama team.
Untuk gambaran alurnya anda bisa lihat hubungan antar tabel di bawah.
Dari semua tabel diatas ada hubungannya jadi setelah selesai nanti setiap kelompok digabung sehingga nantinya jadi suatu database yang besar. Untuk study kasus anda gunakan SMK 1 Rembang sebagai acuannya. Untuk pembagian kelompok silahkan anda diskusikan aja satu kelas.

Silahkan anda kerjakan, nantinya akan saya bantu sehingga nantinya program ini bisa di gunakan untuk SMK 1 Rembang dan bisa bermanfaat dan anda punya kenangan-kenangan setelah lulus nanti.
Lebih lengkap donlot di sini
silahkan nanti kalau ada kesulitan bisa kirim email atau lewat YM

Read more

Cara Menjalankan MP3 di Visual basic

nak kali ini saya akan berbagi cara memutar file MP3 di visual basic, dimana pada Visual Basic harus di tambahi 1 control, langsung aja ya ga usah banyak omong, hehe...
silahkan aja klik disini yaaaaaaaaaaaaaaaaaaaaa

Read more

Mohon Doanya

Mohon doa untuk selutuh yang membaca blog ku ini karena ayah sedang ada di Rumah Sakit karena kecelakaan, mungkin akan lama saya tidak akan ol dan mengedit blog, karena harus konsen demi kesembuhan bapak saya.
mohon doanya yaaaaaaaaaaaaa

Read more

Install Ubuntu 8.10 di Laptop BYON

Sudah sejak tahun 2008 aku membeli laptop BYOM M31W T5750 dengan VGA SIS Mirage 3+. sejak saat itulah terjadi permalahan yang sangat mendasar yaitu tidak bisanya di install linux di dalam laptop tersebut. sejak pertama kali install pasti ditengah2 perjalanan pasti berhenti. Sudah beberapa kali browsing ternyata yang jadi masalahnya ada VGA SIS nya. akhirnya aku menyerah juga untuk menginstall linux sambil menunggu kalau ada cara untuk install linux. Setelah baca-baca dan ikuti forum-forum yang ada akhirnya di forum chip diberikan solusinya, tapi aku coba berkali-kali tidak bisa juga dari install ubuntu versi 7.10, 8.04, dan 8.10, selain itu aku juga menginstall mandriva 2008, vixta, backtrack 3, gOS. setelah baca itu hanya bisa install saja tapi VGA ama Wifinya belum juga bisa ke detect. walaupun di sana juga di berikan cara tapi karena masih newbie ya ga bisa2. heheee.
tapi karena semangat untuk bisa install linux di laptop ku ya akhirnyas browsing lagi dengan bantuam mas quack akhirnya saya dapat juga tutorial untuk dapat install VGA dan WIFI.
silahkan dilanjutkan untuk langkah-langkahnya.....

1. Masukkan CD Ubuntu 8.10 kemudian booting komputer
2. Tekan F6 2 kali kemudian pilih acpi=off noapic nolapic
3. Install seperti biasa sampai selesai

Read more

Source Code Bel Sekolah

Source code ini merupakan source code program untuk membunyikan bel sekolah secara otomotis sesuai dengan jam yang di ketikkan, kemudian komputer akan mati sendiri jika udah jam yang ditentukan sehingga orang seorang Tata Usaha yang biasa melakukan bel tidak usah bingung-bingung dalam pengoperasiannya. Program ini dibuat secara otomatis jalan dan hanya orang yang tertentu aja yang bisa mematikan program ini (hehe kecuali komputernya di matikan atau ga ada sambungan listriknya).

Untuk saat ini source codeya belum aku postingkan. tapi nanti kalau nanti udah ada 15 yang komentar dan request ni source code nanti pasti aku upload deh.
tunggu ya tanggal mainnya.

hehe kayak film aja ya...

terima kasih atas komentarnya, ni aku kasih linknya untuk di donlot.
klik ning keneeeeeeeeeeeeee ya (disini)
semoga aja dapat bermanfaat. jangan lupa komentar dikit biar hidup ni blog
aku bahas sedikit aja ya
dulu ni bel sekolah aku buat untuk membantu dalam proses bel di sekolah aku tapi karena ga dipakai n ga dihargai ni program jadi ga dipakai lagi, kembali kemanual lagi deh, ga tahu apa disekolah ku ga mau yang di buat teknologi maunya ke manual terus. he .. he.... oke deh ga usah panjang lebar nanti jadi luas. hehe .....di dalamnya ada file type cc@ yang merupakan hasil dari penyimpanan settingan. dan menyimpan bentuk file wavnya. silahkan aja di buka. hehe ada password terencrypt. silahkan aja di cari sendiri passwordnya untuk menutup aplikasi tersebut.
eh ya hampir lupa password untuk buka file zipnya adalah kosong

Read more

Pertemuan DIKNAS, DEPAG dan PGSR

pada hari ini kami pengurus besar PGSR (Perhimpunan Guru Swasta Rembang) mengadakan pertemuan dengan pegawai DEPAG dan DIKNAS dalam pertemuan ini membahas tentang Data Guru Swasta Murni baik di sekolah swasta maupun Negeri sehingga nantinya bisa mendapatkan tunjangan dari Pemeritah Daerah Rembang. untuk sementara sekian dulu...
karena ni baru rapat croscek data.

untuk keputusannya adalah
Hasil audensi dengan DIKNAS dan DEPAG
Kriteria untuk mendapatkan dana adalah
1. TMT pertanggal Juli 2007
2. Untuk Ijazah harus formal
3. Yang sejak 2007 yang di pertahankan
4. Ijazah setara SMK/MA/SMA adalah D3 (bagi yang belum menerima), SMP/MTS adalah D2
5. SD/MI/TK adalah SMA

dari PGSR datang ketua PGSR Slamet Winarto, S.Pd. dan anggota
sedang dari diknas di wakili bpk. Dandung
sedang dari depag Nuryani, S.Ag.

Read more