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

 

huruf mutu

Private Sub Combo1_CLICK()
Dim NAMA, JURUSAN As String
Select Case Combo1.Text
Case “12201030”
NAMA = “MARIA CAMELIA”
JURUSAN = “M.INFORMATIKA”
Case “12201012”
NAMA = “AHMAD TOHIR”
JURUSAN = “M.INFORMATIKA”
Case “12201013”
NAMA = “ARIF SURYANA”
JURUSAN = “M.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 “12201030”
Combo1.AddItem “12201012”
Combo1.AddItem “12201013”
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

 

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 tiga”
ElseIf A = “02” Then
PS = “diploma empat”
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

kalkulator mini

 

 

 

Private Sub Command1_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 Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”

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.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

perkalian dua bilangan

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

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)
End If
End Sub

Windows XP Pensiun, Banyak Perusahaan Resah

b

CALIFORNIA – Sistem operasi (OS) Microsoft, Windows XP, secara resmi akan pensiun pada April 2014. Masa pensiun Windows XP itu ternyata menimbulkan kekhawatiran bagi berbagai perusahaan di seluruh dunia karena kemungkinan tidak bisa pindah ke OS lain.

Dilansir dari Softpedia, Jumat (8/1/2013), hal itu diketahui berdasarkan survei yang dilakukan sebuah perusahaan Inggris, Avanade, dengan melibatkan 200 Direktur IT dan Chief Information Officer (CIO). Dari survei itu terungkap, 80 persen responden mengaku bahwa “kematian” Windows XP akan membuat beberapa aplikasi tidak didukung dan rentan.

Meski Microsoft mendesak semua orang untuk pindah ke OS baru, namun 43 persen petinggi perusahaan menyatakan bahwa saat ini perusahannya tidak ada rencana melakukan migrasi.

Transisi lengkap dari Windwos XP ke platform yang lebih baru diperkirakan akan memakan waktu hingga 18 bulan. Karena itu, sebagian besar perusahaan merasa khawatir dengan nasib sejumlah aplikasi pada April 2014, ketika Microsoft berhenti menyediakan pembaharuan untuk OS berusia 11 tahun itu.
(amr)

Jual Talk About / Walkie Talkie MOTOROLA MR350R

 

 

Motorola Talkabout ® MR350 adalah alat komunikasi utama untuk penggemar outdoor serius. Dengan jangkauan hingga 35 mil * dan sarat dengan setiap fitur radio mungkin, Anda tahu bahwa dengan MR350, Anda siap untuk di luar ruangan yang ekstrim. Ringan dan kasar, dengan tombol ekstra besar untuk membantu Anda beroperasi bahkan dengan sarung tangan, MR350 dibangun untuk menangani tantangan apapun tanpa membebani Anda.

TOTAL KEADAAN DARURAT
MR350 ini mencakup fitur peringatan darurat, yang memungkinkan Anda untuk menikmati melarikan diri ke luar ruangan besar dengan keyakinan bahwa orang lain dapat informasi mengenai bahaya yang mungkin datang dengan cara Anda. Ketika tombol peringatan diaktifkan, radio mentransmisikan sirene peringatan diikuti dengan transmisi suara yang diucapkan atau insidental. Hal ini memungkinkan Anda untuk mengirim sinyal ke radio lain dan memperingatkan bahaya yang akan datang. MR350 ini juga dilengkapi dengan built-in senter LED untuk ketenangan-pikiran-selama petualangan malam atau keadaan darurat tak terduga dan pemadaman listrik.

NOAA ** CUACA CHANNEL
Ingin tetap berhubungan dengan perubahan kondisi cuaca selama petualangan berkemah keluarga? Tidak perlu berhenti menyenangkan – tanda cuaca akan memberikan kelompok Anda dengan peringatan badai masuk atau kondisi berbahaya. Dan, dengan tuning ke salah satu dari 7 saluran NOAA (National Oceanic and Atmospheric Administration) pada MR350 Anda, Anda akan selalu tahu apa yang harus berkemas dengan siaran cuaca terus menerus lokal dan regional.

EXTRA DAYA KAPAN ANDA PERLU IT PALING
Push-To-Talk Power Boost, ketika diaktifkan, memungkinkan Anda untuk memperluas jangkauan transmisi dengan meningkatkan output daya pemancar sementara menghemat baterai ketika tidak meningkatkan daya diperlukan.

TANGAN-GRATIS KOMUNIKASI
Ketika Anda mendaki jejak gunung curam, Anda benar-benar perlu untuk menjaga tangan Anda bebas untuk menguatkan medan berbatu. Dengan iVOX bertindak seperti speakerphone dan memungkinkan komunikasi hands-free, Anda dapat terus bergerak tanpa berhenti untuk menjawab panggilan.

MUDAH BIAYA – 4 CARA UNTUK BIAYA
Dirancang untuk memenuhi gaya hidup setiap, MR350 memungkinkan Anda kenyamanan pengisian empat cara yang berbeda. Gunakan charger desktop yang disediakan di rumah atau mini-USB kabel mobil di jalan untuk latihan sepak bola. Pack kabel mini-USB dinding untuk mengisi ulang di hotel selama liburan keluarga Anda atau hanya biaya dari PC Anda ketika ada outlet listrik yang tersedia menggunakan kabel PC mini-USB. (Mini-USB mobil, dinding dan PC kabel dijual terpisah.)

SILENT SINYAL
The VibraCall ™ dering bergetar diam sangat berguna untuk lokasi di mana dering bisa mengganggu. Fitur ini juga besar ketika suara dari acara olahraga akan meredam nada dering Anda.

MR350R meliputi

• 2 radio
• 2 belt klip
• 1 ganda drop-in charger
• 1 adaptor pengisian
• 2 NiMH kemasan baterai dapat diisi ulang
• 1 Darurat Kesiapan checklist sheet
Tersedia dalam Hitam •

* Seberapa jauh saya harapkan radio saya untuk berkomunikasi? Jangkauan komunikasi dikutip dihitung dalam kondisi optimum, dengan garis terhalang dari pandangan. Kisaran aktual akan bervariasi tergantung pada medan dan kondisi, dan sering kurang maksimal mungkin. Rentang sebenarnya akan dibatasi oleh beberapa faktor, termasuk, namun tidak terbatas pada, medan, kondisi cuaca, interferensi elektromagnetik dan penghalang.