Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
s = Mid(txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “SistemInformasi”
ElseIf s = “2” Then
txtjurusan.Text = “tekhnikInformasi”
ElseIf s = “3” Then
txtjurusan.Text = “ManajemenInformatika”
ElseIf s = “4” Then
txtjurusan.Text = “komputerakutansi”
End If
s = Mid(txtnpm.Text, 4, 2)
If s = “01” Then
txtps.Text = “Strata Satu”
ElseIf s = “02” Then
txtps.Text = “Diploma empat”
ElseIf s = “03” Then
txtps.Text = “Diploma Tiga”
ElseIf s = “04” Then
txtps.Text = “Diploma Dua”
End If
txtnurut.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub txt_Change()

End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
Txtnpm = “”
txtjurusan = “”
txtprogramstudy = “”
txttahunmasuk = “”
txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jr, ps As String
txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
jr = “sistem informasi”
ElseIf A = “2” Then
jr = “manajemen informatika”
ElseIf A = “3” Then
jr = “teknik informatika”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
txtjurusan.Text = jr
A = Mid(Txtnpm.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
txtprogramstudy.Text = ps
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

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

Private Sub ChkBold_Click()
Label2.FontBold = ChkBold.Value
End Sub

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

Private Sub Command2_Click()
End
End Sub

Private Sub Label2_Click()

End Sub

Private Sub OptBlue_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub OptRed_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub ckbold_Click()
If ckbold.Value = 1 Then
Label1.FontBold = True
ElseIf ckbold.FontBold = 0 Then
Label1.FontBold = False
End If
End Sub

 

Private Sub ckitalic_Click()
If ckitalic.Value = 1 Then
Label1.FontItalic = True
ElseIf ckitalic.Value = 0 Then
Label1.FontItalic = False
End If
End Sub

 

Private Sub ckstriketout_Click()
If ckstriketout.Value = 1 Then
Label1.FontStrikethru = True
ElseIf ckstriketout.Value = 0 Then
Label1.FontStrikethru = False
End If
End Sub

 

Private Sub ckunderline_Click()
If ckunderline.Value = 1 Then
Label1.FontUnderline = True
ElseIf ckunderline.Value = 0 Then
Label1.FontUnderline = False
End If
End Sub

 

Private Sub cmd_Click()
Unload Me
End Sub

 

Private Sub optblue_Click()
If optblue.Value = True Then
Label1.ForeColor = vbBlue
End If
End Sub

 

Private Sub optgreen_Click()
If optgreen.Value = True Then
Label1.ForeColor = vbGreen
End If
End Sub

 

Private Sub optred_Click()
If optred.Value = True Then
Label1.ForeColor = vbRed
End If
End Sub

 

Private Sub optyellow_Click()
If optyellow.Value = True Then
Label1.ForeColor = vbYellow
End If
End Sub

 

 

 

Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

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

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

Private Sub Command4_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

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 Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

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

Private Sub Command6_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

 

 

 

 

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.Text = Val(Text1.Text) * 0.1
End If
End Sub

 

 

 

 

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
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

Si Anak Ajaib Aaron Swartz Meninggal Dunia

 

 

Ilustrasi.

Swarts mendapat banyak pujian sebagai pengarang bersama spesifikasi format Web feed RSS 1.0

“Anak ajaib” di bidang komputer dan pegiat Internet Aaron Swartz, yang membantu menciptakan versi teranyar sistem “web feed” RSS dan menghadapi dakwaan pidana federal dalam kasus kontroversial penipuan, telah bunuh diri dalam usia 26 tahun, kata pihak berwenang, Sabtu (12/1) Polisi menemukan mayat Swartz di apartemennya di Brooklyn, New York, pada Jumat, kata wanita Juru Bicara kepala pemeriksa medis di kota tersebut. Ia memutuskan kematian Swartz adalah bunuh diri dengan menggantung dirinya.

Swarts mendapat banyak pujian sebagai pengarang bersama spesifikasi format Web feed RSS 1.0, yang ia kerjakan dalam usia 14 tahun, demikian isi satu posting blog pada Sabtu dari temannya, penulis fiksi ilmiah Cory Doctorow.

RSS, kependekan dari Rich Site Summary, adalah format bagi pengiriman kepada pengguna isi dari laman yang berubah terus, seperti blog dan laman berita.

Selama bertahun-tahun, ia menjadi buah bibir daring karena membantu membuat segunung informasi maya tersedia secara gratis buat masyarakat umum, termasuk sebanyak 19 juta halaman dokumen pengadilan federal dari sistem hukum-kasus PACER.

“Informasi adalah kekuasaan. Tapi seperti juga kekuasaan, ada orang yang ingin menyimpannya buat diri mereka sendiri,” tulis Swarz di “manifesto” daring pada 2008, sebagaimana dikutip Reutes, Minggu (13/1).

“Seluruh warisan budaya dan ilmu pengetahuan dunia, yang disiarkan selama berabad-abad di dalam buku dan jurnal, makin sering didigitalkan dan dikunci oleh segelintir perusahaan swasta. Cuma mereka yang dibutakan oleh kerakusan akan menolak mengizinkan seorang teman memiliki satu salinan,” tulis Swartz.

Kepercayaan bahwa informasi mesti dibagi dan tersedia bagi kebaikan masyarakat memicu Swartz mendirikan kelompok nirlaba DemandProgress.

Kelompok tersebut berhasil melancarkan aksi untuk menghalangi pemberlakuan rancangan undang-undang pada 2011 di Parlemen AS dengan nama Stop Online Piracy Act.

Rancangan itu, yang ditarik di tengah tekanan masyarakat, mestinya telah mengizinkan pengadilan mengeluarkan perintah untuk mencegah akses ke jejaring tertentu yang dipandang melibatkan kegiatan berbagi hak intelektual secara tidak sah.

http://www.beritasatu.com/iptek-news/91610-si-anak-ajaib-aaron-swartz-meninggal-dunia.html

PC Meja Lenovo 27 Inci Berbasis Windows 8

 

 

Liputan6.com, Jakarta : Lenovo hadir dengan sesuatu yang berbeda di ajang pameran CES 2013. Produsen laptop itu memperkenalkan komputer meja (table-PC) “IdeaCentre Horizon” berukuran 27-inci.

PC meja all-in-one berbentuk flat itu diklaim Lenovo sebagai perangkat multi-user, multi-touch, multi-mode untuk pengguna rumahan yang dapat mengubah pengalaman komputasi personal menjadi pengalaman komputasi yang dipakai bersama-sama.

Ide PC ini adalah layarnya dapat dipakai oleh dua orang atau lebih pada waktu yang bersamaan serta bisa dipakai untuk ngegame. IdeaCentre Horizon adalah PC meja yang dirancang untuk keluarga, teman dan siapa pun yang ingin bermain game dengan perangkat layar sentuh.

Horizon menggunakan sistem operasi Windows 8. Untuk jeroannya, PC ini dilengkapi prosesor Intel Core i7, grafis Nvidia GeForce dan layar full HD 1080p.

PC yang bekerja dengan tenaga baterai ini memiliki tebal hanya 1,1-inci atau sekitar 2,7 cm, dengan berat 17,8 pound atau sekitar 8 kilogram. PC ini juga telah dibekali beberapa aplikasi game besutan Electronics Arts, joystick dan e-dice, Dolby Home Theatre v4 audio.

Horizon juga memiliki kickstand yang dapat diatur posisinya dari horisontal ke vertikal dan dapat disesuaikan untuk melihat / bermain dari sudut yang berbeda. Posisi horizon cocok dipakai buat bermain game multiplayer.

 

http://tekno.liputan6.com/read/482067/ini-dia-pc-meja-lenovo-27-inci-berbasis-windows-8