Thursday, December 23, 2010

Cetak Ke Printer Via LPT Port Menggunakan VB6

Di bawah ini merupakan contoh cara mencetak ke printer via LPT Port menggunakan Visual Basic 6 - Adapun kodenya adalah sebagai berikut:
Public Function PrintToLPTPort(ByVal port As String, ByVal text As String) As Boolean 
On Error GoTo
ErrHandler
Dim l As Long
l = FreeFile
Open
port For Output As #l
Print #F, text
Close #l
PrintToLPTPort = True
Exit Function

ErrHandler:
PrintToLPTPort = False
End Function
Contoh penggunaan cetak ke printer via LPT Port:
Private Sub Command1_Click() 
PrintToLPTPort "LPT1", "Test Print"
End Sub
READ MORE - Cetak Ke Printer Via LPT Port Menggunakan VB6

Wednesday, December 22, 2010

Web Color Spy - Mendeteksi Warna Standar Web

Di bawah ini merupakan project VB6 sederhana untuk mendeteksi warna standar web. Bagaimana kode project web color spy untuk mendeteksi warna standar web, bisa lihat di bawah ini:
'simpan kode di bawah pada module 
Option Explicit

Public Declare Function
CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any)
Public Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Type
POINTAPI
X As Long
Y As Long
End Type

Public Declare Function
GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'simpan kode di bawah pada form 
'Timer.Interval = 1
'Picture1.AutoRedraw = True

Option Explicit

Dim pt As
POINTAPI
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Timer1.Enabled = True
Picture1.MousePointer = vbCrosshair
End Sub

Private Sub
Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Picture1.MousePointer = vbDefault
End Sub

Private Sub
Timer1_Timer()
Dim screendc As Long
GetCursorPos pt
screendc = CreateDC("DISPLAY", "", "", 0&)
Picture1.BackColor = GetPixel(screendc, pt.X, pt.Y)
Text1.Text = "#" & Hex(GetPixel(screendc, pt.X, pt.Y))
DeleteDC (screendc)
End Sub
READ MORE - Web Color Spy - Mendeteksi Warna Standar Web

Friday, October 8, 2010

Download Software Faraidh (Hitung Warits) At-Tashil Versi 4.1

At-Tashil, merupakan software faraidh (hitung warits) , dilengkapi dengan fasilitas struktur pohonnya yang sangat membantu mempermudah dalam penggunaan. At-Tashil dibuat oleh Mas Ahmad Ruswandi. Dalam At-Tashil v4.0 terdapat dua tambahan bahasa, yakni Arab dan Inggris. Versi 4.1 (Oktober 2010) merupakan versi terakhir yang telah dirilis.

Menurut pembuatnya, Software ini masih dalam tahap evaluasi. Silahkan download dan diperiksa, bilamana terdapat bugs dan errors dalam software ini, Anda dapat berbagi dengan pengembangnya melalui email kaisansoft [at] gmail.com atau diskusikan melalui forum di situs kaisansoft.com.

Download Software At-Tashil Versi 4.1

Perhatian: 
Saat ini situ http://kaisansoft.com sudah tidak bisa di akses lagi.
READ MORE - Download Software Faraidh (Hitung Warits) At-Tashil Versi 4.1

Friday, October 1, 2010

Manteq - Faraidh : Contoh Soal - 5

Seseorang meninggal dunia dengan meninggalkan harta 216.000, adapun ahli waritsnya: Istri, ayah, ibu, anak perempuan, cucu perempuan

Istri
Apakah: terdapat far'ul warits?
YA maka 1/8
JIKA TIDAK maka 1/4

Maka kesimpulannya istri 1/8

Ayah
Apakah: Bersama far'ul warits mudzakkar?
YA maka 1/6
JIKA TIDAK, apakah bersama far'ul warits muannats?
YA maka 1/6 + ( ashabah jika radd)
JIKA TIDAK, maka ashabah (binafsihi).

Maka kesimpulannya ayah 1/6 + ( ashabah jika radd)

Ibu
Apakah: masalah gharrawain?
YA maka 1/3 sisa
JIKA TIDAK, apakah bersama far'ul warits atau sekumpulan saudara/saudari?
YA maka 1/6
Jika tidak maka 1/3

Maka kesimpulannya ibu 1/6

Anak perempuan
Apakah:Bersama mua'shibnya (anak laki-laki)?
YA maka ashabah (bilghairi)
JIKA TIDAK, apakah 1 orang?
YA maka 1/2
JIKA TIDAK, maka 2/3

Maka kesimpulannya anak perempuan 1/2

Cucu Perempuan
Apakah: Ada anak laki-laki?
YA, maka mahjub
JIKA TIDAK, apakah bersama muashibnya (cucu laki-laki)?
YA maka ashabah (bilghairi)
JIKA TIDAK, apakah ada anak perempuan > 1 orang?
YA maka mahjub
JIKA TIDAK, apakah ada anak perempuan = 1 orang?
YA maka 1/6
JIKA TIDAK, apakah berjumlah 1 orang?
YA maka 1/2
JIKA TIDAK, maka 2/3

Maka kesimpulannya cucu perempuan 1/6

1/8 x 24 = 3
1/6 x 24 = 4
1/6 x 24 = 4
1/2 x 24 = 12
1/6 x 24 = 4

3 + 4 + 4 + 12 + 4 = 27
Jika hasilnya lebih dari 24 maka aul dan 27 lebih dari 24 maka aul.

Istri : 3/27 x 216.000 = 24.000
Ayah : 4/27 x 216.000 = 32.000
Ibu : 4/27 x 216.000 = 32.000
Anak perempuan : 12/27 x 216.000 = 96.000
Cucu perempuan : 4/27 x 216.000 = 32.000

SELESAI
READ MORE - Manteq - Faraidh : Contoh Soal - 5