Tugas VB data base

5 Feb

Private Sub CmdProses_Click()
Dim KO As String
Dim tu, tg, gp As Currency
KO = Mid(Text11.Text, 2, 4)
Text4.Text = KO
KO = Left(Text11.Text, 1)
If KO = “A” Then
Text1.Text = KO
Text5.Text = “MANAJER”
Text7.Text = “2500000″
Text8.Text = ” 625000″
ElseIf KO = “B” Then
Text1.Text = KO
Text5.Text = “KA. SEKSI”
Text7.Text = “1600000″
Text8.Text = “375000″
ElseIf KO = “C” Then
Text1.Text = KO
Text5.Text = “STAFF”
Text7.Text = “1000000″
Text8.Text = “250000″
End If
tu = Val(Text8.Text)
gp = Val(Text7.Text)
tg = tu + gp
Text9.Text = tg
KO = Right(Text11.Text, 1)
If KO = “M” Then
Text2.Text = “M”
Text3.Text = “MENIKAH”
ElseIf KO = “S” Then
Text2.Text = “S”
Text3.Text = “SINGLE”
ElseIf KO = “D” Then
Text2.Text = “D”
Text3.Text = “DUDA”
ElseIf KO = “J” Then
Text2.Text = “J”
Text3.Text = “JANDA”
End If
KO = Mid(Text11, 6, 3)
If KO = “KEU” Then
Text6.Text = “accounting”
ElseIf KO = “ADM” Then
Text6.Text = “Administration”
ElseIf KO = “SDM” Then
Text6.Text = “Generalaffair”
ElseIf KO = ” EDP” Then
Text6.Text = ” IT Unit”
ElseIf KO = ” SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub cmdLagi_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub CmdBatal_Click()
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.AddNew
Text10.SetFocus
End Sub

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

Private Sub cmdHapus_Click()
Data1.Recordset.Delete
Data1.Refresh
End Sub

Udara dingin tewaskan puluhan orang

2 Feb

02/02/2012 10:25

Liputan6.com, London: Udara dingin tengah menyergap Eropa Timur dan menewaskan sedikitnya 89 orang. Sebelumnya, situasi serupa di Eropa Tengah dan Timur menewaskan 50 orang [baca: Eropa Membeku, 50 Orang Tewas].

di Ukraina, menurut situs NHK, Kamis (2/1), suhu turun hingga minus 33 derajat Celcius dan menewaskan 43 orang. Para korban adalah kalangan tuna wisma. Sementara hampir 800 orang lainnya dirawat di rumah sakit akibat menderita radang dingin atau hipotermia.

Di Polandia, suhu mencapai minus 30 derajat Celsius dan menewaskan 20 orang. Sementara itu, pasukan militer di Bosnia telah mengevakuasi para orang tua dari wilayah yang dilanda salju tebal menggunakan helikopter.Mereka juga mengirimkan bantuan berupa makanan, obat-obatan, dan perlengkapan lainnya, melalui jalur udara tersebut.

Melihat keaadaan ini, pihak berwenang juga telah menyiapkan sebanyak lebih dari 1.700 tempat penampungan bagi para tuna wisma di seluruh negeri. Namun, mereka terkendala masalah persediaan alat pemanas dan pakaian hangat yang minim.

Para ahli cuaca memperkirakan udara dingin itu akan terus berlanjut selama pekan ini.(SHA)

facebook targetkan miliar dolar dari wall street

2 Feb

02/02/2012 10:13 |

Liputan6.com, Washington: Raksasa jejaring sosial Facebook mengajukan dokumen untuk penawaran umum saham perdana pada Rabu (1/2), dan berupaya menghimpun lima miliar dolar AS di Wall Street dalam flotasi terbesar selama ini oleh sebuah perusahaan Internet.

Dokumen pengajuan kepada Securities and Exchange Commission (Badan Pengawas Pasar Modal) AS memberikan sekilas tentang rincian keuangan dari fenomena internet yang diluncurkan delapan tahun lalu oleh kepala eksekutif Mark Zuckerberg dari kamarnya di asrama Universitas Harvard.

Facebook mengatakan, akan mencatatkan sahamnya di Wall Street sebagai “FB” tetapi tidak menetapkan tanggal kapan sahamnya akan mulai diperdagangkan. Perusahaan yang bermarkas di Palo Alto, California itu, melaporkan laba bersih sebesar 668 juta dolar AS tahun lalu, naik dari 372 juta dolar AS tahun sebelumnya. Pendapatannya naik hampir dua kali lipat menjadi 3,7 miliar dolar AS pada 2011 dibanding tahun sebelumnya.

Dengan nilai dana yang dihimpun lima miliar dolar AS, IPO Facebook akan menjadi yang terbesar oleh perusahaan teknologi, melampaui 1,9 miliar dolar AS yang dihasilkan oleh raksasa pencarian Internet Google ketika “go public” pada 2004 pada penilaian (valuasi) 23 miliar dolar AS.

Nilai kapitalisasi pasar Facebook telah diperkirakan pada 75 miliar dolar AS hingga 100 miliar dolar AS. Dengan kapitalisasi pasar sebesar 100 miliar dolar AS akan menempatkan Facebook setara dengan McDonald (101 miliar dolar AS), jauh di depan Boeing (55 miliar dolar AS), tetapi di belakang Apple (426 miliar dolar AS) dan Google (189 miliar miliar dolar AS). (Ant/ARI)

Delapan Rocket Serang Israel

2 Feb

02/02/2012 09:25

Liputan6.com, Jalur Gaza: Delapan roket diduga dilontarkan oleh militan yang berada di Jalur Gaza ke selatan Israel, Rabu (1/2) malam. Namun misil tersebut meledak di tempat terbuka dan tak menimbulkan korban.

Menurut saksi, tujuh roket menghantam wilayah Shaar Hanagev. Sementara juru bicara militer Israel mendesak para penduduk di selatan Israel, agar pindah ke tempat yang aman untuk sementara waktu.

Hingga berita ini diturunkan, pihak berwenang belum menemukan kelompok yang berada di balik serangan itu.(SHA)

MODUL VISUAL BASIC

16 Jan

1. STATUS

Kode Program :

‘jika status single dipilih, mendapat tunjangan 50000

‘jika status menikah dipilih, maka mendapat tunjangan 80000

Private Sub Optsingle_Click()

If Optsingle.Value = 1 Then

tunjangan = 50000

End If

End Sub

2.DIALOG

Kode Program :

Private Sub cmdColor_Click()

cmdDialog.dialogtitle = “select a color”

cmdDialog.showcolor ‘display the dialog box

End Sub

 

Private Sub cmdFont_Click()

cmdDialog.dialogtitle = “font”

cmdDialog.FileName = “arial”

cmdDialog.FontBold = cdlCFBoth

cmdDialog.showfont

End Sub

 

Private Sub cmdOpen_Click()

cmdDialog.dialogtitle = “file open”

cmdDialog.Filter = “*.txt” ‘tampilkan text saja

cmdDialog.FileName = “*.txt” ‘default nama file

cmdDialog.showopen ‘menampilkan dialog open file

End Sub

Private Sub cmdPrint_Click()

cmdDialog.dialogtitle = “printer”

cmdDialog.showprinter ‘display the dialog box

End Sub

 

Private Sub cmdSave_Click()

cmdDialog.dialogtitle = “file save”

cmdDialog.Filter = “**” ‘show all files

cmdDialog.FileName = “test.txt” ‘default filename

cmdDialog.showsave ‘tringger the dialog box

End Sub

4. Font Color & font style

Kode Program :

Private Sub ChkBold_Click()

‘membuat teks tebal

If ChkBold.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

Private Sub OptRed_Click()

‘membuat teks berwarna merah

Lblteks.ForeColor = vbRed

End Sub

TUGAS VISUAL BASIC 1

20 Dec

Image

Image

Image

Image

 

TUGAS VISUAL BASIC 2

20 Dec

Image

Image

 

Image

Image

Image

Image