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. Belajar Pemrograman di fajaryusuf.com aja. :)



Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Effect Form Dan Kontrol Komponen

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.










Reviewer: FajarYusuf.Com
ItemReviewed: VB6 : Array

Monday, May 30, 2016

Latihan10 (Pembuatan Aplikasi Office Supply Order) "PART4"

Pembuatan Aplikasi Office Supply Order "PART4"

Pembuatan Form Menu Utama

1. Klik Kanan Pada Package Oso_appNew  ->  JFrame Form



2. isi Class Name : MenuUtama, setelah itu pilih Finish
3. Pada form klik kanan ->Set Layout -> Absolute Layout
4. Klik formà Properties -> CodeForm Size Policy : Generate Resize Code
5. Tambahkan JMenuBar pada Pallete Swing Menus



6. Tambahkan 2 Menu item dengan cara :
Klik kanan pada menu File, pilih Add From Pallete  ->   Menu Item



7. Klik Kanan pada JMenuItem1, pilih Edit Text, ketik LogOut
8.  Klik Kanan pada JMenuItem1, pilih Change Variable Name, Rename menjadi   mnLogout.



9. Lakukan Seperti no 7 dan 8 dengan mengatur JMenuItem2 menjadi :
Edit Text = Keluar
   Change Variable Name = mnKeluar
10. Klik kanan pada Menu Edit, pilih Edit Text, ketik Master












11. Tambahkan 4 Menu item dengan cara :
    Klik kanan pada menu File, pilih Add From Pallete   ->   Menu Item
12. Klik Kanan pada JMenuItem1, pilih Edit Text, ketik Produk
13.  Klik Kanan pada JMenuItem1, pilih Change Variable Name, Rename menjadi   mnProduk.




14. Lakukan langkah 12 dan 13 untuk jMenuItem2, jMenuItem3, dan jMenuItem4, dengan mengganti seperti dibawah ini :
- jMenuItem2, Edit Text = Pegawai, Change Variable Name = mnPegawai
- jMenuItem2, Edit Text = Supplier, Change Variable Name = mnSupplier
- jMenuItem2, Edit Text = Kategori, Change Variable Name = mnKategori

15. Klik kanan pada jMenuBar1, pilih Add Menu

16.Klik Kanan pada jMenu3, pilih Edit Text, ketik Pesanan
17.  Klik Kanan pada jMenu3, pilih Change Variable Name, Rename menjadi mnPesanan.

18. Klik Kanan pada mnLogout, pilih Events  ->  Action ->   actionPerformed



Ketik Script dibawah ini :



private void mnLogoutActionPerformed(java.awt.event.ActionEvent evt) {                                        
        // TODO add your handling code here:
this.dispose();

        Form_Login Login = new Form_Login();

        Login.setLocationRelativeTo(null);

        Login.setVisible(true);
    }  

19. Klik Kanan pada mnKeluar, pilih Events  -> Action ->   actionPerformed
Ketik Script dibawah ini :


private void mnKeluarActionPerformed(java.awt.event.ActionEvent evt) {                                        
        // TODO add your handling code here:
System.exit(0);
    }

20. Klik Kanan pada mnProduk, pilih Events   ->   Action  -> actionPerformed
Ketik Script dibawah ini :


private void mnProdukActionPerformed(java.awt.event.ActionEvent evt) {                                        
        // TODO add your handling code here:
Form_Produk produk = new Form_Produk();

        produk.setLocationRelativeTo(null);

        produk.setVisible(true);
    }

21. Klik Kanan pada mnPegawai, pilih Events  ->   Action ->    actionPerformed
Ketik Script dibawah ini :


private void mnPegawaiActionPerformed(java.awt.event.ActionEvent evt) {                                         
// TODO add your handling code here:
        Form_Pegawai pegawai = new Form_Pegawai();

        pegawai.setLocationRelativeTo(null);

        pegawai.setVisible(true);
    } 

22. Klik Kanan pada mnSupplier, pilih Events  ->    Action ->    actionPerformed
Ketik Script dibawah ini :



private void mnSupplierActionPerformed(java.awt.event.ActionEvent evt) {                                          
        // TODO add your handling code here:
        Form_Supplier supplier = new Form_Supplier();

        supplier.setLocationRelativeTo(null);

        supplier.setVisible(true);
    }

23. Klik Kanan pada mnKategori, pilih Events     -> Action  ->    actionPerformed
Ketik Script dibawah ini :


private void mnKategoriActionPerformed(java.awt.event.ActionEvent evt) {                                           
        // TODO add your handling code here:
Form_Kategori kategori = new Form_Kategori();

        kategori.setLocationRelativeTo(null);

        kategori.setVisible(true);
    }      

24. Klik Kanan pada mnPesanan, pilih Events  ->    Action  ->   actionPerformed
Ketik Script dibawah ini :


private void mnPesananActionPerformed(java.awt.event.ActionEvent evt) {                                         
        // TODO add your handling code here:
Form_Pesanan pesanan = new Form_Pesanan();

        pesanan.setLocationRelativeTo(null);

        pesanan.setVisible(true);
    }         



Selesai :)







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



MATERI JAVA NETBEANS

Untuk kalian yang baru belajar java netbeans belajarlah dari materi pertama :
Materi ke-1 : Teori Java Netbeans
Materi ke-2 : Konsep Dasar Class Object
Materi ke-3 : Encapsulation
Materi ke-4 : Pewarisan
Materi ke-5 : Polymorpishm
Materi ke-6 : JFrame dan Objek
Materi ke-7 : Operator
Materi ke-8 : Percabangan
Materi ke-9 : Perulangan
Materi ke-10 : Dasar SQL Java
Materi ke-11 : Pembuatan Aplikasi Supply Part 1
Materi ke-12 : Pembuatan Aplikasi Supply Order Part 2
Materi ke-13 : Pembuatan Aplikasi Supply Order Part 3
Materi ke-14 : Pembuatan Aplikasi Supply Order Final

Reviewer: FajarYusuf.Com
ItemReviewed: Latihan10 (Pembuatan Aplikasi Office Supply Order) "PART4"

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.