Tugas vb 2

Private Sub AKHIR_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub CETAK_Click()
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub

Private Sub Command1_Click()

Dim Cari As String
Cari = Text6.Text
If Option1.Value = True Then
With Data1.Recordset
.Index = “NPMX”
.Seek “=”, Cari

If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbOKOnly + vbInformation, “HAY”
End If
End With
ElseIf Option2.Value = True Then
With Data1.Recordset
.Index = “NAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbInformation
End If
End With
Else
With Data1.Recordset
.Index = “AGAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “maaf data yang anda cari tidak ditemukan, tolong di cek kembali!”, vbInformation
End If
End With
End If
End Sub

Private Sub Form_Activate()
SIMPAN.Enabled = False
PERBAIKAN.Enabled = True
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
Frame3.Enabled = True
Command1.Enabled = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Private Sub Form_Load()
Combo1.AddItem “Laki-laki”
Combo1.AddItem “Perempuan”
Combo2.AddItem “Islam”
Combo2.AddItem “Khatolik”
Combo2.AddItem “Protestan”
Combo2.AddItem “Hindu”
Combo2.AddItem “Budha”
Combo2.AddItem “Kong Hu Chu”
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin akan dihapus?”, vbYesNo + vbExclamation, “Perhatian”)
If perhatian = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
Else
Data1.Refresh
End If
End Sub

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Data sudah yang paling akhir!”, vbOKOnly + vbInformation, “Perhatian”
End If
End With
End Sub

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Data sudah yang paling awal!”, vbOKOnly + vbInformation, “Perhatian”
End If
End With
End Sub

Private Sub Option1_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 1400
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 2655
Command1.Enabled = True
End Sub

Private Sub Option3_Click()
Text6.Visible = True
Text6.SetFocus
Text6.Width = 1000
Command1.Enabled = True
End Sub

Private Sub perbaikan_Click()
Data1.Recordset.Edit
SIMPAN.Enabled = True
PERBAIKAN.Enabled = False
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
Frame3.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form3.Hide
End Sub

Private Sub SIMPAN_Click()
Data1.Recordset.Update
SIMPAN.Enabled = False
PERBAIKAN.Enabled = True
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
Frame3.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 8 Then
MsgBox “Maaf harus 8 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub

Private Sub AKHIR_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub CETAK_Click()
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub

Private Sub Command1_Click()
Dim Cari As String
Cari = Text4.Text
If Option1.Value = True Then
With Data1.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbOKOnly + vbInformation, “Hallo”
End If
End With
ElseIf Option2.Value = True Then
With Data1.Recordset
.Index = “NAMAX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbInformation, “Hallo”
End If
End With
Else
With Data1.Recordset
.Index = “SKSX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Maaf Data yang anda cari belum terdaftar!”, vbInformation, “Hallo”
End If
End With
End If

SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True

End Sub

Private Sub Form_Activate()
Command1.Enabled = False
SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
HAPUS.Enabled = True
SELESAI.Enabled = True
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Pastikan data yang akan anda hapus adalah benar. Jika anda yakin Klik Yes, jika tidak klik No!”, vbYesNo + vbCritical, “Perhatian”)
If perhatian = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
Else
Data1.Refresh
End If
End Sub

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Ini adalah Data yang paling akhir!”, vbInformation, “Hay!”
End If
End With
End Sub

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Ini adalah Data yang paling awal!”, vbInformation, “Hay!”
End If
End With
End Sub

Private Sub Option1_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 1400
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 1695
Command1.Enabled = True
End Sub

Private Sub Option3_Click()
Text4.Visible = True
Text4.SetFocus
Text4.Width = 615
Command1.Enabled = True
End Sub

Private Sub perbaikan_Click()
Data1.Recordset.Edit
SIMPAN.Enabled = True
HAPUS.Enabled = False
perbaikan.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form4.Hide
End Sub

Private Sub SIMPAN_Click()
Data1.Recordset.Update
SIMPAN.Enabled = False
HAPUS.Enabled = True
perbaikan.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 9 Then
MsgBox “Maaf harus 9 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
With Data1.Recordset
.Edit
.Fields!am = am.Caption
.Fields!HM = Text3.Text
.Fields!kam = kam.Caption
.Update
End With
DBGrid1.Refresh
End Sub

Private Sub Command3_Click()
Form10.Show
Form6.Hide
End Sub

Private Sub LANJUT_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Kode.Caption = “”
am.Caption = “”
kam.Caption = “”
Nama.Caption = “”
kuliah.Caption = “”
End Sub

Private Sub Selesai_Click()
Form6.Hide
Form8.Show
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
Dim Cari As String
Cari = “NPM= ‘” & Text1.Text & ” ‘ And KD_MK = ‘” & Text2.Text & “‘”
With Data1.Recordset
.FindFirst Cari
If .NoMatch Then
MsgBox “Data yang dicari tidak ada”, vbInformation + vbOKOnly, “Perhatian”
Else
Text1.Text = .Fields!npm
Text2.Text = .Fields!KD_MK
sks.Caption = .Fields!sks
Kode.Caption = .Fields!SMSTER
Nama.Caption = .Fields!NM_MHS
kuliah.Caption = .Fields!NM_MK
Text3.SetFocus
End If
End With
End If
End Sub

Private Sub Text3_Change()
Dim totalnilai, totalsks, ip As Variant
Dim mutu, beban, skam As Long
Dim HM As String
HM = Text3.Text
beban = Val(sks.Caption)
If HM = “A” Or HM = “a” Then
mutu = 4
ElseIf HM = “B” Or HM = “b” Then
mutu = 3
ElseIf HM = “C” Or HM = “c” Then
mutu = 2
ElseIf HM = “D” Or HM = “d” Then
mutu = 1
Else
mutu = 0
End If
skam = beban * mutu
am.Caption = mutu
kam.Caption = skam

End Sub

Private Sub CETAK_Click()
Form9.Show
Form5.Hide
End Sub

Private Sub Combo1_Click()
Text3.SetFocus
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
Combo1.AddItem “V”
Combo1.AddItem “VI”
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin ingin dihapus?”, vbYesNo + vbInformation, “Peringatan”)
If perhatian = vbYes Then
khs.Recordset.Delete
khs.Recordset.MoveNext
Else
khs.Refresh
End If
End Sub

Private Sub perbaikan_Click()
SIMPAN.Caption = “Simpan Ulang”
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form5.Hide
End Sub

Private Sub SIMPAN_Click()
If SIMPAN.Caption = “Simpan” Then
With khs.Recordset
.AddNew
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!SMSTER = Combo1.Text
.Update
End With
Else
With khs.Recordset
.Edit
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!smseter = Combo1.Text
.Update
End With
End If
TAMBAH.Enabled = True
SIMPAN.Enabled = False
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
PERBAIKAN.Enabled = True
End Sub

Private Sub TAMBAH_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
Label8.Caption = “”
Label9.Caption = “”
Label10.Caption = “”
Text1.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub TAMBAHKULIAH_Click()
Text2.Text = “”
Label9.Caption = “”
Label10.Caption = “”
Text2.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text1.Text
With mhs.Recordset
.Index = “NPMX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “NPM yang anda masukkan tidak terdaftar, silahkan cek NPM anda!”, vbInformation, “Perhatian”
Text1.Text = “”
Text1.SetFocus
Else
Label8.Caption = .Fields!NM_MHS
End If
End With
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text2.Text
With kuliah.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Kode yang anda masukkan tidak terdaftar, silahkan cek Kode dengan benar!”, vbInformation, “Perhatian”
Text2.Text = “”
Text2.SetFocus
Else
Label9.Caption = .Fields!NM_MK
Label10.Caption = .Fields!sks
End If
End With
End If

End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub InputMHS_Click()
Form1.Show
Form8.Hide
End Sub

Private Sub InputMK_Click()
Form2.Show
Form8.Hide
End Sub

Private Sub khs_Click()
Form6.Show
Form8.Hide
End Sub

Private Sub KRS_Click()
Form5.Show
Form8.Hide
End Sub

Private Sub mahasiswa_Click()
Form3.Show
Form8.Hide
End Sub

Private Sub MK_Click()
Form4.Show
Form8.Hide
End Sub

Private Sub Selesai_Click()
End
End Sub

Private Sub CETAK_Click()
Form9.Show
Form5.Hide
End Sub

Private Sub Combo1_Click()
Text3.SetFocus
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
Combo1.AddItem “V”
Combo1.AddItem “VI”
End Sub

Private Sub HAPUS_Click()
perhatian = MsgBox(“Yakin ingin dihapus?”, vbYesNo + vbInformation, “Peringatan”)
If perhatian = vbYes Then
khs.Recordset.Delete
khs.Recordset.MoveNext
Else
khs.Refresh
End If
End Sub

Private Sub perbaikan_Click()
SIMPAN.Caption = “Simpan Ulang”
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub Selesai_Click()
Form8.Show
Form5.Hide
End Sub

Private Sub SIMPAN_Click()
If SIMPAN.Caption = “Simpan” Then
With khs.Recordset
.AddNew
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!SMSTER = Combo1.Text
.Update
End With
Else
With khs.Recordset
.Edit
.Fields!KD_MK = Text2.Text
.Fields!npm = Text1.Text
.Fields!NM_MK = Label9.Caption
.Fields!NM_MHS = Label8.Caption
.Fields!sks = Label10.Caption
.Fields!pembimbing = Text3.Text
.Fields!smseter = Combo1.Text
.Update
End With
End If
TAMBAH.Enabled = True
SIMPAN.Enabled = False
HAPUS.Enabled = True
CETAK.Enabled = True
SELESAI.Enabled = True
PERBAIKAN.Enabled = True
End Sub

Private Sub TAMBAH_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
Label8.Caption = “”
Label9.Caption = “”
Label10.Caption = “”
Text1.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub

Private Sub TAMBAHKULIAH_Click()
Text2.Text = “”
Label9.Caption = “”
Label10.Caption = “”
Text2.SetFocus
TAMBAH.Enabled = False
SIMPAN.Enabled = True
HAPUS.Enabled = False
CETAK.Enabled = False
SELESAI.Enabled = False
PERBAIKAN.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text1.Text
With mhs.Recordset
.Index = “NPMX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “NPM yang anda masukkan tidak terdaftar, silahkan cek NPM anda!”, vbInformation, “Perhatian”
Text1.Text = “”
Text1.SetFocus
Else
Label8.Caption = .Fields!NM_MHS
End If
End With
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim Cari As String
If KeyAscii = 13 Then
Cari = Text2.Text
With kuliah.Recordset
.Index = “KODEX”
.Seek “=”, Cari
If .NoMatch Then
MsgBox “Kode yang anda masukkan tidak terdaftar, silahkan cek Kode dengan benar!”, vbInformation, “Perhatian”
Text2.Text = “”
Text2.SetFocus
Else
Label9.Caption = .Fields!NM_MK
Label10.Caption = .Fields!sks
End If
End With
End If

End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub AKHIR_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Form_Activate()
Frame1.Enabled = False
TAMBAH.Enabled = True
SIMPAN.Enabled = False
SELESAI.Enabled = True
End Sub

Private Sub Form_Load()
Combo1.AddItem “Laki-laki”
Combo1.AddItem “Perempuan”
Combo2.AddItem “Islam”
Combo2.AddItem “Khatolik”
Combo2.AddItem “Protestan”
Combo2.AddItem “Hindu”
Combo2.AddItem “Budha”
Combo2.AddItem “Kong Hu Chu”
End Sub

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Data Paling Akhir!”, vbInformation, “Perhatian”
End If
End With
End Sub

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Data Paling Awal!”, vbInformation, “Perhatian”
End If
End With
End Sub

Private Sub Selesai_Click()
Form8 .Show
Form1.Hide
End Sub

Private Sub SIMPAN_Click()
Data1.Recordset.Update
TAMBAH.Enabled = True
SIMPAN.Enabled = False
SELESAI.Enabled = True
Frame1.Enabled = False
Frame3.Enabled = True
End Sub

Private Sub TAMBAH_Click()
TAMBAH.Enabled = False
SIMPAN.Enabled = True
SELESAI.Enabled = False
Data1.Recordset.AddNew
Frame3.Enabled = False
Frame1.Enabled = True
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 8 Then
MsgBox “Maaf harus 8 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
DTPicker1.SetFocus
End If
End Sub

Private Sub TAMBAH_Click()
TAMBAH.Enabled = False
SIMPAN.Enabled = True
SELESAI.Enabled = False
Data1.Recordset.AddNew
Frame3.Enabled = False
Frame1.Enabled = True
Text1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <> 9 Then
MsgBox “Maaf harus 9 karakter”, vbOKOnly, “Error”
Text1.SetFocus
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub SIMPAN_Click()
Data1.Recordset.Update
TAMBAH.Enabled = True
SIMPAN.Enabled = False
SELESAI.Enabled = True
Frame1.Enabled = False
Frame3.Enabled = True
End Sub
Private Sub Selesai_Click()
Form8.Show
Form2.Hide
End Sub
Private Sub AWAL_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Form_Activate()
Frame1.Enabled = False
TAMBAH.Enabled = True
SIMPAN.Enabled = False
SELESAI.Enabled = True
End Sub

Private Sub MAJU_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
.MoveLast
MsgBox “Data Paling Akhir!”, vbInformation, “Perhatian”
End If
End With
End Sub

Private Sub MUNDUR_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox “Data Paling Awal!”, vbInformation, “Perhatian”
End If
End With
End Sub
Private Sub AKHIR_Click()
Data1.Recordset.MoveLast
End Sub

 

 

Data Buku STMIK Pringsewu

 

Coding :

Private Sub ccmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdbatal_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
txtkode.SetFocus
End Sub

Perkalian Dua Bilangan

 

Coding :

Private Sub Command1_Click()
Dim A, B As Double
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Keterangan Jurusan Mahasiswa

 

Code :

Private Sub Command1_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
Text3.Text = “Sistem informatika”
ElseIf s = “2” Then
Text3.Text = “Manajemen informatika”
ElseIf s = “3” Then
Text3.Text = “Tehnik informatika”
ElseIf s = “4” Then
Text3.Text = “manajemen informatika”
End If
s = Mid(Text2.Text, 2, 2)
If s = “2” Then
Text4.Text = “strata satu”
ElseIf s = “22” Then
Text4.Text = “diploma tiga”
ElseIf s = “21” Then
Text4.Text = “diploma satu”
ElseIf s = “22” Then
Text4.Text = “diploma satu”
End If
Text6.Text = Right(Text2.Text, 3)

End Sub

Huruf Mutu

 

Code :

 

Private Sub Combo1_Click()
Dim nama, jurusan As String
Select Case Combo1.Text
Case “12100333”
nama = “RINI MANDA SARI”
jurusan = “SISTEM INFORMASI”
Case “12100421”
nama = “LUCIANA RITONGA”
jurusan = “SISTEM INFORMASI”
Case “12201094”
nama = “DESPIN YULIANCE”
jurusan = “MANAJEMEN INFORMATIKA”
End Select

Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus

End Sub

Font Color And Font Style

 

Code :

Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label1.FontItalic = Check2.Value
End Sub

Aplikasi Perhitungan Gaji

 

Code :

Private Sub Command1_Click()
Dim A, B, C, D, E, F As Double
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * (0.1)
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Penghujung Tahun 2012, Windows 7 dan Windows XP Rajai Pasar Sistem Operasi

Di penghujung tahun 2012, nampaknya Microsoft masih harus terus meyakinkan para konsumen untuk segera beralih ke OS Windows 8. Hal ini terbukti dengan tingginya tingkat penjualan Windows XP dan Windows 7 di seluruh dunia.

Dari data yang diperoleh dari Net Applications di bulan Desember 2012, Windows 7 masih menjadi sistem operasi terpopuler dunia dengan prosentase pasar mencapai angka 45.11 persen. Di tempat kedua, OS Windows XP menjadi pilihan dengan prosentase sebanyak 30.08 persen.

Micromax A116 Canvas HD, Phablet Android 5 Inci Terbaru dengan Prosesor Quad Core dan Dual SIM Card Resmi Diluncurkan

Salah satu produsen perangkat elektronik asal India, Micromax baru saja meluncurkan handphone Android terbaru. Handphone tersebut termasuk dalam kategori phablet atau handphone layar besar bernama Micromax A116 Canvas HD.

Handphone ini dilengkapi dengan layar berukuran 5 inci dengan resolusi HD. Selain itu, handphone ini juga mempunyai fitur dual SIM card dan dijual dengan harga yang cukup murah, yakni sebesar 280 USD.

Samsung Galaxy S III Mini Resmi Dijual di Indonesia Seharga 3.5 Juta Rupiah

Handphone versi murah dari Galaxy S III, yakni Galaxy S III Mini akhirnya dijual secara resmi di Indonesia. Handphone ini menurut Samsung Mobile Indonesia ditujukan untuk kawula muda Indonesia dan dijual dengan harga Rp3.499.000,00.

Product Marketing Manager Mobile Division Samsung Mobile Indonesia, Egi Praditya mengatakan bahwa keberadaan handphone baru dari Samsung ini diharapkan mampu memberikan pilihan berbeda bagi generasi muda. Lebih lanjut, dia mengatakan bahwa peluncuran Galaxy S III Mini tersebut adalah upaya untuk memberikan handphone yang canggih dan agar generasi muda semakin eksis di beragam platform media sosial.