Deskripsi latihan_4_36110036
A.
Object
label
Terdapat enam label (yang bertuliskan nama saya, tanggal lahir,
tanggal kelahiran, bulan kelahiran, tahun kelahiran, hari kelahiran).
B.
Object textbox
Terdapat lima textbox (satu status input yang digunakan
untuk memasukkan nama saya dan Empat textbox yang digunakan untuk menampilkan
hasil dari tanggal kelahiran, bulan kelahiran, tahun kelahiran, hari kelahiran).
C.
Object date timepicker
Terdapat satu date timepicker yang digunakan untuk menginput
tanggal lahir dengan nama tgl_36110036
D.
Object button
Terdapat satu object button (analisa). Button analisa
digunakan untuk menampilkan hasil dari object textbox kecuali textbox status
input. Rumus perhitungannya adalah:
1.
Tanggal kelahiran,
bulan kelahiran, tahun kelahiran, hari kelahiran merupakan hasil dari nama saya
dan tanggal lahir
E.
Script unique
Untuk button analisa:
If tgl_36110036.Value.DayOfWeek Then
hk_36110036.Text =
WeekdayName(Weekday(tgl_36110036.Value.Date), False,
FirstDayOfWeek.Sunday)
Else : hk_36110036.Text = "Minggu"
tk_36110036.Text = tgl_36110036.Value.Date
bk_36110036.Text = tgl_36110036.Value.Month
thnk_36110036.Text = tgl_36110036.Value.Year
End If
F.
Even
hitung_36110036_Click
G.
property
Property TextBox ==>
Langkah-langkah mengerjakan latihan_4_36110036
1.
Buat folder baru
dimana project akan disimpan
2.
Buka Ms. Visual Studio
3.
Klik file ==> new project
4. Ketik
nama file yang ingin disimpan
5. Kemudian
akan terbuka jendela pekerjaan Ms. Visual Studio
6. Desaign
form dengan menggunakan tools pada toolbox
7.
Buat text pada form dengan menggunakan label:
a.
Nama saya
b.
Tanggal lahir
c.
Tanggal kelahiran
d.
Bulan kelahiran
e.
Tahun kelahiran
f.
Hari kelahiran
8.
Buat kolom pada form dengan menggunakan textbox,
sebanyak empat kolom:
a.
Kolom 1 diberi nama tk_36110036
b.
Kolom 2 diberi nama bk_36110036
c.
Kolom 3 diberi nama thnk_36110036
d. Kolom 4
diberi nama hk_36110036
9. Buat satu tombol button analisa
10.
Setelah desaign selesai dibuatlah rumusnya
11.
berikut adalah rumus untuk menjalankan latihan_4_36110036
Public Class
latihan_04_36110036
Private Sub
hitung_36110036_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
hitung_36110036.Click
If tgl_36110036.Value.DayOfWeek Then
hk_36110036.Text = WeekdayName(Weekday(tgl_36110036.Value.Date), False, FirstDayOfWeek.Sunday)
Else : hk_36110036.Text = "Minggu"
tk_36110036.Text = tgl_36110036.Value.Date
bk_36110036.Text = tgl_36110036.Value.Month
thnk_36110036.Text = tgl_36110036.Value.Year
End If
End Sub
End Class
12.
setelah itu program dijalankan.

Tidak ada komentar:
Posting Komentar