pertemuan kedua

program 1 font style and color

 

screenshoot

WARNA

source code

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

 

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lblteks.FontStrikethru = True

Else

Lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lblteks.FontUnderline = True

Else

Lblteks.FontUnderline = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Optblue_Click()

Lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lblteks.ForeColor = vbGreen

End Sub

 

Private Sub Optred_Click()

Lblteks.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

Lblteks.ForeColor = vbYellow

End Sub

 

 

program 2

screenshoot

nama anti1

sourcecode

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

 

program 3 NPM

screenshoot

NPM ANTI

sourcecode

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case Cbonpm.Text

Case “15100107”

nama = “ADI KISWANTO”

jurusan = “PENDIDIKAN BAHASA INDONESIA”

Case “15100052”

nama = “ADITYA WIBOWO”

jurusan = “PENDIDIKAN MATEMATIKA”

Case “15100054”

nama = “AGUNG SETIAWAN”

jurusan = “PENDIDIKAN BAHASA INGGRIS”

Case “15100056”

nama = “ALFINA DAMAYANTI”

jurusan = “TEKNIK SIPIL”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “POLWAN”

Case “15100081”

nama = “ANTIA”

jurusan = “KEBIDANAN”

Case “15100086”

nama = “BAYU SANJAYA”

jurusan = “DOKTER KANDUNGAN”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “KEBIDANAN”

Case “15100217”

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “SISTEM INFORMASI”

Case “15100053”

nama = “DAVID BUDIANTO”

jurusan = “DOKTER GIGI”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “PETERNAKAN”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “PERIKANAN”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “PERTANIAN”

Case “15100045”

nama = “GILBET ALEXANDER”

jurusan = “AKUNTANSI”

Case “15100076”

nama = “GITA KUSUMAWARDANI”

jurusan = “KEBIDANAN”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “MANAJEMEN”

Case “15100044”

nama = “IRFAN NURFADULLOH”

jurusan = “TEKNIK KIMIA”

Case “15100067”

nama = “LAILA TURROHMAH”

jurusan = “TEKNIK SIPIL”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “PERAWAT”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “SISTEM INFORMASI”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “AKUNTANSI”

Case “15100050”

nama = “MARIKUN”

jurusan = “PENDIDIKAN FISIKA”

Case “15100051”

nama = “MARSYANTO”

jurusan = “MANAJEMEN”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “PENDIDIKAN PAUD”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “PGSD”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “KEPRAWATAN”

Case “15100071”

nama = “NITA MEY LINDA”

jurusan = “KEBIDANAN”

Case “15100080”

nama = “NOFIYANTI”

jurusan = “AKUNTANSI”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “MANAJEMEN”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “DOKTER GIGI”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “TEKNIK SIPIL”

Case “15100061”

nama = “RISWAN EFENDI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “PGSD”

Case “15100072”

nama = “SUSANTI”

jurusan = “BAHASA INDONESIA”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “MATEMATIKA”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “EKONOMI”

Case “15100075”

nama = “WAHYUZA FRISTA DEA”

jurusan = “DOKTER BEDAH”

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

Textquis.SetFocus

End Sub

 

Private Sub Form_Load()

Cbonpm.AddItem “15100107”

Cbonpm.AddItem “15100052”

Cbonpm.AddItem “15100054”

Cbonpm.AddItem “15100056”

Cbonpm.AddItem “15100063”

Cbonpm.AddItem “15100081”

Cbonpm.AddItem “15100086”

Cbonpm.AddItem “15100043”

Cbonpm.AddItem “15100217”

Cbonpm.AddItem “15100053”

Cbonpm.AddItem “15100058”

Cbonpm.AddItem “15100073”

Cbonpm.AddItem “15100082”

Cbonpm.AddItem “15100045”

Cbonpm.AddItem “15100076”

Cbonpm.AddItem “15100057”

Cbonpm.AddItem “15100044”

Cbonpm.AddItem “15100067”

Cbonpm.AddItem “15100066”

Cbonpm.AddItem “15100047”

Cbonpm.AddItem “15100048”

Cbonpm.AddItem “15100050”

Cbonpm.AddItem “15100051”

Cbonpm.AddItem “15100074”

Cbonpm.AddItem “15100062”

Cbonpm.AddItem “15100070”

Cbonpm.AddItem “15100071”

Cbonpm.AddItem “15100080”

Cbonpm.AddItem “15100068”

Cbonpm.AddItem “15100064”

Cbonpm.AddItem “15100079”

Cbonpm.AddItem “15100061”

Cbonpm.AddItem “15100059”

Cbonpm.AddItem “15100072”

Cbonpm.AddItem “15100069”

Cbonpm.AddItem “15100055”

Cbonpm.AddItem “15100075”

End Sub

 

 

program 4 mutu nilai

screenshoot

MUTU ANTI

sourcecode

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case Cbonpm.Text

Case “15100107”

nama = “ADI KISWANTO”

jurusan = “PENDIDIKAN BAHASA INDONESIA”

Case “15100052”

nama = “ADITYA WIBOWO”

jurusan = “PENDIDIKAN MATEMATIKA”

Case “15100054”

nama = “AGUNG SETIAWAN”

jurusan = “PENDIDIKAN BAHASA INGGRIS”

Case “15100056”

nama = “ALFINA DAMAYANTI”

jurusan = “TEKNIK SIPIL”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “POLWAN”

Case “15100081”

nama = “ANTIA”

jurusan = “KEBIDANAN”

Case “15100086”

nama = “BAYU SANJAYA”

jurusan = “DOKTER KANDUNGAN”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “KEBIDANAN”

Case “15100217”

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “SISTEM INFORMASI”

Case “15100053”

nama = “DAVID BUDIANTO”

jurusan = “DOKTER GIGI”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “PETERNAKAN”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “PERIKANAN”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “PERTANIAN”

Case “15100045”

nama = “GILBET ALEXANDER”

jurusan = “AKUNTANSI”

Case “15100076”

nama = “GITA KUSUMAWARDANI”

jurusan = “KEBIDANAN”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “MANAJEMEN”

Case “15100044”

nama = “IRFAN NURFADULLOH”

jurusan = “TEKNIK KIMIA”

Case “15100067”

nama = “LAILA TURROHMAH”

jurusan = “TEKNIK SIPIL”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “PERAWAT”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “SISTEM INFORMASI”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “AKUNTANSI”

Case “15100050”

nama = “MARIKUN”

jurusan = “PENDIDIKAN FISIKA”

Case “15100051”

nama = “MARSYANTO”

jurusan = “MANAJEMEN”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “PENDIDIKAN PAUD”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “PGSD”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “KEPRAWATAN”

Case “15100071”

nama = “NITA MEY LINDA”

jurusan = “KEBIDANAN”

Case “15100080”

nama = “NOFIYANTI”

jurusan = “AKUNTANSI”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “MANAJEMEN”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “DOKTER GIGI”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “TEKNIK SIPIL”

Case “15100061”

nama = “RISWAN EFENDI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “PGSD”

Case “15100072”

nama = “SUSANTI”

jurusan = “BAHASA INDONESIA”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “MATEMATIKA”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “EKONOMI”

Case “15100075”

nama = “WAHYUZA FRISTA DEA”

jurusan = “DOKTER BEDAH”

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

Textquis.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Textnama.Text = “”

Textjurusan.Text = “”

Textquis.Text = “”

Texttugas = “”

Textuts.Text = “”

Textuas.Text = “”

Textna.Text = “”

Texthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Textquis.Text)

TUGAS = Val(Texttugas.Text)

UTS = Val(Textuts.Text)

UAS = Val(Textuas.Text)

NA = Val(QUIS + TUGAS + UTS + UAS) / 4

Textna.Text = NA

Select Case Textna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Texthm.Text = HM

End Sub

 

 

 

Private Sub Form_Load()

Cbonpm.AddItem “15100107”

Cbonpm.AddItem “15100052”

Cbonpm.AddItem “15100054”

Cbonpm.AddItem “15100056”

Cbonpm.AddItem “15100063”

Cbonpm.AddItem “15100081”

Cbonpm.AddItem “15100086”

Cbonpm.AddItem “15100043”

Cbonpm.AddItem “15100217”

Cbonpm.AddItem “15100053”

Cbonpm.AddItem “15100058”

Cbonpm.AddItem “15100073”

Cbonpm.AddItem “15100082”

Cbonpm.AddItem “15100045”

Cbonpm.AddItem “15100076”

Cbonpm.AddItem “15100057”

Cbonpm.AddItem “15100044”

Cbonpm.AddItem “15100067”

Cbonpm.AddItem “15100066”

Cbonpm.AddItem “15100047”

Cbonpm.AddItem “15100048”

Cbonpm.AddItem “15100050”

Cbonpm.AddItem “15100051”

Cbonpm.AddItem “15100074”

Cbonpm.AddItem “15100062”

Cbonpm.AddItem “15100070”

Cbonpm.AddItem “15100071”

Cbonpm.AddItem “15100080”

Cbonpm.AddItem “15100068”

Cbonpm.AddItem “15100064”

Cbonpm.AddItem “15100079”

Cbonpm.AddItem “15100061”

Cbonpm.AddItem “15100059”

Cbonpm.AddItem “15100072”

Cbonpm.AddItem “15100069”

Cbonpm.AddItem “15100055”

Cbonpm.AddItem “15100075”

End Sub

 

 

 

Private Sub Textquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttugas.SetFocus

End If

End Sub

 

Private Sub Texttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textuts.SetFocus

End If

End Sub

 

 

 

Private Sub Textuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(Textquis.Text)

TUGAS = Val(Texttugas.Text)

UTS = Val(Textuts.Text)

UAS = Val(Textuas.Text)

NA = Val(QUIS + TUGAS + UTS + UAS) / 4

Textna.Text = NA

Select Case Textna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Texthm.Text = HM

End If

End Sub

 

Private Sub Textuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textuas.SetFocus

End If

End Sub

Advertisements
Standard

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s