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

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

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

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