peristiwa

JS Takanami, kapal anti-kapal selam andalan Jepang
Reporter : Mohammad Yudha Prasetya | Sabtu, 10 Januari 2015 09:05
JS Takanami, kapal anti-kapal selam andalan Jepang
Pencarian AirAsia QZ8501. ©AFP PHOTO/Pool
Figure terkait

AirAsia Berita AirAsia

Berita Terkait

Kekuatan utama tentara Laut Malaysia dikerahkan cari AirAsia Kekuatan utama tentara Laut Malaysia dikerahkan cari AirAsia
Kapal-kapal TNI AL, gugus depan pencari AirAsia di laut
Dari Kapolri sampai Fahri Hamzah kritik langkah Jonan

Merdeka.com – Dua kapal perang Jepang turut serta dalam pencarian dan evakuasi korban AirAsia QZ8501, antara lain JS Onami dan JS Takanami yang dibuat galangan kapal Mitsubishi Heavy Industries. Dua kapal ini bagian dari program Takanami Class Destroyer dan mulai dirakit pada medio 2000-2004, yang merupakan proyek lanjutan generasi sebelumnya, Murasame. Read the rest of this entry

Iklan

PROGRAM 10 (TUGAS 4)

tugas 10

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

Read the rest of this entry

PRPROGRAM 9 (TUGAS 4)

TUGAS 9

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Read the rest of this entry

PROGRAM 8 (TUGAS 4)

TUGAS 8

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Read the rest of this entry

PROGRAM 7 (TUGAS 4) rumus ENTER

TUGAS 7 ENTER

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub


Private Sub Cmdkeluar_Click()

End

End Sub


Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub


Private Sub CmdProses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

Txtprodi = “Strata Satu”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

Txtprodi = “Diploma Empat”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

Txtprodi = “Diploma Tiga”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 5)

End Sub


Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub


Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

Txtprodi = “Strata Satu”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

Txtprodi = “Diploma Empat”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

Txtprodi = “Diploma Tiga”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 5)

End If

End Sub

PROGRAM 6 (TUGAS 4) rumus PROSES

TUGAS 6 PROSES

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Read the rest of this entry

PROGRAM 5 (TUGAS 4) rumus ENTER

TUGAS 5 ENTER..

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub


Private Sub Cmdkeluar_Click()

End

End Sub


Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub


Private Sub CmdProses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtprodi = “Strata Satu”

ElseIf S = “02” Then

Txtprodi = “Diploma Empat”

ElseIf S = “03” Then

Txtprodi = “Diploma Tiga”

ElseIf S = “04” Then

Txtprodi = “Diploma Dua”

End If

TxtNu.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 Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtprodi = “Strata Satu”

ElseIf S = “02” Then

Txtprodi = “Diploma Empat”

ElseIf S = “03” Then

Txtprodi = “Diploma Tiga”

ElseIf S = “04” Then

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 3)

End If

End Sub

PROGRAM 4 (TUGAS 4) “rumus Proses”

TUGAS 4 PROSESS

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Read the rest of this entry

PROGRAM 3 (TUGAS 4)

TUGAS 3

Private Sub Cmdbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub


Read the rest of this entry

PROGRAM 2 (TUGAS 4)

TUGAS 2

Private Sub Cbokode_Click()

Dim jenis As String

Dim harga As Variant

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II 500 Mega Hz”

harga = 1500000

Case “P308”

jenis = “Pentium III 800 Mega Hz”

harga = 2100000

Case “P310”

jenis = “Pentium III 1.0 Giga Hz”

harga = 3500000

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

harga = 4000000

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz”

harga = 4200000

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

harga = 5500000

End Select Read the rest of this entry

PROGRAM 1 (TUGAS 4)

TUGAS 1

Private Sub CboKode_Click()

Dim MT, HS_Asvariant

Select Case CboKode.Text

Case “Apple MC665 MacBookAir”

MT = “ApleMacbookAirMc665”

hs = “12800000”

Case “Apple MC666 MacBookAir”

MT = “ApleMacbookAirMc666”

hs = “15800000”

Case “Apple MC668 MacBookAir”

MT = “ApleMacbookAirMc668”

hs = “9900000”

Case “Apple MC669 MacBookAir”

MT = “ApleMacbookAirMc669”

hs = “11900000”

Case “Apple MC700 MacBookPro”

MT = “ApleMacbookProMc700”

hs = “10800000”

Case “Apple MC721 MacBooPro”

MT = “ApleMacbookProMC721”

hs = “15900000”

Case “Apple MC723 MacBookPro”

MT = “ApleMacbookProMc723”

hs = “19300000”

Case “Apple MC724 MacBookPro”

MT = “ApleMacbookProMc724”

hs = “13700000”

Case “Apple MC311 MacBookPro”

MT = “ApleMacbookProMc311”

hs = “24200000”

Case “Apple MC313 MacBookPro”

MT = “ApleMacbookProMc313”

hs = “11900000”

Case “Apple MC314 MacBookPro”

MT = “ApleMacbookProMc314”

hs = “14700000”

Case “Apple MC318 MacBookPro”

MT = “ApleMacbookProMc318”

hs = “17600000”

Case “Apple MC322 MacBookPro”

MT = “ApleMacbookProMc322”

hs = “21300000”

Case “Apple MC965 MacBooAir”

MT = “ApleMacbookAirMC965”

hs = “12800000”

Case “Apple MC966 MacBookAir”

MT = “ApleMacbookAirMc966”

hs = “15800000”

Case Else

MT = 0

hs = 0

End Select

TxtMT.Text = MT

TxtHs.Text = hs

End Sub


Private Sub CmdKeluar_Click()

Unload Me

End Sub


Private Sub CmdLagi_Click()

Kosong

End Sub


Public Sub Kosong()

TxtJual.SetFocus

TxtJual.Text = “”

Txtharga.Text = “”

CboKode.Text = “”

TxtMT.Text = “”

TxtHs.Text = “”

TxtDiscount.Text = “”

TxtTotal.Text = “”

End Sub


Private Sub Form_load()

CboKode.AddItem “Apple MC665 MacBookAir”

CboKode.AddItem “Apple MC666 MacBookAir”

CboKode.AddItem “Apple MC668 MacBookAir”

CboKode.AddItem “Apple MC669 MacBookAir”

CboKode.AddItem “Apple MC700 MacBookPro”

CboKode.AddItem “Apple MC721 MacBookPro”

CboKode.AddItem “Apple MC723 MacBookPro”

CboKode.AddItem “Apple MC724 MacBookPro”

CboKode.AddItem “Apple MC311 MacBookPro”

CboKode.AddItem “Apple MC313 MacBookPro”

CboKode.AddItem “Apple MC314 MacBookPro”

CboKode.AddItem “Apple MC318 MacBookPro”

CboKode.AddItem “Apple MC322 MacBookPro”

CboKode.AddItem “Apple MC965 MacBookAir”

CboKode.AddItem “Apple MC955 MacBookAir”

End Sub


Private Sub Cmdproses_Click()

Txtharga.Text = Val(TxtHs) * Val(TxtJual)

If Val(Txtharga) > 140000000 Then

TxtDiscount = Txtharga.Text * 0.15

TxtTotal = Val(Txtharga.Text) – Val(TxtDiscount.Text)

Else

If Val(Txtharga) > 135000000 Then

TxtDiscount = Txtharga.Text * 0.1

TxtTotal = Val(Txtharga.Text) – (TxtDiscount.Text)

Else

If Val(Txtharga) > 130000000 Then

TxtDiscount = Txtharga.Text * 0.05

TxtTotal = Val(Txtharga.Text) – (TxtDiscount.Text)

Else

If Val(Txtharga) > 125000000 Then

TxtDiscount = Txtharga.Text * 0.02

TxtTotal = Val(Txtharga.Text – TxtDiscount.Text)

End If

End If

End If

End If

End Sub