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