TUGAS DATABASE 4

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

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

Private Sub cmndkeluar_Click()
Unload Me
End Sub

Private Sub cmndproses_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
txtnourut.Text = Right(Txtnpm.Text, 3)
End Sub

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

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Combo1_Click()
Dim gp, tjng, pjk, tt As Variant
Select Case Combo1.Text
Case “I”
gp = 2500000
tjng = 250000
Case “II”
gp = 2000000
tjng = 200000
Case “III”
gp = 1500000
tjng = 150000
Text3.Text = gp
Text4.Text = tjng
pjk = Val(Text3.Text) + Val(Text4.Text) * 0.1
Text5.Text = pjk
tt = Val(Text3.Text) + Val(Text4.Text) – Val(Text5.Text)
Text6.Text = tt
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
End Sub

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

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * (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

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()
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 = “”
End Sub

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

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()

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.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

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

Gedung MK Gelap Gulita, Sidang Ditunda

DHONI SETIAWANGedung Mahkamah Konstitusi, Jakarta Pusat.

TERKAIT:

• Presiden: Atasi Banjir, Tolong Pengungsi
• Banjir, Tahanan KPK Dipastikan Aman di Basement
• Banjir, Pertemuan Presiden SBY – Presiden Argentina Tertunda
• Jakarta Barat Paling Parah Terendam Banjir
• Tol Dalam Kota Lumpuh, Sepeda Motor Masuk Tol

JAKARTA, KOMPAS.com- Akibat banjir yang melanda sejumlah tempat di Jakarta dan mengakibatkan sulitnya akses menuju pusat kota Jakarta, Mahkamah Konstitusi (MK) menunda sejumlah sidang yang semula direncanakan digelar pada pukul sembilan pagi ini, Kamis (17/1/2013).

“Sidang pukul 09.00 WIB tentang Pilkada Membramo dan Purwakarta ditunda, mengingat banjir di wilayah Jakarta yang belum surut. Sedangkan sidang pleno pukul 11.00 melihat perkembangan. Akan kami informasikan lebih lanjut,” demikian bunyi pengumuman yang disampaikan Panitera MK.

Selain itu, gedung MK gelap gulita. Listrik padam sejak pukul 09.00 Genzet yang dimiliki MK berada di basement lantai dua telah terendam. Seluruh lantai di gedung MK gelap gulita. “Kantor lumpuh total. Segedung mati semua,” ungkap karyawan MK.

Teknik komputer

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas

Belum Diperiksa

Langsung ke: navigasi, cari

Teknik komputer (disebut juga teknik sistem komputer, bahasa Inggris: computer engineering) adalah suatu disiplin khusus yang mengkombinasikan teknik elektro dan ilmu komputer. Seorang teknisi komputer adalah teknisi elektro arus lemah yang lebih berfokus pada sistem sirkuit digital, sistem komunikasi data pada frekuensi radio, dan elektronika sebagai bagian dari komputer secara menyeluruh. Dari kacamata ilmu komputer, seorang teknisi komputer adalah seorang arsitek perangkat lunak yang memiliki fokus pada interaksi antara perangkat lunak dan program serta komponen perangkat keras pendukungnya. Secara akademis, teknik komputer menekankan pada jenis mata kuliah:

• Rangkaian elektronika dan sistem digital
• mikroprosesor dan bahasa assembler
• organisasi komputer atau arsitektur komputer
• jaringan komputer dan Internet
• komputer paralel, dll

[sunting] Pranala luar

• (Inggris) Computer Engineering Conference Calendar
• (Inggris) Institute of Electrical and Electronics Engineers

Artikel bertopik ilmu pengetahuan ini adalah sebuah rintisan. Anda dapat membantu Wikipedia dengan mengembangkannya.

[sembunyikan] l • b • s Bidang utama teknologi
Ilmu terapan	Kecerdasan buatan · Teknologi keramik · Teknologi komputasi · Elektronika · Elektronika dan instrumentasi · Teknologi energi · Penyimpanan energi · Rekayasa fisika · Teknologi lingkungan · Teknik material · Mikroteknologi · Nanoteknologi · Teknologi nuklir · Rekayasa optik · Komputer quantum
Olahraga dan Rekreasi	Peralatan berkemah · Tempat bermain · Peralatan olahraga
Informasi dan Komunikasi	Teknologi informasi · Teknologi komunikasi · Grafis · Teknologi musik · Pengenalan suara · Teknologi visual
Industri	Konstruksi · Teknik finansial · Manufaktur · Mesin · Pertambangan
Militer	Bom · Senapan · Amunisi · Teknologi militer · Teknologi militer dan peralatan · Teknik kelautan · Pesawat tempur · Kapal perang · Peluru kendali · Tank
Rumah tangga	Peralatan rumah tangga · Teknologi rumah tangga · Teknologi pendidikan · Teknologi pangan
Teknik	Teknik material · Teknik finansial · Teknik kelautan · Teknik biomedis · Teknik keselamatan · Teknik kesehatan · Teknik penerbangan · Teknik perkapalan · Teknik pertanian · Teknik arsitektur · Rekayasa biologi · Teknik bioproses · Teknik biomedis · Teknik kimia · Teknik sipil · Teknik komputer · Teknik konstruksi · Teknik fisika · Teknik elektro · Teknik lingkungan · Teknik industri · Teknik mesin · Teknik mekatronika · Teknik metalurgi · Teknik pertambangan · Teknik nuklir · Teknik otomotif · Teknik perminyakan · Teknik perangkat lunak · Teknik struktur · Teknik industri · Rekayasa jaringan
Kesehatan dan Keselamatan	Teknik biomedis · Bioinformatika · Bioteknologi · Informatika kimiawi · Teknologi perlindungan kebakaran · Farmakologi · Teknik keselamatan · Teknik kesehatan
Transportasi	Angkasa luar · Teknik penerbangan · Teknik perkapalan · Kendaraan bermotor · Teknologi luar angkasa

Calon pemilih di Pilgub Jabar 2013 capai 32 juta orang

• Lihat Foto

  Calon pemilih di Pilgub Jabar 2013 capai 32 juta orang

Berita Lainnya

• 

  Istri Roy Suryo Pertimbangkan Keluar dari Mandiri

  TRIBUNnews.com

• 

  Calon Hakim Agung: Pemerkosa dan yang Diperkosa Menikmati

  TRIBUNnews.com

• 

  PKS: Gratifikasi Seks Sudah Ada Sejak Romawi Kuno

  TRIBUNnews.com

Lainnya »

MERDEKA.COM,

Komisi Pemilihan Umum (KPU) Jawa Barat menggelar rapat pleno rekapitulasi untuk menetapkan daftar pemilih tetap (DPT) tingkat provinsi. DPT itu nantinya akan digunakan dalam Pilgub Jabar nanti.

Ketua KPU Jabar, Yayat Hidayat memperkirakan jumlah DPT tidak akan jauh dari Daftar Pemilih Sementara (DPS) sebanyak 32.346.161 pemilih. Angka itu dari 26 kabupaten/kota.

“Angkanya tidak akan berubah drastis meskipun ada penambahan-penambahan, ya di sekitar 32 juta koma lah,” kata Yayat, di Kantor KPU Jabar, Bandung, Selasa (15/1).

Menurutnya, rapat ini merupakan kesempatan terakhir bagi pihak untuk melakukan penambahan daftar pemilih, terutama bagi tim kampanye calon. “Setelah ini ditetapkan tidak ada perbaikan-perbaikan lagi,” ungkapnya.

Rapat yang dimulai pukul 10.30 WIB dihadiri para komisioner KPU Jabar, KPU Kabupaten/Kota, Panwaslu Jabar dan Kabupaten/Kota, dan Tim Kampanye. Hingga kini rapat masih berlangsung dan dipimpin langsung Yayat Hidayat.

Sumber: Merdeka.com