WARNA HURUF

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

TUGAS WARNA

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

PROGRAM STUDI

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command4_Click()
Dim A, JS, PS, ASSTRING
Text6.Text = “20” & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “manajemen informatiaka”
ElseIf A = “3” Then
jr = “teknik informasi”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
Text4.Text = jr
A = Mid(Text2.Text, 4, 2)
If A = “00” Then
PS = “strata satu”
ElseIf A = “01” Then
PS = “diploma empat”
ElseIf A = “02” Then
PS = “diploma tiga”
ElseIf A = “03” Then
PS = “diploma dua”
End If
Text5.Text = PS
Text7.Text = Right(Text2.Text, 3)
End Sub

NIDN

Private Sub Combo1_CLICK()
Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant
Select Case Combo1.Text
Case “I”
GAPOK = 1500000
TUNJANGAN = 150000
Case “II”
GAPOK = 2000000
TUNJANGAN = 200000
Case “III”
GAPOK = 2500000
TUNJANGAN = 250000
Case “IV”
GAPOK = 3000000
TUNJANGAN = 300000
Case Else
GAPOK = 0
TUNJANGAN = 0
End Select
TOTAL = GAPOK + TUNJANGAN
PAJAK = TOTAL * 0.1
Text3.Text = GAPOK
Text4.Text = TUNJANGAN
Text5.Text = PAJAK
Text6.Text = TOTAL – PAJAK
End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

HURUF MUTU

Private Sub Combo1_CLICK()
Dim NAMA, JURUSAN As String
Select Case Combo1.Text
Case “12100113”
NAMA = “M.RIZAL SOBRI”
JURUSAN = “SISTEM INFORMASI”
Case “12201012”
NAMA = “AHMAD TOHIR”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “12300100”
NAMA = “DIAN RATNASARI”
JURUSAN = “TEKNIK INFORMATIKA”
End Select
Text1.Text = NAMA
Text2.Text = JURUSAN
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim Hm As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.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
Text8.Text = Hm
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “12100113”
Combo1.AddItem “12201012”
Combo1.AddItem “12300100”
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
Text5.SetFocus
End If
End Sub

Private Sub Text5_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Dim NA As Integer
Dim HA As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.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
Text8.Text = Hm
End If
End Sub

APLIKASI PERHITUNGAN

Private Sub Command1_Click()
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

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
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.SetFocus
End If
End Sub

DISKON 10 %

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

KALKULATOR MINI

Private Sub Cmdhitung_Click()
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 Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

PERKALIAN DUA BILANGAN

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

KELEBIHAN WINDOWS 8 DARI PADA WINDOWS 7

Kelebihan dan Keunggulan Windows 8 Terbaru Dari Windows 7

 

Windows 8 Terbaru ini sepertinya akan menjadi Operating System yang terhebat dari Microsoft Windows 8, karena Windows 8 akan memberikan perubahan besar yang pernah dilakukan oleh Microsoft setelah Windows 95, menurut Presiden Devisi Microsoft.

 

Dari tampilan Windows 8 ini saja sudah menggambarkan bahwa Windows 8  memiliki kelebihan dan keunggulan dari Sistem Operasi Windows sebelumnya, yaitu Windows 7. Belum lagi dari fitur-fitur unggulan dari Windows 8 ini yang akan membuat penggunanya menjadi betah.

 

Berikut ada beberapa Kelebihan / Keunggulan Windows 8 dibanding Windows 7 :

 

• Lebih ringan : Windows 8 lebih ringan dibandingkan Windows 7, karena memang system telah dirubah
• Task Manager lebih powerfull : Tampilan Task Manager Windows 8 lebih memukau dan sangat terlihat lengkap.
• Ribbon WE : Ada Ribbon pada windows explorer, tetapi tampilan file juga lebih banyak di WIndows 8 dari pada windows 7, dengan resolusi yang sama
• Lock Screen : Lock screen pada Windows 8 tidak menutup semua program dan dokumen, tidak seperti log off pada windows-windows sebelumnya.
• Praktis Buka Aplikasi : Untuk berpindah aplikasi, cukup rapatkan mouse kelayar sebelah kiri, jadi tidak perlu lagi ALT+TAB seperti pada Windows 7.
• Pencarian file lebih fleksibel : Fitur Pencarian pada Windows 8 lebih simpel dan fleksibel.
• Optimalkan untuk layar sentuh : Windows 7 memang telah mendukung Layar Sentuh, namun pada Windows 8 akan lebih dioptimalkan.
• Mendukung chip ARM : Windows 8 telah mendukung perangkat yang memakai infrastruktur chip ARM. Karena Kebanyakan Tamblet saat ini sudah menggunakan chip ARM.
• Mendukung NFC (Near Field Communications) : Yaitu sebuah fitur untuk melakukan transaksi keungan digital.
• Waktu boot yang singkat : Boot Windows 8 dalam demonya hanya berlangsung dalam 8 detik. Sebuah waktu yang jauh lebih singkat dibanding booting di Windows versi sebelumnya.
• Sekuriti lebih baik : Windows 8 dikatakan akan memiliki fitur sekuriti lebih baik untuk menghadang serangan cyber. Di antaranya fitur Windows Defender lebih ditingkatkan kemampuannya di OS ini.
• Windows 8 tidak membutuhkan upgrade PC : Jika anda sudah menggunakan Windows 7 sebelumnya, maka anda bisa gunakan Windows 8 ini, tanpa harus Upgrage atu bahkan ganti PC.

Jangan lupa baca juga artikel dibawah ini :

Windows

• Cara Aktivasi Windows 8 Pro Permanen with Media Center
• Cara Mengatasi Not Genuine Windows 7
• Tool Aktivasi Windows 8 Pro Build 9200
• Membuat Flashdisk Installer Windows 8
• Membuat File ISO Image Windows 7 dengan ImgBurn
• Membuat Installer Windows 7 di Flashdisk dengan Win To Flash Windows 7