Topologi Jaringan - IP Routing, IP Addressing

Pada pembahasan kali ini akan saya isi dengan topologi jaringan dan bagaimana jaringan dapat berkomunikasi meskipun memiliki ip dan sub net yang berbeda alias network yang berbeda.

kali ini akan saya berikan gambaran mengenai topologi jaringan yang akan saya bahas

Jaringan pada gambar terhubung menggunakan router tipe 2514 dan switch 1912, secara instalasi kabel topologi diatas sudah salaing terkoneksi satu sama lain, akan tetapi belum terhubung secara addressing oleh karena nya tugas kita selaku admin jaringan harus menghubungkan topologi dengan perbedaan antara jaringan dengan ip yang berbeda pula ? dan topologi ini disimulasikan dengan Boson Network Simulator yang dikeluarkan oleh CCNA.

Caranya ?

1. pasang konfigurasi pada masing-masing klien atau personal computer dengan konfigurasi mengikuti berdasar pada address host network contoh address host network 10.0.0.0/8 seperti pada gambar di atas.
2. sesuaikan dengan jaringan masing-masing, dengan ketentuan :
1. (ip address)(sub net mask class) (default gateway) misal
   10.0.0.20 255.0.0.0 10.0.0.22
2. konfigurasi router dengan ketentuan
   ip route (address host network) (sub net mask class) (port ip jalur masuk dari router) misal
   10.0.0.0 255.0.0.0 20.0.0.2
   10.0.0.0 adalah address host network
   255.0.0.0 adalah sub net mask class
   20.0.0.2 adalah port ip jalur masuk keluar dari suatu router
3. Lalu gunakan metode Static Routing untuk mengkonfigurasi agar bisa berkoneksi beda jaringan

Konfigurasi PC

1. PC 1 : ipconfig /ip 10.0.0.1 255.0.0.0 10.0.0.5
2. PC 2 : ipconfig /ip 10.0.0.2 255.0.0.0 10.0.0.5
3. PC 3 : ipconfig /ip 172.16.0.1 255.255.0.0 172.16.0.5
4. PC 4 : ipconfig /ip 172.16.0.2 255.255.0.0 172.16.0.5
5. PC 5 : ipconfig /ip 192.168.10.1 255.255.255.0 192.168.10.5
6. PC 6 : ipconfig /ip 192.168.10.2 255.255.255.0 192.168.10.5

Konfigurasi Router
Unruk mengkonfigurasi router jelas berbeda dengan konfigurasi PC, antara lain setting pada serial atau ethernet mana yang terhubung dengan jaringan ataupun router yang lainnya, dan ingat terdapat beberapa pola yang bisa diperhatikan ketika akan melakukan static routing yaitu pada jalur mana yang akan dikoneksikan. caranya setting router terlebih dahulu melakukan step

• Pada router 1 misalnya, ketikkan enable agar muncul Router#> dari yang sebelumnya hanya Router>
• Setelah Router#> muncul, yang harus dilakukan berikutnya adalah ketikkan config t, agar muncul Router (config)# untuk memasukkan interface ethernet maupun serial
• ketika memasukkan identitas interface ethernet maupun serial maka akan muncul Router (config-if)#

Lalu masukkan ip address seperti dibawah ini :

1. Router 1 : e0 : 10.0.0.5 255.0.0.0 no shut
                   s0 : 20.0.0.1 255.0.0.0 clock rate 64000 no shut
2. Router 2 : e0 : 172.16.0.5 255.255.0.0 no shut
                   s0 : 20.0.0.2 255.0.0.0 no shut
                   s1 : 30.0.0.1 255.0.0.0 no shut clock rate 64000
3. Router 3 : e0 : 192.168.10.5 255.255.255.0 no shut
                   s0 : 30.0.0.2 255.0.0.0 no shut

Konfigurasi IP Static Routing
ini adalah konfigurasi yang terakhir dalam koneksi jaringan agar masing-masing klien dapat berkomunikasi walau berbeda jaringan

• Setting static routing bergantung pada pemasangan awal serial yang menghubungkan antar router-router yang mana harus diingat awal memasangkan serial pada port yang mana agar dapat memasangkan clock rate
• memasang static routing pada masing-masing router harus kembali pada keadaaan Router(config)#

       Setting pada Router 1 adalah

1. ip route 172.16.0.0 255.255.0.0 20.0.0.2
2. ip route 30.0.0.0 255.0.0.0 20.0.0.2
3. ip route 192.168.10.0 255.255.255.0 20.0.0.2

       Setting pada Router 2 adalah 

1. ip route 10.0.0.0 255.0.0.0 20.0.0.1
2. ip route 192.168.10.0 255.255.255.0 30.0.0.2

       Setting pada Router 3 adalah 

1. ip route 172.16.0.0 255.255.0.0 30.0.0.1
2. ip route 20.0.0.0 255.0.0.0 30.0.0.1
3. ip route 10.0.0.0 255.0.0.0 30.0.0.1

silahkan mencoba untuk melakukan ping dari masing-masing PC

Semoga bermanfaat karena share is care

WAL

Buat Alert Message (Messagebox.show())

gara-gara mencoba menjawab pertanyaan rekan akhirnya sudah saya buat tulisan ini yah walau sederhana semoga bermanfaat bagi yang memerlukannya dan masih tidak jauh dari web

pembahasan kali ini mengenai Alert box biasa digunakan untuk memberi keterangan atas suatu inputan. Jika inputan yang dimasukkan tidak sesuuai dengan yang disyaratkan, maka akan muncul window kecil yang menampilkan peringatan tertentu atau bahasa gampangnya adalah menampilkan pesan

Dan cara menampilkan alert box (messagebox.show kalau pada vb net) secara sederhana dapat kita gunakan javascript. Javascript tinggal dimasukkan dalam kombinasi tag php atau html maka alert box bisa dijalankan.

Beberapa contoh pengunaan alert box:

Menampilkan Pesan dari Button



<input name="btnPesan" onclick="alert('Coba Pesan lewat tombol ini')" type="button" value="proses" />

Pada baris kode ini akan menampilkan pesan setelah onclick="alert('pesan')"

Membuat Alert box berupa hyperlink

sebenarnya secara konsep hampir sama dengan hyperlink biasa yang membedakan adalah penambahan onclick untuk mengetahui proses yang sedang dilakukan, sehingga jika menuju halaman yang dikehendaki maka akan memunculkan pesan proses tersebut

waldy web

<a href="http://waldypermana.blogspot.com onclick="alert('selamat datang pada web waldy')">waldy web</a>

dan yang dieksekusi adalah javascript pada onclick maka proses pesan akan ditampilkan

Alert box optional (if else)

ketika dihadapkan dengan pilihan untuk mengeksekusi lebih dari 1 opsi sedikit berbeda caranya dari yang ada diatas, dan rada tidak mudah menemukannya ternyata walau if else saja dan bedanya jika diatas menggunakan alert maka disini menggunakan confirm




<script type="text/javascript"> function tambahteman() { var nambah=confirm('tambah saya sebagai teman ?') if (nambah) { alert("Selamat datang di akun waldy") window.location = "http://www.facebook.com/waldypermana.agastya"; } else { alert("Anda masih di waldypermana.blogspot.com") } } </script><br /> <input type="button" value="add fb waldy" onclick="tambahteman()" />

selamat mencoba karena dengan mencoba maka anda semakin menguasai dan mengetahui mana yang seharusnya bisa lebih baik lagi

share is care

WAL

Crystal Report : Filter Menggunakan Dataset dan DateTimePicker

Pada pembahasan mengenai Crystal report kali ini adalah filterisasi dengan menggunakan fungsi between dari dateTimePicker dan menggunakan konsep koneksi Disconnected Environment yaitu Dataset dan ini sesuai dengan usulan dari teman saya johan regar

Duh ini apa lagi seh ? kok banyak review nya ?

baik ini rasanya capek ya kok banyak bener review mengenai Crystal Report, yah namanya juga share jadinya kan banyak versi sehingga menjadikan kita semakin berkreasi lebih dan lebih lagi untuk membuat pelaporan yang bervariasi, sebelumnya baca dahulu review crystal report saya sebelumnya

Mulai dengan membuat file Crystal Report baru





Caranya seperti review saya sebelumnya yang membedakan adalah pada saat koding


Disini saya memakai 2 buah DateTimePicker sebagai filter dan button sebagai penampil isi report, penggunaan Dataset yang mana memungkinkan anda untuk melakukan selection formula secara coding query langsung ke dalam table pada database dengan mem-binding Dataset yang merupakan representasi dari table dan crystal reportnya, serta saya menggunakan database SQL Server 2005


Koding Time


ok langsung saja


Imports System.CrystalReports.Shared
imports System.Data.SqlClient


Public Class1


Dim xKoneksi As new SqlConnection
Dim xcom As new SqlCommand
Dim ds As new Dataset
Dim da As SqlDataAdapter
Dim ReportPembelian as new CReportBeli


Private Sub Form1_Load(Byval sender As System.Object, Byval e As System.EvenArgs) Handles me.Load
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DB;Integrated Security=true"
xKoneksi.open()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Try

xcom.CommandText = "SELECT PEMBELIAN.no_nota," & _
"PEMBELIAN.nama_supplier, "PEMBELIAN.tanggal_nota, detil_pembelian.kode_barang," & _ "detil_pembelian.nama_barang,detil_pembelian.jumlah_beli, detil_pembelian.harga, " & _ "detil_pembelian.total, PEMBELIAN.total_pembelian, PEMBELIAN.Keterangan " & _

"FROM PEMBELIAN, detil_pembelian WHERE" & _
"PEMBELIAN.no_nota = detil_pembelian.no_nota_pembelian and " & _
"PEMBELIAN.tanggal_nota BETWEEN '" & datetimepicker1.value & "'" & "and" & _
"'" & datetimepicker2.value & "'"
da = New SqlDataAdapter(xcom.CommandText, xKoneksi)
da.Fill(ds, "tblAlias")

ReportPembelian.SetDataSource(ds.Tables("tblAlias"))


CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.ReportSource = ReportPembelian


Catch (Ex As Excepyion)


End Try


End Sub


End Class


Silahkan mencoba versi yang baru ini menggunakan fungsi Between dari datetimepicker dan ditampilkan saat anda meng-klik button. thx to johan regar


by


WAL

Crystal Report : Source Code Filter dengan Bulan dan Tahun (2)

Pada bagian Crystal report kali ini adalah versi lain dari filter berdasarkan bulan dan tahun dan ini adalah masukan dari teman saya tegar thx for masukannya bro

Apa yang dibutuhkan

Tetap saja sama seperti posting saya sebelumnya Filter Bulan dan Tahun baca dulu, tidak ada yang berubah dan yang membedakan dengan postingan sebelumnya ada pada saat koding jadi kita langsung menuju koding.


Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,1) to datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,” & Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ini apaan lagi, kok beda terus bedanya apa ma yang kemarin ?

ha4 oke2 untuk yang kali ini sesuai dengan saran dari teman saya tegar saya akan coba tidak menggunakan select case akan tetapi menggunakan fungsi dari event combobox yaitu selectedindex, yang mana (” & cbTahun.Text & “,” & xBulan.ToString() & “,1) menjadi (” & cbTahun.Text & “,” & cboBulan.selectedIndex + 1 & “,1) dikarenakan xBulan merupakan bagian dari select case maka di ganti seperti di atas

ini adalah versi yang lain dari pemanipulasian Crystal Report silahkan di coba dan terima kasih buat akang tegar buat masukannya

by

WAL

Crystal Report : Langkah Membuat Drill Down Report

Pada artikel sebelumnya mengenai filterisasi crystal report dengan menggunakan inputan user kali ini saya ingin sharing mengenai crystal report juga tetapi hanya langkah awal memulai membuat report secara drill down

tidak perlu lama-lama langsung saja kita mulai, topik yang kali ini kita bahas meliputi :
- Laporan Drill Down yang interaktif
- Grafik data
- Kondisional format data

Dalam sharing sederhana ini saya akan mencoba mendemokan caranya, untuk report saya menggunakan report wizard.

1. Tambahkan Crystal Report file ke dalam project anda, maka akan muncul Crystal Report Gallery Window, dalam menu pop up ini pilihlah "Using the Report Expert"
lalu centang opsi "Drill Down"



2.Set Data Source Koneksi ke dalam database nya menggunakan apa (sesuai dengan database yang anda gunakan)



3. Setelah keluar databasenya dan keluar tablenya maka pilih SALES, STORE & TITLE sebagai contoh untuk ditampilkan dalam Crystal Report



4. Grup Tab, grup tab di sini memiliki fungsi untuk mengkategorikan data



5. Total Tab, tab ini mempunyai fungsi untuk melakukan berbagai macam summary type seperti halnya sum, avg, dll seperti pada excel



6. Drill Tab, mempunyai fungsi dimana secara spesifik anda dapat menyembunyikan sementara dan dapat di lihat ketika di klik



7. Chart Tab, dalam fungsi ini anda dapat memilih tipe chart yang anda kehendaki, chart akan ditambahkan pada Data Source yang diminta dan bersifat dinamis sesuai dengan konsep drill down



8. Data Tab, dalam fungsi ini anda akan dihadapkan pada pilihan yang akan anda tampilkan pada chart yang mana merefleksikan keseluruhan laporan



semoga tambahan ini bisa membantu anda dalam memanipulasi Crystal Reports dan selamat mencoba

by

Wal

Crystal Report : Source Code Filter Inputan User

Nah kali ini saya mau share lagi bagi2 nah ini masih soal Filtering di Crystal Report nah kali ini maunya filter berdasarkan nama kolom dan tetap memakai combobox seperti pada ulasan saya sebelumnya di Filter Bulan dan Tahun

Lama langsung aja lah

baik lama ya? he3 oke ini yang anda butuhkan untuk percobaan kali ini
1. Combobox (1 buah) sebagai trigger pilihan nama kolom nya
2. CrystalReportViewer untuk menampilkan/menempelkan crystalreport pada form

Ok komponen udah jelas ini lalu ?

Ok kali ini yang mau saya buat case study nya adalah menampilkan id_Penjualan di Combobox lalu dari Value yang ada dari Combobox di klik maka akan langsung terjadi perubahan dan sedangkan Button untuk menampilkan semua data

Paham ? Koding Time

Imports System.Data.SqlClient
Public Class FormCR

Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim xKoneksi as SqlConnection
Dim NewCR as new ReportPenjualan

Private Sub FormCR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If xKoneksi.State=Connection.Open()
xKoneksi.Close()
End If
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DATABASE;Integrated Security=True"
xKoneksi.Open()

Dim query As String
query="Select id_penjualan from Transaksi_Penjualan"
da=New SqlDataAdapter(query,xKoneksi)
da.Fill(ds,"TblAlias")

For i As Int32 = 0 To ds.Tables("TblAlias").Rows.Count - 1
Combobox1.Items.Add(ds.Tables("TblAlias").rows(i).Item(0).ToString
End For
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub

End Sub

Private Sub Combobox1_SelectedIndexChanged(Byval sender As System.Object, Byval e As System.EventArgs)Handles Combobox1.SelectedIndexChanged
Try
CrystalReportViewer1.ReportSource = NewCR
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = "{Transaksi_Penjualan.id_penjualan}='" & Combobox1.Text & "'"
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Sudah ? bagaimana pusing ?

Itu berarti anda sudah pada jalur yang tepat dan silahkan mencoba

by

WAL

Crystal Report : Source Code Filter dengan Bulan dan Tahun

sudah lama ngga ngeblog nih kangen juga mau ngeblog lagi ni, kali ini saya akan mencoba membagi tips lagi yaitu untuk memfilter Crystal Reports sesuai dengan yang kita mau dalam hal ini filterisasi di gunakan pada bulan dan tahun untuk menampilkan suatu transaksinya.

Apa yang dibutuhkan ?

ok untuk kali ini saya membutuhkan filter pada form CrystalReportViewer ditambahkan :
1. Combobox (2 buah) untuk Bulan dan Tahun yang masing-masing saya namakan CbBulan dan CbTahun
2. Button (1 buah) untuk memproses filterisasi dari combobox yang tadi anda pilih dan saya namakan btnProses
3. CrystalReportV1ewer untuk menampilkan/menempel CrystalReport ke dalam form

Yang mau difilter apa ? dan pada saat apa ? 

kali ini yang akan menjadi studi kasus adalah Transaksi Penjualan yang mana pada laporannya dibutuhkan bentuk laporan secara berkala (bulan dan tahun)

Setelah itu apa ?

setelah itu kita mulai koding, siap2 ok mulai, pertama anda klik double pada form dimana saja anda isi pada combobox bulan (cbBulan) dengan event btnProses_Click dan sebelumnya main aman dulu yaitu anda isi koding dibawahnya Try Catch

Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan
Dim xBulan as Integer

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

Select Case CbBulan.Text
Case "Januari"
xBulan = 1
Case "Februari"
xBulan = 2
Case "Maret"
xBulan = 3
Case "April"
xBulan = 4
Case "Mei"
xBulan = 5
Case "Juni"
xBulan = 6
Case "Juli"
xBulan = 7
Case "Agustus"
xBulan = 8
Case "September"
xBulan = 9
Case "Oktober"
xBulan = 10
Case "November"
xBulan = 11
Case "Desember"
xBulan = 12
End Select

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,1) to datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,” &  Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ahh Ribet, maksudnya selectionFormula gimana tuh ?

Jadi begini dalam CrystalReport disediakan suatu formula yang mana dapat kita manipulasi lewat SelectionFormula jadi segala macam rumus dapat kita tambahkan sesuai yang kita butuhkan dalam hal ini saya mengambil untuk memfilter bulan dan tahun dan kalau masih bingung yang mana sih SelectionFormulanya ? yang ini “{Transaksi.TglTransaksi} in datetime(2009,8,1) to datetime(2008,1,1)”

 Kan di Comboboxnya tampilannya berupa huruf ?

He3x memang dalam combobox isinya berupa Januari dst sampai Desember tapi kok munculnya angka 1 hingga 12 ? itu karena tadi saya select case karena semua format dalam SelectionFormula berupa angka bukan huruf (YYYY/MM/DD) sehingga harus saya konversi dahulu

Sampai disini dulu pembelajaran kali ini mengenai Crystal Report moga bermanfaat dan mohon masukan kritik dan saran...

Aplikasi tersebut dibuat dengan Visual Studio 2005. Bahasa pemrograman VB.NET, dan menggunakan SQL Server 2005 database dan Crystal Report bawaan Visual Studio 2005

by :

Wal

Simpan Gambar Menggunakan SQL Server dan VB NET 2005

kali ini saya coba mengulas pertanyaan rekan-rekan mengenai penyimpanan gambar ke dalam database SQL Server 2005 menggunakan VB NET 2005.

pada pembahasan kali ini skenarionya adalah bagaimana membuat program untuk menyimpan gambar ke dalam database dan ditampilkan lagi ke dalam picturebox, sebelumnya maaf saya belum mengupload contoh programnya tapi syntaxnya akan saya share dulu

cara memulainya bagaimana?
yang pertama kali di lakukan adalah membuat table pada database SQL Server 2005 anda dan diasumsikan bahwa telah ada table yang menampung gambar dengan type sebagai berikut :
nama table adalah tblSavePic dengan isian kolom id, dan pic

setelah membuat table lalu apa?
setalah kita membuat table melakukan coding dengan syntax sebagai berikut untuk memilih gambar :
drag dan drop komponen OpenFileDialog dan renanme menjadi OFD

OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)*.jpg; *.bmp; *.gif; *.png"
OFD.ShowDialog()
txtFileName.Text = OFD.FileName
txtFileName.SelectionStart = txtFileName.Text.Length
If Trim(txtFileName.Text) <> "" Then
PicBox.Image = Image.FromFile(txtFileName.Text)
End If

koneksinya perlu di inisialisasi?
tentu perlu dengan syntax seperti berikut :

Imports Systems.Data.SqlClient

Dim xkoneksi as new SqlConnection
Dim xcomm as new SqlCommand

xkoneksi.ConnectionString="Data Source=[Nama Server];Initial Catalog=[Nama Database];Integrated Security=true"

xkoneksi.open

lalu setelah memilih gambar setelah itu apa?
ok sabar lalu yang dilakukan berikutnya adalah menyimpan gambar yang kita pilih ke dalam table yang ada pada database ikuti syntax seperti berikut :

Try
Dim ms As New System.IO.MemoryStream()
PicBox.Image.Save(ms, PicBox.Image.RawFormat)
Dim CPic() As Byte = ms.GetBuffer
ms.Close()

Dim query as String
query="Insert into tblSavePic values (" & _
"'" & txtID.Text & "'" & _
",'" & CPic & "')"

xcomm.CommandText = query
xcomm.Connection = xkoneksi
xcomm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

lalu bagaimana menampilkan kembali?
ok untuk menampilkan kembali adalah dengan syntax sebagai berikut :
Try
Dim arr() As Byte
Dim xread as SqlDataReader

Dim query As String
query = "Select pic from tblSavePic where ID ='" & txtCari.Text & "%'" (Asumsi menggunakan txtCari sebagai pencarian)
xcomm.CommandText = query
xcomm.Connection = xkoneksi
xread = xcomm.ExecuteReader()
xread.Read()
arr = xread.Item("pic")
PicBox.Image = Image.FromStream(New IO.MemoryStream(arr))
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

semoga artikel ini bermanfaat dan jika ada salah penulisan syntax mohon di koreksi dan selamat mencoba

Connection to Oracle10g with VB.NET 2005

banyak rekan-rekan yang bertanya bagaimana koneksi ke oracle 10g? oleh karena itu pada bahasan saya kali ini saya akan share mengenai penggunaan koneksi dan cara membuat koneksi dengan Oracle 10g

cara menggunakan Oracle 10g sebagai back end database yang akan dikoneksikan dengan VB .NET 2005 adalah menggunakan .Net framework yang perlu kita download dari Oracle, pertanyaannya mengapa kita perlu mendownload namespace oracle? hal tersebut dikarenakan Oracle bukanlah satu perusahaan dengan Microsoft yang selaku developer .Net, ok yang pertama adalah melakukan download dari Oracle 10g ODAC disini tetapi sebelumnya anda di wajibkan untuk registrasi mungkin ribet tapi percayalah sebentar dan anda bisa download komponen namespacenya.

Install ODAC Oracle10g
begitu anda selesai download lalu installah Oracle10g ODAC, anda set ke C:/Program File/Oracle, kenapa harus di install? karena komponen ODAC merupakan komponen tambahan semacam library assembly yang mana dibuat agar dapat melakukan komunikasi dengan vb.net 2005. Beberapa Oracle sebetulnya telah memiliki assembly library nya dan itu hanya ada pada Release 1 dan untuk Release 2 harus download ODAC


Apakah ODAC langsung ter install di VB .NET?
belum sobat masih ada cara lagi agar data provider ODAC Oracle10g terpasang pada aplikasi VB .NET mu yaitu dengan cara pada project solution anda klik kanan lalu pilih Add a Reference setelah itu muncullah pop up window dengan ada dua tombol tab yang pertama .Net Components dan Com Components pilihlah yang Net Components, kenapa memilih Net Components ? dikarenakan library dari Oracle akan include dalam Net Components selaku bridge ke dalam Oracle database. Anda cari yang System.Data.OracleClinet atau Jika Release 2 adalah Oracle.Data.Access





Setelah terinstall bagaimana cara pakainya?
isikan syntax seperti dibawah ini :

Masukkan Komponen ODAC

Untuk Oracle 10g Release 1
Imports Systems.Data.OracleClient
Untuk Oracle 10g Release 2
Imports Oracle.Data.Access
Buat variabel koneksi ODAC
dim koneksi as new OracleConnection
Isikan ConnectionString dari ODAC Oracle10g menggunakan tnsnames.ora
koneksi.connectionstring="Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=MyHost)(PORT=MyPort)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=MyOracleSID)));User Id=myUsername;Password=myPassword;" koneksi.open

Selanjutnya?
selanjutnya? ya lakukan seperti biasanya dan sekali lagi pembahasan kali ini hanya mengenai koneksi ke oracle saja :) selamat mencoba dan sampai jumpa pada pembahasan mengenai oracle di lain kesempatan

Ref :

OracleConnection
ODAC

WAL

PTC - Why I Like Neobux?

setelah mencoba belajar blogging 2 tahun lalu mungkin baru kali ini saya benar-benar mencoba untuk lebih serius dalam dunia blog, nah untuk kali ini saya akan menjelaskan apa itu PTC ok mari kita bahasa di sini.

Apa itu PTC ?
PTC adalah kependekan dari Paid To Click dengan arti lain secara bebasnya adalah anda dibayar untuk klik iklan yang di selenggarakan oleh layanan penyedia iklan.

Neobux
apa itu Neobux? ini adalah salah satu layanan penyedia iklan paid to click dan kebetulan untuk newbie seperti saya ikut dalam PTC Neobux dan ini berkat rama yang dengan perjuangannya agar saya mengikuti jejaknya dalam PTC dengan direct refferalnya tentu.

Berapa saya dibayar?
ini pertanyaan yang sering dikeluarkan oleh member PTC terutama member baru seperti saya alias newbie, ok untuk ini anda akan di bayar antara $0.0005 – $0.02 setiap klik. Rinciannya adalah : honor $0.01
perklik untuk standart / free member. Honor $0.02 untuk ultimate member. Honor
$0.0005 untuk klik iklan bonus

Sehari saya dijatah berapa iklan?
untuk member standart seperti saya ini karena saya masih newbie antara 4-6 iklan perhari dan biasanya 2 iklan adalah iklan bonus bila anda beruntung
untuk member golden diberikan iklan min 9 iklan perhari
untuk member ultimate diberikan slot iklan untuk di klik 16 iklan perhari

Kok dikit amat iklannya? berarti dikit juga dunk dapetnya?
tenang aja sob emang kecil sih kalo kerja sendirian, tapi kalo kerjanya bareng-bareng kamu bisa dapet honornya yang lumayan gede tiap bulannya

Kerja bareng? bagaimana maksudnya?
kerja bareng disini maksudnya adalah kerja dengan rekan-rekan yang menjadi direct refferal anda, katakanlah kalo anda mempunyai 100 referal/rekan, dan masing2 referal akan memberi
kontribusi kepada anda sebesar $0.005 per klik, maka itungannya menjadi :
100 ref x 4 iklan perhari x $0.005 = $ 2 perhari ditambah penghasilan anda sendiri
perhari $0.04, maka penghasilan kamu menjadi $2.04 perhari, atau $61,2
perbulan.

Untuk member Neobux newbie seperti saya
bagi member standar seperti saya ini selama 30 hari kita tidak dapat melakukan repply pada forum, chat dan bahkan memberikan direct refferal ke rekan yang akan kita ajak join kerja bareng, sehingga yang harus anda lakukan adalah online dan klik iklan tiap hari hingga min requirement 100 iklan terpenuhi untuk di klik sehingga bisa bebas untuk reply forum, chat, memberikan direct refferal ataupun rental refferal.

daftarnya bagaimana?
untuk daftarnya dapat melakukan registrasi neobux disini agar terdaftar sebagai member dan yang pastinya pendaftarannya gratis

Total $ yang saya dapat sampai hari ini

sampai di sini dulu yang bisa saya bagikan untuk anda semua nanti jika saya sudah dapat membuktikannya akan saya bagi lagi pengalaman saya dan tetaplah klik neobux.

Ref :
Maryadie

WAL

Create Your Own Copyright

Saya iseng-iseng mencari apakah ada yang namanya lisensi buat blog atau website dan saya membaca blog dari Febri thx bro... ternyata ada yang namanya lisensi yang mana melindungi web/blog dari penculian artikel, file, gambar, dll yang merugikan kita selaku penulis blog. pada dasarnya artikel/isi pada blog itu sangat bisa dan mungkin sekali untuk di share kemana-mana tetapi yang menjadi masalah adalah ketika artikel tersebut di ambil paksa atau bahasa kerennya adalah copy paste tanpa menambahkan referensi dari mana mengambil tanpa memberikan link sumber dari pemilik artikel dan hal itu malah akan menjadi masalah. Dan ini dapat di sebut pencurian, plagiat nah solusi yang paling pas dan orang tetap dapat berkunjung dan dapat sharing artikel adalah dengan cara anda melakukan pendaftaran hak cipta di MyFreeCopyright dengan cara ini anda telah mendaftarkan semua artikel pada blog anda untuk mendapatkan lisensi hak cipta

untuk kali ini saya mengikuti saran dari saudara Febri dalam blognya untuk menggunakan jasa hak cipta gratis siip post.... ok dan kita akan di beri id registrasi sendiri masing2 artikel disertai tanggal postingannya.
1. ok sign in dulu di MyFreeCopyRight dan mari kita coba, anda harus membuat akun dan memberikan passwordnya



2. Jika Akun anda sudah aktif, segeralah login untuk mendaftarkan blog anda beserta artikelnya klik tombol PROTECT MY CREATION



3. Pilihlah BLOG/PODCAST untuk menambahkan blog yang anda pilih



4. setelah url anda terdaftar anda akan diberikan kode html seperti ini



sekian tambahan tips untuk hari ini dan tetaplah blogging

WAL

Ref :
Febri Adrian

Game Programming : Introduction

kali ini saya akan sharing mengenai Game Programming, bagaimana memulainya ?
Pre-made game engine
Kumpulan fungsi utama yg digunakan dalam game, biasanya berkaitan dengan grafik, input, networking dan sistem-sistem lain.
3DCakeWalk >>> Python
Agatelib, Artificial Engine >>>.Net
Chingu >>> Ruby
Delta3D >>> C++
DXGame Engine >>> VB6
Easyway Game Engine, Espresso 3D >>> Java
Game Maker >>> Delphi
Phoenix Engine >>> C#
Bahasa pemrograman

yang dibutuhkan untuk membuat suatu game adalah Motivasi, Waktu, Bakat
Tanpa motivasi tak akan ada waktu untuk game development
Tanpa waktu, bakat tak akan ada gunanya
Tanpa bakat, tak akan dapat membuat game walau punya motivasi dan waktu.

hal lain yang di butuhkan adalah Game Logic
Berupa kode program, merupakan hal yang paling penting untuk menyelesaikan game.
Art Assets
Visualisasi game menarik orang untuk mau mencoba game dan meningkatkan faktor kesenangan terhadap game.
Sound Assets
Suara akan dapat mempengaruhi mood terhadap game, dan efek suara yang asal-asalan akan dapat mengacaukan game.
Game Content
Terdiri dari level, dialog, dan misi.
Networking
Untuk komunikasi bagi game multi player
Artificial Intelligent
Neural Network, Fuzzy Logic, Neuro Fuzzy, Ant Algorithm, Genetic Algorithm, dll.

dan jangan salah game programming bisa untuk tugas akhir meliputi Networking, Simulasi, Decision Support System

Satu lagi yaitu mengenai game theory apa itu ?definisi Game Theory adalah suatu teknik yang dapat digunakan untuk menganalisa masalah-masalah strategis dalam seting yang bervariasi.
Implementasi game theory dapat diterapkan pada berbagai disiplin ilmu, termasuk untuk permasalahan-permasalahan pengambilan keputusan yang dihadapi oleh perusahaan, pegawai, pemain bola, politikus, pemerintah, organisasi swasta, dan komunitas.
Satu metode yang populer: prisoners dilemma game

Ref :

Romeo

WAL

JSON (JavaScript Object Notation)

JSON atau dalam bahasa bebasnya adalah Notasi Obyek JavaScript adalah format pertukaran data sama seperti xml dengan format berbasis text yang mana bisa diterima oleh semua platform bahasa pemrograman serta digunakan untuk mempretasikan struktur data sederhana dalam bentuk obyek.

Format JSON sering kali digunakan untuk mentransmisikan data terstruktur melalui suatu koneksi jaringan pada suatu proses yang disebut serialisasi. Aplikasi utamanya adalah pada pemrograman aplikasi web AJAX dengan berperan sebagai alternatif terhadap penggunaan tradisional format XML.
Walaupun JSON didasarkan pada subset bahasa pemrograman JavaScript dan umumnya digunakan dengan bahasa tersebut, JSON dianggap sebagai format data yang tak tergantung pada suatu bahasa. Kode untuk pengolahan dan pembuatan data JSON telah tersedia untuk banyak jenis bahasa pemrograman. Situs json.org menyediakan daftar komprehensif pengikatan JSON yang tersedia, disusun menurut bahasa.


Contoh berikut menunjukkan representasi JSON untuk suatu objek yang mendeskripsikan seseorang.

{"namaDepan": "Budi","namaBelakang": "Subudi","alamat": {"namaJalan": "Jl. Sudirman 15A","kota": "Jakarta Selatan","provinsi": "DKI Jakarta","kodePos": 11111},"nomerTelepon": ["021 55-1234","021 555-4567"]}<br />

Ref :

Douglas Crockford.

WAL

A4tech X-710BH

Mouse A4tech XL 710BH merupakan product mouse Gamers yg mempunyai desain menarik & fungsi-fungsi yang lebih dari product sekelas nya, harga mouse ini juga dibawah dari mouse Gamers sekelasnya, desain product ini memberikan keyamanan pengunaan buat desktop Game.

Brief Specification
Package Contents
Anti-Vibrate Optical
Gaming Mouse
Extra 5 Set Mouse Feet
CD (User Manual,
Oscar Mouse Editor Software on CD)

Product Dimension
Mouse: 122.5L x 68.5W x 39.6H(mm)

System Requirements
IBM or Compatible PC
Windows 2000/XP(X64)/ 2003(X64)/Vista
USB Port

Anti-Vibrate Optical Gaming Mouse, 5 DPI-(100 - 2000 dpi) Shift Ability with LED Color Indicator(No Driver Required)
The customizable “DPI Button” with Color Indicator” instantly shifts mouse sensitivity between 100 - 2000 dpi. The mouse gives you quick access from pixel-precise targeting to lightning-fast maneuvers without pausing the action.



ref :

dari berbagai sumber

WAL

Invoke Web Service Lintas Platform

Pada artikel sebelumnya Create Web Service saya memaparkan bagaimana koneksi komunikasi antara client dengan server melalui web service dapat digunakan untuk mengkoneksikan satu tempat ke tempat lain dan client menggunakan standar XML (eXtensible Markup Language) dalam paparan tersebut ruang lingkup VB .NET sedang kali ini saya akan membahasnya jika lintas bahasa pemrograman, apakah web service tersebut dapat melakukan komunikasi ataukah tidak ? mari sama-sama mencari tahu. yang pertama terima kasih masukan dari teman saya SCS_BISA_CODING untuk membuat review ini.

kali ini akan saya paparkan bahwa lintas platform pun web service tetap akan jalan, misal kita mau invoke web service dari Java ke VB NET

Instalasi Apache Axis
Apache Axis merupakan SOAP Engine dan salah satu toolkit untuk web service java. Di dalam apache axis sudah terdapat library yang digunakan untuk develop java yang akan di akses oleh client. Untuk mendapatkan apache axis bisa download di http://ws.apache.org/axis. Pada saat tulisan ini dibuat penulis menggunakan axis versi terbaru yaitu axis 1.4.

Untuk menjalankan Axis penulis menggunakan Apache Tomcat 1.5 dan untuk instalasinya apache Tomcat ikuti tinggal di ekstrak ke direktori. Jangan lupa untuk mengistal Java SDK untuk frameworknya. Setelah instalasi tomcat selesai maka selanjutnya install Apache Axis,langkahnya sebagai berikut :
1. Ekstrak file axis yang telah di download (pada saat uji coba penulis meletakkan semua hasil instalasi di direktori C:\). Setelah itu akan terbentuk file sebagai berikut :
…\DIRECTORI\axis-1_4
\docs
\lib
\sample
\webapps
\axis
2. Copy semua file library axis yang ada di dalam folder axis-1_4\lib ke dalam library tomcat. Jangan lupa untuk menambahkan file activation.jar, karena apache axis tidak menyertakan file library activation.jar. Untuk mendapatkan file activation.jar bisa cari di internet dengan cara googling dan download file tersebut kemudian letakkan di dalam library tomcat.
3. Copy folder axis di dalam folder webapp\axis ke directory C:\. Sehingga tersusun directory sebagai berikut C:\axis
4. Buat mapping path pada tomcat TOMCAT_HOME\conf\Catalina\localhost\axis.xml dan tulis script di bawah ini :

Buat file java dengan nama Hello.java dan buat scrip di bawah ini kemudian simpan :

public class Hello
{
public String getMsg(String msg)
{
return (“Heloo “ + msg + “Ini Web Service Java”);
}
}

Metode JWS
Pada contoh kali ini penulis menggunakan metode JWS untuk deployment axis karena metode ini merupakan metode deployment yang paling mudah. Dengan menggunakan metode JWS, deployment web service sangat mudah hanya dengan membuat file java biasa dan simpan file tersebut di bawah folder CONTEXT_PATH/axis dan rename akhiran .java dengan .jws. Sebagai contoh file Hello.java menjadi Hello.jws dan untuk mengakses WSDL dari web service dengan url http://localhost:8080/axis/Hello.jws?WSDL. Setelah selesai lakukan uji coba dengan start Apache Tomcat dan panggil seperti contoh URL sebelumnya maka akan muncul tampilan sebagai berikut :

Gambar 1. Tampilan wsdl dari Web Service Java.
Akses Client Web Service dengan .NET
Setelah selesai sukses membuat Java Web Service sekarang kita melakukan invoke data dari client. Pada uji coba ini penulis menggunakan VB.NET untuk melakukan akses data web service. Langkah untuk mamanggil fungsi web service adalah sebagai berikut :
1. Lakukan web reference dengan melakukan discovery pada http://localhost:8080/axis/Hello.jws?wsdl
2. Gunakan script di bawah ini untuk memanggil fungsi web service

Dim ws As New jws1.HelloService
MsgBox(ws.getMsg(TextBox1.Text))

Hasilnya akan tampak pada gambar di bawah ini yang menunjukkan bahwa akses web service java dengan akses client dari VB.NET telah berhasil.

Akses Web Service .NET dengan Java
Untuk mengakses web service .NET dengan Java langkahnya tidak teralu berbeda jauh. Karena semua web service manggunakan metode yang sama untuk distribusi data yaitu XML. Ok nggak usah lama – lama lagi, mari kita mulai untuk mempraktekkan cara invoke web service .NET melalui Java. Berikut code dari .NET Web Service
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

private Message m_strMsg_ = new Message ();
private Envelope m_envelope = new Envelope ();
private DataHandler m_strReturnMsg = null;
private PrintWriter out = null;

public void doGet(HttpServletRequest req, HttpServletResponse resp)
throws ServletException, IOException {
doPost(req, resp);
}

public void doPost(HttpServletRequest req, HttpServletResponse resp)
throws ServletException, IOException {
out = resp.getWriter();
this.m_url = new URL
(“http://localhost:1684/WebSite10/Service.asmx”);
try
{
out.print(GetCustomerData ());
}
catch(Exception e)
{}
}

public synchronized void setWebServiceURL (URL url)
{
this.m_url = url;
}
public synchronized URL getWebServiceURL ()
{
return this.m_url;
}
public synchronized String GetCustomerData () throws SOAPException {
String strReturn = “”;
if (this.m_url == null)
{
throw new SOAPException (Constants.FAULT_CODE_CLIENT,
“URL tidak ditemukan”);
}
this.m_soapUri = “http://ws.pdawir.iseng/getData”;
MsgBody ourBody = new MsgBody ();
this.m_envelope.setBody (ourBody);
m_strMsg_.send (this.getWebServiceURL(),
this.m_soapUri, this.m_envelope);
try
{
this.m_strReturnMsg = this.m_strMsg_.receive();
strReturn=this.m_strReturnMsg.getContent().toString();
}
catch (Exception exception)
{
exception.printStackTrace ();
}
return strReturn;
}

}

Code di atas digunakan untuk melakukan deserialisasi data XML yang dikirimkan oleh .NET Web Service yang hasilnya berupa data dalam bentuk SOAP, seperti tampak pada gambar di bawah ini :

Hasil deserializer data xml .NET menjadi SOAP
Jika proses Deserializer berhasil maka akan tampak seperti pada gambar di atas dan siap untuk dilakukan invoke. Untuk melakukan invoke data web menggunakanan code seperti contoh di bawah ini dan hasilnya akan tampak seperti gambar di bawah
String endPoint = “http://localhost:9080/WSNET/servlet/WebServicesClient.wsnet”;
Service service = new Service();
Call call = (Call) service.createCall();
call.setTargetEndpointAddress(new java.net.URL(endPoint));
call.setOperationName(“getMsg”);
call.addParameter(“op1″, XMLType.XSD_STRING, ParameterMode.IN);
call.setReturnType(XMLType.XSD_STRING);
String msg = (String) call.invoke( new Object[]{“”});
out.println(msg);

Ref :

Nanang Blog


WAL

Sistem Informasi Akuntansi (SIA)

Pada kajian kali ini saya akan membahas mengenai definisi, apa dan bagaimana Sistem Informasi Akuntansi, baik langsung saja sebelum masuk pada pembahasan mengenai Sistem Informasi Akuntansi marilah kita harus mengetahui apa itu sistem.

Sistem adalah "Sekelompok elemen-elemen yang terintegrasi dengan maksud yang sama untuk mencapai suatu tujuan."

Elemen sistem :
Tidak semua sistem memiliki kombinasi elemen yang sama, tapi suatu susunan dasar adalah :Input, Transformasi, Output, Mekanisme Kontrol, Tujuan.

Jenis Sistem :
Sistem Lingkaran Terbuka -> sistem yang tidak mempunyai elemen mekanisme kontrol, dan tujuan.
Sistem Lingkaran Tertutup -> sistem yang disertai oleh adanya elemen mekanisme kontrol dan tujuan.

Sifat Sistem :
1. Sistem terbuka : Sistem yang dihubungkan dengan lingkungannya melalui arus sumberdaya.
2. Sistem Tertutup : Sistem yang sama sekali tidak berhubungan dengan lingkungannya.

Sistem Fisik : sistem yang terdiri dari sejumlah sumber daya fisik
Sistem Konseptual : sistem yang menggunakan sumberdaya konseptual (data dan informasi) untuk mewakili suatu sistem fisik.

Evolusi Sistem Informasi Berbasis Komputer

Fokus Awal Pada Data
Pada awal abad ke 20 pemakaian komputer terbatas hanya untuk aplikasi akuntansi dan digunakan nama EDP yang merupakan aplikasi sistem informasi yang paling dasar dalam setiap perusahaan. Sekarang kita menggunakan istilah SIA untuk menggantikan EDP.

Fokus Baru Pada Informasi
Konsep penggunaan komputer untuk mendukung sistem informasi manajemen mulai diperkenalkan pada tahun 1964 oleh para pembuat komputer. Konsep SIM menyadari bahwa aplikasi komputer harus diterapkan untuk tujuan utama menghasilkan informasi manajemen.

Fokus Revisi Pada Pendukung Keputusan
Sementara SIM terus berkembang dalam menghadapi kelemahan-kelemahannya, muncul pendekatan baru dengan nama DSS, yaitu sistem penghasil informasi yang ditujukan pada suatu masalah tertentu yang harus dipecahkan oleh manajer.

Fokus Sekarang Pada Komunikasi
Penerapan OA (Office Automation) untuk memudahkan komunikasi dan peningkatan produktivitas diantara para manajer dan pekerja kantor lainnya melalui penggunaan alat-alat elektronik.

Definisi SIA :
Suatu komponen organisasi yang mengumpulkan, mengklasifikasikan, mengolah, menganalisa dan mengkomunikasikan informasi finansial dan pengambilan keputusan yang relevan bagi pihak luar perusahaan dan pihak ekstern.

Karakteristik SIA yang membedakannya dengan subsistem CBIS lainnya :
1. SIA melakasanakan tugas yang diperlukan
2. Berpegang pada prosedur yang relatif standar
3. Menangani data rinci
4. Berfokus historis
5. Menyediakan informasi pemecahan minimal

Perbedaan SIA dan SIM :
• SIA mengumpulkan mengklasifikasikan, memproses, menganalisa dan mengkomunikasikan informasi keuangan sedang
• SIM mengumpulkan mengklasifikasikan, memproses, menganalisa dan mengkomunikasikan semua tipe informasi

2 komponen SIA
- Spesialis Informasi
- Akuntan


Berikutnya adalah Contoh SIA akan di jelaskan pada artikel berikutnya

Ref :

Sistem Informasi Akuntansi
Kuliah SIA 2004



WAL

Create Web Service

dalam paparan saya kali ini mereview dari tugas dan kelas kali ini saya akan mengangkat mengenai web service.

apa itu web service ? web service adalah teknologi yang terbaik dalam dunia internet, web service dapat digunakan untuk mengkoneksikan satu tempat ke tempat lain dan client menggunakan standar XML (eXtensible Markup Language), SOAP (Simple Object Access Protocol), WSDL (Web Services Description Language) dan UDDI (Universal Description, Discovery dan Integration).

Web Service memberikan kemudahan untuk aplikasi dapat berkomunikasi dengan yang lain tanpa perlu mengkhawatirkan hardware dan software serta bahasa pemrograman.
tidak seperti pada model yang lama, web service tidak menyediakan bentuk secara user interface tapi lebih kepada sasaran logika proses bisnisnya, yang dapat di program dan pengguna developer dapat mendesain interface-nya sendiri yang disesuaikan dengan web service yang dibuat.

Dengan kata lain web service secara bebas dapat memberikan sebuah aplikasi dapat berkomunikasi dengan aplikasi lain di lain tempat dan waktu tanpa perlu mengetahui platform, hardware dan os yang digunakan oleh aplikasi lain.

dibawah ini adalah contoh pembuatan syntax web service, dengan kasus konversi mata uang



nah penggunaannya pada windowsApplication atau pada form seperti apa ? (Asumsi web service menggunakan localhost dan web service di buat dalam satu solution, seperti pada gambar



dan kita menginginkan semisal data konversi mata uang tersebut di masukkan kedalam messagebox seperti pada gambar berikut :



kita tinggal menambahkan coding pada button1 seperti berikut, dengan catatan web service sudah di tambahkan dengan Add Web Reference

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As<br /> System.EventArgs) Handles Button1.Click<br /> Dim ws1 As New localhost.Service<br /> MsgBox(ws1.hitungUsdkeRp(Me.TextBox1.Text))<br /> End Sub

Ref :

http://www.devguru.com/features/tutorials/WebService/WebService1.asp

Kuliah Pertemuan 1 PSI


WAL

Join Table

Sedikit review dari materi kuliah mengenai select join table adalah mengkombinasikan data/record lebih dari satu tabel pada database. Biasanya programmer membuat predikat JOIN untuk mengidentifikasi record yang akan di-join-kan. jika terevaluasi predikat join tersbut bernilai true, maka record yang akan di=join-kan akan memberikan hasil yang di tempatkan pada format tertentu, misalnya hasil join akan di kembalikan/di tempatkan pada sebuah listbox

langsung pada studi kasus kali ini saya memakai 3 tabel yang akan saya join kan yaitu tabel mhs, MK dan dosen seperti pada gambar :



dan outputnya yang akan saya inginkan adalah nim, nama_mhs, kode_mk, nama_mk, sks, dan dosen

sehingga syntax sqlnya menjadi
select A.NIM, A.Nama, B.kode_MK, B.Nama_MK, B.sks, C.nama_dosen from mhs A, MK B, Dosen C where A.NIM=B.NIM and B.kode_dosen=C.kode_dosen

dan jika di terapkan pada coding VB NET kurang lebihnya seperti berikut :

(dengan asumsi telah membuat koneksi databasenya..ini tidak saya bahas ada pada connect)

ini memakai konsep Connected

dim xread as sqldatareader
dim query as string
dim xcom as new sqlcommand

query="select A.NIM, A.Nama, B.kode_MK, B.Nama_MK, B.sks, C.nama_dosen from mhs A, MK B, Dosen C where A.NIM=B.NIM and B.kode_dosen=C.kode_dosen and A.NIM like " & Textbox1.text & "%'"
xcom.connection=xkoneksi
xread=xcom.executeReader
if xread.HasRow
Do While xread.Read
Listbox1.Item.Add(xread.Item(0) & " " & xread.Item(1) & " " & xread.Item(2) & " " & xread.Item(3) & " " & xread.Item(4) & " " & xread.Item(5) & " " & xread.Item(6))
loop
end if


semoga membantu


ref :

http://en.wikipedia.org/wiki/Join_%28SQL%29

WAL

Ubah Sisipan Nama dari (') ke (~)

Cara memasukkan atau menginputkan data / nama seseorang ke dalam database (dalam hal ini back end saya memakai SQL Server dan front line memakai VB NET)...



baik kita mulai saja, kita mengandaikan kita sedang menginputkan nama seseorang dan nama orang tersebut ada tanda (') (petik). dan SQL Server tidak dapat menerima inputan semacam ini, sebagai contoh yang akan kita inputkan adalah seseorang dengan nama Al'Badawi nama ini mengandung tanda (') yang tidak akan mungkin bisa di terima oleh SQL Server. bagaimana cara mengatasinya ?

jalan satu-satunya adalah merubah tanda (') dengan tanda lain yang dapat di terima oleh SQL server yaitu dengan tanda (~) sehingga yang tadinya Al'Badawi menjadi Al~Badawi ketika masuk database SQL Server. gunakan fungsi trim, left, len atau mid untuk me-replace (') menjadi (~)

konversinya menggunakan fungsi replace :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("'","~")

hasilnya : Al~Badawi

dan ketika select dari database dan mengembalikan lagi ke bentuk semula (') tinggal di balik saja :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("~","'")

hasilnya : Al'Badawi

atau contoh lain untuk perubahannya seperti ini (thank to kus for pengembangan):

Dim i As Integer
Dim x, y, z, xreplace As String
x = TextBox2.Text
i = Len(TextBox2.Text)
For i = 0 To i
y = vb.Left(x, i)
z = "'"
For Each z In y
xreplace = y.Replace("'", "~")
TextBox1.Text = xreplace
Next
Next

yang mana koding diatas adalah untuk mengecek apakah tiap textbox ada yang berisi (') maka akan di ubah menjadi (~)

semoga membantu


WAL

PSI - Proyek

Disini akan saya share review Materi pertemuan pertama kelas PSI mengenai Web Service , XML , serta ketentuan proyek PSI


Wal

Koneksi Database Client Server

Pada kali ini penulis akan memberikan contoh dan tutorial singkat mengenai cara koneksi database dari client ke server, dan untuk contoh kali ini saya menggunakan SQL Server 2005 dan VB .NET 2005

cara yang sederhana adalah pada connectionstringnya, kenapa ? karena inilah core nya koneksi ke database

sehingga :


ConnectionString="Data Source=\\192.168.100.88\pusat 1433; Initial Catalog=pusatdb; user id=; password=; Integrated Security="


Sebenarnya secara sederhana connection string untuk mssql server cuma terdiri dari 3 parameter:

a. Data Source --> nama mesin (pc) yang menyediakan layanan database. Bisa berupa [namapc | ip address] dan nomor port
contoh:
"Data source=vb13mainpc 1433;'" << nama pc, ke port 1433 (default port nya mssql server 2000)
"Data source=vb13mainpc\mssql2000;" << nama instance sql server.
"Data source=192.168.0.103 1433" << ip address
Data source kamu ( "Data Source=\\192.168.0.103\Melly,1433;") kayaknya salah. Karena itu UNC path , bukannama pc atau nama instance mssql servernya.
Nama instancenya bisa dilihat di kotak dialog SQL Server Service Manager (itu, klik dua kali pada icon service mssql server di notification area.)

b. User ID --> user id yang dipakai untuk koneksi. Ini user id yang mssql server, bukan username yang digunakan untuk login ke domain atau local pc.
c. Password --> password untuk User ID.

Secara teori, nggak masalah. Yang jadi masalah:
a. Dikomputer target , ada firewall yang menghalangi koneksi.
Coba download port query,lalu jalankan perintah begini:

Code:
C:\PortQryV2>PortQry.exe -n 192.168.0.103 -e 1433

kalau hasilnya seperti ini (ada kata FILTERED), berarti koneksi ke port itu terlindungi firewall (atau lainnya).
Code:
TCP port 1433 (ms-sql-s service): FILTERED

Next to do adalah mengkonfigurasi firewall supaya nggak menghalangi koneksinya.

WAL

Ref : support Microsoft

Konsep SMS Gateway

Latar Belakang
Dalam keseharian manusia, tidak lah lepas dari penggunaan handphone (HP) yang mana seringnya penggunaan SMS (Short Message Service) dan penggunaan sms tak lepas dari kehidupan yang serba otomatis dan penggunaan mobile semakin berkembang.

Tidak surut oleh kemajuan teknologi mobile seperti EMS, MMS, ringtone, gambar, ataupun video conference, cara bertukar informasi ala SMS dengan menggunakan teks sederhana masih tetap menjadi pilihan utama.

Tidak terbatas hanya untuk sarana komunikasi pengganti percakapan lisan diantara dua orang, SMS saat ini juga ramai digunakan untuk voting, kuis, lelang, banking, order barang, promosi, undangan, dan masih banyak lagi.

Kelebihan SMS

Semua ponsel memiliki kelebihan fitur sms, tidak peduli apakah ponsel tersebut mendukung 3G atau tidak, dengan fasilitas touch screen, atau ponsel tempo dulu yang memiliki 1 baris layar sederhana seperti kalkulator.

SMS tetap dapat dikirim walau ponsel penerima tidak aktif dalam limitasi waktu tertentu, dikarenakan SMS memiliki periode validitas

Penyampaian SMS umumnya cepat dan tidak menganggu, biaya yang relatif murah menjadi alasan mengapa SMS digunakan secara luas (Joko Nurjadi, 2008)



SMS Gateway

Sebuah sistem yang dapat menerima reply/sending untuk keperluan bisnis, jasa, promosi, service kepada konsumen, dll.
Karena merupakan sebuah aplikasi, maka fitur-fitur yang terdapat didalam SMS Gateway dapat dimodifikasi sesuai dengan kebutuhan, dan beberapa fitur yang biasanya dikembangkan adalah :

• Auto Reply

SMS Gateway secara otomatis akan membalas SMS yang masuk. COntohnya (Untuk keperluan booking tiket, kurs mata uang, dll). dimana pengirim mengirimkan SMS dengan format tertentu yang dikenali oleh aplikasi. Kemudian aplikasi akan membalas auto reply sesuai dengan informasi yang dibutuhkan.

• Pengiriman Masal

Secara umum disebut dengan SMS broadcast yang bertujuan untuk mengirimkan SMS kebanyak tujuan sekaligus

• Pengiriman Terjadwal

Sebuah SMS dapat diatur untuk dikirimkan ke tujuan secara otomatis
Untuk membuat sebuah SMS gateway, Anda perlu mengenal hal-hal yang berhubungan dengan SMS gateway itu sendiri.

Salah satu hal yang memegang peranan penting dalam pengiriman SMS adalah SMSC (Short Message Service Center), yang merupakan jaringan telpon selular yang menangani pengiriman SMS.

Jadi, pada saat seseorang mengirimkan sebuah pesan SMS melalui ponselnya, SMSC lah yang bertugas mengirimkan pesan tersebut ke nomor tujuan.

Jika nomor tujuan tidak aktif, maka SMSC akan menyimpan pesan tersebut dalam jangka waktu tertentu. Jika SMS tetap tidak dapat terkirim sampai jangka waktu tersebut berakhir, maka SMS tersebut akan dihapus dari penyimpanan SMSC.

Sebuah aplikasi SMS gateway dapat menggunakan jalur SMSC untuk pengoperasiannya, keuntungannya adalah penggunaan nomor pendek yang mungkin dapat terdiri dari 3 atau 4 digit saja, misalnya 222, 9090, dan seterusnya.

Contohnya seperti saat Anda mengikuti polling SMS Indonesian Idol, nomor pendek ini disediakan oleh operator jaringan SMSC.

Jalur SMSC juga dapat mengirim SMS dalam jumlah banyak dalam waktu yang relatif singkat.

Hanya saja untuk membuat SMS gateway dengan menggunakan jalur SMSC, Anda harus memiliki jalur koneksi ke operator selular, dan ini bukan hal yang mudah untuk pelaku bisnis dalam skala kecil ataupun individu.

Umumnya layanan ini digunakan jika aplikasi Anda dapat menghasilkan lalu lintas SMS yang tinggi.

(bersambung)

Perpanjang KTP eh NIK nya juga berubah...

Tahun 2010 adalah saatnya ktp ku yang lama habis berlaku, pada tanggal 12 januari kemarin aku mengurus perpanjangan ktp, dengan berbekal pengantar rt/rw dan ktp asli yang lama, aku mendatangi kelurahan dan kecamatan dan dengan simple nya dan tanpa banyak basa-basi aku mendaftar dan diterima dan dengan membayar 10.000 untuk penggantian ktp, dan langsung di foto di tempat, dan ktp yang baru jadi pada keesokan harinya pada pukul 14.00. dan benar saja pada hari berikutnya ktp yang baru benar-benar selesai sesuai janji. dan yang mengejutkan adalah perubahan NIK dari yang lama 125618xxxxxxvvvv menjadi 357825xxxxxxvvvv dan tidak sesuai dengan NIK yang ada di KK.

menurut saya NIK pada KTP adalah unique dan berbeda antara satu orang dengan yang lain di Indonesia, tapi ini kok bisa berubah SIAK nya bagaimana ?

Nomor Kependudukan atau yang di sebut nomor Kewarganegaraan, menurut Gubernur DKI Jakarta Fauzi Bowo mengatakan dalam VIVANEWS "Nomor itu akan melekat pada dirinya selama hayat dikandung badan. Akan berakhir setelah dia meninggal," kata Foke di Mall Bellagio, Jakarta, Sabtu, 25 Juli 2009. Jadi, kata dia, nomor penduduk itu melekat di akte kelahiran sehingga otomatis akan digunakan saat masuk SD, SMP, SMA, dan seterusnya.

dengan pernyataan seperti itu seharusnya NIK pada KTP tidak boleh berubah, tapi kenapa berubah ya ?

dalam sumber dari didiet ardhi wibowo dalam blognya menjelaskan bahwa Nomor Induk Kependudukan yang lebih dikenal dengan Nomor KTP terdiri dari 16 digit ABCDEFGHIJKLMNOP dimana :

• AB : Kode Propinsi

• CD : Kode Kabupaten atau Kota (Biasanya untuk Kota kodenya di atas 70)

• EF : Kode Kecamatan

• GH: Tanggal lahir

• IJ : Bulan lahir

• KL : Tahun lahir

• MNOP : Nomor urut

Untuk menjawab pertanyaan di atas kuncinya adalah digit GH (tanggal lahir) untuk penduduk pria tidak ada yang istimewa, tetapi untuk penduduk wanita, kode tanggal lahirnya ditambah dahulu dengan angka 40. Misal untuk seseorang yang lahir pada tanggal 27 April 1977 akan mempunyai NIK

ABCDEF270477MNOP (pria)

atau

ABCDEF670477MNOP (wanita)

Satu lagi, untuk nomor urut, nomor ini diurutkan berdasarkan penduduk yang tanggal lahirnya sama dalam satu kecamatan. Jika seseorang mendapatkan nomor urut 0009 artinya penduduk tersebut adalah orang yang kesembilan di sebuah kecamatan tertentu yang bertanggal lahir sama dengan 8 penduduk yang terlebih dahulu terdaftar di database kependudukan.

Semoga pengurusan KTP menjadi lebih baik lagi.