!– Add-in CSS for syntax highlighting –>

Kamis, 30 April 2015

Pertemuan 9, 4 Mei : Program Menampilkan Nama-Nama Hari Dengan Metode Array menggunakan VB 2008

Pengertian Array

- Array adalah Kumpulan data bertipe sama yang menggunakan nama sama.
- Array adalah tipe data yang memiliki kemampuan dapat mengumpulkan beberapa data yang bertipe sama dalam satu variable sehingga dalam pembuatan terdiri dari beberapa tipe yang sama tidak membutuhkan banyak variable.
-Array dalam ilmu komputer, adalah suatu tipe data terstruktur yang dapat menyimpan banyak data dengan suatu nama yang sama dan menempati tempat di memori yang berurutan serta bertipe data sama pula.
-Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Dengan menggunakan array, sejumlah variabel dapat memakai nama yang sama. Antara satu variabel dengan variabel lain di dalam array dibedakan berdasarkan bilangan di dalam kurung siku yang dinamaka subscript.
-Array yang akan dipergunakan harus di deklarasikan terlebih dahulu. Deklarasi dari Array diawali dengan kata cadangan Array diikuti oleh tipe index yang diletakkan diantara tanda “ [ ] ” diikuti lagi oleh kata cadangan of dan tipe arraynya.

Array dapat bertipe sederhana byte, word, integer, real, boolean, char, string dan tipe scalar atau subrange.

Contoh:
Var
X : array [ 1..100 ] of integer ;
Larik X dideklarasikan sebagai larik tipe integer dengan jumlah elemen maksimum 100 elemen, dimana nilai elemen larik ini harus berisi nilai integer.
Misalkan :
X [1] : = 18 ;
X [2] : = 5 ;
Bila nilai elemen ke-1 dari larik X akan ditampilkan, dapat dipergunakan perintah :
Writeln ( x[1] ) ;


Macam-macam Array

Array Satu Dimensi
Array merupakan sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, Array berdimensi tunggal disebut juga dengan vektor, merupakan sebuah array yang terdiri dari sejumlah elemen data.

Array Dua Dimensi
Array dimensi dua, lebih dikenal dengan matriks atau tabel, adalah sekumpulan
elemen yang sejenis, dan posisi setiap elemennya ditentukan oleh dua buah subskrib yaitu
nomor baris dan nomor kolom.

Array Tiga Dimensi
Array Dimensi Banyak / Multidimensi
Array berdimensi banyak atau bisa disebut juga array Multidimensi merupakan array yang memiliki banyak buah elemen bertipe array. Dengan kata lain, array Multidimensi dimensi memiliki lebih dari satu buah subskrip, yang biasanya dipresentasikan dengan baris dan kolom.

Contoh aplikasi Array:

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Maka akan tampil form dibawah ini




3.  Klik 2x pada form1, dan isikan source code dibawah ini:

Public Class Form1

    Dim WithEvents vListArrayLama As New ListBox
    Dim WithEvents vListArrayBaru As New ListBox

    Dim vArrayLama(6) As String
    Dim vArrayBaru() As String = {"Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu"}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.vArrayLama(0) = "Senin"
        Me.vArrayLama(1) = "Selasa"
        Me.vArrayLama(2) = "Rabu"
        Me.vArrayLama(3) = "Kamis"
        Me.vArrayLama(4) = "Jumat"
        Me.vArrayLama(5) = "Sabtu"
        Me.vArrayLama(6) = "Minggu"

        Me.Controls.Add(Me.vListArrayLama)
        Me.Controls.Add(Me.vListArrayBaru)

        Me.vListArrayLama.Location = New Point(10, 10)
        Me.vListArrayBaru.Location = New Point(10, Me.vListArrayLama.Bottom + 10)

        Me.vListArrayLama.Items.AddRange(Me.vArrayLama)
        Me.vListArrayBaru.Items.AddRange(Me.vArrayBaru)
    End Sub
End Class

4.  Run Program diatas, maka akan tampil output seperti dibawah ini






! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J

Pertemuan 8, 27 april 2015 : PROGRAM MEMBUAT PROGRAM CONVERT UKURAN DENGAN METODE MDI FORM, MODULE DAN MENUS MENGGUNAKAN VB 2008


1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Desain pada Form1(Form1 diberi nama METERS)






Beberapa komponen toolbox dibutuhkan antara lain:
- 1 label
           Text : ENTER THE NUMBER OF METERS
- 1 Textbox
           Name : txtMeters
- 3 Buah button
           Button1
                     Text : CONVERT TO INCHIES
                     Name : btnConvertToInchies
           Button2
                     Text : CONVERT TO FEET
                     Name : btnConvertToFeet
           Button3
                     Text : CONVERT TO YARD
                     Name : btnConvertToYard

3. Klik 2x pada button “CONVERT TO INCHES”, dan ketik script dibawah ini

Private Sub btnConvertToInchies_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInchies.Click
Dim dblMeters As Double
Dim dblInches As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblInches = MetersToInches(dblMeters)
MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblInches.ToString() & " Inches")
Catch
MessageBox.Show("Error: Enter a number value")
End Try
End Sub

4. Klik 2x pada button “CONVERT TO FEET”, dan ketik script dibawah ini

Private Sub btnConvertToFeet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToFeet.Click
Dim dblMeters As Double
Dim dblFeet As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblFeet = MetersToFeet(dblMeters)
MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblFeet.ToString() & " Feet")
Catch
MessageBox.Show("Error: Enter a number value")
End Try
End Sub

5. Klik 2x pada button “CONVERT TO YARD”, dan ketik script dibawah ini

Private Sub btnConvertToYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToYard.Click
Dim dblMeters As Double
Dim dblYard As Double
Try
dblMeters = CDbl(txtMeters.Text)
dblYard = MetersToYard(dblMeters)
MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblYard.ToString() & " Yard")
Catch
MessageBox.Show("Error: Enter a number value")
End Try
End Sub

6. Tambahkan form2(diberi nama INCHES), dan desain dengan perintah dibawah ini





 



- 1 label
           Text : ENTER THE NUMBER OF INCHES
- 1 Textbox
           Name : txtInches
- 3 Buah button
           Button1
                     Text : CONVERT TO MILI METER
                     Name : btnConvertToMM
           Button2
                     Text : CONVERT TO CENTI METER                    
                     Name : btnConvertToCM
           Button3
                     Text : CONVERT TO METER
                     Name : btnConvertToM

7. Klik 2x pada button “CONVERT TO MILI METER”, dan ketik script dibawah ini

Private Sub btnConvertToMM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMM.Click
Dim dblInches As Double
Dim dblMiliMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblMiliMeters = InchesToMili(dblInches)
MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMiliMeters.ToString() & " MiliMeters")
Catch
MessageBox.Show("Error: Enter a number value")
End Try

8. Klik 2x pada button “CONVERT TO CENTI METER”, dan ketik script dibawah ini

Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToCM.Click
Dim dblInches As Double
Dim dblCentiMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblCentiMeters = InchesToCenti(dblInches)
MessageBox.Show(dblInches.ToString() & " Inches equals " & dblCentiMeters.ToString() & " CentiMeters")
Catch
MessageBox.Show("Error: Enter a number value")
End Try

9. Klik 2x pada button “CONVERT TO CENTI METER”, dan ketik script dibawah ini
Private Sub btnConvertToM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToM.Click
Dim dblInches As Double
Dim dblMeters As Double
Try
dblInches = CDbl(txtInches.Text)
dblMeters = InchesToMeters(dblInches)
MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMeters.ToString() & " Meters")
Catch
MessageBox.Show("Error: Enter a number value")
End Try
End Sub

10. Tambahkan MDI Form dan desain seperti dibawah ini

 



11. Kemudian copy script di bawah ini :

Private Sub PrintSetupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintSetupToolStripMenuItem.Click
METERS.Show()
End Sub

Private Sub INCHESTOMETERSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INCHESTOMETERSToolStripMenuItem.Click
INCHES.Show()
End Sub

Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click
Me.Close()
End Sub

12. Run programnya dan isi angka untuk di convert
 






13. Pada Sub menu pilih ukuran mana yang akan di convert
14. Jika Meters to english, contohnya :


 

 


15. jika Inches To Meters, Contohnya:


! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J