Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim A As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

txtnu.Text = Right(txtnpm.Text, 3)

A = Mid(txtnpm.Text, 3, 1)

If A = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf A = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf A = “3” Then

txtjur.Text = “Tehnik Komputer”

End If

A = Mid(txtnpm.Text, 4, 2)

If A = “00” Then

txtprodi.Text = “Strata1”

ElseIf A = “01” Then

txtprodi.Text = “Diploma4”

ElseIf A = “02” Then

txtprodi.Text = “Diploma3”

End If

End Sub

 

Private Sub Cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmddelete_Click()

Data1.Recordset.Delete

End Sub

 

 

 

data base

DATA BASE

tugas 2

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
Lbltext.FontBold = True
Else
Lbltext.FontBold = False
End If
End Sub
Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
Lbltext.FontItalic = True
Else
Lbltext.FontItalic = False
End If
End Sub
Private Sub Chkstrike_Click()
If Chkstrike.Value = 1 Then
Lbltext.FontStrikethru = True
Else
Lbltext.FontStrikethru = False
End If
End Sub
Private Sub chkUnder_Click()
If chkUnder.Value = 1 Then
Lbltext.FontUnderline = True
Else
Lbltext.FontUnderline = False
End If
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub Optblue_Click()
Lbltext.ForeColor = vbBlue
End Sub
Private Sub Optgreen_Click()
Lbltext.ForeColor = vbGreen
End Sub
Private Sub Optred_Click()
Lbltext.ForeColor = vbRed
End Sub
Private Sub Optyellow_Click()
Lbltext.ForeColor = vbYellow
End Sub

TUGAS 1

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 VISUAL BASIC

TUGAS 1

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

TUGAS 2

 

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

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

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

TUGAS 3

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

TUGAS 4

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 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
End Sub

Private Sub Command3_Click()
Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
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

TUGAS 5

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 Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.Text = Val(Text1.Text) * 0.1
    End If
End Sub

Kecepatan Angin di Jakarta Masih Tergolong Normal

Fahmi Firdaus – Okezone

Senin, 14 Januari 2013 03:30 wib wib

Ilustrasi (Foto: Dok. Okezone)

JAKARTA – Cuaca buruk yang melanda Jakarta dan sekitarnya beberapa hari belakangan ini, masih tergolong normal. Karena seperti diketahui, pada bulan Januari dan Februari, adalah musim hujan. Rubuhnya puluhan pohon di sejumlah ruas jalan di Jakarta disebabkan oleh angin kencang pada musim penghujan saat ini.

“Rata-rata kecepatan angin di Jakarta saat ini diantara 2-3 knot, kalau dikonversi 4 sampai 5 meter per jam, ini masih tergolong normal. Namun, kita belum mengetahui secara pasti data yang terbaru,” ujar Kepala Stasiun Dermatogi BMKG Bogor, Nuryadi, ketika berbincang dengan Okezone, Minggu (13/1/2013) malam.

Mantan Kasub Analisa Iklim BMKG ini menjelaskan, angin kencang yang merubuhkan pohon merupakan hentakan-hentakan keras yang biasa ditemui ketika musim hujan saat ini.

“Angin kencang itu hanya hentakan keras, hampir setiap tahun jika musim hujan selalu ada. Akibatnya, pohon menjadi tumbang namun kita tetap harus waspada,” imbuhnya.

Menurutnya, angin kencang di Jakarta tidak berpotensi menjadi besar seperti tornado di Amerika. Karena Indonesia merupakan negara tropis, sedangkan tornado terjadi di Negara sub tropis.

“Kita tidak berpotensi tornado atau cyclone karena kita negara tropis itu hanya melanda negara sub tropis,” tutupnya.

Sementara, Kepala Pusat Data Informasi dan Humas BNPB Sutopo melalui keterangan resminya mengatakan, hujan dan angin kencang beberapa waktu lalu menyebabkan, 81 pohon tumbang di Ibu Kota. Selain itu, angin kencang juga merusak tiga rumah, merobohkan lima papan reklame, merusak satu atap jembatan penyeberangan dan merusak sembilan mobil akibat tertimpa pohon tumbang.

(hol)

Harga Emas Antam Turun Rp 1.000/Gram di Awal Pekan

Herdaru Purnomo – detikfinance

Senin, 14/01/2013 09:15 WIB

Browser anda tidak mendukung iFrame

Jakarta – Harga emas batangan di Logam Mulia milik PT Aneka Tambang Tbk (Antam) turun di awal pekan ini. Hari ini, harga emas Antam turun tipis Rp 1.000/gram.

Dikutip dari situs Logam Mulia, Senin (14/1/2013) harga emas Antam 1 gramnya turun menjadi Rp 578.200. Padahal pada Jumat (11/1/2013) harga emas Antam 1 gramnya berada di posisi Rp 579.200.

Harga emas batangan Logam Mulia memang sangat tergantung pada pergerakan emas internasional dan juga nilai tukar rupiah terhadap dolar AS.

Sementara harga buyback atau pembelian emas jika konsumen menjual kembali ke Antam menjadi Rp 513 ribu/gram.

Berikut harga emas batangan yang dijual oleh Logam Mulia Antam hari ini:

• Pecahan 1 gram Rp 578.200
• Pecahan 5 gram Rp 2.741.500
• Pecahan 10 gram Rp 5.442.000
• Pecahan 25 gram Rp 13.530.000

(dru/ang)

KENAIKAN HARGA MINYAK

Harga Minyak Kembali Naik

Senin, 14 Januari 2013 | 09:18 WIB

Shutterstock Ilustrasi

 

TERKAIT:

• Sepekan Ini Harga Minyak Naik 0,5 Persen
• Harga Minyak Naik Ikuti Harga Emas
• Harga Minyak Masih Tertekan
• Harga Minyak Turun karena Laporan AS
• Biodiesel Solusi Sawit

MELBOURNE, KOMPAS.com – Harga minyak dunia menanjak dari level terendah dalam dua hari di New York. Data Bloomberg menunjukkan, pagi tadi, harga kontrak minyak jenis WTI untuk pengantaran Februari naik sebesar 33 sen menjadi 93,89 dollar AS per barel. Pada pukul 11.11 waktu Sydney, kontrak yang sama bertengger di posisi 93,86 dollar AS sebarel di perdagangan elektronik New York Mercantile Exchange.

Sekadar tambahan informasi, pada 11 Januari lalu, kontrak minyak menurun 26 sen menjadi 93,56 dollar AS sebarel. Ini merupakan level terendah sejak 9 Januari lalu. Harga minyak naik 0,5 persen di sepanjang pekan lalu.

Kenaikan harga minyak WTI dari level terendah dalam empat bulan terakhir terjadi setelah perbaikan rutinan pipa minyak sepanjang 500 mil atau 805 kilometer Seaway yang mengantarkan minyak dari Cushing, Oklahoma, ke Freeport, Texas selesai dilakukan.

Sebelumnya, pipa minyak ini ditutup sejak 2 Januari lalu dengan tujuan untuk meningkatkan kapasitas pengiriman minyak menjadi 400.000 barel per hari dari sebelumnya 150.000 barel per hari.

Sementara itu, harga kontrak minyak jenis Brent untuk pengantaran Februari tak banyak berubah posisi di level 110,64 dollar AS per barel di ICE Futures Europe exchange. (Barratut Taqiyyah/Kontan)