Senin, 17 Oktober 2011

Biodata Ku

TENTANG DIRIKU:

Nama : Dewi Safitri Hutabarat
Npm : 0911005
Jurusan : Teknik Informasi
            Di
STMIK BUDIBARMA MEDAN

Aku adalah anak tunggal dari orangtuaku Dewi seorang mahasiswi di STMIK BUDIDARMA, selai seorng mahasiswi, aku juga bisa dibilang juga seorang pengusaha karena aku sebagai distributor dan sebagai pemilik modal usaha ku.
Aku harus hidup mandiri karena aku sudah menjadi seorang yatim, dan aku tidak tinggal bersama mama ku melainkan dengan nenek ku karena aku dari kecil sudah diasuh oleh nenek ku jadi aku lebih dekat dengan beliau, sementara mama ku tinggal di Bekasi perumahan Komplek Ungu Pondok Sani  Jawa Timur. disana mama ku juga bekerja sebagai asisten tangankanannya DEEL Sitorus.
Usaha yang ku jalani menolakkan pakaian baru kedaerah Aceh Gayoluwes sekitarnya, selain itu juga aku punya butik disana yang dikelola oleh abang angkat ku.....yah walau tidak begitu besar tapi keuntungan yang kudapat cukup lumayan.Kota Gayoluwes itu bisa dibilang kota dolar...karena mau harga bahan pokok sandang dan pangan terbilang sangat mahal 2x lipat harga yang ada di Medan, makanya aku pilih tuk berbisnis di Aceh karena untung yang ku dapat bisa mencapai 2x lipat dibandingkan di Medan,disana yang murah cuma harga cabai yang jauh lebih mutah dari harga cabai yg ada di Medan terkadang aku mau juga pulang dari aceh ke Medan Aku bawa cabai sampai 30kg untuk ku jual lagi keMedan yah kata pepatah bilang sambil menyelam minum air.
Biasanya aku pergi ke Aceh 2 minggu,di hari jumat malam maka aku sampai di Aceh pagi harinya, sekali sambil bawa barang dagangan untuk dijual disana....
kadang bukan hanya baju baru saja yang ku jual atau ku tawarkan pada penduduk sana... kadang ada ibu-ibu rumah tangga yang ingin pesan sofa atau perabot lainnya mereka pesan pada ku.Selama itu menghasilkan uang dan halal aku turuti aja... tinggal kirim uang melalui rekening tabungan ku ibarat kata ada uang ada barang . Maka aku kan kirim melalui mms ke konsumen atau ke abang angkatku foto barang tersebut jika mereka suka maka barng akan kuantar.


jumat 7-okt-2011,pukul 02:00wib

huaaaaooommm.............
Duh msh ngantuk ne...jadi terbangun karena entah kenapa tiba-tiba saja nenek saya bangun muntah-muntah,nenek saya jatuh sakit mungki nenek masuk angin makanya jadi sakit. Aku jadi gk bisa tidur satumaleman, jagain nenek.....
Akhirnya aku bisa tidur juga pukul 04.20wib, dan aku bangun pagi pukul 09:00wiw.
seperti biasa saja kegiatan ku membereskan rumah dan kuliah. selesai kuliah makan mlm lalu kembali tidur.

kegiatan sehari-hari

Kamis 6 okt 2011
       Pukul 06:30Wib.
       Saya bangun tidur, lalu merapihkan tempat tidur saya kemudian saya mandi.Sehabis saya mandi, sarapan dengan roti dan segelas susu.Setelah slsai sarapan biasanya kegiatan yang rutin saya lakukan menyapu rumah lalu mencuci piring.
       Pukul 09:00 Wib.
       Saya menonton acara musik di TV sampai pukul 10:10 wib, saya membantu nenek memasak didapur. Selesai memasak saya kembali menonton TV.
       Pukul 12.00 Wib.
       Saya makan siang bersama nenek sambil nonton TV, pukul 13:15 wib saya shalat Zuhur, kemudian saya tidur siang sampai pukul 16:11 wib, saya bangun dari tidur siang saya lalu saya bergegas mandi setelah itu saya shalat Ashar.
       Pukul 17:12 wib
       Karena ini hari saya tidak ada mata kuliah jadi saya jalan-jalan sore... dengan sepeda motor saya saya pergi kerumah teman saya Nina, saya mengajak Nina JJS alias (jalan-jalan sore) kami pergi ke Kanal  bersantai disana menikmati semilirnya angin di Kanal nambi meminum es kelapa muda n makan siomay..........mmmmmmmmmmmm mantap lah pokoknya......
        Pukul 18:15 wib kami kembali pulang kerumah....setibadirumah saya punmenjalankan shalat magrib....
kemudian setelah shalat saya menonton TV. Pukul 19.00wib, saya makan malam bersama nenek, setelah itu saya nonton TV kembali bersama nenek sampai pukul 22.15 saya bergegas untuk  tidur.
    

Senin, 10 Oktober 2011

kegiatan sehari-hari

Rabu 5 okt 2011
       Pukul 07:00Wib.
       Saya bangun tidur, lalu merapihkan tempat tidur saya kemudian saya mandi.Sehabis saya mandi, sarapan dengan roti dan segelas susu.Setelah slsai sarapan biasanya kegiatan yang rutin saya lakukan menyapu rumah lalu mencuci piring.
       Pukul 09:12 Wib.
       Saya menonton acara musik di TV sampai pukul 10:00 wib, saya membantu nenek memasak didapur. Selesai memasak saya kembali menonton TV.
       Pukul 12.00 Wib.
       Saya makan siang bersama nenek sambil nonton TV, pukul 13:15 wib saya shalat Zuhur, kemudian saya tidur siang sampai pukul 16:11 wib, saya bangun dari tidur siang saya lalu saya bergegas mandi setelah itu saya shalat Ashar.
       Pukul 17:12 wib.
       Saya bersiap diri  untuk kuliah sampai pukul 17:30wib saya punberangkat dari rumah tuk menuju kekampus sampailah saya dikampus pukul 18:42 wib.hariini saya tidak telat karena memang jarang sekali saya telat tuk pergi kekampz...
       Pukul 18:45 wib.
       Saya dan mahasiswa lainnya pun masuk kedalam kelas tuk memulai pelajaran jam pertama kami..... hufft kelas kami selalu saja berisik jarang sekali kelas kami bisa tenang....Emang sih saya juga orangnya rame suka bercanda dan suka ngejahilin teman-teman tp saya bisa menempatkan diri kapan waktunya saya harus berisik atau harus diam..... sampai pukul 19:30 wib kami masuk mata kuliah yang kedua entah kenapa saya sudah merasa ngantuk banget sampai-sampai saya tak tahu apa yang sedang dibicarakan dosen lg didepan.
      Pukul 21:00wib
      Saya dan mahasiswa yang lain pun saatnya pulang kerumah masing-masing.Akhirnya pulang juga kerumah,.... sesampai dirumah saya pun memasukan sepeda motor saya kerumah lalu saya ganti baju  kemudian saya pergi kekamar mandi buat cuci muka dan kaki lalu saya makan malam kemudian pukul 22:11 wib saya bergegas kekamar untuk tidur.

cara membuat animasi arah dengan vb

Setelah sebelumnya kita belajar membuat Permainan Tebak Suara. Kali ini kita akan mencoba yang lebih mudah. Dengan menggunakan komponen Visual Basic kita akan membuat animasi arah sederhana. Konsepnya sederhana, dengan menekan 1 tombol yang berfungsi sebagai Tombol Start/Stop kita dapat memerintahkan objek arah untuk berputar searah jarum jam.
Langsung saja ya. Pertama sekali, buatlah sebuah form dengan tampilan sebagai berikut.
Form Arah
Form Arah
Komponen yang kita butuhkan adalah Timer, Image1(gambar panah kecil) di copy paste kemudian diganti gambarnya sehingga akan menjadi Image(0) – Image(3) dan Image2(gambar panah besar). Untuk gambar panahnya bisa dicari alternatif lainnya juga di Google ya.
Ok, setelah formnya jadi, berikutnya kita akan membuat listing programnya. Supaya lebih mudah dicoba dan gak susah mikir lama, saya akan tampilkan listing lengkapnya dibawah ini. Gak panjang kok. :)
Berikut listingnya:
Private Sub Command1_Click()
Timer1.Enabled = Not (Timer1.Enabled)
End Sub
Private Sub Timer1_Timer()
Static picnum As Integer
picnum = picnum + 1
If picnum > 3 Then picnum = 0
Image2.Picture = Image1(picnum).Picture
End Sub
Setelah diketik semuanya dengan tepat dan lengkap. Langsung jalankan dan lihat hasilnya. Untuk logikanya saya anggap Anda sudah dapat mendefinisikan dengan membaca urutan perintahnya ya.
Selamat mencoba & Semoga berguna. Tetap semangat belajar. :) (dwp)

MEMBUAT PROGRAM PENJUALANAN DI VB 6.0


Sebelum kita mulai menuliskan script, enaknya form Data Master Barang yang sudah kita buat ditampilkan dulu ya.

32c - Form Barang 8c

Nah, script yang akan kita tuliskan adalah script untuk kontrol cmdTambah, cmdEdit, cmdBatal, cmdHapus, cmdSelesai dan Form_Load. Tapi sebelum itu, ada beberapa fungsi tambahan dulu yang akan kita buat.



Langsung saja, lakukan right-click (klik-kanan) pada bagian form manapun yang kosong (tidak terdapat kontrol), dan pilih “View Code” pada popup menu yang muncul. Atau Anda bisa juga menekan tombol Ctrl-F6 pada keyboard Anda.

34 - Form Barang 10 (pop-up view code)



Setelah itu, akan terbuka jendela Code Editor VB6. Di sinilah kita akan menuliskan script-script kita. Jika anda mengaktifkan opsi Require Variable Declaration pada Visual Basic 6.0 setting, maka di bagian paling atas akan ada 1 baris script bertuliskan “Option Explicit” .

Option-Explicit

Jika tidak, maka jendela code editor ini akan benar-benar kosong. Dan Anda sebaiknya menambahkan script tersebut pada bagian paling atas dari jendela code editor tersebut, seperti terlihat pada gambar.

35 - Jendela Code Editor



Anda mungkin bisa menambahkan satu baris kosong, untuk mempercantik penulisan script-nya, agar terlihat rapi. Dan setelah itu, dua baris di bawah script Option Explicit, tuliskan script berikut ini:

Sub Kosong()
On Error Resume Next
txtKodeBarang.Text = ""
txtNamaBarang.Text = ""
meHarga.Text = ""
txtKodeBarang.SetFocus
End Sub



Itu adalah prosedur untuk membershkan / mengosongkan isian pada semua kotak isian yang ada, dan (kalau mungkin) menempatkan kursor pada kontrol txtKodeBarang. Sebenarnya hal ini bisa saja langsung dituliskan pada setiap kontrol yang membutuhkan. Tapi dengan menempatkan beberapa baris program pada satu atau beberapa prosedur, akan bisa mempercepat penulisan script, dan tentu saja, akan membuat tampilan dari kode program / script menjadi lebih rapi. smile_wink



Ini adalah prosedur ke dua yang kita akan buat. Jadi, tuliskan script berikut ini, di bawah prosedur pertama tadi. Berikan satu baris kosong dulu agar penulisan menjadi lebih rapi.

Sub Kunci(bKunci As Boolean)
txtKodeBarang.Enabled = Not bKunci
txtNamaBarang.Enabled = Not bKunci
meHarga.Enabled = Not bKunci
End Sub



Script ke dua adalah script untuk mengunci beberapa kontrol, yaitu txtKodeBarang, txtNamaBarang dan meHarga, agar tidak dapat ditulisi. Kenapa harus dikunci? Karena kita akan membuat agar user harus mengklik dulu tombol cmdTambah, jika ingin menambahkan data, atau mengklik tombol cmdEdit, bila ingin mengedit data yang ada. Sedangkan bila ingin menghapus, tidak berpengaruh, apakah kotak isian dalam kondisi terkunci atau tidak, meskipun sebaiknya mereka berada dalam kondisi terkunci (disabled).



Script ke tiga adalah sebuah fungsi untuk memeriksa keberadaan Kode Barang yang dimasukkan oleh User. Jika sudah ada, maka fungsi ini akan mengembalikan nilai True, dan jika belum ada, akan mengembalikan nilai False. Script-nya adalah sebagai berikut:

Function CariKode(sKode As String) As Boolean
datBarang.RecordSource = "SELECT * FROM Barang " & _
"WHERE Kode_Barang = '" & sKode & "'"
datBarang.Refresh
If datBarang.Recordset.RecordCount = 0 Then
CariKode = False
Else
CariKode = True
End If
datBarang.RecordSource = "SELECT * FROM Barang"
datBarang.Refresh
End Function



Tampilan setelah kedua prosedur dan satu fungsi tersebut ditambahkan akan menjadi kira-kira seperti di bawah ini:

36 - Code Editor terisi 3 prosedur

Sekarang, kembalikan dulu tampilan pada jendela form designer, dengan cara menekan Ctrl-F6, atau melakukan klik-kanan pada item frmBarang (frmBarang.frm) yang berada di dalam jendela Project Explorer.

37 - Project Window



38 - Popup Menu - View Object

Dan kita akan dikembalikan pada jendela Form Designer untuk form Data Master Barang.

32c - Form Barang 8cHm… kontrol mana dulu yang akan kita buatkan script-nya? Yang paling mudah saja ya. Kita akan pilih tombol cmdSelesai. Jadi lakukan double-click pada tombol atau kontrol cmdSelesai, untuk kembali membuka jendela Code Editor.

39 - Form Barang 11 (cmdSelesai onfocus)

Tak lama setelah itu akan terbuka jendela code editor, dengan kursor yang berada di dalam bagian dari prosedur “Private Sub cmdSelesai_Click()”.

40 - Code Editor for cmdSelesai

Lagi-lagi untuk lebih merapikan penulisan, tekan tombol Tab pada keyboard Anda sekali, lalu tuliskan script berikut:

Unload Me



atau tampilan lengkapnya adalah sebagai berikut:



41 - Code Editor for cmdSelesai 2

Kok cuma satu baris? Cuma Unload Me saja? Yup! Memang, karena fungsi tombol tersebut memang hanya untuk menutup form Data Master Barang ini, dan mengembalikan user pada form utama. Jadi, perintahnya ya memang itu saja. smile_teeth



Script untuk cmdSelesai sudah, sekarang beralih ke script untuk kontrol lainnya ya. Tekan lagi Ctrl-F6 pada keyboard Anda, untuk mengembalikan tampilan pada jendela Form Designer VB6.

42 - Form Barang 12 (after cmdSelesai)



Kontrol berikutnya yang akan kita tuliskan scriptnya adalah tombol cmdTambah. Jadi, silahkan double-click pada cmdTambah, untuk membawa kita pada jendela code editor, tepatnya pada prosedur Private Sub cmdTambah_Click().

43 - Forma Barang 13 (cmdTambah focused)

Jendela code editor akan terbuka pada prosedur cmdTambah_Click().

44 - Code Editor for cmdTambah

Seperti biasa, tekan dulu tombol TAB pada keyboard Anda, agar penulisan script bisa agak masuk ke dalam dan terlihat rapi.



Setelah itu, ketikkan script berikut ini di antara bagian “Private Sub cmdTambah_Click()” dan “End Sub” :

If cmdTambah.Caption = "Tambah" Then
Kunci False
Kosong
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdBatal.Enabled = True
cmdTambah.Caption = "Simpan"
Else
If CariKode(txtKodeBarang.Text) Then
MsgBox "Kode Barang tersebut sudah ada.", _
vbCritical, "Maaf..."
txtKodeBarang.SetFocus
Exit Sub
End If
datBarang.Recordset.AddNew
datBarang.Recordset.Fields("Kode_Barang") = txtKodeBarang.Text
datBarang.Recordset.Fields("Nama_Barang") = txtNamaBarang.Text
datBarang.Recordset.Fields("Harga") = meHarga.Text
datBarang.Recordset.Update
datBarang.Refresh
dbgBarang.Refresh
MsgBox "Data sudah disimpan.", vbInformation, "Terima kasih."
cmdTambah.Caption = "Tambah"
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdBatal.Enabled = False
Kosong
Kunci True
End If



Atau, tampilan lengkapnya adalah sebagai berikut:

45 - Code Editor for cmdTambah2



Selanjutnya, Anda bisa kembali ke jendela Form Designer, dengan menekan tombol Ctrl-F6 pada keyboard Anda.

46 - Form Barang 14 (after cmdTambah)

Script berikutnya adalah untuk tombol cmdEdit. Double-click cmdEdit, kemudian pada jendela code editor yang muncul, ketikkan script berikut di antara bagian “Private Sub cmdEdit_Click()” dan “End Sub” :

If cmdEdit.Caption = "Edit" Then
Kunci False
cmdTambah.Enabled = False
cmdHapus.Enabled = False
cmdBatal.Enabled = True
'kita tidak mengizinkan isi Kode Barang untuk diubah,
'jadi kotak isian ini harus di-disable terlebih dulu...
txtKodeBarang.Enabled = False
cmdEdit.Caption = "Update"
txtNamaBarang.SetFocus
Else
datBarang.Recordset.Edit
datBarang.Recordset.Fields("Nama_Barang") = txtNamaBarang.Text
datBarang.Recordset.Fields("Harga") = meHarga.Text
datBarang.Recordset.Update
datBarang.Refresh
dbgBarang.Refresh
MsgBox "Data sudah di-update.", vbInformation, "Terima kasih."
cmdEdit.Caption = "Edit"
cmdTambah.Enabled = True
cmdHapus.Enabled = True
cmdBatal.Enabled = False
Kosong
Kunci True
End If



Dan tampilan pada jendela Code Editor adalah seperti berikut ini:

47 - Code Editor for cmdEdit



Selanjutnya tentu saja, tekan Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

48 - Form Barang 15 (after cmdEdit)Berikutnya adalah script untuk cmdBatal. Seperti sebelumnya, double-click pada tombol cmdBatal, dan pada jendela Code Editor, ketikkan script berikut di antara bagian “Private Sub cmdBatal_Click()” dan “End Sub”.

Kosong
Kunci True



Atau tampilan lengkapnya adalah seperti berikut ini:

49 - Code Editor for cmdBatal

Setelah itu, tekan lagi tombol Ctrl-F6 untuk kembali ke jendela Form Designer.

50 - Form Barang 16 (after cmdBatal)Selanjutnya, double-click tombol cmdHapus untuk membuka jendela Code Editor. Lalu di antara bagian “Private Sub Hapus_Click()” dan “End Sub”, ketikkan script berikut:

If MsgBox("Yakin ingin menghapus data ini?" & Chr(13) & _
"Kode Barang: " & datBarang.Recordset.Fields("Kode_Barang") & Chr(13) & _
"Nama Barang: " & datBarang.Recordset.Fields("Nama_Barang") & Chr(13) & _
"Harga: " & Format(datBarang.Recordset.Fields("Harga"), "#,##0"), _
vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
datBarang.Recordset.Delete
datBarang.Refresh
dbgBarang.Refresh
MsgBox "Data sudah dihapus...", vbInformation, "Informasi"
End If



Dan tampilan lengkapnya adalah sebagai berikut:

51 - Code Editor for cmdHapus

Setelah itu, tekan lagi tombol Ctrl-F6 untuk kembali ke jendela Form Designer.

52 - Form Barang 17 (after cmdHapus)

Kontrol selanjutnya yang akan diberikan script adalah DataBoundGrid dbgBarang. Jadi, double-click pada dbgBarang untuk membuka jendela Code Editor.

53 - Code Editor for dbgBarang 1Terlihat di situ bahwa secara default, yang terbuka adalah Sub Rutin dbgBarang, namun untuk event “Click” . Namun karena kita menginginkan user untuk men-double-click (bukan single-click), maka kita harus mengubah dulu event-nya. Caranya adalah dengan mengklik pada combobox Event, yang sekarang bertuliskan “Click”, dan ubah nilainya dengan memilih “DblClick”.

54 - Code Editor for dbgBarang 2

Setelah itu akan muncul sebuah prosedur baru, di mana kursor keyboard secara otomatis juga akan berada di dalamnya.

55 - Code Editor for dbgBarang 3Nah, pada bagian antara “Private Sub dbgBarang_DblClick()” dan “End Sub” , ketikkan script berikut ini.

dbgBarang.Col = 0
txtKodeBarang.Text = dbgBarang.Text
dbgBarang.Col = 1
txtNamaBarang.Text = dbgBarang.Text
dbgBarang.Col = 2
meHarga.Text = dbgBarang.Text



Atau lengkapnya adalah sebagai berikut:

56 - Code Editor for dbgBarang 4

Sudah? Tekan lagi Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

57 - Form Barang 18 (after dbgBarang)

Script terakhir adalah untuk event Form_Load. Script ini akan di-eksekusi atau dijalankan, saat form Data Master Barang ini di-load ke memory, atau ditampilkan. Jadi, silahkan double-click pada sembarang bagian form yang kosong (tidak berisi kontrol apapun), untuk membuka jendela Code Editor. Lalu pada bagian antara “Private Sub Form_Load()” dan “End Sub”, ketikkan script berikut.

On Error Resume Next
datBarang.Refresh
'Jika database masih kosong, maka
If datBarang.Recordset.RecordCount = 0 Then
'tombol Edit & Hapus harus di-disable
cmdEdit.Enabled = False
cmdHapus.Enabled = False
Else
'jika tidak, bisa di-enable
cmdEdit.Enabled = True
cmdHapus.Enabled = True
End If
Kosong
Kunci True



Atau tampilan lengkapnya adalah sebagai berikut:

58 - Code Editor for FormLoad



Tekan lagi Ctrl-F6 untuk kembali ke jendela Form Designer VB6.

59 - Form Barang 19 (after Form_Load)Sampai tahap ini sebenarnya tahap coding / penulisan script untuk form Data Master Barang sudah selesai, dan form tersebut sudah bisa digunakan. Namun masih ada modifikasi yang akan kita tambahkan nantinya. Sekarang, untuk sementara, tutup dulu form Data Master Barang ini, dan kita akan kembali ke form Utama (frmUtama).

60 - Form Utama

Jika sudah, Anda dapat mengklik pada menu Master, kemudian pilih submenu Barang, dan jendela Code Editor akan kembali terbuka.

61 - Form Utama 2



62 - Code Editor form mnuBarang 1



Dan di antara bagian “Private Sub mnuBarang_Click()” dan “End Sub”, ketikkan script berikut ini:

frmBarang.Show vbModal



Atau tampilan lengkapnya adalah seperti berikut ini:63 - Code Editor form mnuBarang 2



Jika sudah, Anda dapat menekan tombol Ctrl-F6 pada keyboard Anda untuk kembali ke jendela Form Designer.

60 - Form Utama

Sekarang, klik menu Keluar, dan tak lama kemudian jendela Code Editor akan terbuka.

64 - Code Editor form mnuKeluar

Pada bagian antara “Private Sub mnuKeluar_Click()” dan “End Sub’, ketikkan script berikut:

If MsgBox("Yakin ingin keluar dari aplikasi ini?", _
vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
End
End If



atau tampilan lengkapnya adalah seperti di bawah ini:

65 - Code Editor form mnuKeluar 2Setelah itu, klik tombol Ctrl-F6 pada keyboard Anda, untuk kembali lagi ke jendela Form Designer.

60 - Form Utama

Selanjutnya Anda dapat men-test form Data Master Barang dengan cara menjalankan (running) aplikasi ini. Caranya dengan menekan tombol “F5” pada keyboard Anda. Lalu setelah aplikasi berjalan dan form Utama telah tampil, pilihlah menu Master, lalu pilih submenu Barang.

66 - Form Utama (Running)67 - Form Utama (Running) 2Dan, setelah jendela Form Data Master Barang terbuka,

68 - Form Data Master Barang (Running)Anda dapat mulai melakukan pengujian, dengan cara menambah data, mengedit, maupun menghapusnya. Untuk mengedit, Anda harus melakukan double-click pada setiap baris data pada tabel dbgBarang yang Anda ingin Edit. Demikian juga untuk menghapus data, Anda harus melakukan double-click pada setiap baris data yang Anda ingin hapus.



Isikan sampai beberapa data dalam tahap pengujian ini.



Kalau sudah selesai, Anda dapat menutup form Data Master Barang dengan cara mengklik tombol “Selesai”. Dan setelah selesai dan kembali ke Form Utama, Anda kembali dapat keluar dengan mengklik menu Keluar, lalu pilih “Yes” pada pertanyaan yang muncul.

69 - Konfirmasi Keluar dari Form Utama



Selanjutnya, kita akan membuat form Transaksi Penjualan. Dan nanti kalau seluruh bagian program sudah selesai dibuat, termasuk Desain Laporan-Laporan yang diperlukan, baru kita akan membuat beberapa modifikasi atau perubahan-perubahan. Sengaja saya buat terpisah, untuk lebih memperjelas, karena sebenarnya tanpa modifikasi itupun program sudah bisa berjalan dengan baik. Modifikasi yang ada dilakukan untuk lebih “memperkuat” aplikasi program ini.



Dan sekarang, silahkan simpan pekerjaan Anda, dan sampai jumpa lagi pada Tutorial tahap selanjutnya. smile_teeth

Sumber : http://www.eras.web.id/2010/09/membuat-program-penjualan-dengan-visual-basic-6-0-tutorial-bagian-5-penulisan-script-pada-form-data-master-barang/

MEMBUAT LAPORAN CRYSTAL REPORT DAN PENGUNCIAN TABEL











Crystal Report adalah program khusus untuk membuat laporan, yang terpisah dengan Visual Basic. Pada modul ini menggunakan Crystal Report versi 10. Untuk bisa menjalankan Crystal Report, harus ditambahkan Service Pack 6 pada Visual Basic. Kemudian pada Project | Refrence, ditambahkan :
·         Crystal Report ActiveX Designer Rutime Library 10.0
·         Crystal Active Report viewer Library 10.0



Mennjalan Crystal Report, Start | Program klik ke Crystal Report 10. Lihat gambar di bawah

Untuk membuat laporan baru pilih Blank Report,  mebuka yang lama Existing Report. Using Report Wizard mebuat laporan dengan cepat langsung dikaitakan dengan database data tabel yang ada. 


Untuk menghubungkan ke tabel gunakan dialog database Expert


Setelah jadi simpan dengan file extensi *.rpt

Menampilkan ke form pada Visual Basic

Komponen untuk menampilkan ataug menggabungkan ke Form Visual Basic Manggunkan komponen  CrystalActiveXReportViewer1

Deklarasi umum

Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report

Program Cetak


Private Sub CommandCetak_Click()
   Report.PrintOut (CheckCetak.Value = 1)
End Sub

Private Sub CommandTutup_Click()
   Unload FormPreview
End Sub


Private Sub Form_Activate()
   CrystalActiveXReportViewer1.Refresh
End Sub

Private Sub Form_Resize()
   CrystalActiveXReportViewer1.Width = Me.Width - 2 * _
       CrystalActiveXReportViewer1.Left
  
   CrystalActiveXReportViewer1.Height = Me.Height - _
       2 * CrystalActiveXReportViewer1.Top
  
   On Error Resume Next

   If Err.Number <> 0 Then
      On Error GoTo 0
      MsgBox "Salah pada berkas laporan", vbOKOnly, "Perhatian"
      CommandCetak.Enabled = False
      Exit Sub
   Else
      Set Report = Appl.OpenReport(Trim(TextReport.Text))
      CrystalActiveXReportViewer1.ReportSource = Report
      CrystalActiveXReportViewer1.ViewReport
     
      On Error GoTo 0
   End If
End Sub

Program ini disimpan dengan nama FormPrevew.frm, dipanggil dari modul VII, pada proses tombol Simpan, sambil mencetak strok penjualan.

FormPreview.TextReport.Text =  _
"C:\Kuliah\Modul Data Base Multi user\program\ReportPen.rpt"
FormPreview.Show 1
On Error Resume Next

Penguncian tabel

Penguncian tabel dilakukan jika, terjadi pengubahan pada rekaman dalam waktu yang sama, sehingga dikawatirkan terjadi hasil akhir yang salah. Contoh kasus dalam aplikasi ini jika ada kasir yang transaksi dalam waktu yang sama bisa nomor nota sama, dan juga, motong dengan hasil yang salah.

Dalam program bisa ditambahkan seperti pada fungsi dibawah


Function LockTable(Conn As ADODB.Connection, _
                   TableName As String)

   Conn.Execute "LOCK TABLE " & TableName & " WRITE"
   If Err.Number <> 0 Then
      LockTable = False
   Else
      LockTable = True
   End If
End Function

Function UnlockTables(Conn As ADODB.Connection)
   Conn.Execute "UNLOCK TABLES;"
   If Err.Number <> 0 Then
      UnlockTables = False
   Else
      UnlockTables = True
   End If
End Function

Cara  penggunaan penguncian tabel

If LockTable(Conn, "barang") = False Then
      Conn.RollbackTrans 'kunci edit nambah
      MsgBox "Gagal mengunci tabel barang", vbOKOnly, "Perhatian"
      Exit Sub
   End If

Lakukan pengeditan barang
Buka kunci

UnlockTables Conn
Conn.CommitTrans ' simpan transaksi
  

cara mengkoneksikan vb ke database

Untuk dapat mengakses suatu database dari visual basic, Anda harus membuat koneksi  ke database tersebut. Visual basic dapat menangani berbagai database, teks bakan worksheet excel. Terdapat beberapa cara yang tersedia untuk itu sesuai dengan database yang digunakan
Cara 1. Menggunakan Object ADO
Anda dapat menggunakan icon Adodc (Microsoft ActiveX Data Objects Data Control) pada toolbox. Jika pada toolbox tidak terdapat icon Adodc, Anda dapat menambahkannya dengan memilih menu Project, Components (Ctrl+T) lalu beri tanda pilih pada Microsoft ADO Data Control (OLEDB) dan klik Apply. Sekarang kita akan mencoba mengaitkan database Ms. Acess yang diberi nama Pembelian.mdb. Untuk itu, lakukan langkah-langkah sebagai berikut:
  1. Pilih menu File lalu New.
  2. Pilih VB Enterprise (Professional) Edition Controls.
  3. Klik OK.
  4. Klik ganda pada folder Forms pada jendela proyek lalu klik ganda pada Form 1 sampai muncul tampilan form.
  5. Klik icon Adodc pada toolbox.
  6. Klik dan seret pada jendela form, sehingga muncul tampilan seperti Gb. Objek yang tergambar dalam form disebut objek data.
  7. Tentukan properti data sebagai berikut:
    1. Name db         Pembelian
    2. Caption           Data Barang
    3. EOFAcction    2
  8. Tentukan properti ConnectionString dengan cara mengklik tombol … pada kolom ConnectionString sehingga muncul tam pilan seperti pada Gb
  9. Pilih OptionButton pada Use Connection String lalu klik Build sehingga muncul tampilan seperti pada Gb
  10. Pilih Microsoft Jet 4.0 OLEDB Provider lalu klik Next.
  11. Pilih (dengan mengklik tombol …) atau ketik nama database yang dipakai pada kolom Select or enter a database name.
  12. Klik Test Connection jika perlu, lalu kllk OK dua kali sampai tampilan kembali ke jendela Form.
  13. Tentukan properti RecordSource dengan cara mengklik tombol pada kolom RecordSource sehingga muncul tampilan seperti pada Gb
  14. Pada kolom Command Type pilih 2-adCmdTable. Setelah kolom ini diisi, maka Anda akan dapat mengisi kolom Table or Stored Procedure Name. lsilah dengan memilib tabel Barang seperti pada Gb
  15. Klik OK.
  16. Simpan form dan proyek dengan nama VB-Lat-01

Cara 2: Mendeklarasikan Objek Ado
Object ado dapat dideklarasi melalui coding. Tiga object bawaan ADO dalam pengembangan aplikasi adalah :
1. Obcet Connection
untuk menangani koneksi antara program dengan sumber data atau server. Deklarasi dapat bersifat lokal maupun global serta dapat diletakan pada level form, modul atau class modul. ADO paling umum membuka suatu koneksi dengan menggunakan obyek Connection Open metoda. Sintaks untuk Metoda Open ditunjukkan sbb:  
Dim connection as New ADODB.Connection
connection.Open ConnectionString, UserID, Password, OpenOptions
Sebagai alternatif, anda dapat menggunakan teknik pintas, recordset.Open, untuk membuka koneksi yang tersembunyi dan mengeluarkan suatu perintah atas koneksi dalam satu operasi. Lakukan hal ini dengan mengaktivkan suatu koneksi yang valid seperti argumentasi ActiveConnection ke Metoda Open. Ini adalah sintaksis untuk masing-masing metoda di Visual Basic: 
Dim recordset as ADODB.Recordset Set
recordset = New ADODB.Recordset
recordset.Open Source, ActiveConnection, CursorType, LockType, Options
Contoh :
Deklarasi object Connection:
     Dim cn As New ADODB.Connection
atau
     Public cn As New ADODB.connection
Selanjutnya mengalokasikan memori untuk onject connection sbb:
     Set cn = New ADODB.Connection
Kemudian isi property object connoction tersebut sbb:
Contoh berikut adalah property untuk MSSQL Server
     cn.connectionString = “Perovider=SQLOLEDB;” & _
                                                 ”Server=NamaServer; ” & _
                                                “Initial catalog= inventory” & _
                                               “user Id = zulidamel” _
                                              “Password=terserah”
     cn.Open
atau
    koneksi =  “Perovider=SQLOLEDB;” & _
                       ”Server=NamaServer; ” & _ 
                       “Initial catalog= inventory” & _
                       “user Id = zulidamel” _
                       “Password=terserah”
cn.Open koneksi
Jika tidak ingin menggunak authentik pada proses koneksi gunakan cara berikut:     
koneksi = “Provider=SQLOLEDB.1;” & _
                  “Integrated Security Info=False;” & _
                 “Data Source = NamaServer” cn.Open koneksiBila koneksi sudah tidak diperlukan tutuplah koneksi dengan perintah
 ”Set cn = Nothing”

2. Object Command
Digunakan untuk perintah SQL ke sumber data atau server. Deklarasi object command sbb:
      Dim CmdBarang As New ADODB.Command
atau
     Public Cmd as New ADODB.Command
selanjutnya alokasikan memori untuk object Command sbb:
     Set CmdBarang = New ADODB.Command
 Kemudian Isi property object command
      CmdBarang.ActiveConection = cn
     CmdBarang.CommandText = “select * from barang”
      CmdBarang.CommandType = adCmdText

3. Object Recordset
Digunakan sebagao penampung hasil eksekusi dalam bentuk tabel. Deklarasi object record sbb:
      Dim rsBarang As New ADODB.Recordset
atau
      Public rsBarang As New ADODB.Recordset
selanjutnya alokasikan memori ynryk object recordset sbb:
      Set rsBarang = New ADODB.recordset
lalu isikan property object record set
      rsBarang.CusrsorTYpe = adOpenDynamic
     rsBarang.LockType = adLockOptimistic
     rsbarang.Open cmdBarang
atau
   rsbarang,open CmdBarang,, adOpenDynamic, adlockOptimistic,  adCmdtext


Data Control
Visual Basic terus berkembang dalam pengembangan general purpose Windows, tetapi kemampuan database tidaklah bagian murni dari desainnya. Data Control,  Visual Basic menambahkan, membuat Visual Basic suatu alat yang jauh lebih tangguh untuk pembuatan pemrograman database.

data-control.jpgData Control memberikan kemudahkan untuk mendapat data ke dalam program anda. Anda dapat dengan mudah mengaitkan  suatu file database, lalu mengaitkan  data lainnya  untuk memindahkan data dari database ke aplikasi anda dan sebaliknya. Data Control pada suatu database dan menetapkan tabel mana yang akan diambil, lalu mengaitkan  ke pengendali Data Control, menetapkan  field yang akan ditampilkan. Pada waktu itu aplikasi anda dapat mengambil, menampilkan, memperbaharui dan membuat database merekam. Alir data di dalam skenario ini ditandai pada gambar.

cara membuat table di vb

Belajar Visual Basic Dasar Bagian 1 : Membuat Database beserta Table

Assalamualaikum warohmatullohi wabarokatuh ! sekarang kita akan belajar menggunakan bahasa pemograman visual basic yang dasar. Sebelumnya saya juga pernah membuat tutorial visual basic tetapi untuk yang pelajaran lanjutan yaitu dengan membuat suatu program penjualan buku yang bisa anda lihat pada blog ini juga. Nah, tutorial dasar yang ini diperuntukkan untuk yang masih baru atau belum sama sekali belajar visual basic. So, happy good study, guys !
Pada tutorial belajar visual basic dasar bagian yang paling pertama ini kita akan belajar bagaimana cara membuat sebuah database. (pernah dibahas juga pada tutorial membuat program penjualan). Adapun langkah langkahnya adalah sebagai berikut :
– Bukalah program Microsoft Visual Basic
– Untuk membuat sebuah database baru caranya pilih ADD-INS – VISUAL DATA MANAGER.
– Pada layar VIS DATA pilih FILE – NEW – MICROSOFT ACCESS – VERSION 7.0 MDB lalu SAVE (simpan) dengan nama terserah anda (misalkan DBBarang).
– Pada DATABASE WINDOW buatlah Table baru dengan cara klick kanan lalu pilih NEW TABLE.
– Tulislah nama table nya pada TABLE NAME dengan nama terserah anda (misalkan Table_Barang).
– Isilah field field yang dibutuhkan dengan cara menekan tombol ADD FIELDS.
– Tuliskan nama fieldnya lalu pilih Type nya dan tulis ukuran / Size nya.
– Dibawah ini ada beberapa field yang bisa digunakan sebagai contoh :
Name
Type
Size
Kode_barang (Primary Key)
Text
6
Nama_barang
Text
20
Harga_barang
Currency
8
- Setelah semua field selesai ditulis buatlah PRIMARY KEY (kunci utama) nya dengan cara menekan ADD INDEX. Sebagai contoh tulislah:
Name: Kode_barang
Indexed fields: Kode_barang
Beri tanda checklist pada Primary dan Unique lalu tekan Oke
Tekan tombol BUILD THE TABLE.
– Dengan begitu Table tersebut telah selesai dibuat.
Demikianlah cara untuk membuat database beserta table nya.
Sedangkan untuk membuka database yang telah kita buat caranya adalah: Pilih ADD-INS – VISUAL DATA MANAGER – FILE – OPEN DATABASE – MICROSOFT ACCESS – cari database yang diinginkan. Lalu OPEN.

OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

VBD1 DATABASE