Debugers

PROGRAM CLIENT SERVER VISUAL BASIC 6.0

noreply@blogger.com (Anonymous) — Fri, 19 Jul 2013 15:24:00 +0000

Setelah sekian lama tidak pernah update kali ini saya akan coba update cara membuat program berbasis clien sever. Program ini merupakan contoh pemrograman client server dengan menggunakan bahasa pemrograman Visual Basic 6.0 dan Microsoft Acces sebagai Database. Program ini dilengkapi dengan operasi record. Sebagai program berbasis sistem informasi, pengguna dapat melakukan pencetakan dengan menggunakan Crystal Report 8.5 sebagai output/laporan. Program ini terdiri atas dua file project, yakni untuk di tempatkan di server dan di sisi client. Mudah-mudahan contoh program ini berguna terutama bagi yang ingin mencoba membuat pemrograman client server.

Untuk Server

Tambahkan satu form dan module. Selanjunya copykan listing berikut ini ke dalam form yang telah dipersiapkan sebelumnya

Dim Tampil As ListView
Dim DTM(11) As String
Dim x As Long
Dim Urut As Double

Private Sub cmdQuit_Click()
Unload Me
End Sub

Private Sub Form_Activate()
'menampilkan id client
LblHost.Caption = Socket(0).LocalHostName
LblIP.Caption = Socket(0).LocalIP
Socket(0).LocalPort = 1007
sServerMsg = "Listening to port: " & Socket(0).LocalPort
List1.AddItem (sServerMsg)
Socket(0).Listen
'untuk listview
Lview.GridLines = True
Lview.ListItems.Clear
Lview.View = lvwReport
Lview.ColumnHeaders.Add , , "No Trans", 900
Lview.ColumnHeaders.Add , , "Terima dari", 1300
Lview.ColumnHeaders.Add , , "Uraian", 2600
Lview.ColumnHeaders.Add , , "Kode Akun", 1100
Lview.ColumnHeaders.Add , , "Cara Bayar", 1000
Lview.ColumnHeaders.Add , , "Jumlah (Rp)", 1100
Lview.ColumnHeaders.Add , , "Diterima di", 900
Lview.ColumnHeaders.Add , , "Tanggal", 1000
Lview.ColumnHeaders.Add , , "Penerima", 1000
Call LData
'--------------------------------------
End Sub

Sub LData()
ConnectDb
Rs.Open "select * from [BuktiBayar]", Db, 1, 3
With Rs
If Rs.RecordCount = 0 Then
Set kodok = Lview.ListItems.Add(, , "---")
kodok.SubItems(1) = "---"
kodok.SubItems(2) = "---"
kodok.SubItems(3) = "---"
kodok.SubItems(4) = "---"
kodok.SubItems(5) = "---"
kodok.SubItems(6) = "---"
kodok.SubItems(7) = "---"
kodok.SubItems(8) = "---"
ElseIf .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
Set kodok = Lview.ListItems.Add(, , ![no transaksi])
kodok.SubItems(1) = ![terima dari]
kodok.SubItems(2) = ![uraian]
kodok.SubItems(3) = ![kode akun]
kodok.SubItems(4) = ![cara bayar]
kodok.SubItems(5) = ![jlh rupiah]
kodok.SubItems(6) = ![Diterima di]
kodok.SubItems(7) = ![Tanggal]
kodok.SubItems(8) = ![penerima]
.MoveNext
Loop
End If
End With
End Sub

Selanjutnya untuk module copykan listing berikut ini:
‘--- ini untuk menghubungkan database

Public Db As ADODB.Connection
Public Rs As ADODB.Recordset

Public Function ConnectDb() As Boolean
On Error GoTo DC
Set Db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Db.CursorLocation = adUseClient

Db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Persist security Info=false;Data source=" & App.Path & "\dbtiram.mdb;"
Exit Function
DC:
MsgBox Err.Number + " " + Err.Description, vbOKOnly, "Disconnect"

End Function

2. Untuk Client

Tambahkan satu form, satu module, dan satu file crystal report. Kemudian copykan listing berikut ini di form

Dim Tampil As ListView
Dim nou(2) As String
Dim nomor, J1 As Byte
Private Sub CmdCancel_Click()
Call ResetForm(Me)
LblNoTrans.Caption = ""
CmdCancel.Enabled = False
CmdNew.Enabled = True
CmdSave.Enabled = False
CmdPreview.Enabled = False

End Sub

Private Sub CmdConnect_Click()

If CmdConnect.Caption = "&Connect" Then
Winsock1.RemoteHost = "10.16.184.33" ' rubah ip ini menjadi ip server
Winsock1.RemotePort = 1007
Winsock1.Connect
LblCon.Caption = "Connect to server"
Tombol (1)
Me.Caption = "Connect to Server"
CmdConnect.Caption = "&Disconnect"
ElseIf CmdConnect.Caption = "&Disconnect" Then
LblCon.Caption = "Unavailable Connection to server"
Me.Caption = "Unavailable Connection to server"
Winsock1.Close
CmdConnect.Caption = "&Connect"
End If

End Sub

Private Sub cmdEdit_Click()
CmdSave.Caption = "&Update"
End Sub

Private Sub CmdNew_Click()
If Left(Me.Caption, 2) = "Un" Then
MsgBox "Tidak terkoneksi ke server" & Chr(13) _
& "Klik tombol connect terlebih dahulu untuk " _
& "mengkoneksikan ke server", vbOKOnly, "Disconnect"
CmdSave.Caption = "&Save"
Else
CmdNew.Enabled = False
CmdCancel.Enabled = True
CmdSave.Enabled = True

CmdPreview.Enabled = True
Frame1.Enabled = True
Call ResetForm(Me)
'---ambil nomor transaksi dari server
If Winsock1.State = sckConnected Then
Winsock1.SendData "no~"
LblCon.Caption = "Sending Data"
End If

'ambil nomor terakhir dari tabel nomor
'ConnectDb
'Rs.Open "select * from nomor", Db, 1, 3
'If Rs.RecordCount = 0 Then
' no = 1
'ElseIf Rs.RecordCount > 0 Then
' Rs.MoveLast
' no = Rs!nourut + 1
' LblNoTrans.Caption = no
'End If
End If
End Sub
'

Private Sub CmdPreview_Click()
Dim tgl As String
t1 = Format(TxtTgl.Value, "dd mmmm yyyy")
tgl = TxtDiterima.Text & ", " & t1
Cr1.ReportFileName = App.Path & "\reports\bukti_bayar[1].rpt"
'Cr1.ReplaceSelectionFormula "{bukti pembayaran.no transaksi}='" & LblNoTrans.Caption & "'"
Cr1.Formulas(0) = "bterima='" & txtterima.Text & "'"
Cr1.Formulas(1) = "buraian='" & TxtUraian.Text & "'"
Cr1.Formulas(2) = "blg='" & TxtTerbilang.Caption & "'"
Cr1.Formulas(3) = "blg='" & TxtTerbilang.Caption & "'"
Cr1.Formulas(4) = "bkdakun='" & TxtKdAkun.Text & "'"
Cr1.Formulas(5) = "bc_byr='" & TxtDibayarDng.Text & "'"
Cr1.Formulas(6) = "b_tgl='" & tgl & "'"
Cr1.Formulas(7) = "b_penerima='" & TxtPenerima.Text & "'"

'Item.SubItems(1)
' Cr1.PrintReport
Cr1.WindowState = crptMaximized
Cr1.Action = 1
'
'ErrPrint:
' MsgBox Err.Number & " " & Err.Description, vbCritical, "Error Print"
' End If
' Next

End Sub

Private Sub cmdQuit_Click()
Winsock1.Close
Unload Me
End Sub

CmdPreview.Enabled = True
If Winsock1.State = sckConnected Then
Winsock1.SendData "s~" & LblNoTrans.Caption & "~" & txtterima.Text _
& "~" & TxtUraian.Text & " " & "~" & TxtKdAkun.Text & "~" _
& TxtDibayarDng.Text & "~" & TxtRp.Text & "~" & TxtTerbilang.Caption & "~" _
& TxtDiterima.Text & "~" & TxtTgl.Value & "~" & TxtPenerima.Text
LblCon.Caption = "Sending Data"

Else
LblCon.Caption = "Not currently connected to host"
End If

Form_Activate
End Sub

Sub Tombol(aktif As Boolean)
CmdNew.Enabled = aktif
CmdSave.Enabled = aktif

End Sub

Private Sub Form_Activate()
'koneksi ke server

Tombol (0)
CmdConnect.Enabled = True
End Sub

Private Sub Form_Load()
Frame1.Enabled = False
CmdNew.Enabled = True
CmdNew.Visible = True
CmdSave.Enabled = False

' CmdPreview.Enabled = False
CmdCancel.Enabled = False
LblNoTrans.Caption = ""

End Sub

Private Sub txtRp_Change() 'Isi besar uang diulangi dengan terbilang huruf...
If Len(TxtRp.Text) = 0 Then
Exit Sub
ElseIf Len(TxtRp.Text) > 0 Then
TxtTerbilang.Caption = "## " & UCase(TerbilangDesimal(TxtRp.Text)) & " RUPIAH ##"
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString
'Label1.Caption = sData
'kalau record tidak ada
'For J1 = 0 To 1
st = Split(sData, "~")
If Mid(st(0), 1, 2) = "no" Then
'MsgBox "record tidak ditemukan"
LblNoTrans.Visible = True
LblNoTrans.Caption = st(1)
Else 'If Mid(st(0), 1, 1) = "S" Then
MsgBox "Data terupdate"
End If
End Sub

‘selanjutnya tambahkan baris berikut ini di module
‘ini fungsi terbilang
Public Function TerbilangDesimal(InputCurrency As String, _
Optional MataUang As String = "rupiah") As String
Dim strInput As String
Dim strBilangan As String
Dim strPecahan As String
On Error GoTo pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer
'Periksa setiap karakter yg diketikkan ke kotak UserID
strValid = "1234567890,"
For i% = 1 To Len(InputCurrency)
huruf = Chr(Asc(Mid(InputCurrency, i%, 1)))
If InStr(strValid, huruf) = 0 Then
Set AngkaTerbilang = Nothing
MsgBox "Harus karakter angka!", _
vbCritical, "Karakter Tidak Valid"
Exit Function
End If
Next i%

If InputCurrency = "" Then Exit Function
If Len(Trim(InputCurrency)) > 15 Then GoTo pesan

strInput = CStr(InputCurrency) 'Konversi ke string
'Periksa apakah ada tanda "," jika ya berarti pecahan
If InStr(1, strInput, ",", vbBinaryCompare) Then

strBilangan = Left(strInput, InStr(1, strInput, ",", vbBinaryCompare) - 1)
'strBilangan = Right(strInput, InStr(1, strInput, ".", vbBinaryCompare) - 2)
strPecahan = Trim(Right(strInput, Len(strInput) - Len(strBilangan) - 1))

If MataUang <> "" Then

If CLng(Trim(strPecahan)) > 99 Then
strInput = Format(Round(CDbl(strInput), 2), "#0.00")
strPecahan = Format((Right(strInput, Len(strInput) - Len(strBilangan) - 1)), "00")
End If

If Len(Trim(strPecahan)) = 1 Then
strInput = Format(Round(CDbl(strInput), 2), "#0.00")
strPecahan = Format((Right(strInput, Len(strInput) - Len(strBilangan) - 1)), "00")
End If

If CLng(Trim(strPecahan)) = 0 Then
TerbilangDesimal = (KonversiBilangan(strBilangan) & MataUang & " " & KonversiBilangan(strPecahan))
Else
TerbilangDesimal = (KonversiBilangan(strBilangan) & MataUang & " " & KonversiBilangan(strPecahan) & "sen")
End If
Else
TerbilangDesimal = (KonversiBilangan(strBilangan) & "koma " & KonversiPecahan(strPecahan))
End If

Else

TerbilangDesimal = (KonversiBilangan(strInput))

End If
Exit Function
pesan:
TerbilangDesimal = "(maksimal 15 digit)"
End Function

'Fungsi ini untuk mengkonversi nilai pecahan (setelah angka 0)
Private Function KonversiPecahan(strAngka As String) As String
Dim i%, strJmlHuruf$, Urai$, Kar$
If strAngka = "" Then Exit Function
strJmlHuruf = Trim(strAngka)
Urai = ""
Kar = ""
For i = 1 To Len(strJmlHuruf)
'Tampung setiap satu karakter ke Kar
Kar = Mid(strAngka, i, 1)
Urai = Urai & Kata(CInt(Kar))
Next i
KonversiPecahan = Urai
End Function
'Fungsi ini untuk menterjemahkan setiap satu angka ke kata
Private Function Kata(angka As Byte) As String
Select Case angka
Case 1: Kata = "Satu "
Case 2: Kata = "Dua "
Case 3: Kata = "Tiga "
Case 4: Kata = "Empat "
Case 5: Kata = "Lima "
Case 6: Kata = "Enam "
Case 7: Kata = "Tujuh "
Case 8: Kata = "Delapan "
Case 9: Kata = "Sembilan "
Case 0: Kata = "Nol "
End Select
End Function
'Ini untuk mengkonversi nilai bilangan sebelum pecahan
Private Function KonversiBilangan(strAngka As String) As String
Dim strJmlHuruf$, intPecahan As Integer, strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X, Y, z As Integer

If strAngka = "" Then Exit Function
strJmlHuruf = Trim(strAngka)
X = 0
Y = 0
Urai = ""
While (X < x =" X" strtot =" Mid(strJmlHuruf," y =" Y" z =" Len(strJmlHuruf)" bil1 = "NOL " z =" 1" z =" 7" z =" 10" z =" 13)" bil1 = "Satu " z =" 4)" x =" 1)" bil1 = "Se" bil1 = "Satu " z =" 2" z =" 5" z =" 8" z =" 11" z =" 14)" x =" X" strtot =" Mid(strJmlHuruf," z =" Len(strJmlHuruf)" bil2 = "" bil1 = "Sepuluh " bil1 = "Sebelas " bil1 = "Dua Belas " bil1 = "Tiga Belas " bil1 = "Empat Belas " bil1 = "Lima Belas " bil1 = "Enam Belas " bil1 = "Tujuh Belas " bil1 = "Delapan Belas " bil1 = "Sembilan Belas " bil1 = "Se" bil1 = "Dua " bil1 = "Tiga " bil1 = "Empat " bil1 = "Lima " bil1 = "Enam " bil1 = "Tujuh " bil1 = "Delapan " bil1 = "Sembilan " bil1 = ""> 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "Puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "Ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4
Bil2 = Bil2 + "Ribu "
Y = 0
Case 7
Bil2 = Bil2 + "Juta "
Y = 0
Case 10
Bil2 = Bil2 + "Milyar "
Y = 0
Case 13
Bil2 = Bil2 + "Trilyun "
Y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
KonversiBilangan = Urai
End Function

‘ini fungsi untuk mereset form
Public Sub ResetForm(layar As Form)
For Each CNTRL In layar.Controls
If (TypeOf CNTRL Is TextBox) Then
CNTRL.Text = ""
ElseIf (TypeOf CNTRL Is DTPicker) Then
CNTRL.Value = Date
CNTRL.MaxDate = Date
End If
Next CNTRL

End Sub

Catatan:
1. Sebelum menjalankan program ada baiknya mengcopykan file lvbutton. Selanjutnya file tersebut diextract dan dicopykan ke c:\windows\system atau c:\windows\system32
2. Untuk menjalankannya jalankan kedua program terlebih dahulu secara bersama-sama.......

Tips Merawat Batteray Laptopo

noreply@blogger.com (Anonymous) — Sun, 31 Mar 2013 03:58:00 +0000

Untuk teman-teman pengguna lapto atau notebook berikut ini beberapa tips untuk merawat batteray laptop agar tetap awet. Masalah laptop tidak selalu pada software, terkadang juga mengincar hardware. Kali ini Jalan Tikus akan membahas tentang tips perawatan baterai laptop agar awet. Laptop biasanya menggunakan baterai Li-Ion, dan Li-Ion mampu bertahan hingga 4-5 tahun. Bagaimana cara untuk mempertahankan performa dan keawetan dari baterai tersebut agar tetap dalam kondisi optimal? Hal tersebut sering menjadi kendala bagi pengguna laptop, baterai laptop juga termasuk elemen yang penting dan mahal. Berikut adalah tips untuk menjaga performa baterai laptop:
1.      Letakkan pada tempat yang keras
Panas adalah salah satu penyebab dari menurunnya performa baterai, jangan taruh laptop di tempat yang empuk seperti kasur atau bantal yang menyerap panas karena panas yang keluar akan terserap dan diam di laptop
2.      Gunakan listrik dengan tegangan stabil
Ketika charge baterai, perhatikan listrik yang dikonsumsi oleh adaptor. Tegangan listrik yang tidak stabil akan membuat adaptor rusak dan performa dari baterai drop.
3.      Defrag Hard Disk
Lakukan defrag hard disk secara rutin, dengan melakukan hal tersebut maka kinerja hard disk akan lebih baik dan otomatis mengurangi beban penggunaan baterai. Defrag hard disk dapat menggunakan software Auslogics Disk Defrag.
4.      Hibernate dan Standby
Hibernate lebih irit penggunaan baterai daripada Standby, karena beberapa service akan di-non-aktifkan sementara saat mode hibernate.
5.      Hard Disk dan CD-ROM
Lebih banyak menggunakan hard disk lebih hemat baterai daripada menggunakan CD-ROM yang lebih boros dalam pemakaian.
6.      Kontak Baterai
Rutin membersihkan kontak baterai menggunakan kain yang dibasahi alkohol akan membuat kontak bersih dan transfer daya listrik lebih optimal.
7.      Power Option
Pilih pilihan Optimize, karena akan menampilakn efek maksimal dengan penggunaan maksimum baterai.
8.      External Device
External Device seperti hard disk external, wifi, bluetooh dan lainnya akan menguras penggunaan baterai anda. Jika tidak sedang digunakan sebaiknya dilepas dari laptop.
9.      RAM
Semakin besar RAM maka semakin irit penggunaan baterai, karena performa laptop akan lebih ringan dengan RAM yang besar, dengan begitu baterai juga berkurang beban penggunaanya. Dengan beberapa tips tersebut akan menjaga performa dari baterai laptop anda.

Resetter Printer Epson Stylus T20, T20E Blinking

noreply@blogger.com (Anonymous) — Sun, 31 Mar 2013 03:30:00 +0000

Resetter Printer Epson Stylus T20, T20E Blinking. Berikut ini saya share Software Resetter Printer Epson T20 dan T20E atau Epson Printer Adjustment Program T20 dan T20E. Caranya hampir sama dengan Cara Reset Printer Epson yang lainnya. Cara Settingnya sudah terdapat include pada Software tersebut, Anda tinggal Download dan membacanya. Sebenarnya Resetter Software ini merupakan Software Trial tetapi setelah melalui proses modifikasi akhirnya dapat dipergunakan seterusnya tanpa melakukan Setting PC.

Resetter Software Epson Printer atau Adjustment Program T20 dan T20E. Cara Reset Printer Epson Stylus T20 atau T20E nya sama dengan pada printer epson yang lainnya.

Tinggal Extract file software resetter yang telah Anda download – baca petunjuknya dan siap dijalankan. Tentunya dengan posisi Printer epson T20 atau T20E yang telah terkoneksi dengan komputer.

Download softwarenya DISINI

Cara Penyusunan KTI

noreply@blogger.com (Anonymous) — Thu, 28 Mar 2013 03:46:00 +0000

Skripsi adalah laporan penelitian yang dituangkan dalam bentuk karya tulis (karya tulis ilmiah) yang disusun menurut kaidah keilmuan dibawah pengawasan atau pengarahan dosen pembimbing. Skripsi dibuat sebagai salah satu persyaratan menyelesaikan program studi yang merupakan tugas akhir bagi mahasiswa.

PEDOMAN PENULISAN

Susunan pedoman penulisan karya tulis ilmiah secara umum dibagi dalam tiga bagian yang terdiri atas:

1. AWAL LAPORAN

2. ISI LAPORAN

3. AHIR LAPORAN

AWAL LAPORAN

Bagian awal laporan terdiri dari:

Halaman sampul
Halaman judul
Halaman pengesahan
Kata pengantar
Ucapan terimakasih
Abstrak (dalam bahasa Indonesia, Arab dan Inggris)
Daftar isi
Daftar table (jika ada)
Daftar gambar (jika ada)
Daftar lainnya (jika ada)
Daftar lampiran (jika ada)

a. Halaman Sampul

Halaman sampul adalah halaman terdepan yang pertama kali dibaca dalam suatu karya tulis ilmiah. Halaman sampul harus dapat memberikan informasi singkat kepada pembaca tentang karya tulis ilmiah yang berupa judul, identitas penulis, institusi dan tahun pembuatan. Ketentuan menyangkut penulisan dapat dilihat di bagian C.4 dan pada contoh halaman sampul pada lampiran 1.

b. Halaman Judul

Secara umum informasi yang diberikan pada Halaman Judul sama dengan Halaman Sampul, hanya saja pada halaman judul biasanya dicantumkan informasi tambahan, yaitu untuk apa karya tulis ilmiah tersebut dibuat. Ketentuan menyangkkut penulisan bisa dilihat pada bagian C.5 dan pada contoh Halaman Judul pada lampiran 2.

c. Halaman Pengesahan

Halaman Pengesahan untuk menjamin keabsahan karya tulis ilmiah atau pernyataan diterimanya skripsi sebagai karya tulis ilmiah oleh institusi penulis. Ketentuan menyangkut mengenai penulisan dapat dilihat di C.6 dan pada Contoh Halaman Pengesahan pada lampiran 3.

d. Kata Pengantar

Halaman kata pengantar memuat pengantar singkat atas tulisan yang dibuat dan ucapan terima kasih atau penghargaan kepada pihak-pihak yang telah membantu dalam pembuatan karya ilmiah dan penulisannya tersebut. Sebaiknay ucapan terima kasih dan penghargaan tersebut mencantumkan bantuan yang mereka berikan, misalnya bantuan dalam memperoleh masukan, data, sumber-sumber informasi, serta bantuan dalam menyelesaikan Tugas Akhir tersebut. Ketentuan menyangkut penulisan bisa dilihat pada bagian C.7 dan pada contoh Kata Pengantar dalam lampiran 4.

e. Ucapan Terimakasih

Halaman Ucapan Terima Kasih memuat tentang ucapan terima kasih dan penghargaan yang ditujukan kepada orang-orang atau lemaga isntitusi yang telah membantu penulisan karya tulis atau skripsi tersebut.

f. Abstrak (dalam bahasa Indonesia, Arab dan Inggris)

Abstrak merupakan garis besar isi dari karya ilmiah yang memuat permasalahan, tujuan, metode penulisan, hasil dan kesimpulan yang diperoleh. Abstrak dibuat untuk memudahkan pembaca secara cepat mengerti tulisan untuk memutuskan apakah perlu dibaca lebih lanjut atau tidak. Ketentuan mengenai penulisan bisa dilihat pada contoh Abstrak pada bagian C.8 dan pada lampiran 5.

g. Daftar isi

Daftar Isi memuat daftar tiap bagian penulisan beserta nomor halaman masing-masing, yang ditulis persis seperti isi yang bersangkutan.

h. Daftar Table, Daftar Gambar, Daftar lainnya dan Daftar lampiran (jika ada)

Daftar table, Daftar gambar, Daftar lainnya dan Daftar lampiran digunakan untuk memuat tabel, gambar dan yang lain-lainnya yang digunakan dalam penulisan. Penulisan nama tabel, gambar dan yang lainnya mennggunakan huruf besar diawal kata (title case). Ketentuan menyangkut penulisan dapat dilihat pada bagian C.10 dan pada Contoh Daftar Gambar pada lampiran 7.

ISI LAPORAN

Pembagian bab, isi laporan dan kesimpulan. Substansi laporan tugas akhir setidaknya terdiri dari 4 (empat) bab. Bab pertama membicarakan perihal latar belakang rumusan masalah, tujuan penelitian dan metode penelitan yang digunakan; bab kedua membahas tentang kajian teoritik yang dieksplor dari berbagai referensi; bab ketiga merupakan hasil analisis penelitian; dan bab terahir memuat dan rekomondasi penelitian.

AHIR LAPORAN

Bagian ini trdiri dari:

a. Referensi

Referensi merupakan daftar bahan bacaan atau referensi yang menjadi sumber dan dasar penulisan Tugas Akhir berupa buku, artikel, majalah atau surat kabar, wawancara, sumber yang diakses dari web di internet dan sebagainya.

b. Lampiran (jika ada)

Lampiran merupakan data atau pelengkap atau hasil olahan yang menunjang penulisan Tugas Akhir tetapi tidak diletakkan pada Isi Laporan karena memngganggu kesinambungan pembacaan, lampiran yang perlu disertakan, dikelompokan menurut jenisnya, antara lain berupa: jadwal, tabel, daftar pertanyaan, gambar, grafik, desain, dan lain-lain.

C. PENULISAN

Penampilan merupakan factor penting untuk mewujudkan Tugas Akhir (Skripsi) yang rapi dan seragam di lingkungan Sekolah Tinggi Ilmu Tarbiyah (STIT) Muslim Asia Afrika Jakarta. oleh karena itu, untuk merealisasikan hal tersebut perlu diperhatikan beberapa aturan teknis sebagai berikut:

1. Kertas

Spesifikasi kertas yang digunakan:

- Jenis : HVS

- Warna : Putih polos

- Berat : 80 gram

- Ukuran : A4 (21,5 cm x 29,7 cm)

2. Pengetikan

Ketentuan pengetikan adalah sebagai berikut:

a. Pengetikan dilakukan pada satu sisi kertas (single side)

b. Posisi penempatan teks pada tepi kertas

Cara Reset Printer Canon MP258

noreply@blogger.com (Anonymous) — Sat, 23 Mar 2013 13:38:00 +0000

Cara reset printer canon MP258 ternyata tidak sama dengan cara reset printer canon versi sebelumnya yaitu canon ip 1980 dan canon ip 2770. Kalau reset temporary yang dilakukan pada printer Canon sebelumnya, printer sudah bisa dapat digunakan, meski keesokan harinya bisa harus mereset ulang. Namun berbeda dengan yang terjadi pda Canon MP258 yang mana setelah melakukan proses reset temporary harus dilanjutkan dengan reset permanen menggunakan software resetter.

Cara reset printer Canon Pixma MP258 ini beradasarkan pengalaman pemilik blog Belajar Ilmu Komputer dalam memperbaiki sebuah printer konsumen yang mengalami masalah tidak bisa mencetak dan lampu orange nyala berkedip. Setelah dicek ternyata ada pesan error P07 5B00. Menurut informasi yang saya dapat dari browsing di internet, kode P07 adalah kode error Ink Absorber Full yang berarti bahwa printer Canon MP258 ini harus direset menggunakan software resetter, dan berikut adlah cara reset printer Canon Pixma MP258.

Software resetter untuk printer Canon Mp258 di atas dapat disearch di google, kemudian install pada komputer tempat terpasangnya printer Canon MP258.

Matikan printer (kalau sedang On)
Tekan dan tahan tombol Stop/Reset (jangan dilepas)
Tekan tombol power (jg jgn dilepas)
Lepas tombol Stop/Reset, kemudian tekan tombol Stop/Reset 2 kali
Lepas kedua tombol
Printer akan melakukan proses installasi ulang driver printer Canon MP258.
Jalankan software resetter Canon MP 258
Klik Main (tunggu sesaat, printer mencetak selembar kertas berisi cetakan D:000.0)
Klik EEPROM Clear
Klik EEPROM (tunggu sesaat, printer mencetak kembali 1 lembar kertas dengan berbagai kode)
Matikan printer dan hidupkan kembali
Printer sudah siap digunakan

Demikian Cara reset printer Canon Pixma MP 258 dari blog Belajar Ilmu Komputer. Semoga cara reset dan memperbaiki error pada printer Canon MP258 dapat bermanfaat bagi pengunjung blog Ilmu Blogger. Selamat mencoba

Cetak Laporan VB ke Excel

noreply@blogger.com (Anonymous) — Mon, 18 Mar 2013 02:34:00 +0000

Yang terakhir dilakukan dalam pembuatan sebuah program adalah membuatkan program tersebut sebuah laporan, nah yang akan kita bahas kali ini adalah cara membuat laporan vb di Ms.Excel atau dengan kata lain mengimpor laporan visual basic ke Microsoft Excel, berikut langkah-langkahnya :

Tambahkan Library Ms.Excel ke project dengan cara klik menu project kemudian pilih References berih tanda centang pada Microsoft Excel12.0 Object Library

Langkah selajutnya memasukkan listing programnya

Pertama kita buat variabel listinya

Dim excel As New excel.Application

Kemudian buat sub untuk mengisi Excel

Set excel = excel.Application

excel.Workbooks.Add

excel.Worksheets(1).Activate

'nama Heading

For i = 0 To DataEnvironment1.rsRBarang.Fields.Count - 1

excel.Worksheets(1).Cells(1, i + 1) = DataEnvironment1.rsRBarang.Fields(i).Name

'isi data

If DataEnvironment1.rsRBarang.State = 0 Then DataEnvironment1.rsRBarang.Open

If DataEnvironment1.rsRBarang.RecordCount > 0 Then DataEnvironment1.rsRBarang.MoveFirst

For i = 1 To DataEnvironment1.rsRBarang.RecordCount

For j = 0 To DataEnvironment1.rsRBarang.Fields.Count - 1

excel.Worksheets(1).Cells(i + 1, j + 1) = DataEnvironment1.rsRBarang(j)

DataEnvironment1.rsRBarang.MoveNext

excel.Columns.AutoFit

excel.Visible = True

'excel.Worksheets(1).PrintPreview

excel.Workbooks(1).Saved = False

'excel.Visible = True 'False

End Sub

Kemudain masukkan listing berikut ini pada tombol import

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 'report

DataReport1.Show 1

Case 1 'word

If DataEnvironment1.rsRBarang.State = 0 Then DataEnvironment1.rsRBarang.Open

isiword "Laporan Data Barang", DataEnvironment1.rsRBarang.RecordCount, DataEnvironment1.rsRBarang.Fields.Count

Case 2 'excel

isiexcel

End Select

End Sub

Lalu Pada saat Program Unload Masukkan listing

Private Sub Form_Unload(Cancel As Integer)

Set excel = Nothing

End Sub

Jadi deh laporannya di Excel..........Sekian dan semoga bermanfaat

Percepat Koneksi Modem USB

noreply@blogger.com (Anonymous) — Sun, 17 Mar 2013 03:36:00 +0000

Baru sempat posting lagi sob untuk posting kali ini membahas cara unruk mempercepat akses internet melalui modem USB
Berikut ini merupakan langkah-langkah dalam mempercepat browsing maupun internet diantaranya:

Klik kanan pada My Computer
Klik Properties
Klik Hardware
Klik Device Manager
Pilih Modem
Klik kanan pada Modem
Pilih jenis Modem & klik properties
Pada properties pilih Advenced & Masukan Extra Setting di bawah ini :
Extra Command Setting ketik salah satu kode berikut sesuai dengan paket yang anda gunakan

Pilih salah kode atau Copy Paste saja dibawah :

Untuk Telkomsel Flash Time Based : at+cgdcont=1,”IP”,”flash”
Untuk Telkomsel Volume / Flash Unlimited : at+cgdcont=1,”IP”,”internet”
Untuk Telkomsel Volume / Flash Unlimited : at+cgdcont=1,”IP”,”telkomsel”
Untuk XL : at+cgdcont=1,”IP”,”www.xlgprs.net”
Untuk Indosat : at+cgdcont=1,”IP”,”indosatgprs”
Untuk Indosat 3G Unlimited : at+cgdcont=1,”IP”,”indosat3g”
Untuk Indosat Im2 Broom Unlimited : at+cgdcont=1,”IP”,”indosatm2″
Untuk Axis (NTS) : at+cgdcont=1,”IP”,”axis”
Untuk Three : at+cgdcont=1,”IP”,”3gprs”

Klik OK atau Aply

Membatasi Penggunaan Bandwidth Windows

Klik Start->Run->ketik ”gpedit.msc” (tanpa tanda petik“) Ini akan memunculkan tampilan “Windows Policy”.
Kemudian masuk ke : Local Computer Policy–>Computer Configuration–>Administrative Templates–>Network–>QOS Packet Schedule.
Kemudian di tampilan kanan pilih “Limit Reservable Bandwidth”, disitu tertulis “Not Configured” -> doubel klik (ada tampilan baru, “Limit reservable bandwidth Properties”).
Jika ingin tahu keterangannya buka di bagian “Explain”. Di situ tertulis keterangan windows secara default menggunakan 20% bandwidth kita.
Kembali ke “Setting” dan pilih “Enabled” lalu ganti 20 % menjadi 0%. Klik Oke.

Membuat Internet Explorer (IE) secepat Firefox

Banyak yang bilang IE memang browser yang paling payah, lelet, dan tidak stabil. Tapi ternyata ada trik untuk sedikit men-tune-up IE anda hingga kecepatannya bisa setara dengan Firefox. Caranya :

Klik start >> run
Ketik regedit >> enter
Carilah folder HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre nt Version\InternetSettings
Klik kanan pada jendela sebelah kanan pilih >> New >> DWORD
Ketik MaxConnectionsPerServer >> beri nilai terserah sobat (semakin tinggi nilai yang sobat buat, semakin bagus kecepatannya, eg : 99999999)
Buat string DWORD baru lagi dengan cara yang sama >> ketik MaxConnectionsPer1_0Server
Lalu beri nilai yang tinggi seperti di atas
Restart IE..

Selesai.

Mempercepat browsing dengan DNS cache
Buka notepad dan copy paste kode di bawah ini

[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServic es|DnscacheParameters]

“CacheHashTableBucketSize”=dword:00000001

“CacheHashTableSize”=dword:00000180

“MaxCacheEntryTtILimit”=dword:0000fa00

“MaxSOACacheEntryTtILimit”=dword:0000012d

Simpan dengan nama dnscache.reg

Double click file ini di windows explorer, tekan “yes”.

Cukup sekian dulu sob.....semoga bermamfaat dan sampai jumpa lagi di artikel selanjutnya.

Cara Membuka 2 Akun Berbeda Difirefox

noreply@blogger.com (Anonymous) — Thu, 28 Feb 2013 15:18:00 +0000

Mungkin sebagian dari teman-teman ada yang ingin membuka dua akun facebook dalam satu browser, yang akan kita bahas kali ini adalah bagaimana cara membuka dua akun facebook sekaligus di browser yang menurut saya sangat banyak digunakan yaitu firefox, berikut langkah-langkahnya :

Pertama buka Run dengan cara klik star Run atau dengan cara tekan tombol logo windows pada keyboard + R lalu ketik kode berikut pada kotak Run firefox.exe -p -no -remote kemudian tombol ok atau tekan enter maka akan muncul tab seperti gambar berikut ini:

Setelah menekan tombol ok atau enter akan terbuka lagi kotak baru

Kemudian klik Create Profile dan akan muncul kembali tab baru klik saja Next dan akan tampilan baru

Pada kolom nama isi sesuai dengan selera anda lalu klik finis, dan akan muncul profile baru yang baru anda buat tadi kurang lebih seperti gambar dibawah ini

Pada tab tersebut klik profil yang barusan anda buat lalu klik star firefox maka akan terbuka halaman firefox baru dan anda sekarang bisa membuka akun facebook anda yang lain.
Terima kasih telah berkunjung ke blog yang tidak karuan ini dan telah membaca artikel kami.

Cara Menggunakan Celcom

noreply@blogger.com (Anonymous) — Thu, 21 Feb 2013 15:54:00 +0000

Untuk posting kali ini debuger’s akan shering cara menggunakan celcom broadband secara free (Gratis), maksudnya walaupun credit (Quota) celcom BB prepaid kita sudah habis masih dapat kita gunakan yang juga bisa digunakan pada modem USB Broadband.....berikut langkah demi langkah yang harus anda lakukan :

Download ultrasurf 9.5

Download Disini

Setelah download buka
Open kemudian pilih Ok-Option-untick-Start automatically at start
Arahkan kursor turun kebawah lalu click proxy setting-then tick ''direct used ultra surf ''...
kemudian exit..
Dalam browser yang anda gunakan, klik "option" - "connection", set manual proxy 127.0.0.1 dengan port 9666
Sekarang connect 3G modem........ataupun jika anda modem USB masukkan SIM cardnya ke dalam modem
Connect, run ultrasurf 9.5, tunggu sampai dia cakap "successfully connected to server

* Jika langakh diatas gagal gunakan langkah berikutnya :

Kembali ke menu Option-Proxy Setting-Manual Proxy Setting-Proxy
Gunakan Proxy berikut ini : Host" 10.128.1.242 "Proxy Port" 8080 - Ok – Keluar dari ultasurf Kemudian bukan kembali.

Perhatian!! ............
Jangan gunakan trik ini jika pulsa dalam kartu anda banyak karena saya tidak jamin kalau pulsa anda disedot habis.
Berhasil atau tidak tergantung dari faktor keberuntungan jika gagal jangan salahkan saya karena saya sekedar share apa yang saya dapat dari mbah google..........terima kasih dan selamat mencoba.

Cara Berinternet Gratis Terbaru

noreply@blogger.com (Anonymous) — Thu, 21 Feb 2013 15:53:00 +0000

Untuk memulai trik ini yang perlu dilakukan adalah, Pertama Beli kartu telkomsel, terserah mau kartu AS, AS facebook, atau pun Simpati Setelah dapat kartunya daftar Snc di *363*363# dan daftar juga 3G nya supaya koneksi bisa sekecang angin tornado.............Ok, setelah semua pendaftaran sukses ketik SNC OFF kirim ke 3636 tunggu sms balasan, nanti aka ada sms bahwasan anda akan berhenti berlanggan paket SNC, abaikan pesan tersebut dan pergi ke aplikasi Telkomsel menu yang ada di ponsel anda,pilih registrasi kartu dan pilih daftar lakukan lah pendaftaran ulang kartu anda,setelah selesai matikan ponsel dan masukkan ke modem, atau yang menggunakan HP sebagai modem cukup matikan HP nya sebentar kemudian hidupkan kembali.
Selanjut nya untuk menstabilkan koneksi gunakan wardialer atau GM dialer yang bisa anda download disini, saya sendiri lebih suka menggunakan GM dialer karena pengaturan IP nya sudah komplit tanpa harus mengetik secara menual, dan aplikasi ini bersifat portable jadi ngak mesti harus install di PC.
Untuk pengaturan IP gunakan lah IP genap, Untuk daerah saya di sekitaran Sulawesi IP Tersebut lumayan stabil.Plototi gambar berikut :

Kemudian koneksikan, jika koneksinya berhasil maka akan tampilannya seperti gambar berikut ini :

selamat anda sudah bisa berinternet gratis selama satu minggu tanpa limited dan quota, alias sepuas-puasnya selama satu minggu, sebagai tambahan untuk pengaturan Browser dan Downloader gunakan yang standart, ngak perlu di ubah-ubah proxy nya.
Cukup sekian..........semoga berhasil.......Ets......tapi jika berhasil jangan pelit.

Cara Meng-Errorkan Paket SNC Tesel

noreply@blogger.com (Anonymous) — Thu, 21 Feb 2013 15:52:00 +0000

Sebelum lanjut sebelumnya Admin ucapkan Selamat Tahun Baru 2013.......Ok lanjut.....untuk pertama kita harus keluar modal dulu Rp.1500 untuk daftar paket snc dengan cara *363# lalu pilih paket social network dan chatting lalu pilih sehari saja.nah nanti kita akan diberitahu kalo layanan ini berlangganan.pastikan kamu sudah dapat sms balasan dari 3636 bahwa paket snc anda sudah aktif.tentang cara setting hp nya kurasa sudah pada tahu lah.
Nah cara agar paket snc kita eror langkah selanuutnya pada saat mau habis masa berlakunya yaitu jam 6 pagi kita mulai browsing terus dari jam setengah enam sampai setengah 7.inti nya adalah agar pada saat layanan kita mau diberhentikan oleh operator kita lagi mengakses internet sehingga sistem menjadi eror dan paket snc kita besoknya jadi gratis.tapi cara ini hanya berlaku untuk kartu yang dibawah pulsa 3rb lho.untuk pulsa yang diatas 3rb kita pakai cara lain..........selamat mencoba......
Teman-taman juga bisa coba IP berikut ini :
Server Opera mini
141.0.11.253
Server ucweb
65.255.37.77
server mig33
74.217.6.83

Selamat mencoba dan semoga berhasil.

Mencari Proxy dan Port Server Gratisan

noreply@blogger.com (Anonymous) — Thu, 21 Feb 2013 15:50:00 +0000

Trik kali ini membahas tentang cara port dan proxy gratisan, catat atau bookmark dahulu situs web-web pencari bugs di bawah ini :

Selanjutnya, langkah pertama dalam mencari proxy server adalah mencari informasi iklan dari operator seluler di televisi, koran, atau internet, karena lewat iklan tersebut Anda bisa memantau promosi-promosi yang ditawarkan oleh operator, yang situs resminya-nya dapat Anda jadikan bugs.
Langkah kedua, situs operator atau kueri yang dicurigai mengandung proxy server Anda catat. Misalnya: server4.operamini.com.
Oleh sebab itu banyak proxy-proxy dari Opera Mini yang bisa dijadikan media untuk internetan gratis.
Langkah ketiga, ubah URL atau domain yang Anda catat tadi ke IP Numeric dengan Tejji.com.
Sebagai contoh:
server4.operamini.com => 141.0.11.253.
Langkah keempat, catat IP Numeric tersebut. Kemudian masuk ke Ping.eu.
Pada web Ping.eu:
Pilih "whois", masukkan IP Numeric tersebut ke kolom dan klik "go". Ada berbagai macam-macam informasi di dalamnya (Anda abaikan saja)
Lalu klik "proxy checker", pada kolom port isikan dengan nomor berikut: 8000, 8080, 80, 3128, 3124, 9201, 9002 (semua nomor port ini yang biasa digunakan untuk internet), kalaupun ada port yang lain, fungsinya jelas berbeda.
Nanti Anda akan mendapatkan notifikasi, diantaranya:
=> connection time out
=> connection refused
=> 141.0.11.253:80 is not proxy server
=> 141.0.11.253:80 is a proxy server
Catatan: cari sampai ketemu proxy server dengan beberapa nomor port di atas.
Kalau sudah memperoleh proxy server, klik "port check". Biasanya yang dideteksi sebagai proxy checker yaitu yang port-nya "open". Notifikasinya seperti ini:
141.0.11.253:80 port is open, Nah, IP:141.0.11.253 dan port:80 inilah yang Anda jadikan pengaturan konfigurasi baru atau file prov.
Kalau APN, bisa Anda isi sesuai operator yang Anda pakai. Misalnya Telkomsel, indosatm2, 3gprs, dan lainnya. Uji coba dulu di browser ponsel Anda. Coba buka 0.facebook.com atau apa saja. Kalau bisa koneksi, berarti bisa digunakan jalur akses internet. Kalau beruntung, bisa gratis internetan di browser ponsel. Kalau tidak gratis, bisa kita manipulasi dengan Opera Mini. Sudah tahu kan rahasia gratisan internet Three??? Bagian itulah yang bisa Anda manipulasi. Atau jika Anda punya pengaturan Opera Mini yang mungkin masih bisa koneksi, misal pengaturan di Menu Handler Opera Mini yang tadinya bisa koneksi dikarenakan proxy dan portnya diblokir oleh operator, bisa Anda ganti proxy dan portnya yang ada di pengaturan jalur akses ponsel, dengan yang Anda dapatkan tadi. Dan koneksikan lewat jalur akses baru yang Anda buat tadi di atas.
Cukup sekian dan semoga bermamfaat.................

Membuat Program Dengan Database MySQL

noreply@blogger.com (Anonymous) — Thu, 21 Feb 2013 13:07:00 +0000

Untuk teman - teman yang baru belajar Visual Foxpro kayak yang ngepos, berikut ini adalah sebuah panduan atau modul yang mungkin kita dapat digunakan untuk belajar membuat aplikasi sederhana dengan menggunakan Database MySQL. Modul dimulai dengan belajar untuk melakukan operasi database dan table di MySQL melalui Command Prompt. Selanjutnya, selain melalui Command Prompt, teman - teman juga bisa belajar untuk melakukan operasi database dan table di MySQL dengan menggunakan GUI yang pada contoh menggunakan MySQL Front.
Di modul ini, teman - teman nantinya akan dikenalkan cara melakukan koneksi ke database MySQL melalui DSN (Data Source Name). Cara ini merupakan cara yang bisa disebut Semi Automatic dalam melakukan koneksi ke sebuah database, untuk cara manualnya silahkan teman-teman cari atau bertanya ma mbah google. Selain itu teman - teman juga di kenalkan dengan syntax SQLConnect yang merupakan syntak di Visual Foxpro yang digunakan untuk membangun koneksi melalui DSN.
Setelah mengenal cara untuk melakukan operasi database dan table di MySQL dan juga mengetahui cara untuk membangun koneksi ke database MySQL selanjutnya tinggal coba membuat sebuah aplikasi sederhana untuk mengaplikasikannya. Untuk lebih jelasnya silahkan download Panduan atau Modulnya di Sini
Untuk mempelajari Panduan atau Modul diatas, hal - hal yang perlu dipersiapkan adalah :

Pastikan teman - teman sudah menginstal MySQL
Bila ingin mencoba melakukan operasi table dan database dengan GUI sesuai modul, teman - teman juga harus menginstal MySQL Front
Terakhir untuk bisa membangun koneksi ke MySQL, teman - teman harus juga menginstal Konektor ODBC MySQL.

Untuk software di atas silahkan covas dari teman, atau cari di google.
Terima kasih telah berkunjung ke blog ini dan semoga bermamfaat. :D :D

Contoh Judul KTI 2013

noreply@blogger.com (Anonymous) — Mon, 18 Feb 2013 16:38:00 +0000

Setelah sekian lama nganggur posting karena sibuk, kali ini admin akan berbagi kepada pengunjung blog ini beberapa judul skripsi atau KTI , Istilah skripsi sebagai tugas akhir sarjana hanya digunakan di Indonesia. Negara lain, seperti Australia menggunakan istilah thesis untuk penyebutan tugas akhir dengan riset untuk jenjang undergraduate (S1), Postgraduate (S2), PhD dengan riset (S3) dan disertation untuk tugas riset dengan ukuran yang kecil baik undergrduate (sarjana S1) ataupun postgraduate (pascasarjana). Sedangkan di Indonesia Skripsi untuk jenjang S1, Tesis untuk jenjang S2 dan Disertasi untuk jenjang S3 serta Tugas Akhir (TA) untuk jenjang D3.

berikut beberapa koleksi judul KTI atau skiripsi dan tugas untuk jurusan Komputer (Teknik / Manajemen Informatika, Sistem Informasi/Komputer) :

Sistem informasi geografis lokasi outlet dan penjualan produk flexi di kodya denpasar
Rancang bangun sistem pengadaan barang berbasis web pada mini market cendana
Rancang bangun sistem informasi pelayanan pemesanan obat pada distributor obat pt. Parit padang berbasis web
Sistem informasi dan monitoring pelaksanaan skripsi/ta mahasiswa di stikom bali
Rancang bangun sistem informasi berbasis web pada penjualan barang - barang seni di pasar seni sukawati
Sistem pakar diagnosa penyakit kulit pada manusia dengan menggunakan visual basic 6.0
Implementasi metode huffman dalam kompresi sms pada handphone berbasis java
Analisa dan perancangan sistem informasi perkreditan pada pt. Bpr mini darma adipala
Pengembangan sistem informasi pemasaran dan pengajuan keikutsertaan asuransi berbasis web pada pt. Asuransi allianz life indonesia
Penerapan teknologi j2me untuk mengakses data mahasiswa stmik stikom bali
Pembuatan sistem pakar berbasis web untuk menganalisapenyakit pada tanaman padi
Sistem pendukung keputusan keputusan pemberian kredit di koperasi abian base berbasis decision trees
Pengembangan sistem pakar pendeteksi penyakit tht pada anak
Pembuatan sistem pakar berbasis web untuk mendiagnosa penyakit pada hewan kucing
Perancangan sistem pemesanan tiket bioskop pada mobile phone (pda) menggunakan asp.net
Pengembangan aplikasi informasi pasar kota denpasar berbasis webgis
Rancang bangun sistem informasi penjualan dan pengadaan barang distro vandal di tabanan berbasis web
Pengembang aplikasi informasi obyek wisata di bali berbasis multimedia dengan ponsel
Rancang bangun sistem informasi pemasaran pada pt.siwa nestle distributor
Rancang bangun sistem informasi penjualan notebook berbasis web pada bmi komputer
Sistem informasi minimarket pada ud. Sumber rejeki
Rancang bangun sistem pemilihan senat stmik stikom bali menggunakan sms gateway
Aplikasi pemasaran lukisan dan informasi pengiriman berbasis web pada yayasan senang hati
Analisa desain game sabung ayam berbasis multimedia
Pengembangan sistem prediksi berbasis neural networks
Pengembangan sistem informasi akademik stikom bali dalam reporting data mahasiswa
Rancang bangun sistem pendukung keputusan pemilihan calon ketua senat stikom-bali berbasis web
Sistem pakar diagnosa penyakit tanaman jeruk besar
Penerapan metode fuzzy dalam penentuan jumlah alokasi stok pada pt. Duta dharma komunikatama berbasis php
Rancang bangun sistem informasi penyewaan peralatan pesta pada ud. Sarana dewata berbasis web
Sistem pelayanan tiket bus pada dharma jaya group berbasis web
Rancang bangun sistem informasi front office berbasis multi user pada inna grand bali beach hotel
Sistem pendukung keputusan pemilihan home stay di daerah ubud menggunakan php dan mysql
Sistem pakar mendeteksi penyakit pada tanaman anggrek
Rancang bangun sistem informasi pendapatan cv.mitra anugerah xpress
Rancang bangun informasi obyek wisata bali berbasis content management system (cms)
Sistem pakar diagnosapenyakit menular pada manusia yang disebabkan oleh arthropoda
Sistem informasi penerimaan mahasiswa baru pada universitas panji sakti berbasis multi user
Sistem perekrutan dan penyaluran tenaga kerja indonesia (tki) berbasis web pada cv. Japindo putra utama
Perancangan sistem toko buku online berbasis wap
Implementasi teknologi bluetooth pada pembacaan data mahasiswa stikom bali
Rancang bangun otomatisasi pelayanan pengobatan puskesmas yang terintegrasi, studi kasus puskesmas susut bangli
Pengembangan sistem pakar diagnosa penyakit gigi dan mulut berbasis web
Rancang bangun aplikasi pengolahan data aset stikom bali
Implementasi sistem terintegrasi untuk dosen wali dan kemahasiswaan stikom bali
Sistem pendukung keputusan penjurusan siswa pada sma negeri 2 mengwi
Rancang bangun e-learning stikom bali berbasis web
Embedding pesan rahasia pada file audio untuk keamanan data jaringan internet menggunakan teknik steganografi
Sistem informasi penjualan handphone dan aksesorisnya berbasis web pada toko wankom cellular
Rancang bangun sistem informasi penjualan komputer dan aksesorisnya berbasis web pada ud. Lg. Com
Implementasi enkripsi metode md5 pada simulasi token dan server e-banking
Pembuatan simulator jaringan sebagai alat bantu pembelajaran jaringan komputer
Pengembangan aplikasi sistem informasi komoditi agronomi berbasis web gis pada dinas pertanian dan kelautankota denpasar
Penerapan metode algoritma genetika untuk pnjadwalan pelatihan karyawan pada pabrik aqua mambal
Sistem pakar berbasis web untuk membantu diagnosa penyakit menular seksual (gonore,sifilis,chancroid,herpes simpleks,kondiloma akuminata) dengan metode certainty factor
Aplikasi pengolahan data penentuan jurusan pada sekolah menengah umum menggunakan metode clustering
Penerapan k-nearest neighbor untuk pengolahan data penglompokan siswa berprestasi pada sd no.4 tonja
Aplikasi untuk mengidentifikasi penyakit pada tanaman cabe menggunakan metode fuzzy logic
Membangun sms gateway sebagai sistem pengingat paramedis rumah sakit
Penerapan konsep jarak k-nearest neighbor pada sistem klasifikasi penerimaan dan penempatan pegawai pada scoot fast cruises berbasis client server
Sistem pendukung keputusan penentuan lokasi pembangunan tempat usaha menggunakan backpropagation neural network
Pemetaan tugas akhir atau skripsi stmik stikom bali dengan algoritma k-means clustering
Aplikasi text mining dengan decision tree dan algoritma sequential minimal optimization (smo) untuk klasifikasi skripsi di stikom bali berbasis desktop dengan visual studio 2010 dan sql server 2005
Rancang bangun system pendukung keputusan untuk menentukan lokasi cabang penjualan baru pada ud. Theater art gallery berbasis web dengan metode ahp
Sistem pendukung keputusan pengajuan kredit pada koperasi sari sedana artha dengan metode ahp
Rancang bangun aplikasi jpeg encoder dengan akselerasi gpgpu berbasis opencl
Sistem pendukung keputusan pembuatan purchase order pada dealer honda made ferry motor dengan metode analythical hierarc
Sistem konfrensi online dengan teknologi ajak dan metode user centered design (ucd)
Rancang bangun sistem pendukung keputusan prediksi produktivitas pegawai menggunakan metode multifaktor evaluation process pada pt tera data indonusa
Sistem informasi sekolah online (distance learning) berbasis web
Aplikasi sistem pendukung keputusan dalam pemilihan mobil toyota menggunakan metode bayes
Sistem pakar berbasis web untuk membantu diagnosa penyakit ginjal dengan metode backward chaining dan forward chaining
Pengamanan video format 3gp menggunakan algoritma kriptografi noekeon
Klasifikasi karakter mahasiswa stmik stikom bali dengan menggunakan k-means clustering
Sistem pendukung keputusan penentuan paket wisata berdasarkan budget konsumen berbasis web dengan menggunakan algoritma k-nearest neighbor
Aplikasi pengamanan data menggunakan kriptografi kunci publik elgamal dengan java
Perencanaan dan pembuatan aplikasi game kartu cangkulan online berbasis web
Aplikasi data mining untuk memprediksi kemungkinan tamu hotel mengulang kedatangannya
Aplikasi pengamanan data menggunakan algoritma kriptografi blowfish dan algoritma steganografi lsb pada media audio
Aplikasi sistem pendukung keputusan pemberian rekomendasi kelayakan pemakaian senjata api pada satpam menggunakan logika fuzzy
Implementasi enkripsi simetris data encryption standard pada web based instant messaging berbasis protokol jabber
Rancang bangun sistem informasi geografis kantor kelurahan di kota denpasar berbasis web
Optimasi penentuan tata letak parkir stikom bali menggunakan algoritma acs
Aplikasi e-learning berbasis multimedia pada sma negeri 1 tejakula
Media konsultasi penyakit ikan louhan dengan penanganan ketidakpastian menggunakan metode certainty factor
Rancang bangun sistem informasi akuntansi pada taman rekreasi sengkaling
Implementasi customer relationship management astrindo service center bali berbasis web dan sms gateway
Sistem informasi geografi tempat ibadah kabupaten ende-flores berbasis web
Rancang bangun sistem informasi geografis pemetaan daerah aliran sungai di denpasar
Rancang bangun sistem informasi pemesanan tiket bioskop dengan fasilitas movie thriller via online berbasis web
Implementasi algoritma bayesian classification dalam penentuan jurusan di sma negeri 1 ubud
Aplikasi pemesanan makanan dan minuman di blue ocean berbasis wi-fi
Rancang bangun aplikasi augmanted reality untuk mengetahui informasi masjid berbasis android
Sistem pengambilan keputusan estimasi anggaran biaya konstruksi bangunan dengan metode mfep
Sistem informasi geografis lokasi tempat-tempat ibadah di denpasar berbasis web
Rancang bangun sistem pembelajaran elektronik (e-learning system) berbasis web pada stmik stikom bali (studi kasus : user dosen)
Rancang bangun sistem informasi rumah sakit umum kabupaten tabanan berbasis web,wap dan sms gateway
Rancang bangun sistem pakar untuk diagnosa penyakit lupus berbasis web

demikian beberapa judul skripsi atau KTI yang bisa admin share disini, semoga bisa membantu teman-teman yang akan menyelesaikan pendidikannya..........Salam sukses. +=D Juegos Kings =D

Animasi Form Visual Foxpro

noreply@blogger.com (Anonymous) — Sat, 12 Jan 2013 13:51:00 +0000

Untuk mempercantik tampilan form atau memberikan sedikit variasi, biasanya ditambahkan sebuah label dengan kata tertentu yang dapat berjalan. Arah berjalannya kata atau label tersebut juga bervariasi, mulai bergerak dari kanan ke kiri, atas ke bawah, serong dan lain - lain. Selain kata yang bisa dibuat agar bisa bergerak di form, sebuah gambar juga bisa dilakukan hal sama sehingga bisa menambah kesan variatif dan cantik di tampilan form.

Untuk membuat kata atau sebuah gambar yang berjalan atau bergerak tidak lah sulit asal sudah tau beberapa prinsip dan logika yang digunakan. Beberapa hal yang berkaitan agar dalam membuat sebuah kata atau gambar agar terkesan bisa bergerak di form diantaranya adalah sebagai berikut.

Kontrol timer : kontrol ini adalah sebuah kontrol yang dapat digunakan untuk melakukan eksekusi syntax dalam rentang interval terentu.
Procedure timer : adalah procedure yang dimiliki oleh kontrol timer dimana syntax yang dimasukkan di procedure ini akan dieksekusi dalam rentang yang telah ditentukan.
Property interval : adalah property milik kontrol timer yang digunakan untuk mengatur jeda waktu eksekusi syntax pada procedure timer. Dalam interval bila anda memasukkan nilai 1000 berarti syntax pada procedure timer akan dieksekusi setiap 1 detik sekali. Jadi untuk mempercepat jeda eksekusi syntax atur nilai interval kurang dari 1000 dengan nilai paling rendah adalah 1, dan bila ingin memperpanjang jeda eksekusi atur nilai interval lebih dari 1000.
Property left : Untuk mengatur pergerakan kata atau image secara horizontal, maka yang perlu diperhatikan atau dilakukan operasi adalah property label atau image yang bernama left. Property left ini digunakan untuk menentukan letak suatu kontrol termasuk label atau image secara horizontal. Dalam hubungannya dengan kata atau image berjalan maka jika digabungkan dengan penggunaan kontrol timer maka bila anda bisa menerapkan logika yang bisa mengeksekusi syntax yang secara logika dapat mengurangi atau menambah nilai dari property left maka anda pasti akan dapat berhasil membuat sebuah kata atau image yang seolah - olah bergerak secara horizontal.
Property top : Jika untuk mengatur pergerakan secara horizontal property yang harus diperhatikan adalah property left dari label atau image. Sedangkan untuk mengatur pergerakan secara vertikal, yang harus diperhatikan adalah property top. Property top ini adalah property yang digunakan untuk mengatur posisi kontrol termasuk label dan image secara vertikal.

Untuk lebih lengkapnya silahkan download screensoot programnya di debuger's, selamat berkreasi.......semoga artikel ini dapat membantu........!!!

Trik Install Crystal Report 8.5 Di VB 6.0

noreply@blogger.com (Anonymous) — Sat, 22 Dec 2012 04:25:00 +0000

Installasi crystal report versi 7 pada windows 7 merupakan salah satu kendala dalam memindahkan crystal report ke windows 7. Saya temukan solusi pada www.tek-tips.com ada beberapa langkah yang bisa kita lakukan sehingga crystal report 7 bisa kita jalankan pada windows 7.
Langkah-langkahnya adalah sebagai berikut:

Salin folder installasi ke hardisk, karena akan dilakukan perubahan pada salah satu file dalam folder installasi, jadi agar folder ini juga nanti masih bisa digunakan pada komputer lain, sebaiknya dibuat salinannya. Dan gunakan folder installasi ini untuk melakukan langkah-langkah berikutnya.
Buka folder installasi, kemudian cari file setup.inf

Maka akan terbuka jendela baru berupa fil notepad seperti pada gambar dibawah ini :

kemudian Edit file setup.inf dan hilangkan 2 baris pada bagian [Database Access\ODBC\Microsoft SQLServer\@Winsys] yakni pada baris dbnmpntw.dll dan sqlsrv32.dll

kemudian simpan (save) file notepadnya

Lalu jalankan istalasi crystal reportnya sampai selesai, jalankan crystal reportnya tapi sebelumnya sebaiknya atur terlebih dahulunya compability-nya pada Windows 2000 atau windows XP.
dak akhirnya selamat mencoba dan selamat berkreasi dengan CR 8.5.........Sekian dan semoga bermanfaat.

Sistem Informasi Pengelolaan Sumber Daya Air

noreply@blogger.com (Anonymous) — Fri, 14 Dec 2012 16:08:00 +0000

Sistem Informasi Pengelolaan Sumber Daya Air ini adalah hasil skripsi dari salah satu teman foxpro mania yaitu Okta yang berisikan project aplikasi Visual Foxpro yang dibuat untuk menangani kegiatan administrasi pengelolaan sumber daya air atau lebih tepatnya administrasi bila kita ingin mengajukan ijin untuk menggunakan tanah yang merupakan daerah PSDA yang dikelola pemerintah. Aplikasi ini masih sederhana, jadi sangat cocok digunakan bagi teman - teman foxpro mania yang baru belajar atau sedang mengerjakan Skripsi atau TA, biar mempunyai gambaran dan pencerahan untuk membuat sebuah aplikasi dengan Visual Foxpro. Untuk mencobanya silahkan download file projectnya di link diSini

Untuk menjalankan aplikasi tersebut, setelah membuka projectnya di Visual Foxpro. Terlebih dulu buka isi dari table "psw" yang ada di bagian free table. Di dalam table "psw" berisi data username, bagian dan password yang digunakan untuk menjalankan "frmutama" dalam Sistem Informasi Pengelolaan Sumber Daya Air Tersebut. Setelah bisa masuk ke bagian "Kabag Retribusi" teman - teman bisa menambahkan user baru sendiri dengan mengakses menu Tambah Pengguna dengan cara melakukan klik kanan di area form utama.

Sekian dulu tuk kali ini sampai jumpa di artikel berikutnya........ :D

Membuat Laporan Per Periode

noreply@blogger.com (Anonymous) — Fri, 14 Dec 2012 14:44:00 +0000

Berikut langkah-langkah untuk membuat laporan :

Buat data environment di visual basic
Buat laporan dengan menggunakan data report

Selanjutnya buat form untuk menampilkan laporan yang dibuat tadi seperti gambar berikut ini :

Selanjutnya ketikkan coding berikut ini untuk pada halaman coding editor
Koneksi Database
Private Sub Form_Load()
Me.Dlap.DatabaseName = App.Path + "\MyDatabase.mdb"
Me.txtnota.Enabled = False
Me.ccari.Enabled = False
Me.Dp1.Enabled = False
Me.Dp2.Enabled = False
Me.Dp1.Value = Date
Me.Dp2.Value = Date
End Sub
Menampilkan Laporan

Private Sub CTampil_Click()

'A. Menampilkan Per Periode
If Me.opt3.Value = True Then
de1.Commands(4).CommandText = "
select jual.nota, jual.tgl, jual.kasir, subjual.nota, subjual.kdbar, subjual.nmbar,
subjual.harga, subjual.jml, subjual.subtotal from jual, subjual
where jual.nota = subjual.nota
and jual.tgl between #" & Me.Dp1.Value & "# and #" & Me.Dp2.Value & "#"

Lap_Penjualan.Refresh
Lap_Penjualan.Show
'B. Menampilkan Laporan Per Nota
ElseIf Me.Opt2.Value = True Then
de1.Commands(4).CommandText = "
select jual.nota, jual.tgl, jual.kasir, subjual.nota, subjual.kdbar, subjual.nmbar,
subjual.harga, subjual.jml, subjual.subtotal from jual, subjual
where jual.nota = subjual.nota
and subjual.nota = '" + Me.txtnota.Text + "'"

Lap_Penjualan.Refresh
Lap_Penjualan.Show
'C. Menampilkan Semua Laporan Penjualan
Else
Lap_Penjualan.Refresh
Lap_Penjualan.Show
End If
End Sub
Tuk kali ini sekian dulu semoga bermamfaat dan sampai jumpa lagi di episode selanjutnya debugdebugers.blogspot.

Membuat Form Loagin Pada VB 6.0

noreply@blogger.com (Anonymous) — Thu, 13 Dec 2012 08:54:00 +0000

Pada Kesempatan Kali ini Debuger's menyajikan langkah membuat form lagin pada Visual Basic atau yang lebih sering di sebut dengan VB, berikut langkah-langkahnya :
Desain sebuah form seperti gambar dibawah ini :

Kemudian pada halam coding editor ketik coding berikut ini :
'Call buat_koneksi
If cek.State = 1 Then cek.Close
cek.Open "select * from user_login where " & _ "user_id='" & Replace(Text1, "'", "''") & "'", koneksi, adOpenDynamic, adLockOptimistic
If Not cek.EOF Then
cek.Close
cek.Open "select * from user_login "
& _ "where user_id='" & Replace(Text1, "'", "''") & "' " & _ "and password='" & Replace(Text2, "'", "''") & "'", koneksi, adOpenDynamic, adLockOptimistic
If Not cek.EOF Then
MDIForm1.mnuData.Enabled = True
MDIForm1.mnuFile.Enabled = True
MDIForm1.mnuHelp.Enabled = True
MDIForm1.mnuReport.Enabled = True
MDIForm1.mnuView.Enabled = True
MDIForm1.mnuTrans.Enabled = True
MDIForm1.vbButton1.Enabled = True
MDIForm1.vbButton3.Enabled = True
MDIForm1.cmdMNUMekanik.Enabled = True
MDIForm1.cmdMNUSpare.Enabled = True
MDIForm1.cmdMNUSupplier.Enabled = True
MDIForm1.cmdLog.Enabled = True
MDIForm1.cmdLog.ToolTipText = "LogOut"
If cek!Level = "Admin" Then
MDIForm1.vbButton2.Enabled = True
MDIForm1.mnuIUser.Enabled = True
Else
MDIForm1.vbButton2.Enabled = False
MDIForm1.mnuIUser.Enabled = False
End If
frmLogin.Hide
MDIForm1.Show
Else
n = n + 1
MsgBox "Sorry, User or Password is Wrong !", vbExclamation, "Warning"
With Text1
.SelStart = 0
.SelLength = Len(Text1)
.SetFocus
End With
Text2 = ""
If n > 3 Then
MsgBox "Sorry, you're have a 3x
Wrong, Application will Close!", 64, "Information"
End
End If
End If
Else
n = n + 1
MsgBox "Sorry, User or Password is Wrong !", vbExclamation, "Warning"
With Text1
.SelStart = 0
.SelLength = Len(Text1)
.SetFocus
End With
Text2 = ""
If n > 3 Then
MsgBox "Sorry, you're have a 3x Wrong, Application will Close!", 64, "Information"
End
End If
End If

Demikian salah satu cara untuk membuat form login pada VB 6.0, Semoga bermamfaat bagi anda yang sedang belajar Visual Basic.

Code Simpan,Cari,Ubah dan Hapus VB6.0

noreply@blogger.com (Anonymous) — Sun, 09 Dec 2012 09:06:00 +0000

Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC,) Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya. Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data

Code-Code berikut ini digunakan untuk coneksi Data Control

Simpan Data : Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh
Pencarian Data :
Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset!namakolom1
Text2.Text = Data1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh
Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh

Untuk ADODC gunakan code berikut :
Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
'Pencarian Data :
Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!namakolom1
Text2.Text = Adodc1.Recordset!namakolom2
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End if
Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh

Selamat mencoba semoga berhasil Salam "Debuger's"

Cara Install Windows 8 Dari FD

noreply@blogger.com (Zahal Oline) — Sat, 08 Dec 2012 02:39:00 +0000

Untuk Posting debugdebugers.blogspot.com kali akan mencoba berbagi cara menginstall windows 8 via usb flashdisk.

Simak step by stepnya berikut ini :

Untuk menginstall windows 8 via usb flashdisk kita tidak menggunakan aplikasi pihak ketiga, hanya menggunakan aplikasi bawaan windows yang serba bisa, yakni command prompt. Berikut langkah demi langkahnya :

Pertama Pastikan USB Flashdik anda memiliki kapasitas yang cukup untuk menampung file-file windows 8. Disarankan menggunakan flashdisk 8 Gb.

Colok flashdisk ke laptop/komputer.

Langkah selanjutnya buka CMD, caranya tekan tombol Win+R. Lalu ketik CMD, enter.

Masuk ke dalam aplikasi command prompt kan....??? Pada halaman CMD

Ketik diskpart enter, Ketik list disk, maka akan muncul media penyimpanan di komputer anda, pastikan anda tahu betul yg mana flashdisk anda. Untuk mngetahuinya, cukup liat kapasitas size nya aja. Posisi flashdisk saya ada di disk 2, maka ketik select disk 2.

Ketik clean, enter. Lalu ketik create partition primary, enter.

Ketik select partition 1, enter. Ketik active, enter lagi.

Ketik format fs=fat32, enter.

Ketik assign, enter.

Terakhir, ketik exit, dan enter.

Sekarang kita sudah selesai tahap awal menyiapkan flashdisk yang akan kita gunakan, selanjutnya ialah tahap copy dan paste file-file windows 8 nya. Copy semua files windows 8 yang ada di dalam DVD kemudian paste di flashdisk anda. Selesai, kini flashdisk anda sudah siap digunakan untuk Install Windows 8.

NB : Jangan lupa atur settingan first bootnya di bios ke flashdisk anda, Ok

Membuat Angka Terbilang Visual Basic 6.0

noreply@blogger.com (Anonymous) — Thu, 06 Dec 2012 02:48:00 +0000

Fungsi terbilang adalah fungsi yang melakukan konversi dari angka menjadi teks terbilangnya, misalnya 123,4567 menjadi seratus dua puluh tiga koma empat lima enam tujuh.

LISTING PROGRAM:

Listing 1. Fungsi terbilang

Public Function Terbilang(x As Double) As String
Dim tampung As Double
Dim teks As String

Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "

If (x = 0) Then
Terbilang = "nol"
Exit Function
End If

If (x < 2000) Then
tanda = True
End If

teks = ""

If (x >= 1E+15) Then
Terbilang = "Nilai terlalu besar"
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
Terbilang = teks
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "se"
angka(2) = "dua "
angka(3) = "tiga "
angka(4) = "empat "
angka(5) = "lima "
angka(6) = "enam "
angka(7) = "tujuh "
angka(8) = "delapan "
angka(9) = "sembilan "

Dim posisi(2)
posisi(1) = "puluh "
posisi(2) = "ratus "

bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = "satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function
Listing 2. Event click pada cmdTerbilang

Private Sub cmdTerbilang_Click()
Dim angka As Double
Dim teks As String
angka = Val(txtAngka.Text)
teks = Terbilang(angka)
txtTerbilang.Text = teks
End Sub