TUGAS PRAKTIKUM ke-2

Nama : Eka Yunita H S

Nim : 11.11.2498

 

            Tugas kali ini saya akan membahas tentang Analisa kesalahan pada program yang telah disediakan. Didalam program ini saya akan menganalisa letak kesalahan dan pembenaran yang salah dari program-program tersebut.

Analisis Permasalahan :

SOAL 1 : Analisa Constanta

a)      Dalam listing dibawah ini menyatakan output dari  “Form Satu” yang salah dalam pendeklarasian. Penyebab erornya program terletak pada pengeksekusian alamat :

            Conts hanya dapat dan harus dideklarasikan yang hanya mewakili satu variable, dalam variable alamat telah disebutkan atau dideklarasikan terlebih dahulu. Sehingga “btalamat1” tidak memerlukan pemanggilan alamat.

            Jika tetap dibiarkan ketika program dijalankan akan eror dan langsung keluar dari proses Debug, dan muncul peringatan seperti ini :

 
Untuk pembenarannya :

Sehingga dapat menghasilkan output dengan proses sebagai berikut :

b)      Mengapa tombol nama 1 dan nama 2 mengeluarkan nama yang berbeda sedangkan alamat 1 dan alamat 2 mengerluarkan alamat yang sama?

            Karena pada cara pendeklarasian variablenya (alamat) untuk form satu yang ada pada module belum terdeklarasikan dan dalam satu form tersebut masih menggunakan constanta yang berarti hanya dan diharuskan pemanggilan (Const alamat = "Purwokerto" ) jika ingin alamat 2 muncul alamat yang berbeda seperti nama 2 maka alamat harus dikenal pada modul dan dideklarasikan pada form satu dengan listing :

Public Class frmsatu

    Const alamat = "Purwokerto"

  

   Private Sub btnama1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnama1.Click

        Dim nama As String

        nama = "Eka"              ---Nama telah dipanggil melalui Module dengan Dim yang                                       bersifat Lokal.

        txtnama.Text = nama

    End Sub

    Private Sub btnama2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnama2.Click

        txtnama.Text = nama

    End Sub

    Private Sub btalamat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalamat1.Click

        txtalamat.Text = alamat

    End Sub

    Private Sub btalamat2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalamat2.Click

        Dim alamat As String

        alamat = " Purwokerto Selatan "         ----pemanggilan alamat 2

        txtalamat.Text = alamat

    End Sub

    Private Sub bttambahumur1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambahumur1.Click

        Dim umur As Integer

        umur += 1

        txtumur.Text = umur

    End Sub

    Private Sub bttambahumur2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambahumur2.Click

        Static umur As Integer

        umur += 1

        txtumur.Text = umur

    End Sub

    Private Sub btshowform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btshowform2.Click

        frmdua.ShowDialog()

    End Sub

End Class

Output dari listing diatas untuk alamat 2 yang dimana awal output alamat 1 dan alamat 2 mengeluarkan alamat yang sama. Alamat 1 “Purwokerto” dan Alamat 2 “Purwokerto Selatan” : 

            c)         Mengapa saat ditekan button tambah umur 1 muncul angka 1, dan ketika menekan                        button tambah umur 2 bertambah 1.

           

            Sebab pada saat pemanggilan “bttambahumur2” menggunakan Static dimana static merupakan Variable yang tidak dapat berubah-ubah tanpa pendeklarasian terlebih dahulu.

 

Jika pada :

       Static umur As Integer

        umur += 1

diganti dengan angka 2 maka akan menjadi kelipatannya.

            Static umur As Integer

        umur += 2

sebab static adalah nilai yang tidak dapat berubah.

d)     Analisa untuk form dua

Option Explicit Off

Public Class frmdua

    Private Sub btnama_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnama.Click

      txtnama.Text = nama

    End Sub

    Private Sub btalamat_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btalamat.Click

      txtalamat.Text = alamat

    End Sub

    Private Sub btumur_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btumur.Click

       txtumur.Text = umur

   End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles bttutup.Click

       Me.Close()

   End Sub

End Class

                 Untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
Option Explicit Off
Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

SOAL 2  : IF dan CASE

Pembenaran Untuk Soal if dan case

            Pengkodean dalam listing ini ada satu kesalahan yang mengakibatkan pemanggilan untuk kode barang “ TAS “. Pada awal listing kode barang “TAS” tidak diinputkan seperti kode barang yang lain.untuk mempermudah mengetahui perhatikan gambar berikut :

Listing yang belum terinputnya kode barang “TAS” :

Karena belum diinputkannya kode barang TAS maka untuk pencarian atau pemanggilan kode barang untuk TAS tidak ada atau “-“.

            Ini merupakan output listing diatas untuk TAS :

SetelDan untuk pembenaran dari listing TAS yang sudah dideklarasikan sebelumnya adalah sebagai berikut beserta outputnya :

Harga pada TAS sebagai contoh.

Public Class From1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

    End Sub

    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "TAS"              Penambahan listing TAS

                harga = 250000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnamabarang.Text = namabarang

        txthargabarang.Text = harga

    End Sub

    Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged

        txttotharga.Text = Val(txthargabarang.Text) * Val(txtjmlbarang.Text)

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged

        txtdisc.Text = 0

        txtdisc.Text = Val(txttotbayar.Text) * 10 / 100

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged

        txtdisc.Text = 0

        txttotbayar.Text = Val(txttotharga.Text) - Val(txtdisc.Text)

    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txttotbayar.Clear()

        txtdisc.Clear()

        txtjmlbarang.Clear()

        txtnamabarang.Clear()

        txttotharga.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbkode.Text = ""

    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        Me.Close()

    End Sub

End Class

Tugas Praktek 1

-->

TUGAS PRAKTIKUM VISUAL STUDIO 1

Nama : Eka Yunita H S

Kelas : TI 11 C

NIM : 11.11.2498

Pembuatan program Kalkulator dan Penghitung Berat Badan Ideal

Cara pembuatan program Kalkulator

1. Buka Visual Studio 2010
2. Jalankan Visual Studio dengan New Project
3. Pilih Recent Templates - Visual Basic – Windows – Windows Forms Application.
4. Kemudian buat Form dibawah ini :
   
   
   
   
   

-->

1. Buat Objek yang terdiri dari :
   • empat label ( Masukan Angka Pertama, Masukan Angka Kedua, Hasil dan Loading ).
   • Tiga textbox ( Inputan Angka Pertama dan kedua, serta Hasil )
   • Enam buttons (Kembali Ke Menu dan proses +, -, ÷, x )

• Untuk membuat aplikasi form Kalkulator tersebut, menggunakan cara :

OBJECT	PROPERTIES	VALUE
FORM	Text	Kalkulator
Textbox1	Name	Txt1
Textbox2	Name	Txt2
Textbox3	Name	Txthasil
Label1	Text	Masukan Angka Pertama
Label2	Text	Masukan Angka Kedua
Label3	Text	Hasil
Label4	Text	Loading
Buttons1	Name	BtX
Buttons2	Name	Bt÷
Buttons3	Name	Btx^
Buttons4	Name	Bt-
Buttons5	Name	Bt+
Buttons6 ProgressBar	Cancelbutton -	BtKembali ke Menu -

Masukan perintah untuk masing-masing tombol caranya : double click pada Tombol button. Masukan listing ini :

1. Proses Perkalian ( x ) : double click pada button x

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 * angka2

Txthasil.Text = hasil

EndSub

2. Proses Pembagian ( ÷ ) : double click pada button ÷

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 / angka2

Txthasil.Text = hasil

EndSub

3. Proses Pengurangan ( - ) : double click pada button -

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 - angka2

Txthasil.Text = hasil

EndSub

4. Proses Pemangkatan ( x^ ) : double click pada button x^

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 ^ angka2

Txthasil.Text = hasil

EndSub

5. Proses Penjumlahan ( + ) : double click pada button +

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka1 + angka2

Txthasil.Text = hasil

EndSub

-->

Contoh Output dari Proses Perpangkatan, Pembagian, dan Pengurangan. 

Cara pembuatan Program Pengukur Berat Badan Ideal

Buat Form seperti yang dibawah ini, dengan menggunakan Windows Forms Application.

-->

• Untuk membuat aplikasi form Pengukur Berat Badan Ideal, menggunakan cara :

OBJECT	PROPERTIES	VALUE
FORM	Name	Penghitung Berat Badan
Textbox1	Name	Txt1
Textbox2	Name	Txt2
Textbox3	Name	Txthasil
Label1	Text	Masukan Berat Badan Anda
Label2	Text	Masukan Tinggi Badan Anda
Label3	Text	Berat Badan Ideal Anda
Buttons1	Name	btHitung
Buttons2	Cancelbutton	Button2

double click pada Tombol button Hitung. Masukan listing ini :

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Dim angka1 AsDouble

Dim angka2 AsDouble

DimhasilAsDouble

Try

angka1 = Convert.ToDouble(Txt1.Text)

Catch ex AsException

EndTry

Try

angka2 = Convert.ToDouble(txt2.Text)

Catch ex AsException

EndTry

hasil = angka2 - 110

Txthasil.Text = hasil

EndSub

Contoh Output dari Program Penghitung Berat Badan Ideal

Tampilan Menu Utama

  -->

• Pertama buatlah desain form seperti diatas, untuk tombol button1 ubah properties “text” menjadi (Kalkulator), Kemudian Button2 ubah properties “text” menjadi (Pengukur proposional berat_tinggi badan).
• Karena ini untuk 2 aplikasi buatlah 2 form lagi caranya : Klik kanan pada “windows Aplpication1” -> Add -> windows form -> Add
  

-->

Kemudian :

-->

Ulangi untuk membuat 2 Form, nantinya akan digunakan untuk aplikasi Kalkulator & pengukur berat badan.

1. Untuk memanggil form ”kalkulator” masukan perintah Pada tombol kalkulator (double click pada form pertama / halaman utama) masukan :

PrivateSub Bt2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Bt2.Click

Form2.ShowDialog()

EndSub

2. Untuk memanggil form ” Pengukur berat badan ideal ” masukan perintah Pada tombol Pengukur proposional berat_tinggi badan (double click pada form pertama / halaman utama) masukan :

PrivateSub Bt2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Bt2.Click

Form3.ShowDialog()

EndSub

Untuk Background Klik pada formnya kemudian ubah properties “BackgroundImage” Caranya :

Kemudian Pilih local resource -> import -> pilih foto atau gambar untuk background yang diinginkan -> OK

-->

NB : Background diisi sesuai keinginan Anda.