TUGAS

TUGAS BAHASA PEMROGRAMAN 1

TUGAS 1

SOURCE CODE TUGAS 1

Private Sub chkBold_Click()
‘Membuat teks Tebal
If chkBold.Value = 1 Then
LblTeks.FontBold = True
Else
LblTeks.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
‘Membuat teks Italic
If ChkItalic.Value = 1 Then
LblTeks.FontItalic = True
Else
LblTeks.FontItalic = False
End If
End Sub

Private Sub ChkStrike_Click()
‘Membuat teks Strikeout
If ChkStrike.Value = 1 Then
LblTeks.FontStrikethru = True
Else
LblTeks.FontStrikethru = False
End If
End Sub

Private Sub ChkUnder_Click()
‘Membuat teks Underline
If ChkUnder.Value = 1 Then
LblTeks.FontUnderline = True
Else
LblTeks.FontUnderline = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub optBlue_Click()
‘Membuat teks berwarna biru
LblTeks.ForeColor = vbBlue
End Sub

Private Sub optGreen_Click()
‘Membuat teks berwarna hijau
LblTeks.ForeColor = vbGreen
End Sub

Private Sub optYellow_Click()
‘Membuat teks berwarna kuning
LblTeks.ForeColor = vbYellow
End Sub

Private Sub ortRed_Click()
‘Membuat teks berwarna merah
LblTeks.ForeColor = vbRed
End Sub

GAMBAR TUGAS 1

TUGAS ANGGI 1

TUGAS ANGGI 1.1

TUGAS 2

SOURCE CODE TUGAS 2

Private Sub ChkMiring_Click()
ANGGI.FontItalic = ChkMiring
End Sub

Private Sub ChkTebal_Click()
ANGGI.FontBold = ChkTebal.Value
End Sub

Private Sub CmdOk_Click()
ANGGI.Caption = A.Text

End Sub

Private Sub CmdSelesai_Click()
End

End Sub

Private Sub OptBiru_Click()
ANGGI.ForeColor = vbBlue
End Sub

Private Sub OptMerah_Click()
ANGGI.ForeColor = vbRed
End Sub

GAMBAR TUGAS 2

TUGAS ANGGI 2

TUGAS ANGGI 2.1

TUGAS 3

SOURCE CODE TUGAS 3

Private Sub CboNpm_Click()
Dim Nma, Jrsan As String
Select Case CboNpm.Text
Case “15100001”
Nma = “Stevanus Prihanuji”
Jrsan = “Sistem Informasi”
Case “15100002”
Nma = “Fergiawan Listianto”
Jrsan = “Sistem Informasi”
Case “15100003”
Nma = “Renita Fitri Andriyanti”
Jrsan = “Sistem Informasi”
Case “15100004”
Nma = “Evi Setyorini”
Jrsan = “Sistem Informasi”
Case “15100005”
Nma = “Anggi Maharani”
Jrsan = “Sistem Informasi”
Case “15100006”
Nma = “Oktafiani”
Jrsan = “Sistem Informasi”
Case “15100007”
Nma = “Desi Yulianti”
Jrsan = “Sistem Informasi”
Case “15100008”
Nma = “Ahmad Yudi”
Jrsan = “Sistem Informasi”
Case “15100009”
Nma = “Opi Laraswati”
Jrsan = “Sistem Informasi”
Case “15100010”
Nma = “Laili Rizkia Putri”
Jrsan = “Sistem Informasi”
End Select
TxtNama = Nma
TxtJurusan = Jrsan
TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = “”
TxtNama.Text = “”
TxtJurusan.Text = “”
TxtNilaiQuis.Text = “”
TxtNilaiTugas.Text = “”
TxtUts.Text = “”
TxtUas.Text = “”
TxtNilaiAkhir.Text = “”
TxtHuruf.Text = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim Huruf As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Huruf = “A”
Case Is > 70
Huruf = “B”
Case Is > 60
Huruf = “C”
Case Is > 50
Huruf = “D”
Case Is < 50
Huruf = “E”
End Select
TxtHuruf = Huruf
TxtNilaiAkhir.BackColor = vbBlue
TxtHuruf.BackColor = vbBlue

End Sub

Private Sub Form_Load()
CboNpm.AddItem “15100001”
CboNpm.AddItem “15100002”
CboNpm.AddItem “15100003”
CboNpm.AddItem “15100004”
CboNpm.AddItem “15100005”
CboNpm.AddItem “15100006”
CboNpm.AddItem “15100007”
CboNpm.AddItem “15100008”
CboNpm.AddItem “15100009”
CboNpm.AddItem “15100010”
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub

GAMBAR TUGAS 3

TUGAS ANGGI 3

TUGAS ANGGI 3.1

TUGAS 4

SOURCE CODE TUGAS 4

Private Sub CboNpm_Click()
Dim Nma, Jrsan As String
Select Case CboNpm.Text
Case “15100001”
Nma = “Stevanus Prihanuji”
Jrsan = “Sistem Informasi”
Case “15100002”
Nma = “Fergiawan Listianto”
Jrsan = “Sistem Informasi”
Case “15100003”
Nma = “Renita Fitri Andriyanti”
Jrsan = “Sistem Informasi”
Case “15100004”
Nma = “Evi Setyorini”
Jrsan = “Sistem Informasi”
Case “15100005”
Nma = “Anggi Maharani”
Jrsan = “Sistem Informasi”
Case “15100006”
Nma = “Oktafiani”
Jrsan = “Sistem Informasi”
Case “15100007”
Nma = “Desi Yulianti”
Jrsan = “Sistem Informasi”
Case “15100008”
Nma = “Ahmad Yudi”
Jrsan = “Sistem Informasi”
Case “15100009”
Nma = “Opi Laraswati”
Jrsan = “Sistem Informasi”
Case “15100027”
Nma = “Laili Rizkia Putri”
Jrsan = “Sistem Informasi”
End Select
TxtNama = Nma
TxtJurusan = Jrsan
TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = “”
TxtNama.Text = “”
TxtJurusan.Text = “”
TxtNilaiQuis.Text = “”
TxtNilaiTugas.Text = “”
TxtUts.Text = “”
TxtUas.Text = “”
TxtNilaiAkhir.Text = “”
TxtHuruf.Text = “”
TxtNilaiAkhir.BackColor = vbWhite
TxtHuruf.BackColor = vbWhite
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim huruf As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
huruf = “A”
Case Is > 70
huruf = “B”
Case Is > 60
huruf = “C”
Case Is > 50
huruf = “D”
Case Is < 50
huruf = “E”
End Select
TxtHuruf = huruf
TxtNilaiAkhir.BackColor = vbBlue
TxtHuruf.BackColor = vbBlue
End Sub

Private Sub Form_Load()
CboNpm.AddItem “15100001”
CboNpm.AddItem “15100002”
CboNpm.AddItem “15100003”
CboNpm.AddItem “15100004”
CboNpm.AddItem “15100005”
CboNpm.AddItem “15100006”
CboNpm.AddItem “15100007”
CboNpm.AddItem “15100008”
CboNpm.AddItem “15100009”
CboNpm.AddItem “15100010”
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub

Private Sub TxtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim huruf As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
huruf = “A”
Case Is > 70
huruf = “B”
Case Is > 60
huruf = “C”
Case Is > 50
huruf = “D”
Case Is < 50
huruf = “E”
End Select
TxtHuruf = huruf
TxtNilaiAkhir.BackColor = vbBlue
TxtHuruf.BackColor = vbBlue
End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub

GAMBAR TUGAS 4

TUGAS ANGGI 4

TUGAS ANGGI 4.1

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s