Showing posts with label Belajar VB6. Show all posts
Showing posts with label Belajar VB6. Show all posts

Friday, June 17, 2016

VB6 : Laporan Dengan Data Report

Laporan Dengan Data Report

Salah satu fasilitas Visual Basic ialah menyediakan Data Report untuk membuat Laporan. seperti halnya kontrol data yang digunakan sebagai penghubung dengan database, Data Report pula membutuhkan Data Environment yang berfungsi sebagai penghubung antara database yang ada dengan Data Report.

1.Buat Data Evironment
  • Klik Project pada MenuBar, Klik Data Add Environment
  • Akun tampil jendela Data Environment, klik kanan pada connection1,pilih properties
  • Akan tampil jendela Data Link Properties (untuk menghubungkan dengan database)
  • Pilih Microsoft Jet 4.0 OLE DB PROVIDER, klik next
  • Muncul tab Connection keudian pada select or enter a database name pilih nama database klik tombol cari penyimpanan database yang akan di hubungkan latihanDBVb.mdb
  • Klik Test Connection, jik koneksi berhasil (database telah terkoneksi), klik ok
  •  Untuk mewakili tabel, tambahkan command pada Connection1 dengan cara klik kanan pada command1, pilih add command
  • Klik kanan pada Command1 lalu pilih Properties akan tampil jendela Command1 Properties
  • Untuk bagian Command name ketikan dtbrg kemudian pada connection, pilih connection1
  • pada bagian Database Object pilih Table, langkah selanjutnya Object Name pilih nama tabel barang.

  • Klik Ok

Buat Data Report

  • Klik Project pada MenuBar, klik data Add Report, lalu akan tampil jendela Data Report dengan tampilan seperti di bawah ini.

Penjelasan

  • Desaign RptLabel di Report Header, Ubah Property : Caption Menjadi "Laporan Data Barang" dan property : Alignment menjadi rptjustcenter. Kemudian atur tampilannya sesuai dengan yang anda inginkan gunakan Fungsi Font pada Properties untuk merubah
  • klik Data Report
  •  Letakan jendela Data Environnment di atas Jendela Data Report
  • Drag & Drop field-field pada jendela Data Environment ke jendela Data Report di bagian Detail
  • Pindahkan bagian yang diakhiri tanda ":" ke bagian page header
  • Desaign akhir Data Report adalah sebagai berikut :
  •  Simpan dengan nama lapbarang
  • Latihanlah sendiri membuat laporan untuk table yang lain


Untuk mendownload filenya silakan download DISINI . password : fajaryusuf.com




Jangan lupa Share, dan Likenya
Jika ada pertanya silakan berkomentar
hormat saya fajaryusuf.com

VB : Transaksi One To One (Lanjutan Post Sebelumnya)

Transaksi One To One 

Setelah latihan membuat Form Barang dan Form Kasir, Selanjutnya adalah membuat Form Transaksi. Ada 2 Jenis transaksi yang pertama adalah transaksi One To One dan Transaksi One To Many. Untuk latihan form transaksi yang kita buat sekarang adalah One To One.

Struktur Tabel Transaksi
Buatlah sebuah form baru dengan format sebagai berikut
Name     : FTransaksi
Caption  : Form Transaksi

Properties koneksi
Untuk menambahkan objek yang digunakan untuk membuat Data Combo, caranya adalah :
1.ctrl+t
2.Ceklist->Microsoft DataList Control 6.0 (OLEDB) -> Klik OK

Listing programnya :

Sub nomor()
Dim Urutan As String
Dim Hitung As Integer
adotrans.Refresh
With adotrans.Recordset
If .RecordCount = 0 Then
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & "001"
txtnotrans.Text = Urutan
Else
.MoveLast
Hitung = Val(Right(!notrans, 3)) + 1
Urutan = "TRS" & Format(Date, "YY") & Format(Date, "mm") & Right("000" & Hitung, 3)
txtnotrans.Text = Urutan
End If
End With
End Sub

Private Sub cmdadd_Click()
Call nomor
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
txtjumbel.Enabled = True
txtubay.Enabled = True
cmdadd.Enabled = False
cmdcancel.Enabled = True
cmdsave.Enabled = True
cmdexit.Enabled = False
End Sub
Sub aktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 1
End If
Next x
DBkdkasir.Enabled = True
DBkdbarang.Enabled = True
End Sub
Sub nonaktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = 0
End If
Next x
DBkdkasir.Enabled = False
DBkdbarang.Enabled = False
End Sub

Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next x
DBkdkasir.Text = "Pilih Kode"
DBkdbarang.Text = "Pilih Kode"
End Sub
Sub kondisi_awal()
bersih
nonaktif
cmdadd.Enabled = True
cmdexit.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmdcancel_Click()
Call kondisi_awal
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdsave_Click()
With adotrans.Recordset
.AddNew
!notrans = txtnotrans.Text
!tgltrans = txttgl.Text
!kdbrg = DBkdbarang.Text
!kdkasir = DBkdkasir.Text
!total = txttobay.Text
!qty = txtjumbel.Text
.Update
End With
MsgBox "data tersimpan", vbInformation, "info"
kondisi_awal
End Sub

Private Sub DBkdbarang_Change()
adobarang.Recordset.Find "kdbrg='" & Me.DBkdbarang.Text & "'", , adSearchForward
If Not adobarang.Recordset.EOF Then
txtnmbrg.Text = adobarang.Recordset!nmbrg
txtharga.Text = adobarang.Recordset!harga
txtsatuan.Text = adobarang.Recordset!satuan
txtjumbel.SetFocus
End If
End Sub

Private Sub DBkdkasir_Change()
adokasir.Recordset.Find "kdkasir='" & Me.DBkdkasir.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
txtnmkasir.Text = adokasir.Recordset!nmkasir
End If
End Sub

Private Sub Form_Load()
Call kondisi_awal
txttgl = Date
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = txtjumbel.Text
txtharga.Text
txtubay.SetFocus
End If
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(txtubay.Text) < Val(txttobay.Text) Then
MsgBox "Uang Bayar Kurang", vbExclamation, "info"
txtubay.Text = ""
txtubay.SetFocus
Else
txtukem = txtubay.Text - txttobay.Text
txtubay.SetFocus
End If
End If
End Sub

Hasilnya akan seperti ini:












Jangan Lupa Like and Share...
Jika ada pertanyaan silakan berkomentar...
hormat saya FajarYusuf.com

Wednesday, June 15, 2016

VB6 : Database & Form Kasir (Lanjutan Form Barang)

Database & Form Kasir 

Buatlah sebuah Form Kasir dengan desain sepert dibawah ini

Form ini dibuat untuk mengelola data baik kasir atau petugas yang melayani transaksi penjualan barang. Namun Sebelum merancang form buka terlebih dahulu database penjualan yang pernah kita buat sebelumnya lalu tambahkan tabel kasir sebagai berikut :

Berikut adalah tampilan rancangan form data barang yang akan dibuat


Form Kasir diatas logika programnya hampir sama dengan Form Barang, bedanya pada Form Kasir Kode Kasirnya dapat tampil otomatis sesuai format tertentu.



Setting Properties Objeknya seperti berikut :





Listing programnya :

Sub nomor()
Dim urutan As String
Dim hitung As Integer
With adokasir.Recordset
If .RecordCount = 0 Then
urutan = "KSR01"
txtkdkasir.Text = urutan
Else
.MoveLast
hitung = Val(Right(!kdkasir, 2)) + 1
urutan = "KSR" & Right("00" & hitung, 2)
txtkdkasir.Text = urutan
End If
End With
End Sub

Sub tampil()
With adokasir.Recordset
txtkdkasir.Text = !kdkasir
txtnmksr.Text = !nmkasir
txttelp.Text = !telp
txtalamat.Text = !alamat
End With
End Sub

Sub bersih()
txtkdkasir.Text = ""
txtnmksr.Text = ""
txttelp.Text = ""
txtalamat.Text = ""
End Sub

Sub mati()
txtkdkasir.Enabled = False
txtnmksr.Enabled = False
txttelp.Enabled = False
txtalamat.Enabled = False
End Sub

Sub hidup()
txtkdkasir.Enabled = True
txtnmksr.Enabled = True
txttelp.Enabled = True
txtalamat.Enabled = True
End Sub



Private Sub cmdadd_Click()
Call nomor
Call hidup
cmdsave.Enabled = True
cmdadd.Enabled = False
cmdundo.Enabled = True
txtkdkasir.Enabled = False
txtnmksr.SetFocus
End Sub

Private Sub cmddelete_Click()
a = MsgBox("Yakin Mau Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If a = vbYes Then
adokasir.Recordset.Delete
Call mati
Call bersih
End If
End Sub

Private Sub cmdedit_Click()
Call hidup
txtkdkasir.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete = False
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdfind_Click()
adokasir.Recordset.Find "kdkasir='" & Me.txtcari.Text & "'", , adSearchForward
If Not adokasir.Recordset.EOF Then
Call tampil
Call mati
cmdadd.Enabled = False
cmdedit.Enabled = True
cmdsave.Enabled = False
txtkdkasir.Enabled = False
txtcari.Text = ""
Else
MsgBox "kode kasir tidak ada", vbInformation, "info"
txtcari.Text = ""
End If
End Sub

Private Sub cmdfirst_Click()
adokasir.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdlast_Click()
adokasir.Recordset.MoveLast
tampil
End Sub

Private Sub cmdnext_Click()
adokasir.Recordset.MoveNext
If adokasir.Recordset.EOF Then
MsgBox "DATA SUDAH DIAKHIR RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub cmdprevious_Click()
adokasir.Recordset.MovePrevious
If adokasir.Recordset.BOF Then
MsgBox "DATA SUDAH DIAWAL RECORD", vbInformation, "INFO"
adokasir.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub cmdsave_Click()
With adokasir.Recordset
adokasir.Recordset.Find "kdkasir='" & Me.txtkdkasir.Text & "'", , adSearchForward
.AddNew
If adokasir.Recordset.EOF Then
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
Else
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
End If
End With
Call mati
Call bersih
cmdsave.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdundo.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdundo_Click()
Call bersih
Call mati
cmdundo.Enabled = False
cmdadd.Enabled = True
cmdsave.Enabled = False
cmddelete.Enabled = True
End Sub

Private Sub Form_Activate()
Call mati
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdundo.Enabled = False
cmdedit.Enabled = True
jam.Caption = Time
tanggal.Caption = Date
End Sub


Private Sub txtkdkasir_Change()
txtkdkasir.MaxLength = 6
End Sub

Hasilnya akan seperti ini :


Untuk kalian yang gagal membuatnya silakan download filenya DISINI , dengan password rarnya fajaryusuf.com






Jika ada pertanyaan silakan berkomentar.

Jangan Lupa like dan share.

Bejar Pemrograman di fajaryusuf.com aja. :)

Saturday, June 11, 2016

VB6 : Database & Form Barang

Database

Pengertian Database dan Hirarki Database


Hirarki Database
  • Character Satuan Data Terkecil dalam database, dapat berupa karakter numerik (angka 0 s.d 9), huruf (A - Z, a - z) ataupun karakterkarakter khusus, seperti *, &. %, # dan lain-lain
  • Field Merupakan bagian dari record yang menunjukkan suatu item data yang sejenis
  • Record kumpulan data value dari attribute yang berkaitan sehingga dapat menjelaskan sebuah entity secara lengkap
  • File/Tabel File merupakan sesuatu yang dapat diidentifikasi dari suatu sistem database, bisa berupa objek, orang, tempat, kejadian atau konsep yang informasinya akan disimpan dalam database
  • Database Kumpulan dari tabel-tabel yang saling berelasi, disusun secara logis, sehingga menghasilkan informasi yang bernilai guna dalam proses pengambilan keputusan

Latihan Yuk!

Buatlah Tabel sesuai struktur dibawah ini dengan menggunakan Microsoft Access



Buka microsoft access kalian lalu pilih new blank database dan isi nama databasenya dengan nama latihanDbVB.


Ubah menu view lalu masukkan nama tabel dengan barang.

isi field table sesuai soal .
Selesai,..


Tuesday, May 31, 2016

VB6 : Effect Form Dan Kontrol Komponen

Effect Form Dan Kontrol Komponen

Form membuka dari kiri ke kanan

Animasi ini untuk membuka form mulai dari kiri ke kanan ketika program dijalankan. Buatlah rancangan form dibawah ini :

Isi interval Timer1 dengan :1

masukkan listing program seperti berikut pada form :

Private Sub Timer1_Timer()
Me.Width = Me.Width + 20
If Me.Width >= 9000 Then
Timer1.Enabled = False
End If
End Sub

maka yang terjadi form akan perlahan terbuka dari kiri kekanan , kecepatannya tergantung +20 jika lebih besar angkanya kecepatannya pun makin cepat , dan lebar form 9000 .




 Text Muncul Berjalan

Pada form ini, kita akan membuat animasi text berjalan. Caranya kita rancang dulu form dibawah ini kemudian ikuti langkah-langkah selanjutnya :

 masukkan listing program seperti berikut pada form :

Dim Strl As String
Dim i


Private Sub Form_Load()
Strl = "SELAMAT DATANG DI FAJARYUSUF.COM"
i = 0
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
i = i + 1
Label1 = Left(Strl, i)
If i = Len(Strl) Then
i = 1
Timer1.Interval = 3000
End If
End Sub


Hasilnya akan ada text berjalan memunculkan satu kata perkata dari kiri karena kita memakai left dan len.




Sebenarnya untuk mempelajari Efek pada Visual Basic itu kita harus paham pada interval timer karena animasi kecepatan pada setiap efek di visual basil itu tergantung pada Timer.



Jika ada pertanyaan silakan berkomentar. Jangan Lupa like dan share. Bejar Pemrograman di fajaryusuf.com aja. :)



VB6 : Array

Array

Pengertian Koleksi Objek

Objek-objek yang digunakan dalam form biasanya berdiri sendiri. Dengan demikian jika anda ingin mengubah property ke semua objek tersebut, hal tersebut menyebabkan listing menjadi panjang. Untuk itu digunakan koleksi dan array yang dapatmenghemat penulisan listing program.
Koleksi adalah suatu kumpulan kompenen yang dapat berfungsi sejalan. Hal ini sangat berguna saat akun mendefinisikan sebuah proses yang menyangkut kontrol-kontrol yang ada pada form.

Cara Mengakses Koleksi Objek

  • Koleksi Sementara : Dapat dilakukan dengan mengklik kontrol-kontrol pada form yang akan dijadikan sebagai satu grup koleksi sambil menekan tombol Ctrl. Koleksi sementara biasanya digunakan untuk memindahkan objek secara bersamaan hanya pada saat tersebut.
  • Koleksi dengan Controls : Untuk mempermudah koleksi semua objek dalam satu form digunakan property controls. sintaknya : [objek].controls . Dimana [objek] lebih umum dinyatakan sebagai nama form yang kontrol-kontrolnya dijadikan koleksi proses.

 

Array Satu Dimensi

Array adalah variabel yang berisi beberapa data sejenis. Data-data tersebut disimpan dengan nomor urut tertentu yang disebut index. Jika X adlah variable array, maka digambarkan sebagai berikut :
Variabel X
Data-1 Elemen/index ke-1
Data-2 Elemen/index ke-2
Data-3 Elemen/index ke-3
Data-n Elemen/index ke-n

Array Multi Dimensi

Array berdimensi 2 terdiri dari baris dan kolom, contohnya pada tabel atau matrik. Pendefinisiannya adalah sebagai berikut :
Dim nama_variabel (n1,n2) As tipe_variabel (n1=baris, n2=kolom)


Pembuatan Program Array

Array Satu Dimensi

Buat tampilan form seperti dibawah ini :


Settinglah nama objek dan caption objek dengan Fomat di bawah ini:



masukkan listing program seperti berikut pada form :

Private Sub Form_Load()
Dim hari(6) As String
hari(0) = "Senin"
hari(1) = "Selasa"
hari(2) = "Rabu"
hari(3) = "Kamis"
hari(4) = "Jum'at"
hari(5) = "Sabtu"
hari(6) = "Minggu"

For i = 0 To 6
MsgBox "Hari " & hari(i), , "Nama Hari"
Next i
End Sub

Penjelasan Coding :
Dim hari(6) As String ; membuat variabel hari yang berindex array 6 isi dan bertipe data String
hari(0) = "Senin" ; karna index pertama array itu angka 0 mangka index pertama dari hari adalah senin
For i = 0 To 6 ; membuat pengulangan variabel i dari 0 sampai 6
Msgbox "Hari " & hari(i),,"Nama Hari" ; Memunculkan messagebox yang bertulisan hari dan diikuti dari isi index array yang tercantum dikodingan mulai dari index 0 sampai 6.




Array Multi Dimensi

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:


masukkan listing program seperti berikut pada form :

Dim nama(10) As String
Dim nilai(5, 5) As Byte
Dim r As Byte
Dim m As Byte
Dim w As Byte
Dim i As Byte


Private Sub cmdclear_Click()
Dim ctrl As Control
For Each ctrl In Me
If TypeName(ctrl) = "ListBox" Then
ctrl.Clear
End If
Next
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdmultidimensi_Click()
List1.Clear
w = InputBox("Masukkan Jumlah Baris", "Input Baris", 0)
i = InputBox("Masukkan Jumlah Kolom", "Input Baris", 0)
For r = 1 To w
For m = 1 To i
nilai(r, m) = InputBox("Nilai Pada(" + Str(r) + "," + Str(m) + ")", "Input Nilai Matrik", 0)
Next
Next
For r = 1 To w
For m = 1 To i
List1.AddItem "Nilai(" + Str(r) + "," + Str(m) + ")=" + Str(nilai(r, m))
Next
Next
End Sub

Private Sub cmdsatudimensi_Click()
List1.Clear
m = InputBox("Masukkan Jumlah Data Teman Anda", "Input Jumlah Data", 0)
For r = 1 To m
nama(r) = InputBox("Masukkan nama teman anda yang ke-" + Str(r), "Input Jumlah Data", "Nama")
Next
For r = 1 To m
List1.AddItem UCase(nama(r))
Next r
End Sub

Private Sub Timer1_Timer()
ltgl.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
ltime.Caption = Time
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = "Array Dimensi 1(Satu)" Then
Label1.Caption = "Array Multi Dimensi"
Label1.ForeColor = &HFF&
Else
Label1.Caption = "Array Dimensi 1(Satu)"
Label1.ForeColor = &HFF0000
End If
End Sub


Penjelasan Koding :
variabel w menampung untuk pembuatan baris dan bariabel i digunakan untuk membua kolom baru.
variabel r untuk menyimpan nilai pada baris dan m nilai pada kolom.

Unuk pertanyaan koding yang lain silakan melalui komentar :)

Lalu Klik Run - Start  atau tekan f5 :
* saat di run jika kita menekan input data array satu dimensi maka kita akan memasukkan jumlah data.a dan memasukkan isi dari data tersebut
* saat kiita menekan tombol input data array multi dimensi maka kita memasukkan jumlah kolom dan baris yang akan kita buat lalu kita memasukan data-datanya.









Jika ada pertanyaan silakan berkomentar. Jangan Lupa like dan share. Bejar Pemrograman di fajaryusuf.com aja. :)

Tuesday, May 24, 2016

Module : VB6.0

Module

Pengenalan Modul Standar

Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi, subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat dalam project anda dapat menggunakan perintah Project, Add Module.


Sesaat setelah anda menambahkan module, maka pada jendela Project Explorer akan nampak Module1

Untuk melakukan koding, anda dapat melakukan double klik pada Module tersebut.


Pengunaan Modul Standar

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


  Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

textbox3 = txthasil
Ketentuan Program :
*Luas alas dan tinggi diinput, Button Hitung diklik tampil hasil pada txthasil didapat dari alas x tinggi/2, gunakan fungsi untuk menyelesaikan dan tempatkan pada module
*Button Bersih gunakan prosedur
*Button Keluar untuk keluar dari aplikasi dan tampil pesan

masukkan listing program seperti berikut pada form :

Public Sub bersih()
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then x.Text = ""
If TypeName(x) = "ListBox" Then x.Clear
Next
End Sub
Private Sub cmdbersih_Click()
Call bersih
txtalas.Text = ""
End Sub

Private Sub cmdhitung_Click()
Dim alas, tinggi As Integer
alas = Val(txtalas.Text)
tinggi = Val(txttinggi.Text)
txthasil.Text = luassegitiga(alas, tinggi)
End Sub

Private Sub cmdkeluar_Click()
If MsgBox("Mau Keluar??", vbQuestion + vbOKCancel, "message") Then End
End Sub


masukkan juga listing program seperti berikut pada modul :

Public Function luassegitiga(alas, tinggi As Integer) As Double
luassegitiga = (alas * tinggi) / 2
End Function
Penjelasan coding :
Module digunakan untuk menampung variabel-variabel public yang bisa dipanggil dalam form-form dalam satu projek.

Jika ada pertanyaan lain silakan melalu komentar :)

Lalu Klik Run - Start  atau tekan f5 :









Thursday, May 12, 2016

Latihan08 (Procedure Dan Function)

Latihan08 (Procedure Dan Function) : VB6


Procedure
Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu.

Jenis-jenis Procedure
Pada VB6 ada 4 jenis procedure, yaitu :
  • Procedure Sub - Procedure yang tidak mengembalikan nilai setelah "tugas"-nya selesai
  • Procedure Function-Procedure yang mengembalikan nilai setelah "tugas"-nya selesai.
  • Procedure Event-procedure untuk suatu event pada sebuah object. Digunakan didalam class module.
  • Procedure Property-procedure untuk mengubah (let) atau mengambil(get) nilai property pada sebuah object. Digunakan di dalam class module. Bentuk penulisan(syntax) procedur sub :
[Public | Private] Sub <nama_sub>
([<argumen>])
....
<isi procedure>
...
End Sub

Sedangkan bentuk penulisan(syntax) procedure function :
[Public | Private] Function
<nama_function ([<argumen>]) As
<tipe_data>
...
<isi procedure>
...
End Function
Penjelasan :
Pernyataan [Public | Private] menentukan ruang lingkup (scope) procedure. Sebuah procedure dengan scope public bisa digunakan dalam lingkup project. Sedangkan procedure dengan scope private hanya bisa digunakan dalam lingkup form saja.
<nama_sub> atau <nama_function> dibuat sebagai pengenal procedure untuk mengerjakan 'tugas'-nya. Sebuah procedure bisa saja memakai argumen sama sekali.
Pernyataan As<tipe_data> pada procedure function menentukan tipe data nilai yang akan dikembalikan (return value) setelah 'tugas'-nya selesai. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di-"panggil" pada bagian tertentu dari kode program. Procedure sub di-"panggil" dengan pernyataan : Call <nama_sub>([<argumen>])
Sedangkan procedure funcion bisa di-"panggil" langsung dengan menyisipkan di dalam kode program yang memanggilnya. Procedure boleh ditulis dimana saja dalam kode program, tetapi biasanya ditulis dibagian atas atau bawah agar mudah ditangani.

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


 Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

Textbox 1 namenya : txthari

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.


Ketentuaan Pengerjaan :
Pada saat program akan dijalankan pada txthari Ketikan tanggal yang akan dicari harinya dengan format dd/mm/yyyy, contoh : 11/04/2010

masukkan listing program seperti berikut :

Function Hari(tgl As Date) As String
hari_ke = Weekday(tgl, vbSunday)
Select Case hari_ke
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
End Function

Private Sub cmdproses_Click()
MsgBox "Pada Tanggal" & txthari.Text & " adalah hari " & Hari(txthari.Text), , "Hari"
txthari.SetFocus: SendKeys "{home}+{end}"
End Sub

Penjelasan Coding :
Yang Fungction intinya memanggil hari yang ada pada tanggal komputer dan diubah dalam format penulisan harinya. sunday = minggu (Case1)

MsgBoxnya menampilkan kata Pada tanggal lalu diikuti isinilai dari txthari Adalah har lalu variabel nama Hari komputer,, "Hari" adalah caption yang muncul ditextbox informasinya

Jika ada pertanyaan lain silakan melalu komentar :)

Lalu Klik Run - Start  atau tekan f5 :


















Latihan07 (Branching)

Latihan07 (Branching) : VB6

Do Loop
Ketika Visual menjalankan Do Loop ini, pertama kali akan di coba kondisinya jika kondisi false(Zero) akan diloncati semua statement yang mengikuti kondisi tersebut. Visual Basic akan menjalankan statement jika kondisi benar dan kembali ke Do...Loop berikutnya.

Bentuk Umum :
Function Faktorial
Dim Hasil As Double
Dim Count As Long
Hasil = 1
coun = 2
Do While Count <=x
     Hasil=Hasil*count
     count=count+!
Loop
Faktorial=count
End Function
 Variasi lai dari statement Do..Loop, yang menjamin minimal satu kali statement dijalankan :
Do
     Statement
Loop While<kondisi>
 Dua variasi yang analog dengan dua contoh sebelumnya adalah perulangan Minimal satu kali. Dan berikut ini adalah berulang atau tidak sama sekali :
Do Until<Kondisi>
statements
Loop
Do
statements
Loop Until<Kondisi>

For...Next
Do Loop bekerja dengan baik, ketika anda tidak tahu berapa banyak kali untuk butuhkan menjalankan statemen. Ketika anda mengetahui harus menjalankan statement sejumlah kali , bagaimana For...Next adalah pilihan yang lebih baik. Tidak seperti Do Loop, For...Next menggunakan suatu variabel yang disebut counter yang mana akan bertambah atau berkurang pada setiap perulangan.
Bentuk umumnya :
For<pencacah>=<awal>To<akhir>[step<langkah>]
Statement
Next<pencacah>
Keterangan :
Pencacah : Variabel (tipe:integer) yang digunakan untuk menyimpan angka pengulangan.
awal : Nilai awal dari pencacah
pencacah : Variabel (tipe:integer) yang digunakan untuk menyimpan angka pengulangan.
awal : Nilai awal dari pencacah
akhir : Nilai akhir dari pencacah
langkah : Perubahan nilai pencacah setiap pengulangan. Sifatnya optional(boleh ditulis/tidak), bila tidak ditulis maka nilai langkah adalah 1



While...Wend

While-Wend digunakan untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga. Berikut ini adalah statement While-Wend, yang dijalankan selama kondisi benar :
WHILE<kondisi>
            <Statements/Blok Kode Program>
WEND
Jika kondisi false(zero), maka emua <statements/blok kode program> yang mengikuti kondisi akan diloncati. Program akan menjalankan <Statements/blok kode program> jika kondisi benar, dan akan kembali ke WHILE berikutnya.



Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :



 Settinglah nama objek dan caption objek dengan Fomat di bawah ini:
cmbbox prtma namenya = cmbtgl , cmbbox kedua namenya =cmbbln , cmbbox ketiga namenya=cmbtgl ,, textbox1 dan label 2 tidak diperlukan

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.


Ketentuaan Pengerjaan :
1.ComboBox Berisi tanggal, bulan dan tahun yang akan di pilih gunakan looping untuk membuat formatnya.
2.TextBox input kata berisi data yang akan diinput dan akan diolah untuk perulangan dimana hasilnya akan ditampilkan dalam ListBox

masukkan listing program seperti berikut :
Dim i, jumlah As Variant

Private Sub cmddountil_Click()
List1.Clear
i = 1
Do Until i > 5
List1.AddItem (i)
i = i + 1
Loop
End Sub

Private Sub cmddowhile_Click()
List1.Clear
i = 10
Do While i > 6
List1.AddItem (i)
i = i - 1
Loop
End Sub

Private Sub cmdfornext_Click()
List1.Clear
Dim a As Integer
a = 1
jumlah = 0
For i = 1 To 10
List1.AddItem (i)
jumlah = jumlah + a
a = a + 2
Next
End Sub

Private Sub cmdwhilewent_Click()
List1.Clear
i = 20
While i <= 60
List1.AddItem (i)
i = i + 10
Wend
End Sub

Private Sub Form_Load()
For i = 1 To 31
Me.cmbtgl.AddItem (Str(i))
Next i

For i = 1 To 12
Me.cmbbln.AddItem (MonthName(i))
Next i

For i = 1990 To Year(Now)
Me.cmbthn.AddItem (Str(i))
Next i
End Sub

Penjelasan Coding :
For i=1990 To Year(Now) ; untuk variabel i diisi 1990 sampe tahun sekarang
Me.cmbthn.additem(Str(i)) ; cmbobox tahun di tambahkan isinya dengan nilai i ,maka isi dari cmbthn adalah 1990 sampe tahun sekarnag

Untuk pertanyaan coding yang lainnya silakan bertanya melalui komentar :)


Lalu Klik Run - Start  atau tekan f5 :

Silakan dicoba button do until, do while, for next,dan while wendnya :)













Saturday, May 7, 2016

Latihan06 (Percabangan)

Latihan06 (Percabangan) : VB6

Percabangan
Percabangan adalah pemilihan statemen pada kondisi dua pilihan atau banyak pilihan, yang akan dieksekusi selanjutnya di mana pemilihan tersebut didasarkan atas kondisi tertentu.


IF
IF...Then
Gunakan suatustruktur if...then untuk menjalankan suatu pernyataan secara kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.

Bentuk Umum :
If kondisi Then pernyataan
Atau
If kondisi Then
pernyataan
pernyataan
End if


Kondisi biasanya berupa suatu perbandingan, maupun expresi yang menghasilkan nilai numerik. Visual Basic menginterprestasikan False sebagai nol (0), dan True sebagai satu.


Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :



 Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

catatan penting : caption adalah bacaan objek yang muncul di form sedangkan name adalah identitas nama objek yang digunakan untuk pengkodingan.


Ketentuaan Pengerjaan :
Logika dari program diatas ketika diinput nilai lebih dari atau sama dengan 60(>=) maka akan menghasilkan keterangan"Anda Lulus".

masukkan listing program seperti berikut :
Private Sub cmdproses_Click()
If txtnilai.Text >= 60 Then
txtket.Text = "Anda Lulus"
End If
End Sub

Penjelasan Coding :
If txtnilai.text >=60 ; jika textbox nilai lebih atau sama dengan 60
then ; maka
txtket.text = "Anda Lulus" ; Textbox keterangan akan menampilkan Anda Lulus


Lalu Klik Run - Start  atau tekan f5 :






 If...Then...Else
Gunakan If...Then...Else untuk mendefinisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat. Visual Basic awalnya akan mencoba kondisi 1. Jika False , maka Visual Basic akan memeriksa kondisi 2, dan seterusnya sampai menemukan suatu kondisi True untuk dijalankan blok pernyataannya.

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


  Settinglah nama objek dan caption objek dengan Fomat di bawah ini:


Ketentuaan Pengerjaan :
Dari kondisi diatas jika untuk menampilkan keterngan gagal, kita cukup menambahkan kondisi yang kedua saja yaitu else

masukkan listing program seperti berikut :
Private Sub txthitung_Click()
If txtnilai.Text >= 60 Then
txtket.Text = "Anda Lulus"
Else
txtket.Text = "Anda Gagal"
End If
End Sub
 Penjelasan Coding :
If txtnilai.text >=60 ; jika textbox nilai lebih atau sama dengan 60
then ; maka
txtket.text = "Anda Lulus" ; Textbox keterangan akan menampilkan Anda Lulus
 Else ; tetapi jika tidak seperti kondisi if
 txtket.text = "Anda Gagal" ; Textbox keterangan akan menampilkan Anda Gagal

Lalu Klik Run - Start  atau tekan f5 :



  
If dalam If/Nested If
Bentuk Umum :
If kondisi ke-1 Then
If kondisi ke-2 dari If ke-1 Then
    Pernyataan ke-1
 Else 
    Pernyataan ke-2
End If
Else
If kondisi ke-2 Then
    Pernyataan ke-1
Else
    Pernyataan ke-2
 end if
End If


Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :

Settinglah nama objek dan caption objek dengan Fomat di bawah ini:


Ketentuaan Pengerjaan :
  • Saat Program dijalankan maka textbox habsen,htgs,dan huas dalam kondisi tidak aktif dan kursor berada dalam textbox txtabsen
  • Pengisian nilai berdasarkan ketentuan berikut pada saat nilai diinput:
    • habsen didapat dari 10% x nilai absen
    • htgs didapat dari 20% x nilai tugas
    • huts didapat dari 30% x nilai UTS
    • huas didapat dari 40% x nilai UAS
  • Button hitung di klik maka akan tampil total nilai, grade dan keterangan dengan ketentuan :
    • Total Nilai didapat dari habsen + htg + huts+ huas
    • Grade didapat berdasarkan ketentuan dibawah ini 
  • Button hitung di klik maka akan tampil total nilai, grade dan keterangan dengan ketentuan :
    • Total Nilai didapat dari habsen+htgs+huts+huas
    • Grade didapat berdasarkan ketentuan dibawah ini :
    •  keterangan dengan berdasarkan grade jika A atau B atau C maka keterangan "LULUS" selain itu maka akan "GAGAL"
  • Button Bersih untuk mengulang kembal
  
masukkan listing program seperti berikut : 
Private Sub cmdbersih_Click()
txtabsen.Enabled = False
txttgs.Enabled = False
txtuts.Enabled = False
txtuas.Enabled = False
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmhitung_Click()
'Menghitung Total Nilai
txttotnil = Val(habsen.Text) + Val(htgs.Text) + Val(huts.Text) + Val(huas.Text)
'menghitung grade
If txttotnil >= 80 And txttotnil <= 100 Then
txtgrade = "A"
Else
If txttotnil >= 69 And txttotnil <= 79 Then
txtgrade = "B"
Else
If txttotnil >= 56 And txttotnil <= 68 Then
txtgrade = "C"
Else
If txttotnil >= 40 And txttonil <= 55 Then
txtgrade = "D"
Else
txtgrade = "E"
End If
End If
End If
End If
'MENGHITUNG KETERANGAN
If txtgrade = "A" Or txtgrade = "B" Or txtgrade = "C" Then
txtket = "LULUS"
Else
txtket = "GAGAL"
End If
End Sub
Private Sub Form_Activate()
habsen.Enabled = False
htgs.Enabled = False
huas.Enabled = False
huts.Enabled = False
End Sub
Private Sub txtabsen_Change()
habsen = 0.1 * Val(txtabsen)
End Sub

Private Sub txttgs_Change()
htgs = 0.2 * Val(txttgs)
End Sub
Private Sub txtuas_Change()
huas = 0.4 * Val(txtuas)
End Sub
Private Sub txtuts_Change()
huts = 0.3 * Val(txtuts)
End Sub
Penjelasan Coding :
cmdbersih ; dimasukkan koding untuk membersihkan
cmd keluar ; unload me untuk keluar dari program
cmd hitung ; percabangan if untuk total nilai grade dan keterangan
habsen=0.1*val(txtabsen) ; saat nilai absen diinput nilai hasi akan terlihat dari nilai absen dikali 10

Untuk penjelasan yang lain silakan berkomentar...

Lalu Klik Run - Start  atau tekan f5 :





TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/