latihan_03_36110056

Deskripsi latihan 03 :

Form Latihan 03 Terdapat tiga object yaitu label, textbox, dan button:

Object Label

Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya)

Object Text Box

Terdapat delapan textbox (lima status input; tiga status read only). Status input digunakan untuk memasukkan nilai

umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik. Status Read Only digunakan untuk menampilkan hasil perhitungan umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya.

Object Button

Terdapat satu object Button yaitu Kosongkan lagi. Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.

Script Unique

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

upoltek_36110056.Text=val(usd_36110056.Text)+Val(lsd_36110056.Text)+Val(lsltp_36110056.Text)+val(lslta_36110056.text)+val(Lpoltek_36110056.Text)

Mengosongkan nilai TextBox

usd_36110056.Text = “”

Even

textchanged

ButtonClick

Property

Property TextBox ReadOnly=True


form latihan 03

Tahapan penyelesaian latihan 03 :

1.      Buka project yang dibuat sebelumnya

2.      Pilih Add new item

1.      Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

2.      Buat form sesuai soal di atas menggunakan label, textbox dan button sesuai dengan cara yang sama pada latihan sebelumnya

3.      Setelah itu anda dapat mengubah nama textbox dan button seperti latihan sebelumnya

4.      Selanjutnya mengisi formula, karna formula ini hampir sama dengan latihan 1 yang membedakan adalah tidak perlu lagi button hitung untuk mengetahui jumlah keseluruhannya. Berikut formulanya :

Public Class Form3

Private Sub Lpoltek_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lpoltek_36110056.TextChanged

UPoltek_36110056.text=(val(usd_36110056.Text)+Val(lsd_36110056.Text)+Val(lsltp_36110056.Text)+val(lslta_36110056.text)+val(Lpoltek_36110056.Text))

LB_36110056.text=(val(lsd_36110056.Text)+val(lsltp_36110056.Text)+val(lslta_36110056.Text)+val(Lpoltek_36110056.Text))

LBU_36110056.text=((val(LB_36110056.text)/val(UPoltek_36110056.Text))*100)

 End Sub

  Private Sub kosong_36110056_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles kosong.Click

        usd_36110056.Text = ""
        lsd_36110056.Text = ""
        lsltp_36110056.Text = ""
        lslta_36110056.Text = ""
        lpotek_36110056.Text = ""
        upoltek_36110056.Text = ""
        LB_36110056.Text = ""
        LBU_36110056.Text = ""
    End Sub
End Class

5.      Setelah itu untuk mengujinya dapat memilih start debugging dengan cara yang sama pada latihan sebelumnya