Materi Pemograman Visual II Pra UAS (Lengkap)

Author: MuTiaRaWaTy BloG Posted under:
0 Comments

Data Karyawan (Pemograman Visual 2)

Author: MuTiaRaWaTy BloG Posted under:




0 Comments

Form Transaksi (Pemograman Visual 2)

Author: MuTiaRaWaTy BloG Posted under:
0 Comments

Pemograman Visual 2 (Data Customer)

Author: MuTiaRaWaTy BloG Posted under:

0 Comments

Pemograman Visual 2 (Pemograman Form Supplier)

Author: MuTiaRaWaTy BloG Posted under:


0 Comments

Pemograman Visual 2 (Form Barang)

Author: MuTiaRaWaTy BloG Posted under:

0 Comments

TUGAS QUIZ

Author: MuTiaRaWaTy BloG Posted under:
Buat yang tidak bisa mengerjakan soal QUIS kerjakan soal ini paling lambat jam 14:00 Siang, di persentasikan gunakan laptop masing-masing

0 Comments

Latihan Persiapan UAS - Resort

Author: MuTiaRaWaTy BloG Posted under:
Untuk semua mahasiswa/i harap pelajari semua materi yang sudah diberikan. Untuk persiapan UAS silahkan kalian coba latihan dibawah ini, mudah-mudahan akan berguna untuk persiapan UAS kalian.

SELAMAT MENEMPUH UJIAN UAS
0 Comments

Latihan Persiapan UAS

Author: MuTiaRaWaTy BloG Posted under:
Untuk semua mahasiswa/i harap pelajari semua materi yang sudah diberikan. Untuk persiapan UAS silahkan kalian coba latihan dibawah ini, mudah-mudahan akan berguna untuk persiapan UAS kalian.

SELAMAT MENEMPUH UJIAN UAS
0 Comments

Pengenalan ADODC (Toko Buku)

Author: MuTiaRaWaTy BloG Posted under:
Visual Basic 6.0 adalah salah satu bahasa pemrograman yang telah menerapkan konsep RAD (Rapid Application Development) atau pengembangan aplikasi secara cepat, berbasis visual dan familiar bagi pengguna. Kini telah disertakan sebuah komponen object model, yaitu ADO (ActiveX Data Object) yang mampu menjembatani aplikasi yang dibuat dengan berbagai database melalui provider OLE DB.

contoh dari program yang menggunakan adodc 
0 Comments

PERHATIAN.....

Author: MuTiaRaWaTy BloG Posted under:
Tugas Kelompok Pembuatan Database Versi lengkap.... masing-masing kelompok hanya beranggotakan 2 Orang. Konsep database bebas dan sederhana, hanya saja untuk diperhatikan programnya ini 1 Database dengan minimal table adalah 3 Table ( 1 Table master, 1 Table Transaksi dan 1 Table sementara ) dikarenakan transaksi yang terjadi harus ONE TO MANY (1 No Faktur untuk banyak Barang / Produk).
Project dikerjakan sesuai dengan materi yang terlah diberikan (boleh menggunakan Form Login, Menu Utama dan Report), kemudian program tersebut kalian burning dalam cd dan buat layout dalam bentuk peper. 
Pada Tanggal 14 Juni 2010 sudah siap dipersentasikan di depan untuk nilai Tugas dan Quiz !!!......
0 Comments

Cara membuat Menu Utama dalam VB 6.0

Author: MuTiaRaWaTy BloG Posted under:






Menu Utama dalam suatu program adalah menu penghantar dari jalannya suatu program. Menu utama terdapat sub-sub menu program yang berisikan form dari data-data yang ada dalam database. Di Visual basic 6.0 menu utama bisa dibuat menggunakan form biasa dan form MDIForm. hanya saja jika menggunkan MDI Form kalian tidak dapat memasukkan tulisan atau gambar pada form menu utama, hanya tampilan form saja dengan menu-menu yang ada diatasnya.

Download Cara Pembuatan Menu Utama Versi Word / PDF
0 Comments

Pembuatan Laporan pada Visual basic 6.0

Author: MuTiaRaWaTy BloG Posted under:
Pembuatan Data Report adalah untuk melaporkan apa yang sudah tersimpan dalam database atau table. DataReport adalah suatu sistem aplikasi laporan yang sudah disediakan oleh Visual Basic 6.0. Semua data yang masuk kedalam sebuah table atau database oleh datareport akan dilaporkan.





DOWNLOAD VERSI WORD
0 Comments

Data Transaksi

Author: MuTiaRaWaTy BloG Posted under:
Design Form


0 Comments

Form Customer

Author: MuTiaRaWaTy BloG Posted under:
Baca Penuh >>>                                                                 <<< Kembali


Buat Table Customer :

Name          Type     Size      Keteranga  
Kodecus        Text       6         PrimaryKey
Namacus       Text      30
Alamat           Text       35
Kota              Text       15
Telp               Text       15



Design Properties
Name                : DataCus
Databasename   : Cari Berdasarkan penyimpanan Database masing-masing
Recordset type  : 1-dynaset
RecordSource   : Custumer
Visible              : False

Name             : DBgrid1
Caption          : Data Custumer
DataSource    : DataCus


Name                : FormCus
BorderStyle       : 1-Fixed Single
Caption             : Input Data Customer
Control Box      :   False
StartupPosition  : 2 - Center Screan


Name            : cmdtop 
Caption         : Kosongkan
Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top
Style             : 1 - Graphics
ToolTipText :  Top

Name            : cmdprev 

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText :  Previous


Name            : cmdnext 

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText :  Next


Name            : cmdbottom 

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText :  Last

0 Comments

Input Data Supplier

Author: MuTiaRaWaTy BloG Posted under:
Baca Selengkapnya >>>                                                   <<< Kembali


Design Form


Atur Properties :

Name                  : DataSup
Databasename   : <>
Recordset Type : 0 - Table
RecordSource    : Supplier
Visible               : False

Name                : DbGrid1
DataSource      : DataSup


0 Comments

INPUT DATA BARANG

Author: MuTiaRaWaTy BloG Posted under:
Baca Selangkapnya >>>                                                       <<< Kembali

Desaign Form


Atur Properties

Name                : DataBarang
Databasename   : <>
Recordset Type : 0 - Table
RecordSource   : Barang
Visible               : False



0 Comments

Form Browse Barang (Lanjutan dari Form Input Barang )

Author: MuTiaRaWaTy BloG Posted under:
Baca Selengkapnya >>>                                                               <<< Kembali

 Design Form

Atur Properties :

Name                  : DataBarang
Databasename     : <>
Recordset Type   : 0 - Table
RecordSource     : Barang
Visible                 : False

Name               : DbGrid1
DataSource      : Data Barang

Name    : Cmdcari
Caption : &Cari


Name    : CmdKeluar

Caption : &Keluar





0 Comments

Contoh Program ARRAY

Author: MuTiaRaWaTy BloG Posted under:

Untuk Checkbox silahkan kalian Copy kemudian jika ada messegebox pada saat Paste, kalian pilih YES

Nanti pada Propertisnya :
Check1(0) = Aneka Jus     = Rp.   5.000,-
Check1(1) = Aneka Jamu  = Rp. 10.000,-
Check1(2) = Aneka Teh    = Rp.   4.000,-


Listing Program :

Private Sub Check1_Click(Index As Integer)
If Check1(0) = 1 And Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 19000
Else
If Check1(0) = 1 And Check1(1) = 1 Then
    Me.txtharga = 15000
Else
If Check1(0) = 1 And Check1(2) = 1 Then
    Me.txtharga = 9000
 Else
If Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 14000
Else
If Check1(0) = 1 Then
    Me.txtharga = 5000
Else
If Check1(1) = 1 Then
    Me.txtharga = 10000
Else
If Check1(2) = 1 Then
    Me.txtharga = 4000
Else
If Check1(0) = 0 And Check1(1) = 0 And Check1(2) = 0 Then
    Me.txtharga = 0
End If
End Sub
0 Comments

Array

Author: MuTiaRaWaTy BloG Posted under:
Baca Penuh >>>                                                                             <<< Kembali

Array yang sedang kita bahas ini merupakan array dari variabel, yang dideklarasikan di dalam kode Anda. Array ini berbeda dari array yang berlaku pada control (control array) yang dapat Anda buat dengan mengeset nilai property Index milik suatu control pada saat design-time. Variabel array selalu berdampingan; tidak seperti control array, Anda tidak dapat memuat dan membebaskan elemen-elemen dari tengah-tengah array.
Semua elemen di array memiliki tipe data yang sama. Tentu saja, ketika tipe datanya Variant, elemen-elemen secara individu dapat mengandung jenis data yang berbeda (object, String, angka, dan sebagainya). Anda dapat mendeklarasikan sebuah array dari tipe data umum, termasuk user-defined types dan object variables (akan kita bahas pada artikel yang lainnya).
Di Visual Basic, terdapat dua jenis array, yaitu:
  1. Array dengan ukuran tetap, yang selalu memiliki ukuran yang sama,
  2. Array Dinamis (dynamic array), yang ukurannya dapat diganti pada saat run-time.

0 Comments

Tugas 1

Author: MuTiaRaWaTy BloG Posted under:
  TUGAS VB INDIVIDU
Lihat Penuh >> >                                                                <<< Kembali
Design Form 
  Ketentuan Program :
  1. Buat Prosedur Aktif, Tidak aktif dan Bersih, kemudian panggil setiap prosedur tersebut didalam form kalian sesuai dengan logika kalian masing-masing.
  2. NIP 200803171 Purna Indra Sari, 2009771 Dwiyanto Edi, 2009668 Selvi Kurniawati, selain itu jika dimasukkan nip yang lain akan keluar "NIP Tidak diKenal" pada textbox nama karyawan. 
  3. Kode DR untuk Direktur, MG  untuk Manajer, ST untuk Staff
  4. Direktur Gapok = Rp. 3.000.000 Tunj. Jabatan 5% * Gapok, Tunj. Istri 5%* Gapok, Manajer Gapok = Rp. 2.250.000,- Tunj. Jabatan 5%* Gapok, Tunj. Istri 3%* Gapok, Staff Gapok = Rp. 1.850.00, Tunj. jabatan Tidak ada dan Tunj. Istri  2%* Gapok.
  5. Input Jumlah Anak
  6. Tunj. Anak : Jika anak <=3 maka Jumlah anak * Rp. 150.000, Namun jika jumlah anak >= 3 maka tunjangan anak = 3 * Rp. 150.000,-
  7. Proses = Gapok + Tunj. Jabatan + Tunj. Istri + Tunj. Anak

0 Comments

Logika

Author: MuTiaRaWaTy BloG Posted under:
Listing Program

 Private Sub cmdbatal_Click()
Me.txtname.Text = ""
Me.txtpass.Text = ""
Me.txtname.SetFocus
End Sub

Private Sub cmdlogin_Click()If Me.txtname.Text = "ADMIN" And Me.txtpass.Text = "ADMIN" Then
pesan = MsgBox("Selamat Anda Berhasil Login", vbOKOnly, "Selamat")
Unload Me
Else
pesan = MsgBox("Username & Password salah", vbInformation, "ERROR")
End If
End Sub

Private Sub txtname_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtpass.SetFocus
End If
End Sub

Private Sub txtpass_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.cmdlogin.SetFocus
End If
End Sub
0 Comments

Prosedure

Author: MuTiaRaWaTy BloG Posted under:
Baca Penuh >>>                                                               <<< Kembali
 Design Form
 Ketentuan Program : 

Jurusan Ditentukan berdasarkan 3 Karakter Pertama dari Kode Bus
  •  PHK  = PAHALA KENCANA, Jurusan = Jakarta - Bali
  •  DWS = DEWI SARTIKA, Jurusan = Jakarta - Solo
  •  DDJ  = DEDY JAYA, Jurusan =  Jakarta - Magelang
Harga Tiket ditentukan 1 karakter terakhir dari Kode Bus
  • A = Rp. 275.000,-
  • B = Rp. 325.000,-
  • C = Rp. 452.000,-
0 Comments

Perulangan (LOOPING)

Author: MuTiaRaWaTy BloG Posted under:
Baca Penuh>>>                                                            <<
Do .... WHILE
Penyeleksian Kondisi dijalankan pada awal proses, dimana pernyataan akan dilaksanakan selama kondisi bernilai TRUE. Perintah dijalankan minimal 0 Kali.
BU :  
      DO WHILE
      PERNYATAAN1
      PERNYATAAN2
      LOOP


Do .... UNTIL
Pernyataan akan dijalankan selama nilai batas belum tercapai atau kondisi bernilai FALSE, Perintah dijalankan minimal satu kali.
Bu :
      DO UNTIL < KONDISI>
      PERNYATAAN1
      PERNYATAAN2
      LOOP
0 Comments

Fungsi String

Author: MuTiaRaWaTy BloG Posted under:
Baca Penuh>>>                                                                  <<<
                                                     FUNGSI STRING

Fungsi String adalah fungsi pengambilan beberapa n karakter dari sebuah String.
  • Left (String,n) : Fungsinya adalah untuk mengambil n karakter sebelah kiri dari nilai string
  • Right (String,n) : Fungsinya adalah untuk mengambil n karakter sebelah kanan dari nilai string.
  • Mid (String,p,n) : Fungsinya adalah untuk mengambil karakter mulai dari karakter ke p, sebanyak n karakter

0 Comments

Latihan 1

Author: MuTiaRaWaTy BloG Posted under:

Private Sub cmdBersih_Click()
Me.txtharga.Text = ""
Me.txtjumbel.Text = ""
Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.txttotbay.Text = ""
Me.txtkode.SetFocus
End Sub

Private Sub cmdhitung_Click()
'Untuk mencari Total Bayar
Me.txttotbay.Text = Val(Me.txtharga.Text) * (Me.txtjumbel.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
'Membuat Textbox tidak aktif
Me.txttotbay.Enabled = False
End Sub


                                                                                                           MTW & Edi
0 Comments