Tentang IndoChip

Seiring dengan perkembangan era globalisasi, dunia teknologi informasi juga berkembang dengan pesat dan pada abad 21 ini teknologi informasi sudah menjadi kebutuhan primer bagi banyak kalangan. Dengan menggunakan teknologi informasi, suatu proses dan kegiatan dapat dilakukan dengan lebih cepat, mudah dan efisien.

Lebih lanjut >>

Tulisan Populer

Bergabung di RSS Feed

Layanan RSS Feed

RSS (Really Simple Syndication) adalah istilah dalam teknologi Internet yang merujuk pada cara men-sindikasi-kan konten web (web syndication), tanpa harus terlebih dahulu mengunjungi situs ini.

02
Jul

KlikSaya atau KlikLebay…

Heran… pas liat blog ppc dr kliksaya.com kok ga nongol. Selang beberapa detik masuk email dari David Ciang, kurang lebih bgini ngomongnya:

“Mohon maaf iklan kliksaya.com dihentikan karena jumlah pengunjung untuk situs anda kurang dari 10.000 views perbulan”

Om… saya baru daftar tgl 23-06-09, main vonis blog sepi aj…

JANGAN LEBAY DONK…..

Liat nih emailnya yg waktu itu nyenengin ati.

Umur kerjasama belon genap 2 minggu, udh ketakutan ga untung gede aj… Tapi Up2U lah… lo ownernya, jd suka-suka lo aj.

Makasih jg udh ngasih kesempatan buat bloger baru. No heart feeling menn…, bisnis emang kadang-kadang kejam…

Tapi JANGAN LEBAY DONK…..

Popularity: 1% [?]

27
Jun

Konfigurasi Autoexec dan Config Clipper Pada Windows

Program yang diCompile menggunakan Clipper biasanya membutuhkan setingan tambahan, antara lain:

1. System Operasi MS-DOS dan Win 9x

  • AutoExec.Bat: SET CLIPPER=//F:99
  • Config.Sys: FILES=150 | BUFFERS=50

2. System Operasi Win XP

  • File AutoExec.Nt di C:\Windows\System32: SET CLIPPER=//F:99
  • Config.Nt di C:\Windows\System32: FILES=150 | BUFFERS=50

3. System Operasi Win MEyang ini agak ribet, setingannya saya agak lupa, nanti cari-cari catetan dulu deh…

Popularity: 1% [?]

14
Jun

Membuat Tugas Akhir: Aplikasi PPh Pasal 21 (bag.1)

Lagi enak2 senderan bis makan siang, tau2 pundak ditepuk ma Utut anak Tax.

“Gw mo TA nih…, mo ga bikinin Aplikasi PPh Pasal 21?”

“Berapa duit?”

“150 rb!, tp seminggu ya…, trus pake VB6″

“Ok Deal!”

Mendesign Struktur Database

Tentukan dahulu struktur Databasenya, saya tulis dalam vbModul seperti berikut:

mdlUtama.bas

Option Explicit
‘ Koneksi DataBase menggunakan:
‘ - Reference Microsoft ActiveX Data Object 2.x Library
‘ - Reference ADO Ext. 2.x For DDL and Security

Public ConnMDB As New ADODB.Connection
Public CatMDB As New ADOX.Catalog
Public CatRpt As New ADOX.Catalog
Public TblMDB As ADOX.Table
Public TblRpt As ADOX.Table
Public strFile As String
Public SQL As String
Public i As Integer
Public strUser As String
Public strPlu As String

Public Sub Main()

‘ Buka Koneksi DataBase Cukup Sekali saja
‘ Panggil Sub Koneksi Database
Call KoneksiData
MDIfrmUtama.Show

End Sub

Public Sub KoneksiData()

‘Letak Database sama dengan Path Aplikasi
strFile = App.Path & “\Utut.Mdb”

‘Cek keberadaan data
If Dir(strFile) = “” Then

‘Jika tidak ada buat Database baru
CatMDB.Create “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & strFile & _
“;Jet OLEDB:Database Password=;”

‘Buat Tabel Karyawan
Set TblMDB = New ADOX.Table
With TblMDB
.Name = “Karyawan”
.Columns.Append “NPWP”, adVarWChar, 50
.Columns.Append “Nama WP”, adVarWChar, 100
.Columns.Append “Alamat”, adVarWChar, 100
.Columns.Append “Status”, adVarWChar, 20
.Columns.Append “Gaji Pokok”, adDouble
.Columns.Append “Tunjangan”, adDouble
.Columns.Append “Lembur”, adDouble
.Columns.Append “Jumlah Penghasilan Tetap”, adDouble
.Columns.Append “Biaya Jabatan”, adDouble
.Columns.Append “Jumlah Penghasilan Netto”, adDouble
.Columns.Append “Penghasilan Tidak Tetap”, adDouble
.Columns.Append “Total Penghasilan”, adDouble
.Columns.Append “PTKP”, adDouble
.Columns.Append “PKP”, adDouble
.Columns.Append “PPh Pasal 21″, adDouble
End With

‘Tambah Primari Key dan Index Key
TblMDB.Keys.Append “PrimeKey”, adKeyPrimary, “NPWP”
TblMDB.Indexes.Append “IndexKey”, “NPWP”
CatMDB.Tables.Append TblMDB
Set TblMDB = Nothing

‘Buat Tabel Tenaga Ahli
Set TblMDB = New ADOX.Table
With TblMDB
.Name = “Tenaga Ahli”
.Columns.Append “NPWP”, adVarWChar, 50
.Columns.Append “Nama WP”, adVarWChar, 100
.Columns.Append “Alamat”, adVarWChar, 100
.Columns.Append “Telepon”, adVarWChar, 30
.Columns.Append “Penghasilan Bruto”, adDouble
.Columns.Append “Keahlian”, adVarWChar, 100
.Columns.Append “PPh Dipotong”, adDouble
End With

‘Tambah Primari Key dan Index Key
TblMDB.Keys.Append “PrimeKey”, adKeyPrimary, “NPWP”
TblMDB.Indexes.Append “IndexKey”, “NPWP”
CatMDB.Tables.Append TblMDB
Set TblMDB = Nothing

ConnMDB.Open “Provider=Microsoft.Jet.OLEDB.4.0;” _
& “Data Source=” & strFile & “;” & _
“Jet OLEDB:Database Password=;”

Else

‘Buka Database yang Exist
ConnMDB.Open “Provider=Microsoft.Jet.OLEDB.4.0;” _
& “Data Source=” & strFile & “;” & _
“Jet OLEDB:Database Password=;”

‘Deklarasi Katalog ke Koneksi yang aktif
CatMDB.ActiveConnection = ConnMDB

End If

End Sub

Selanjutnya tambah MDIForm untuk menu

MDIfrmUtama.frm

Option Explicit

Private Sub MDIForm_Load()

Me.Caption = “Aplikasi PPh Pasal 21″ & ” versi ” & App.Major & “.” & App.Minor

End Sub

Private Sub mnKaryawan_Click()
frmKaryawan.Show
End Sub
Private Sub mnRepKaryawan_Click()
Dim strFileReport As String
Dim strTableReport As String

strFileReport = “C:\Windows\Temp\UtutReport.Mdb”
If Dir(strFileReport) = “” Then

CatRpt.Create “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & strFileReport & _
“;Jet OLEDB:Database Password=;”
Else
CatRpt.ActiveConnection = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & strFileReport & _
“;Jet OLEDB:Database Password=;”

End If

For Each TblRpt In CatRpt.Tables
‘jika ada tabel ..
If TblRpt.Name = “Karyawan” Then CatRpt.Tables.Delete TblRpt.Name
Next

strTableReport = Left(strFileReport, Len(strFileReport) - 3) & “Karyawan”
SQL = “SELECT * INTO ” & strTableReport & ” FROM karyawan”
ConnMDB.Execute SQL

With Crt
.ReportFileName = App.Path & “\ReportKaryawan.rpt”
.RetrieveDataFiles
.Action = 1
End With
End Sub

Private Sub mnRepTenagaAhli_Click()
Dim strFileReport As String
Dim strTableReport As String

strFileReport = “C:\Windows\Temp\UtutReport.Mdb”
If Dir(strFileReport) = “” Then

CatRpt.Create “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & strFileReport & _
“;Jet OLEDB:Database Password=;”
Else
CatRpt.ActiveConnection = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & strFileReport & _
“;Jet OLEDB:Database Password=;”

End If

For Each TblRpt In CatRpt.Tables
‘jika ada tabel ..
If TblRpt.Name = “Tenaga Ahli” Then CatRpt.Tables.Delete TblRpt.Name
Next

strTableReport = Left(strFileReport, Len(strFileReport) - 3) & “[Tenaga Ahli]”
SQL = “SELECT * INTO ” & strTableReport & ” FROM [Tenaga Ahli]”
ConnMDB.Execute SQL

With Crt
.ReportFileName = App.Path & “\ReportAhli.rpt”
.RetrieveDataFiles
.Action = 1
End With
End Sub

Private Sub mnTenagaAhli_Click()
frmTenagaAhli.Show
End Sub

Design tiap-tiap Laporan dengan Crystal Report 8.5, ambil data dari tabel Karyawan dan Tenaga Ahli.

Form Inputan akan dibahas di bagian 2 nanti.

Untuk sesion ini apa ada pertanyaan?


Popularity: 1% [?]

03
Mei

Koneksi PCtoPC Dengan OS MS-DOS (bag. 1)

Tulisan yang ini mungkin dianggap agak basi buat dedengkotnya IT, tapi boleh dites ke anak IT jebolan sekarang, pasti mereka geleng-geleng alias bingung gmana caranya bikin konek 2 PC yang bersistem operasi DOS.

Zaman dulu tuh waktu OS nya masih DOS, kepikiran ga gmana caranya mereka bisa saling komunikasi data, bisa sharing file, bisa chating. Pernah lihat Sistem POS (Point of Sales) tahun 90-an. Antaran Komputer yang satu dengan yang lainnya memakai Database yang sama, program yang dipakai biasanya hasil compile dari FoxPro atau Clipper.

Agak unik memang, tapi apa keuntungannya bila diterapkan dijaman sekarang? pertanyaan yang bagus, akan saya coba jawab:

“Jika anda atau teman anda atau paman anda atau tetangga anda yang mempunyai Warung/Minimarket dengan modal yang terbatas, coba tawarkan untuk membeli komputer seken Pentium I / II paling-paling harganya ga sampai 400 ribu, sudah termasuk CPU+Monitor, syukur-syukur ada yang ngasih, dari pada jadi sarang kecoa digudang, lebih baik diberdayakan. Install DOS 6.22 (recomended), Googling Program POS yang under DOS, mungkin aja ada yang sudah FREE. ”

Bisa dicoba link berikut http://pages.prodigy.net/daleharris/pos3.htm

– udh malem nih, bersambung aja ke Bag. 2 ya… –

Popularity: 1% [?]

22
Apr

Clipper Decompiler

Saya dapat Program ini dari temen, katanya bisa melihat PRG (Source Code) untuk Clipper yang sudah menjadi EXE.

Nama Programnya VPP.EXE, setelah dicoba-coba ga berhasil tuh ngeliat Source Code dari EXE. Muncul Error seperti dibawah:

Mungkin temen2 lebih beruntung dari saya, yg mau coba bisa download di sini.

Kalo udah berhasil, info ya ke saya… ditunggu lho…

Popularity: 3% [?]

  • Konfirmasi

    • tramadol c o d saturday delivery: Very interesting site. Hope it will always be alive!
    • where to buy phentermine in australia: I want to say - thank you for this!
    • watermelon has same effects as viagra: Perfect work!
    • 900 mg phentermine overdose: Perfect work!
    • viagra cxheap: Incredible site!