Senin, 04 Juli 2011

LAPORAN CRYSTAL REPORT



Diposting oleh edi suranta di 07.13 0 komentar

Minggu, 03 Juli 2011

SEDIKIT TENTANG PROFIL SAYA

Nama :EDI SURANTA

Nick :EDI, JOSS


TTL :

Delitua, 15 April 1985

Agama : Kristen

Yg dikagumi :Ortu gue gtu lho.....!!!!


Tokoh Favorit :Aris toteles


Gol. Darah : aku sendri aj tidak tau


Alamat : Dusun 4 kecamatan biru-biru
klo mau lebih jelas tanya orng nya langsung


Status :

Single(Belum Nikah tapi punya pacar), Mahasiswa salah satu KAMPUS di DIMEDAN Angkatan 2009

Hoby :olah raga,berpetualang



Aktivitas :

Ngeblog, Mahasiswa, Kerja

Contact :

Via HP :

Via email : sitepu41@yahoo.com, joss.yanta@yahoo.co.id

Via Blog : http://edi-suranta.blogspot.com

Via YM : kadang-kadang online

Deskripsi Diri : lihat dan nilai lah sendiri
ga bagus klo nilai dri sendiri


Moto :Dalam hidup jangan pernah menyerah, dmna ad jalan dstu ada kesempatan




Prinsip :

Semakin berisi semakin menunduk

Open Source, bebas, terbuka, tapi ada aturan

Sedikit bicara, banyak bekerja

Dekmokrasi

Maap Belum ada fotonya lagi milih yang bagus…..!!!
Diposting oleh edi suranta di 22.53 0 komentar

Diposting oleh edi suranta di 22.26 0 komentar
Diposting oleh edi suranta di 22.25 0 komentar




Diposting oleh edi suranta di 22.12 0 komentar

FROM PRODUK

Sub hapus()
kd_produk.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO produk(kd_produk, nama, satuan, jumlah)" & _
" values('" & kd_produk.Text & _
"','" & nama.Text & _
"','" & satuan.Text & _
"','" & jumlah.Text & "')"
Case 1

SQL = "UPDATE produk SET Nama ='" & nama.Text & "'," & _
" satuan = '" & satuan.Text & "'," & _
" jumlah = '" & jumlah.Text & "'," & _
" where kd_produk ='" & kd_produk.Text & "'"
Case 2
SQL = "DELETE FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data produk"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_produk.SetFocus
End Sub

Sub Tampilproduk()
On Error Resume Next
kd_produk.Text = RS!kd_produk
nama.Text = RS!nama
satuan.Text = RS!satuan
jumlah.Text = RS!jumlah

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_produk.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "produk")
If x = vbYes Then prosesDB 2
Call hapus
kd_produk.SetFocus
Case 3
Call hapus
kd_produk.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub kd_produk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_produk.Text = "" Then
MsgBox "Masukkan kd_produk produk !", vbInformation, "produk"
kd_produk.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilproduk
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_produk.Enabled = False
Else
x = kd_produk.Text
Call hapus
kd_produk.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
Diposting oleh edi suranta di 22.04 0 komentar

FROM PELANGGAN

Sub hapus()
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1

SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub

Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If x = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
x = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
Diposting oleh edi suranta di 22.03 0 komentar

FROM PENJUALAN

Sub hapus()
no_bukti.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub

Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO penjualan(no_bukti, tgl, kd_pelanggan,kd_produk,jumlah)" & _
" values('" & no_bukti.Text & _
"','" & tgl.Text & _
"','" & kd_pelanggan.Text & _
"','" & kd_produk.Text & _
"','" & jumlah.Text & "')"
Case 1

SQL = "UPDATE produk SET tgl ='" & tgl.Text & "'," & _
" kd_pelanggan = '" & kd_pelanggan.Text & "'," & _
" kd_produk = '" & kd_produk.Text & "'," & _
" jumlah = '" & jumlah.Text & "'," & _
" where no_bukti ='" & no_bukti.Text & "'"
Case 2
SQL = "DELETE FROM penjualan WHERE no_bukti='" & no_bukti.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data penjualan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
no_bukti.SetFocus
End Sub

Sub Tampilpenjualan()
On Error Resume Next
no_bukti.Text = RS!no_bukti
tgl.Text = RS!tgl
kd_pelanggan.Text = RS!kd_pelanggan
kd_produk.Text = RS!kd_produk
jumlah.Text = RS!jumlah

End Sub

Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
no_bukti.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "penjualan")
If x = vbYes Then prosesDB 2
Call hapus
no_bukti.SetFocus
Case 3
Call hapus
no_bukti.SetFocus
Case 4
Unload Me
End Select
End Sub

Private Sub Form_Load()
Call OPENDB
Call hapus


End Sub

Private Sub no_bukti_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If no_bukti.Text = "" Then
MsgBox "Masukkan no_bukti penjualan !", vbInformation, "penjualan"
no_bukti.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM produk WHERE no_bukti='" & no_bukti.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpenjualan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
no_bukti.Enabled = False
Else
x = no_bukti.Text
Call hapus
no_bukti.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
tgl.SetFocus
End If
End Sub
Diposting oleh edi suranta di 22.02 0 komentar

Sabtu, 02 Juli 2011

PERJALANAN HIDUP SESEORANG

Manusia hidup dengan jalan hidupnya masing-masing. Ada yang kuliah, ada yang kerja, bahkan ada pula yang pengangguran. Ada yang kaya, ada yang sederhana, bahkan tidak sedikit pula mereka yang miskin. Jalan hidup memang merupakan kapasitas dan kadar kemampuan dari seorang hamba yang telah Allah berikan untuknya. Orang kaya di uji dengan kekayaannya, dan orang miskin di uji dengan kemiskinannya. Dengan segala perbedaan ujian itu, dapat dipastikan bahwa kapasitas dan kadar kemampuan seorang hamba pun juga berbeda-beda.
Banyak yang mengira bahwa menjadi kaya itu pasti menyenangkan. Tapi tak sedikit pula orang yang hartanya berlimpah justru kecemasannya berlebih dari orang yang kurang mampu. Cemas akan hartanya yang takut kehilangan, cemas akan kenikmatan duniawi yang dapat membuatnya lalai akan adanya Tuhan. dan cemas apabila dia mati nanti, dia akan meninggalkan hartanya yang tidak sedikit jumlahnya. Kecemasan-kecemasan seperti itulah yang akhirnya membuat banyak orang kaya menjadi stress.
Banyak, atau mungkin hampir semua orang yang kurang mampu, berharap bisa menjadi orang kaya. Bisa kerja, kuliah, mempunyai hand phone terbaru, memiliki banyak uang, selalu punya sepatu dan baju baru, dan segala kenikmatan-kenikmatan duniawi yang sebenarnya semua itu hanyalah teman sesaat kita di kala hidup di dunia ini. Setelah itu, tak dapat lagi mereka menemani kita di kehidupan selanjutnya. Hanyalah sebuah kain kafan berwarna putih, pakaian agung dari yang teragung, yang akan kita gunakan untuk menghadap Tuhan yg maha esa.Jangan mengira memiliki semua kemewahan itu bisa membuat kita bahagia. Biasanya kemewahan itu hanyalah modal utama dari rasa keserakahan kita untuk memonopoli diri kita sendiri. SADARLAH! Mungkin semua itu bukan yang terbaik untuk kita. Bisa saja kemewahan itu akan membuat kita lupa akan adanya Tuhan, akan adanya alam akhirat, akan adanya surga dan neraka, sehingga kita lalai akan kewajiban-kewajiban kita sebagai umat manusia.
Jangan pernah mengutuk diri sendiri jika kita terlahir sebagai seorang yang tidak berada. Sebab bisa jadi, yang sedikit itu mungkin bisa membawa kita pada keberkahan, membawa kita pada kebaikan, dan membawa kita pada ketenangan. Bisa jadi yang sedikit itu adalah amal untuk kita sebagai hamba yang selalu berucap syukur pada Tuhan yang maha esa. di setiap keadaan.AMIN.
Diposting oleh edi suranta di 10.09 0 komentar

MEMBUAT APLIKASI DENGAN VISUAL BASIC NET 2008

Integrated Query), merupakan suatu bahasa yang digunakan untuk melakukan query terhadap suatu sumber data (-sederhananya-). LINQ terdiri dari beberapa pernyataan (statement) yang bisa diterapkan ke dalam program kita untuk memilih item dari beberapa koleksi (collection) berdasarkan kriteria yang berbeda.
Contoh struktur LINQ dan aturannya dalam aplikasi. Coba kita lihat daftar array di bawah ini:
view plaincopy to clipboardprint?
  1. Dim data() As Int16 = {3, 2, 5, 4, 6, 4, 12, 43, 45, 42, 65}  


Untuk menentukan elemen dari array tersebut, kita akan menggunakan looping For..Next, mengeksekusi tiap elemen array, dan nantinya bisa menyimpannya ke dalam array baru atau menghapusnya. Untuk memilih elemen dengan nilai yang lebih kecil dari 10, kita gunakan kode di bawah ini:


view plaincopy to clipboardprint?
  1. Dim nilaiKecil(data.Length-1) As Integer   
  2. Dim itm As Integer = 0   
  3. For i As Integer = 0 To data.Length   
  4.     If data(i) < 10 Then   
  5.         nilaiKecil(itm) = data(i)   
  6.         itm += 1   
  7.     End If   
  8. Next   
  9. ReDim nilaiKecil(itm)  


Akan lebih mudah menyimpan elemen-elemen yang telah terpilih ke dalam suatu ArrayList menggunakan looping seperti di bawah ini:


view plaincopy to clipboardprint?
  1. Dim nilaiKecil As New ArrayList   
  2. Dim itm As Integer   
  3. For Each itm In data   
  4.     If itm < 10 Then   
  5.         nilaiKecil.Add(itm)   
  6.     End If   
  7. Next  


Bila kita menggunakan LINQ,


view plaincopy to clipboardprint?
  1. Dim nilaiKecil = From n In data _   
  2.     Where n < 10 _   
  3.     Select n  


Penggunaan bahasa dalam LINQ hampir sama dengan bahasa yang digunakan dalam SQL. Jika kita telah terbiasa dengan bahasa yang digunakan dalam SQL, kita akan menemukan beberapa kemiripan.


Contoh pernyataan SQL:



SELECT *

FROM data


WHERE data.n < 10


(Contoh di atas mengasumsikan dalam database kita terdapat tabel data yang memiliki kolom bernama n). Bila menggunakan LINQ, kode kita menjadi:



Dim = From n In data

Where n < 10


Ok, cukup teorinya... kita langsung saja ke praktek pembuatan program ;)


Pada tutorial kemarin kita telah membuat database barang dan kategori menggunakan SQL Express 2005, nah sekarang kita akan membuat tiap-tiap form untuk form barang dan untuk form kategori. Ikuti langkah-langkah berikut:





1. Menambah Form Barang



Tambahkan satu form dan beri nama frmBarang, dengan cara memilih menu Project > Add Windows Form atau dengan mengklik kanan nama proyek kita di solution explorer dan memilih Add > Windows Form. Akan muncul window Add New Item, masukkan nama frmBarang dan klik add.







Akan muncul form baru dengan nama frmBarang. Atur besar form sesuai keinginan.
Diposting oleh edi suranta di 09.09 0 komentar

Daftar Bahasa Pemrograman

Berikut ini adalah daftar bahasa pemrograman komputer:
Diposting oleh edi suranta di 06.43 0 komentar

Bahasa pemrograman

Bahasa pemrograman, atau sering diistilahkan juga dengan bahasa komputer, adalah teknik komando/instruksi standar untuk memerintah komputer. Bahasa pemrograman ini merupakan suatu himpunan dari aturan sintaks dan semantik yang dipakai untuk mendefinisikan program komputer. Bahasa ini memungkinkan seorang programmer dapat menentukan secara persis data mana yang akan diolah oleh komputer, bagaimana data ini akan disimpan/diteruskan, dan jenis langkah apa secara persis yang akan diambil dalam berbagai situasi.
Menurut tingkat kedekatannya dengan mesin komputer, bahasa pemrograman terdiri dari:
  1. Bahasa Mesin, yaitu memberikan perintah kepada komputer dengan memakai kode bahasa biner, contohnya 01100101100110
  2. Bahasa Tingkat Rendah, atau dikenal dengan istilah bahasa rakitan (bah.Inggris Assembly), yaitu memberikan perintah kepada komputer dengan memakai kode-kode singkat (kode mnemonic), contohnya MOV, SUB, CMP, JMP, JGE, JL, LOOP, dsb.
  3. Bahasa Tingkat Menengah, yaitu bahasa komputer yang memakai campuran instruksi dalam kata-kata bahasa manusia (lihat contoh Bahasa Tingkat Tinggi di bawah) dan instruksi yang bersifat simbolik, contohnya {, }, ?, <<, >>, &&, ||, dsb.
  4. Bahasa Tingkat Tinggi, yaitu bahasa komputer yang memakai instruksi berasal dari unsur kata-kata bahasa manusia, contohnya begin, end, if, for, while, and, or, dsb.
Sebagian besar bahasa pemrograman digolongkan sebagai Bahasa Tingkat Tinggi, hanya bahasa C yang digolongkan sebagai Bahasa Tingkat Menengah dan Assembly yang merupakan Bahasa Tingkat Rendah.
Diposting oleh edi suranta di 06.41 0 komentar

Berikut ini perjalanan Visual Basic

  1. Proyek “ Thunder” dirintis.
  2. Visual Basic 1.0 ( May 1991 ) di rilis untuk windows pada Comdex / Windows Wordltrade yang dipertunjukkan di Atlanta, Georgia.
  3. Visual Basic 1.0 untuk DOS di rilis pada bulan September 1992. Bahasa ini kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataannya merupakan versi kelanjutan dari compiler BASIC, Quick Basic dan BASIC Professional Development System
  4. Visual Basic 2.0 di rilis pada November 1992, cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di nodifikasi. Khususnya pada Form yang menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yang berikutnya di implementasikan pada VB 4.
  5. Visual Basic 3.0 di rilis pada musim panas 1993 dan dibagi menjadi versi standard an professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Data base Engine yang dapat membaca serta menulis database Jet ( atau Access ) 1.x
  6. Visual Basic 4.0 ( Agustus 1995 ) merupakan versi pertama yang dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic.
  7. Visual Basic 5.0 ( Februari 1997 ), Microsoft merilis secara ekslusif Visual Basic untuk versi windows 32 bit. Programmer yang menulis programnya pada versi 16 bit dapat dengan mudah melakukan import programnya dari VB 4, VB 5 memperkenalkan kemampuan untuk membuat User Control.
  8. Visual Basic 6.0 ( pertengahan 1999), memperbaiki beberapa cakupan, termasuk kemampuannya untuk membuat Aplikasi Web-based. Visual Basic 6 di jadwalkan akan memasuki Microsoft “ fasa non Supported “ dimulai pada Maret 2008.
  9. Visual Basic NET ( VB 7 ), di rilis pada tahun 2002, beberapa yang mencoba pada versi pertama. NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yang digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtimenya yang 10 kali lebih besar dari paket runtime VB 6 serta peningkatan pengguna memory.
  10. Visual Basic NET 2003 ( VB 7.1 ¬), di rilis dengan menggunakan NET framework versi 1.1
  11. Visual Basic 2005 ( VB 8.0 ), merupakan iterasi selanjutnya dari Visual Basic NET dan Microsoft memutuskan untuk menghilangkan kata – kata NET pada judulnya. Pada rilis ini Microsoft memasukan beberapa fitur baru diantaranya :
    • Edit and Continue, mungkin inilah kekurangan fitur terbesar dari VB NET pada VB 2005 ini kita diperbolehkan melakuakan perubahan kode pada saat program sedang dijalankan.
    • Perbaikan pada Konversi dari VB ke VB NET 12 Visual Basic NET 2003 ( VB 7.1 ), di rilis dengan menggunakan NET framework versi 1.1
  12. Is Not Patent, merupakan salah satu fitur dari Visual Basic 20005 merupakan konversi If Not X Is Not Y.
  13. Visual Basic 2005 Express, merupakan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yang gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yang merupakan produk gratis dari Microsoft.
  14. Visual Basic “ Orcas “ ( VB 9.0 ), dijadwalkan akan di rilis pada tahun 2007 dan dibangun diatas NET 3.5. Pada rilis ini, Microsoft menambahkan beberapa fitur diantaranya :
    • True Tenary operator, yaitu fungsi If ( boolean, value, value ) yang digunakan untuk mengganti fungsi IF.
    • LINQ Support.
    • Ekspresi Lambada.
    • XML Literals.
    • Nullable Type.
    • Type Inference.
  15. Visual Basic “VB X” ( VB 10.0 ), Visual Basic 10 yang juga dikenal dengan nama VB X akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari Silver Light 11
Diposting oleh edi suranta di 06.38 0 komentar
Langganan: Postingan (Atom)