newbie318

MULTIPLE FORM, MDI FORM, dan MODULE

Multiple Form : Sebuah aplikasi window dapat memiliki lebih dari satu window (form), dan kebanyakan aplikasi memang memiliki beberapa window. Kita juga dapat menambahkan beberapa window pada aplikasi dengan menambahkan form pada project.
MDI Form : Induk dari semua Form yang ada, atau dalam arti lain adalah antarmuka pengguna khas di mana setiap dokumen dalam aplikasi ditampilkan dalam jendela anak terpisah dalam wilayah klien dari jendela utama aplikasi.
Module : Secara sederhana dapat di artikan sebagai suatu fungsi yang bersifat umum, module biasanya di mulai seperti kita menuliskan sebuah functionSelain ituModule juga berfungsi untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.

Tutorial : Contoh Penggunaan Multiple Form, MDI Form, dan Module

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain MDI form Main Menu, form Meter To English, dan form Inches To Metrics seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Enter the Number of Meters
TextBox1		txtMeters
Button1	Convert To Inches	btnConvertToInches
Button2	Convert To Feet	btnConvertToFeet
Button3	Convert To Yard	btnConvertToYard
Button4	Exit	btnExit

Tabel Properties Meters To English

Objek	Text	Name
Label1	Enter the Number of Inches
TextBox1		txtInches
Button1	Convert To Mili Meters	btnConvertToMiliMeters
Button2	Convert To Centi Meters	btnConvertToCentiMeters
Button3	Convert To Meters	btnConvertToMeters
Button4	Exit	btnExit

Tabel Properties Inches To Metrics

Langkah kelima buatlah satu buah module, lalu masukkan fungsi berikut

Langkah keenam masukkan koding berikut

1.Form Meters To English

Public Class MetersToEnglish

Private Sub btnConvertToInches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInches.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

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

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

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

2.Form Inches To Metrics

Public Class InchesToMetrics

Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMiliMeters.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
    End Sub

Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToCentiMeters.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
    End Sub

Private Sub btnConvertToMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMeters.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

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

3.MDI Form

Langkah ketujuh untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

ByVal, ByRef dan Function

ByVal dan ByRef

ByVal atau "By Value" yaitu melewatkan salinan variable ke dalam subrutin. Ketika salinan variable diubah nilainya maka variable aslinya tidak akan berubah.

ByRef atau “By Reference”. Kebalikan dari ByVal, artinya nilai variable aslinya lah yang diubah bukan salinanya.

Function

Function yaitu Sebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.

Tutorial : Contoh Penggunaan ByVal & ByRef

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
ListBox		LstOutput
Button1	Ok	btnOk
Button2	Exit	btnExit

Langkah kelima masukkan koding berikut

Public Class Form1

'memanggil prosedur DisplayMessage
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim strNama As String = "Nama Saya Roby"
        Dim strAlamat As String = "Alamat di Jl.Vyati"

lstOutput.Items.Add(strNama)
        lstOutput.Items.Add(strAlamat)
        lstOutput.Items.Add("Memanggil prosedur " & "DisplayMessage.")
        DisplayMessage(strNama, strAlamat)
        lstOutput.Items.Add("Kembali ke" & " prosedur btnOk_Click. " & strNama & ", " & strAlamat)
    End Sub

'prosedur untuk mengganti nama
    Sub DisplayMessage(ByVal strNama As String, ByVal strAlamat As String)
        strNama = "Nama saya Franki"
        strAlamat = "Alamat saya di Jl.Mawar"

lstOutput.Items.Add("")
        lstOutput.Items.Add(strNama)
        lstOutput.Items.Add(strAlamat)
        lstOutput.Items.Add("Mengganti Nama & Alamat")
        lstOutput.Items.Add("")
    End Sub

'keluar dari program
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Menggunakan ByVal

Menggunakan ByRef

Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Tutorial : Contoh Penggunaan Function untuk menghitung penjumlahan

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
GroupBox	Hitung Bilangan
Label1	Bilangan1
Label2	Bilangan2
Label3	Hasil
TextBox1		txtBil1
TextBox2		txtBil2
TextBox3		txtHasil
Button1	Hitung	btnHitung
Button2	Exit	btnExit

Langkah kelima masukkan koding berikut

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Tutorial : Membuat program untuk menghitung nilai akhir

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.

Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.

Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.

Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Absen	lblAbsen
Label2	Tugas	lblTugas
Label3	Keaktifan	lblKeaktifan
Label4	UTS	lblUTS
Label5	UAS	lblUAS
Label6	Nilai Akhir	lblNilai
Label7	Huruf	lblHuruf
Textbox1	-	txtAbsen
Textbox2	-	txtTugas
Textbox3	-	txtKeaktifan
Textbox4	-	txtUTS
Textbox5	-	txtUAS
Textbox6	-	txtNilaiAkhir
Textbox7	-	txtHuruf
Button1	Hitung	btnHitung
Button2	Clear	btnClear
Button3	Exit	btnExit

Langkah kelima masukkan koding berikut

Public Class FormNilai

Dim hasil, nilai As Integer
    Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal

Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        absen = txtAbsen.Text * (20 / 100)
        tugas = txtTugas.Text * (15 / 100)
        aktif = txtKeaktifan.Text * (10 / 100)
        uts = txtUTS.Text * (25 / 100)
        uas = txtUAS.Text * (30 / 100)
        hasil = absen + tugas + aktif + uts + uas
        txtNilaiAkhir.Text = hasil

If GradeA(hasil) Then
            txtHuruf.Text = "A"
        ElseIf GradeB(hasil) Then
            txtHuruf.Text = "B"
        ElseIf GradeC(hasil) Then
            txtHuruf.Text = "C"
        ElseIf GradeD(hasil) Then
            txtHuruf.Text = "D"
        ElseIf GradeE(hasil) Then
            txtHuruf.Text = "E"
        End If
    End Sub

Function GradeE(ByRef hasil As Integer)
        Dim nilai As Boolean

If hasil < 40 Then
            nilai = True
        Else
            nilai = False
        End If
        Return nilai
    End Function

Function GradeD(ByRef hasil As Integer)
        Dim nilai As Boolean

If hasil >= 40 Then
            nilai = True
        Else
            nilai = False
        End If
        Return nilai
    End Function

Function GradeC(ByRef hasil As Integer)
        Dim nilai As Boolean

If hasil >= 56 Then
            nilai = True
        Else
            nilai = False
        End If
        Return nilai
    End Function

Function GradeB(ByRef hasil As Integer)
        Dim nilai As Boolean

If hasil >= 70 Then
            nilai = True
        Else
            nilai = False
        End If
        Return nilai
    End Function

Function GradeA(ByRef hasil As Integer)
        Dim nilai As Boolean

If hasil >= 85 Then
            nilai = True
        Else
            nilai = False
        End If
        Return nilai
    End Function

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtAbsen.Clear()
        txtTugas.Clear()
        txtKeaktifan.Clear()
        txtUTS.Clear()
        txtUAS.Clear()
        txtNilaiAkhir.Clear()
        txtHuruf.Clear()
    End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan angka tiap tiap textbox, kemudian klik tombol Hitung, maka hasilnya akan seperti berikut.

Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear.

Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

newbie318

April 23, 2015

Pertemuan 9 | 20 April 2015 | MULTIPLE FORM, MDI FORM, dan MODULE

MULTIPLE FORM, MDI FORM, dan MODULE

Tutorial : Contoh Penggunaan Multiple Form, MDI Form, dan Module

April 02, 2015

Pertemuan 8 | 30 Maret 2015 | ByVal, ByRef dan Function

ByVal, ByRef dan Function

Tutorial : Contoh Penggunaan ByVal & ByRef

Tutorial : Contoh Penggunaan Function untuk menghitung penjumlahan

Tutorial : Membuat program untuk menghitung nilai akhir

Label

Arsip