FORM 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

LAPORAN CRYSTAL REPORT

SISTEM INFORMASI

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

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

30 TIPS HIDUP BAHAGIA

1. Berpikir dan Bersyukur
2. Yang Lalu Biarlah Berlalu
3. Harimu...Hari Ini
4. Biarkan Masa Depan Hingga Ia Datang
5. Biarkan dan Acuhkan Kritik Menyakitkan yang Memberondong Anda
6. Jangan Tunggu Ucapan Terima Kasih dari Seseorang
7. Berbuat Baik kepada Orang Lain
8. Mengisi Waktu Senggang dengan Kerja
9. Jangan Jadi Bunglon
10. Tanamkan Keimanan
11. Yakinlah, Bersama Kesulitan Ada Kemudahan
12. Buatlah Minuman Manis dari Lemon
13. Berdoa
14. Biarlah Rumahmu Menaungimu
15. Cari Pengganti dari TUHAN
16. Mengisi Kehidupan dengan Iman
17. Ambillah Madu, Tapi Jangan Rusak Sarangnya
18. Mengingat Allah
19. Menghindari Dengki
20. Menerima Kehidupan Sebagaimana Adanya
21. Menghibur Orang yang Tertimpa Musibah
22. Berdoa.....
23. Menjadikan Allah sebagai Penolong dan Pelindung Terbaik
24. Berkelana di Muka Bumi
25. Bersabar dengan Baik
26. Jangan Bawa Bola Dunia di Atas Kepalamu
27. Jangan Cemas karena Perkara Sepele
28. Menerima Bagian dari Allah dengan Ridha
29. Ingatkan Dirimu akan Surga yang Luasnya Seluas Langit dan Bumi
30. Menjadi Manusia yang Adil

Penutup

MY PROFIL

My Profile

Nama :

KARTIKA SITUMORANG

Nick :

TIKA, IKA

TTL :

SIDIKALANG, 02 JULI 1988

Agama :

Kristen

Yg dikagumi :

ORTU GUE


Tokoh Favorit :

Ir. Soekarno, Jndrl. Soedirman, Aristoteles, Pato, Richard Stallman, John Kenedy

Gol. Darah :

O+ (siapa perlu darah tak kasih -> free)

Alamat :

JLN SM RAJA GANG KASIH NO 12 A........

Status :

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

Hoby :

Baca komik”NONTON, senang sama pemrograman (pokoknya apa aja), pokoknya yang mengasikkan.

Aktivitas :

Ngeblog, Mahasiswa, Kerja

Contact :

Via HP :

Via email : kartika.situmorang@yahoo.com, ayunda.siringo@yahoo.com

Via Blog : http://kartika-situmorang.blogspot.com

Via YM : Jarang Online

Deskripsi Diri :

Wah kalo ngomong tentang diri sendiri kayaknya ngak enak coz orang lain yang menilai, tapi kalo menurutku aku orangnya biasa-biasa aja ngak ada yang spesial, makan biasa“nasi”, tidur biasa“pokoknya ngak kayak vampire”, minum“pokoknya yang keras-keras ngak dech ntar giginya malah copot”, dll. Agak pemalu makanya ngak pake foto coz belum ada foto yang bagus, ngak suka sama hal-hal yang merepotkan, malas tapi tepat waktu, ngak rajin-rajin banget tapi kalo udah serius pasti dikerjakan, agak pendiam tapi kalo udah ngomong jadi cerewet banget, baik hati, seneng nolongin teman yang lagi susah, pokoknya dech.

Moto :

Jangan pernah menjadikan suatu perbedaan untuk memicu masalah, jadikankan perbedaan sebagai suatu perekat dan pemersatu kita…..

Salam, TOS jari telunjuk dan tengah membentuk huruf V

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…..!!!

akhirnya diisi juga profilenya setelah 2 bulan tanpa pernah disentuh hehe,,,,,,

JADILAH SAHABAT BUMI

Apakah kita pernah tersadar dimanakah kita sekarang ini? Kita sebagai manusia hidup di Bumi mulai dari lahir, kecil, beranjak dewasa, sampai kita meninggal. Kita sangat berhutang budi pada Bumi, planet tempat tinggal kita yang tercinta ini.
Tetapi, berapa banyak kita telah mengotori Bumi, merusak Bumi, dan membuat Bumi ini menjadi tidak indah lagi? Kadang-kadang kita tidak sadar bahwa perbuatan kita sangat merusak Bumi dan terkesan tidak berterima kasih pada Bumi yang telah berjasa banyak pada Bumi.
Oleh karena itu, kita harus mulai mengubah hidup kita agar perbuatan kita ini tidak lagi merusak Bumi. Tentunya kita adalah manusia yang tidak dapat melakukan semua hal. Jadi, kita cukup melakukan perbuatan yang dapat kita lakukan dan tidak perlu memaksakan diri. Jika kita hanya dapat berbuat hal-hal yang sederhana, ya kita lakukan hal sederhana tersebut. Jangan hanya karena hal sederhana yang bis kita lakukan, kita malu untuk melakukannya sehingga kita tidak melakukan apa-apa. Tetapi juga kita harus mengembangkan diri supaya bisa melakukan hal yang lebih besar lagi. Yang terpenting adalah niat dan keikhlasan.
Hal-hal kecil yang dapat kita lakukan misalnya adalah membuang sampah pada tempatnya, melakukan penghematan listrik, menghemat Bahan Bakar Minyak dan masih banyak lagi.Mungkin kita sudah bosan dengan kata-kata “Buanglah Sampah Pada Tempatnya”. Kita mendengar kata-kata itu sejak kita kecil sampai dewasa. Tetapi apakah kita sudah melakukan hal yang kita anggap sederhana tersebut? Mungkin ya, mungkin tidak. Kadang-kadang untuk sampah yang besar kita ingat, tetapi jika sampahnya kecil seperti sobekan kertas, plastik, atau bungkus snack, kita membuangnya begirtu saja. Jika kita ada di kelas, maka kita taruh sampah tersebut dikolong meja. jika ada diangkot maka ditaruh dibawah tempat duduk.
Hal itu tidak hanya dilakukan oleh anak-anak, tetapi juga oleh orang dewasa. Itu menandakan bahwa yang terpenting adalah kesadaran diri. Usia tidak berpengaruh pada sikap seseorang. Yang paling berpengaruh adalah kesadaran. Itu yang paling penting. Begitu juga dengan penggunaan listrik dan air. Kita selalu menganggap bahwa lebih banyak orang yang menngunakan air lebih banyak dari diri kita sendiri sehingga kita berpikir kalaupun kita menghemat, tetap saja tidak akan berguna. Itu adalah pemikiran yang salah. Jika semua orang berfikir itu, maka tidak akan ada yang berhemat bukan? Kita harus menanamkan pikiran segala sesuatu hal yang baik itu harus dimulai dari diri kita sendiri. Jangan menunggu orang lain untuik berbuat hal kebaikan.
Oleh karena itu, maka untuk menjaga lingkungan kita ini, lingkungan Bumi kita yang tercinta ini, lakukanlah suatu hal yang kecil karena sesuatu yang besar itu tidak ada sebelum ada hal yang kecil. Jika hal kecil itu dilakukan oleh banyak orang, maka hal kecil itu akan menjadi hal yang besar. Jika seribu orang membuang sampah pada tempatnya dan menjaga kebersihan, maka daerah tersebut akan menjadi bersih. Tetapi jika seribu orang membuang sampah sembarangan, maka tentunya daerah itu akan sangat kotor sekali.
Jadi, janganlah pernah meremehkan hal-hal kecil seperti menghemat listrik, menghemat air, menghemat BBM, atau membuang sampah pada tempatnya. Lakukan mulai dari diri sendiri lalu tularkanlah pada orang-orang disekitar anda. Jadilha sahabat Bumi dan cintailah Bumi ini. Semoga jika kita telah melakukan hal terbaik yang bisa kita lakukan, Bumi ini kembali indah, sejuk, segar dan udaranya nyaman sehingga ita semakin senang hidup di Bumi ini. JADILAH SAHABAT BUMI!
Semoga Berguna!

Visual Basic .NET

Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.

Daftar isi [sembunyikan] 1 Versi 1.1 Visual Basic .NET 2002 (VB 7.0) 1.2 Visual Basic .NET 2003 (VB 7.1) 1.3 Visual Basic 2005 (VB 8.0) 1.4 Visual Basic 9.0 (Visual Basic 2008) 2 Hubungan dengan Visual Basic klasik 3 Contoh Pemrograman 4 Lihat pula 5 Rujukan

[sunting] Versi

Terdapat tiga buah versi Visual Basic yang dirilis hingga bulan Agustus 2007, yakni:

[sunting] Visual Basic .NET 2002 (VB 7.0)

Versi pertama dari Visual Basic .NET adalah Visual Basic .NET 2002 yang dirilis pertama kali pada bulan Februari 2002. Visual Basic .NET 2002 merupakan sebuah bahasa pemrograman visual yang berbasis bahasa BASIC (sama seperti halnya Visual Basic 6.0, tetapi lebih disempurnakan dan lebih berorientasi objek), dan didesain untuk berjalan di atas Microsoft .NET Framework versi 1.0.
Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.

[sunting] Visual Basic .NET 2003 (VB 7.1)

Selanjutnya, pada bulan Maret 2003, Microsoft pun merilis lagi versi yang lebih baru dari Visual Basic .NET, Visual Basic .NET 2003. Versi ini berisi beberapa perbaikan dibandingkan dengan versi sebelumnya, dan aplikasi yang dibuatnya dapat berjalan di atas .NET Framework versi 1.1. Fitur yang ditambahkan adalah dukungan terhadap .NET Compact Framework dan mesin wizard upgrade VB6 ke VB.NET yang telah ditingkatkan. Peningkatan yang lainnya adalah peningkatan pada performa dan keandalan dari Integrated Development Environment (IDE) Visual Basic itu sendiri, dan juga runtime engine.
Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.

[sunting] Visual Basic 2005 (VB 8.0)

Setelah itu, Microsoft pun berkonsentrasi dalam mengembangkan Microsoft .NET Framework 2.0, dan tentunya alat bantu untuk membangun program di atasnya. Hingga pada tahun 2005, mereka pun merilis versi terbaru dari Visual Basic .NET, yang kali ini disebut dengan Visual Basic 2005 (dengan membuang kata ".NET"), bersama-sama dengan beberapa aplikasi pengembangan lainnya.
Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah:

• Edit and Continue
  Fitur ini sebelumnya terdapat di dalam Visual Basic, akan tetapi dihapus di dalam Visual Basic .NET. Dengan keberadaan fitur ini, para programmer dapat memodifikasi kode pada saat program dieksekusi dan melanjutkan proses eksekusi dengan kode yang telah dimodifikasi tersebut.
• Evaluasi ekspresi pada saat waktu desain
• Munculnya Pseudo-Namespace "My", yang menyediakan:
  • Akses yang mudah terhadap beberapa area tertentu dari dalam .NET Framework yang tanpanya membutuhkan kode yang sangat signifikan.
  • Kelas-kelas yang dibuat secara dinamis (khususnya My.Forms).
• Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual Basic ke Visual Basic .NET.
• Penggunaan kata kunci (keyword) Using, yang menyederhanakan penggunaan objek-objek yang membutuhkan pola Dispose untuk membebaskan sumber daya yang sudah tidak terpakai.
• Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat bantu Integrated Development Environment (IDE) Visual Studio .NET.
• Pengikatan sumber data (Data Source binding), yang mampu mempermudah pengembangan aplikasi basis data berbasis klien/server.

Fungsi-fungsi yang tersebut di atas (khususnya My) ditujukan untuk memfokuskan Visual Basic .NET sebagai sebuah platform pengembangan aplikasi secara cepat dan "menjauhkannya" dari bahasa C#.
Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni:

• Bawaan .NET Framework 2.0:
  • Generics
  • Partial class, sebuah metode yang dapat digunakan untuk mendefinisikan beberapa bagian dari sebuah kelas di dalam sebuah berkas, lalu menambahkan definisinya di lain waktu; sangat berguna khususnya ketika mengintegrasikan kode pengguna dengan kode yang dibuat secara otomatis.
  • Nullable Type
• Komentar XML yang dapat diproses dengan menggunakan beberapa alat bantu seperti NDoc untuk membuat dokumentasi secara otomatis.
• Operator overloading
• Dukungan terhadap tipe data bilangan bulat tak bertanda (unsigned integer) yang umumnya digunakan di dalam bahasa lainnya.

MEMBUAT APLIKASI DENGAN VISUAL BASIC

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)  

Dim nilaiKecil(data.Length-1) As Integer 
Dim itm As Integer = 0 
For i As Integer = 0 To data.Length 
 If data(i) < 10 Then 
  nilaiKecil(itm) = data(i) 
  itm += 1 
 End If 
Next 
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  

Dim nilaiKecil As New ArrayList 
Dim itm As Integer 
For Each itm In data 
 If itm < 10 Then 
  nilaiKecil.Add(itm) 
 End If 
Next

Bila kita menggunakan LINQ,

view plaincopy to clipboardprint?

1. Dim nilaiKecil = From n In data _   
2.     Where n < 10 _   
3.     Select n  

Dim nilaiKecil = From n In data _ 
 Where n < 10 _ 
 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.

2. Property Form Barang

(Skip jika ingin melewati bagian ini.)

Buka jendela property dari form barang (frmBarang) atau dengan cara menekan tombol F4. Atur property frmBarang sebagai berikut:

• 
  
  Text : Data barang
  
  
• 
  
  FormBorderStyle : FixedToolWindow
  
  

Ini hanya sekedar contoh dari property suatu form yang sering saya buat, silahkan di ubah sesuai keinginan.

3. Menambah DataGridView

Tampilkan jendela Toolbox (default: bagian kiri) dengan memilih menu View > Toolbox atau dengan menekan kombinasi tombol CTRL+ALT+X.

Geser control DataGridView ke dalam frmBarang:

Nama DataGridView1 akan secara otomatis diberikan untuk control DataGridView tadi.

4. Menampilkan data ke dalam DataGridView

Sekarang kita akan mencoba menampilkan data ke dalam control DataGridView1, data yang akan ditampilkan diambil dari tabel 'barang' dan tabel 'kategori.

Double klik tampilan frmBarang, maka kita akan masuk ke dalam tampilan Code View.

Ketikkan perintah berikut di bagian Private Sub frmBarang_Load

view plaincopy to clipboardprint?

1. Dim db As New DataClasses1DataContext   
2.         Dim qBarang = From barang In db.barangs _   
3.                       Join kategori In db.kategoris _   
4.                       On kategori.KDKategori Equals barang.KDKategori _   
5.                       Select barang   
6.   
7.         Me.DataGridView1.DataSource = qBarang  

Dim db As New DataClasses1DataContext 
        Dim qBarang = From barang In db.barangs _ 
                      Join kategori In db.kategoris _ 
                      On kategori.KDKategori Equals barang.KDKategori _ 
                      Select barang 

        Me.DataGridView1.DataSource = qBarang

Pada kode di atas (Hampir sama dengan pernyataan SQL) kita memulai dengan mendeklarasikan db sebagai object dari Class DataClasses1DataContext, kemudian membuat suatu variable baru dengan nama qBarang dan menuliskan query LINQ yang berfungsi untuk mengambil data dari 2 tabel (barang dan kategori, yang memiliki relasi pada kolom KDKategori) dari database. Hasil dari query LINQ tersebut akan ditampilkan dalam control DataGridView1 dengan menggunakan object DataSource dari property DataGridView1.

Kode lengkapnya seperti ini:

view plaincopy to clipboardprint?

1. Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
2.         Dim db As New DataClasses1DataContext   
3.         Dim qBarang = From barang In db.barangs _   
4.                       Join kategori In db.kategoris _   
5.                       On kategori.KDKategori Equals barang.KDKategori _   
6.                       Select barang   
7.   
8.         Me.DataGridView1.DataSource = qBarang   
9.   
10.     End Sub  

Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Dim db As New DataClasses1DataContext 
        Dim qBarang = From barang In db.barangs _ 
                      Join kategori In db.kategoris _ 
                      On kategori.KDKategori Equals barang.KDKategori _ 
                      Select barang 

        Me.DataGridView1.DataSource = qBarang 

    End Sub

Sebelum kita mencoba menjalankan program ini, pastikan frmBarang merupakan Startup Form dengan cara memilih menu Project  > CTHAplikasi1 Properties. Pada tab Application bagian Startup form, pilih frmBarang sebagai form yang akan di load saat pertama kali aplikasi dijalankan. Jalankan aplikasi dengan menekan tombol F5.

Tampilan form setelah dijalankan (masih kosong karena belum ada data yang dimasukkan.. ) :

5. Menambah kontrol tombol, teks dan label.

Aplikasi kita sudah bisa dijalankan, tetapi kita masih perlu menambahkan tombol dan teks serta label ke dalam frmBarang agar memudahkan dalam interaksi dari user terhadap aplikasi.

Kembali ke Designer View (Klik kanan di area kosong di bagian kode dan pilih View Designer atau dengan menekan kombinasi tombol Shift+F7) dan tambahkan 1 label, dengan cara menggeser control Label dari Toolbox ke dalam frmBarang. Pada bagian property untuk Label1, untuk text masukkan 'Kode Barang:' dan untuk name masukkan 'lblKode'.

Tambahkan Control TextBox ke dalam frmBarang, dengan property, name: txtKodeBarang dan pada bagian text dikosongkan.

Lakukan hal yang sama untuk 4 Label, 1 ComboBox dan 3 TextBox selanjutnya dengan property sebagai berikut:

Control ComboBox: name = cmbKategori

Control TextBox: name = txtNamaBarang, text = dikosongkan

Control TextBox: name = txtJumlah, text = '0'

Control TextBox: name = txtHargaJual, text = '0'

Control Label: name = lblKategori, text = 'Kategori'

Control Label: name = lblNamaBarang, text = Nama Barang'

Control Label: name = lblJumlah, text = 'Jumlah'

Control Label: name = lblHargaJual, text = 'Harga Jual'

Sehingga hasilnya menjadi :

Setelah penambahan TextBox, Label serta ComboBox di atas selesai, kita lanjutkan dengan menambahkan Tombol-tombol (Button).

Klik dan geser 5 buah Control Button dari Toolbox ke dalam frmBarang dengan nilai property masing-masing:

Tombol 1: name = cmdEdit, Text = 'Edit'

Tombol 2: name = cmdBaru, Text = 'Baru'

Tombol 3: name = cmdSimpan, Text = 'Simpan'

Tombol 4: name = cmdHapus, Text = 'Hapus'

Tombol 5: name = cmdKeluar, Text = 'Keluar'

 

Sehingga tampilan akhir dari frmBarang akan menjadi :

SEKILAS TENTANG VB

merupakan sebuah bahasa pemrograman komputer yang menjadi sarana ( Tools ) untuk menghasilkan program – program aplikasi yang berbasis windows.

1. Sarana akses data yang lebih cepat dan handal untuk membuat aplikasi basis data yang berkemampuan tinggi.
2. Tambahan contol – control baru lebih canggih serta peningkatan kaidah struktur bahasa visual basic.
3. Visual Basic memiliki beberapa versi atau edisi yang disesuaikan dengan kebutuhan pemakainya.

Berikut ini perjalanan Visual Basic ( VB 1.0 sampai VB 10 ) yaitu :

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

Artikel tentang vb yang lain nyusul belakangan

MACAM-MACAM PEMROGRAMAN

Macam-macam bahasa pemrograman

Adi Rusmanto, 05 Juni 2009

Bagi anda yang bekerja dalam bidang web design pasti sudah tidak asing lagi dengan apa yang nama bahasa pemrograman.Bahasa pemrograman yang umum dikenal adalah php dan html.Tapi sebenarnya masih banyak bahasa pemrograman yang lain.

Berikut ini ada beberapa macam bahasa pemrograman yang perlu anda ketahui

1. Bahasa Pemrograman HTML
HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet.
HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C).
HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan.
Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox atau Microsoft Internet Explorer.

2. Bahasa Pemrograman PHP
PHP adalah bahasa pemrograman script yang paling banyak dipakai saat ini.
PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.
PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain.
PHP biasanya berjalan pada sistem operasi linux (PHP juga bisa dijalankan dengan hosting windows).

3. Bahasa Pemrograman ASP
ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis.
ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft.
ASP bekerja pada web server dan merupakan server side scripting.

4. Bahasa Pemrograman XML
Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data.
XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja.
XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.

5. Bahasa Pemrograman WML
WML adalah kepanjangan dari Wireless Markup Language, yaitu bahasa pemrograman yang digunakan dalam aplikasi berbasis XML (eXtensible Markup Langauge).
WML ini adalah bahasa pemrograman yang digunakan dalam aplikasi wireless.
WML merupakan analogi dari HTML yang berjalan pada protocol nirkabel.

6. Bahasa Pemrograman PERL
Perl adalah bahasa pemrograman untuk mesin dengan sistem operasi Unix (SunOS, Linux, BSD, HP-UX), juga tersedia untuk sistem operasi seperti DOS, Windows, PowerPC, BeOS, VMS, EBCDIC, dan PocketPC.
PERL merupakan bahasa pemograman yang mirip bahasa pemograman C.

7. Bahasa Pemrograman CFM
Cfm dibuat menggunakan tag ColdFusion dengan software Adobe ColdFusion / BlueDragon / Coldfusion Studio.
Syntax coldfusion berbasis html.

8. Bahasa Pemrograman Javascript
Javascript adalah bahasa scripting yang handal yang berjalan pada sisi client.
JavaScript merupakan sebuah bahasa scripting yang dikembangkan oleh Netscape.
Untuk menjalankan script yang ditulis dengan JavaScript kita membutuhkan JavaScript-enabled browser yaitu browser yang mampu menjalankan JavaScript.

9. Bahasa Pemrograman CSS
Cascading Style Sheets (CSS) adalah suatu bahasa stylesheet yang digunakan untuk mengatur tampilan suatu dokumen yang ditulis dalam bahasa markup.
Penggunaan yang paling umum dari CSS adalah untuk memformat halaman web yang ditulis dengan HTML dan XHTML.
Walaupun demikian, bahasanya sendiri dapat dipergunakan untuk semua jenis dokumen XML termasuk SVG dan XUL.
Spesifikasi CSS diatur oleh World Wide Web Consortium (W3C).