Private Sub Form_Load()
CboNPM.AddItem “12100661”
CboNPM.AddItem “12100662”
CboNPM.AddItem “12100663”
CboNPM.AddItem “12100664”
CboNPM.AddItem “12100665”
End Sub
Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661”
Nama = “EKA ISTIANA DEWI”
Jurusan = “Sistem Informasi”
Case “12100662”
Nama = “ERIS PUTRI WAHYUNI”
Jurusan = “Manajemen Informatika”
Case “12100663”
Nama = “DEFIRA AYU WIDYA MUSTIKA”
Jurusan = “Teknisi Komputer”
Case “12100664”
Nama = “FESUS FERIYANTO”
Jurusan = “Operator Komputer”
Case “12100665”
Nama = “GAGA JERTA MAHENDRA”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
End Sub
Private Sub TxtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXtTugas.SetFocus
End If
End Sub
Private Sub TXtTugas_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
Private Sub TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA
Select Case TxtNA.Text
Case Is > 80
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End If
End Sub
Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA
Select Case TxtNA.Text
Case Is > 80
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End Sub
Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub OptRed_Click()
LblTeks.ForeColor = vbRed
End Sub
Private Sub OptGreen_Click()
LblTeks.ForeColor = vbGreen
End Sub
Private Sub OptBlue_Click()
LblTeks.ForeColor = vbBlue
End Sub
Private Sub OptWhite_Click()
LblTeks.ForeColor = vbWhite
End Sub
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 ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
LblTeks.FontUnderline = True
Else
LblTeks.FontUnderline = False
End If
End Sub
Private Sub ChkStrikethru_Click()
If ChkStrikethru.Value = 1 Then
LblTeks.FontStrikethru = True
Else
LblTeks.FontStrikethru = False
End If
End Sub
Private Sub CmdDelete_Click()
LblTeks.ForeColor = vbBlack
OptRed = False
OptGreen = False
OptBlue = False
oprwhite = False
ChkBold = False
ChkItalic = False
ChkUnderline = False
ChkStrikethru = False
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub
Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
End If
End Sub
Private Sub Txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt3.Text)
Txt5.Text = Val(Txt4.Text) * 0.1
Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)
End If
End Sub
Private Sub CmdProses_Click()
Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt3.Text)
Txt5.Text = Val(Txt4.Text) * 0.1
Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)
End Sub
Private Sub CmdHapus_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
Txt5 = “”
Txt6 = “”
End Sub
Private Sub Cmd3_Click()
End
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
Txt2.Text = Val(Txt1.Text) * 0.1
End If
End Sub
Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End If
End Sub
Private Sub CmdHitung_Click()
Txt2.Text = Val(Txt1.Text) * 0.1
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End Sub
Private Sub CmdUlangi_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
End Sub
Private Sub CmdQuit_Click()
End
End Sub
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub
Private Sub OptTambah_Click()
Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)
End Sub
Private Sub OptKurang_Click()
Txt3.Text = Val(Txt1.Text) – Val(Txt2.Text)
End Sub
Private Sub OptKali_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub
Private Sub OptBagi_Click()
Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)
End Sub
Private Sub OptBagiBilangan_Click()
Txt3.Text = Val(Txt1.Text) \ Val(Txt2.Text)
End Sub
Private Sub OptPangkat_Click()
Txt3.Text = Val(Txt1.Text) ^ Val(Txt2.Text)
End Sub
Private Sub Optand_Click()
Txt3.Text = Val(Txt1.Text) & Val(Txt2.Text)
End Sub
Private Sub OptModulus_Click()
Txt3.Text = Val(Txt1.Text) Mod Val(Txt2.Text)
End Sub
Private Sub CmdDelete_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
OptTambah = False
OptKurang = False
OptKali = False
OptBagi = False
OptBagiBilangan = False
OptPangkat = False
Optand = False
OptModulus = False
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub
Private Sub CmdHitung_Click(Index As Integer)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub CmdHapus_Click(Index As Integer)
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub
Private Sub CmdKeluar_Click(Index As Integer)
End
End Sub
KODE PROGRAM :
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub
Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
End If
End Sub
Private Sub Txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txt4.Text = Val(Txt1.Text) * Val(Txt2.Text) / Val(Txt3.Text)
End If
End Sub
Private Sub CmdHitung_Click()
Txt4.Text = Val(Txt1.Text) * Val(Txt2.Text) / Val(Txt3.Text)
End Sub
Private Sub CmdBersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
KODE PROGRAM :
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub
Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End If
End Sub
Private Sub CmdHitung_Click()
Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)
End Sub
Private Sub CmdBersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val(Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub
Private Sub CmdHitung_Click(Index As Integer)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) / Val (Text2.Text)
Text6.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub CmdLagi_Click(Index As Integer)
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub
Private Sub CmdKeluar_Click(Index As Integer)
Unload Me
End Sub
JAKARTA, RIMANEWS – Kangen Band kembali mendapat masalah. Setelah Andika dan Izzy keluar dari penjara, bukannya makin solid, mereka malah harus mengalami keretakan. Andika kini sudah tidak lagi menjadi vokalis Kangen Band. Dia keluar dari band yang sudah membesarkan namanya per 22 Juni lalu.
Menurut Dodhy, leader Kangen, Andika membuat surat yang isinya seolah-olah dia telah dikeluarkan oleh dia. Padahal, Dodhy tidak pernah membuat surat itu. “Itu suratnya dibuat sendiri oleh timnya Andika,” kata Dodhy. Permasalahan yang terjadi di antara mereka adalah Kangen Band masih memiliki utang satu album lagi dengan label Warner Music Indonesia.
“Warner bilang, kalau mau album keluar, jangan pakai Andika karena dia bermasalah. Dia nyanyi di tempat lain. Menurut Andika, dia sudah pamitan ke label. Tapi, yang saya tahu dari label, dia belum pamitan,” kata Dodhy.
Singkatnya, ternyata Andika sudah signing kontrak dengan label lain untuk solo karir. Sementara dia masih terikat kontrak sebagai band dan solo karir dengan Warner Music Indonesia. Dodhy dan personel yang lain pun akhirnya mencari pengganti Andika.
“Tadinya mau sudahan aja, nggak usah ngeband lagi. Tapi, kan masih ada kontrak. Jadi harus dijalani,” ucapnya.
Soal sikap Andika yang lalai, Dodhy dan personel lain tidak mau berspekulasi. Mereka menghargai keputusan itu.
“Mungkin dia kepepet atau butuh uang, akhirnya bekerja sama dengan orang. Kita nggak tahu keadaan dia seperti apa. Mungkin dia butuh uang untuk menghidupi diri sendiri, keluarga, dan anaknya. Biar bagaimana, dia adalah juga pendiri band ini. Dia sahabat kami,” terang Dodhy.
Head of Marketing Warner Music Indonesia Hendra Tanusaputra membenarkan soal Andika yang belum pamitan secara resmi ke label. “Secara resmi pamitan, datang ke kantor, sih belum. Tapi, memang sudah ada surat pengunduran diri atas nama Andika,” katanya.
Untuk pekerjaan dengan Kangen Band, kata Hendra, bisa tetap berjalan dengan mencari vokalis lagi. Namun, yang menjadi masalah adalah Andika melakukan pelanggaran kontrak.
“Dia masih ada kontrak untuk solo karir dengan kami. Tapi, di luar dia signing kontrak dengan label lain. Berarti itu kan sudah melanggar,” katanya lagi.
Terkait pelanggaran tersebut, pihaknya menyatakan menyerahkan kepada pengacara untuk mempelajari klausul-klausul mana yang telah dilanggar. “Kami serahkan ke lawyer. Biar dilihat dulu. Dipelajari dulu seperti apa kasusnya,” katanya.
ritadestinastmikpringsewu12 