UAS Pemrograman Visual Basic STMIK Eresha Wikrama

Kamis | komentar

Penjelasan program - Program ini dibuat untuk memudahkan suatu universitas dalam pendataan mahasiswa, program ini sudah dapat memanipulasi data seperti create, read, update, delete.

Berikut adalah beberapa screenshoot pada saat program dijalankan.



- Pada saat menyimpan


- Pada saat cari


- Pada saat update


- Pada saat menghapus


Berikut adalah source code nya :

Imports System.Data.OleDb
Public Class FrmMasterMahasiswa
    Dim strtemp As String = ""
    Dim strvalue As String = ""

    Private Function autonumber()
        sql = "SELECT * FROM MAHASISWA ORDER BY NIM DESC"
        cmmd = New OleDbCommand(sql, cnn)
        'On Error Resume Next
        dreader = cmmd.ExecuteReader
        If dreader.Read Then
            strtemp = Mid(dreader.Item("NIM"), 3, 8)
            strvalue = Val(strtemp) + 1
            strvalue = "MS" & Mid("00000000", 1, 8 - strvalue.Length) & strvalue
        Else
            strvalue = "MS00000001"
        End If
        Return strvalue
    End Function
    Private Sub FrmMasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        txtnim.Text = autonumber()

    End Sub
    Private Sub bersih()
        txtnama.Text = ""
        rbjkl.Checked = True
        txtalamat.Text = ""
        txttelepon.Text = ""
        txttptlahir.Text = ""
        cmbjurusan.Text = ""
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        sql = "INSERT INTO MAHASISWA(NIM,NAMA,JNS_KELAMIN,ALAMAT,TELP,TEMP_LAHIR,TGL_LAHIR,JURUSAN) " & _
        " values (?,?,?,?,?,?,?,?)"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If

        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA SIMPAN", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENYIMPAN DATA", "informasi", MessageBoxButtons.OK)

        End If
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        txtnim.Text = autonumber()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sql = "DELETE FROM mahasiswa WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA HAPUS", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGHAPUS DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub
    Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click
        sql = "UPDATE MAHASISWA set NAMA=? , JNS_KELAMIN=? , ALAMAT=? , TELP=? , TEMP_LAHIR=? , TGL_LAHIR=? , JURUSAN=? " & _
                       "WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)

        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If
        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA UBAH", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGUBAH DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub txtnama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnama.TextChanged
        txtnama.Focus()
    End Sub
    Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
        Dim popupmh As New Popup_MasterMahasiswa
        popupmh.ShowDialog()
        If popupmh.retnim <> "" Then
            txtnim.Text = popupmh.retnim
            txtnama.Text = popupmh.retnama
            If popupmh.retjeniskelamin = "Laki-Laki" Then
                rbjkl.Checked = True
            Else
                rbjkl.Checked = True
            End If
            txtalamat.Text = popupmh.retalamat
            txttelepon.Text = popupmh.rettelepon
            txttptlahir.Text = popupmh.rettempatlahir
            DateTimePicker1.Value = popupmh.rettanggallahir
            cmbjurusan.Text = popupmh.retjurusan
            txtnim.Enabled = False
            txtnama.Focus()
        End If
    End Sub
   

End Class

#source code pop up

Imports System.Data.OleDb
Public Class Popup_MasterMahasiswa
    Public retnim, retnama, retjeniskelamin, retalamat, rettelepon, rettempatlahir, rettanggallahir, retjurusan As String
    Private Sub isi_view()
        Lvdata.Items.Clear()
        Dim x As Integer = 1
        koneksi()
        sql = "SELECT * FROM MAHASISWA WHERE NAMA LIKE '%" & Trim(txtkatakunci.Text) & "%' ORDER BY NIM ASC"
        cmmd = New OleDbCommand(sql, cnn)
        dreader = cmmd.ExecuteReader
        Try
            While dreader.Read = True
                Lvdata.Items.Add(dreader.Item("NIM").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("NAMA").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JNS_KELAMIN").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("ALAMAT").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TELP").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TEMP_LAHIR").ToString)
                Lvdata.Items(x - 1).SubItems.Add(Format(CDate(dreader.Item("TGL_LAHIR")), "dd-MMMM-yyyy").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JURUSAN").ToString)

                x = x + 1

            End While
        Finally
            dreader.Close()
        End Try

    End Sub
    Private Sub pilih()
        Try
            retnim = Lvdata.SelectedItems(0).SubItems(0).Text.ToString
            retnama = Lvdata.SelectedItems(0).SubItems(1).Text.ToString
            retjeniskelamin = Lvdata.SelectedItems(0).SubItems(2).Text.ToString
            retalamat = Lvdata.SelectedItems(0).SubItems(3).Text.ToString
            rettelepon = Lvdata.SelectedItems(0).SubItems(4).Text.ToString
            rettempatlahir = Lvdata.SelectedItems(0).SubItems(5).Text.ToString
            rettanggallahir = Lvdata.SelectedItems(0).SubItems(6).Text.ToString
            retjurusan = Lvdata.SelectedItems(0).SubItems(7).Text.ToString
            Me.Close()
        Catch ex As Exception
            MsgBox("pilih salah satu data", MsgBoxStyle.Information)
        End Try
    End Sub

    Private Sub Popup_MasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call isi_view()
    End Sub

    Private Sub Lvdata_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lvdata.DoubleClick
        Call pilih()
    End Sub

    Private Sub txtkatakunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkatakunci.TextChanged
        Call pilih()
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        Call pilih()
    End Sub

    Private Sub Lvdata_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lvdata.SelectedIndexChanged

    End Sub
End Class


Tulisan ini dibuat untuk melengkapi UAS Pemrograman Visual Basic STMIK Eresha Wikrama, semoga bermanfaat. Terima kasih.

Nama : Ridwanulloh
NIM : 004121121086
Kelas B
STMIK Eresha Wikrama





Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 04.34

Tutorial Cara Memisahkan Bandwith International dan Lokal

Senin | komentar

Tutorial Cara Memisahkan Bandwith International dan Lokal - Tutorial kali ini saya akan membahas cara memisahkan koneksi international dan lokal menggunakan fiture mangle, dimana mangle sendiri adalah metode bandwidth manajemen yang dapat memisahkan downstream dan upstream.

Pertama yang harus dilakukan untuk memisahkan koneksi international dan lokal diperlukan file nice.rsc dimana file ini berisikan kumpulan IP address OpenIXP dan IIX yang telah disediakan oleh mikrotik indonesia.

- copy atau ketik perintah dibawah ini, dan masukan pada terminal mikrotik anda.

#/tool fetch address=ixp.mikrotik.co.id src-path=/download/nice.rsc mode=http;

kemudian setelah file berhasil di download ketikan perintah

#import nice.rsc




Setelah file nice.rsc berhasil di import, maka yang harus anda lakukan yaitu membuat mangle (memisahkan international dan lokal). Membuat mangle anda dapat melihat konfigurasi yang telah saya lakukan seperti dibawah ini.


Berikut adalah scriptnya :

 0   ;;; Lokal
     chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes src-address-list=nice
 1  chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes dst-address-list=nice
 2  chain=prerouting action=mark-packet new-packet-mark=paket-Lokal
     passthrough=no connection-mark=conn-lokal
 3   ;;; Int
     chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes src-address-list=!nice
 4  chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes dst-address-list=!nice
 5  chain=prerouting action=mark-packet new-packet-mark=paket-int
     passthrough=no connection-mark=conn-int 


Setelah mangle di buat, hal terakhir yang harus dilakukan yaitu membuat management bandwith, disini saya menggunakan simple queue. Lihat gambar dibawah ini.


Untuk lebih mudah anda bisa copy script dibawah ini.

0    name="Parent Lokal" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 1   name="Parent Int" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 2   name="PC 1 - Limit Int" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=64000/64000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small
 3   name="PC 1 Limit Lokal" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=128000/128000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small 

Demikian tuorial kali ini, jika anda masih bingung atau ada yang ingin ditanyakan, anda bisa menuliskan komentar pada postingan ini. Semoga bermanfaat!
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 18.41

UTS Mata Kuliah Pemrograman Visual Eresha Wikrama Kelas B

Rabu | komentar

Program Penjualan Tiket Film 

Program sederhana ini dibuat untuk memudahkan penjualan tiket film, cara kerjanya pilih kode studio, masukan jumlah tiket yang dipesan lalu masukan jumlah uang yang dibayar. Berikut screenshootnya :


Berikut source codenya :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("A003")
        Kode.Items.Add("A004")
    End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama_studio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            Harga.Text = 90000
        ElseIf Kode.Text = "A002" Then
            Nama_studio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            Harga.Text = 80000
        ElseIf Kode.Text = "A003" Then
            Nama_studio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            Harga.Text = 70000
        Else
            Nama_studio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            Harga.Text = 60000
        End If
        Jumlah.Focus()
    End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            Tohar.Text = Harga.Text * Jumlah.Text

        End If

    End Sub
Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
        If e.KeyChar = Chr(13) Then
            Kembalian.Text = Dibayar.Text - Tohar.Text
        End If
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Kode.Text = ""
        Nama_studio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Tohar.Text = ""
        Dibayar.Text = ""
        Kembalian.Text = ""
    End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub


Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 07.57

Setting VPN di Mikrotik

| komentar

Sebelum kita membahas untuk seting vpn di mikrorik apakah sebelumnya anda mengetahui apa itu vpn ? vpn adalah singkatan dari virtual private network yaitu sebuah koneksi private yang melalui jaringan internet dimana tidak sembarangan orang dapat mengaksesnya.  Fungsi VPN adalah memberikan koneksi yang sangat aman antara jaringan pribadi yang terhubung ke internet. VPN mendukung fungsi akses remote client, akses jaringan LAN satu ke jaringan LAN lain, dan juga membuat fungsi pembatasan internet. Yang akan saya bahas kali ini yaitu setting vpn di mikrotik dengan protokol PPTP (Point-to-Point Tunneling Protocol). PPTP adalah suatu protokol jaringan yang memungkinkan pengiriman data secara aman dari remote client kepada server dengan membuat suatu virtual private network (VPN) melalui jaringan data berbasis TCP/IP.

Disini kita mempunyai kasus seperti topologi diatas dimana kedua router sebenarnya sudah terhubung dengan internet namun untuk LAN Bogor belum dapat terkoneksi dengan LAN Jakarta, maka cara agar dapat menghubungkan Lan-Jkt ke Lan-Bgr dibutuhkan koneksi vpn seperti pada gambar diatas.

Setting Router Jakarta

Yang perlu dilakukan pertama adalah mengkonfigurasi IP Address pada ether 1 dan ether 2 seperti pada konsep IP Address pada topologi diatas.

[catatanblogkecil@Jkt] > ip address add address=202.148.59.2/29 interface=ether1
[catatanblogkecil@Jkt] > ip address add address=192.168.10.1/24 interface=ether2

Melalui menggunakan winbox melalui perintah IP/Address/Add.


Selanjutnya adalah mengaktifkan PPTP Server dengan perintah sebagai berikut:

[catatanblogkecil@Jkt] > interface pptp-server server set enabled=yes

Jika menggunakan winbox melalui PPP/PPTP Server.



Langkah berikutnya, menentukan username dan password untuk proses autentikasi Client yang akan terkoneksi ke PPTP server. Yang perlu diperhatikan adalah penggunaan huruf besar dan kecil akan berpengaruh.

PPTP untuk Router-Bgr
[catatanblogkecil@Jkt] > ppp secret add name=router-jkt password=router-jkt service=pptp profile=default-encryption local-address=10.10.10.1 remote-address=10.10.10.2

Jika melalui winbox masuk menu PPP/Secret/Add.
 -Local Address adalah alamat IP yang akan terpasang pada router itu sendiri (Router-Jkt / PPTP Server) setelah link PPTP terbentuk
 -Remote Address adalah alamat IP yang akan diberikan ke Client setelah link PPTP terbentuk.



Selanjutnya agar antar jaringan local bisa saling berkomunikasi, kita perlu menambahkan routing static dengan konfigurasi.

[catatanblogkecil@Jkt] > ip route add dst-address=192.168.20.0/24 gateway=10.10.10.2

Jika dengan winbox melalui menu IP/Routes/Add.
- dst-address : jaringan local Router lawan (Router-Bgr).
- gateway : IP PPTP Tunnel pada kedua router (IP Address PPTP Router-Bgr).



Setting Router-Bgr

Langkah pertama adalah mengkonfigurasi IP Address pada ether 1 dan ether 2 seperti pada konsep IP Address pada topologi diatas.

[catatankecil@Bgr] > ip address add address=202.14.59.10/29 interface=ether1
[catatankecil@Bgr] > ip address add address=192.168.20.1/24 interface=ether2

Melalui menggunakan winbox melalui perintah IP/Address/Add.



Selanjutnya tambahkan interface baru sebagai PPTP Client.

[catatankecil@Bgr] > interface pptp-client add user=router-jkt password=router-jkt connect-to=202.148.59.2 disabled=no

Jika menggunakan winbox melalui, PPP/Add/PPTP Client.
Lakukan dial ke IP Public Router Gedung A (PPTP server) dan masukkan username dan password sesuai pengaturan secret PPTP Server.



Agar antar jaringan local bisa saling berkomunikasi, kita perlu menambahkan routing static dengan konfigurasi.

[catatankecil@Bgr] > ip route add dst-address=192.168.10.0/24 gateway=10.10.10.1

Jika dengan winbox melalui menu IP/Routes/Add.
- dst-address : jaringan local Router lawan (Router-Jkt).
- gateway : IP PPTP Tunnel pada kedua router (IP Address PPTP Router-Jkt).


Sampai tahap ini untuk setting vpn di mikrotik dengan protokol PPTP sudah selesai, saatnya untuk mencoba ping dari Lan-Bgr ke Lan-Jkt maupun sebaliknya, jika hasilnya reply maka setting vpn di mikrotik telah selesai.
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 06.17

Password Default SMC Router

Selasa | komentar


SMC
Model
Default Username
Default Password
Barricade 7004 AWBR
admin 
(none) 
Router All
admin 
admin 
SMC broadband router
admin 
admin 
SMC2804WBR v.1
(none) 
smcadmin 
WiFi Router All
n/a 
smcadmin 
SMB2804WBR V2
Administrator 
smcadmin 
7401BRA 1
admin 
barricade 
7401BRA 2
smc 
smcadmin 
Barricade7204BRB
admin 
smcadmin 
2804wr
(none) 
smcadmin 
Router/Modem BR7401
admin 
barricade 
SMCWBR14-G SMCWBR14-G
(none) 
smcadmin 
Modem/Router
cusadmin 
highspeed 
7204BRA
smc 
smcadmin 
SMCWBR14-G
n/a 
smcadmin 
smc 7904BRA
(none) 
smcadmin 
smc7904wbrb
(none) 
smcadmin 
SMC7004VBR
n/a 
smcadmin 
SMCWBR14-G
(none) 
smcadmin 
SMC8013WG-CCR 2.11.19-1d
mso 
w0rkplac3rul3s 
7401BRA-alt
root 
root 
2404WBR
NONE 
blank 
7004VBR
NONE 
smcadmin 
7004VBRv2EU

blank 
7004VWBR

admin 
7008ABR
NONE 
blank 
2804WBRP-G
NONE 
smcadmin 
2804WBR
NONE 
smcadmin 
7804WBRB
NONE 
smcadmin 
2804WBRV2
NONE 
smcadmin 
7004BR
NONE 
admin 
7004BRV2
NONE 
admin 
7004WBR
NONE 
admin 
7008BR
NONE 
admin 
7004ABR
NONE 
blank 
7004AWBR
NONE 
blank 
7004FW
NONE 
blank 
7004WFW
NONE 
blank 
7401BRA
admin 
barricade 
WBR14-G
NONE 
blank 
1244TX
NONE 
blank 
7904BRA

smcadmin 
SMCBR14UP

smcadmin 
WBR14T-G
UNKNOWN 
UNKNOWN 
7004VBRv2
blank 
smcadmin 
2804WBRv3
blank 
smcadmin 
7004ABRv2

blank 
WBR14-G2
unknown 
unknown 
7908VoWBRB

admin 
WBR14-G2EU
unknown 
unknown 
WHSG44G
admin 
smcadmin 
7904WBRA2
smcadmin 
blank 
SMC8014
unknown 
unknown 
8014WG-SI
unknown 
unknown 
WBR14-N
Admin 
smcadmin 
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 17.49
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Catatan Kecil - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger