0

tugas 3

|

Gambar

MENGGUNAKAN ENTER DAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_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 k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Gambar

MENGGUNAKAN PROSES

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_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 k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

Gambar

MENGGUNAKAN ENTER

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01″ Then

p = “STRATA SATU”

ElseIf k = “02″ Then

p = “DIPLOMA TIGA”

ElseIf k = “03″ Then

p = “DIPLOMA DUA”

ElseIf k = “04″ Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Gambar

MENGGUNAKAN ENTER DAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_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 k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End If

End Sub

Gambar

MENGGUNAKAN PROSES

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Gambar

MENGGUNAKAN  ENTER

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_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 k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1″ Then

j = “SISTEM INFORMASI”

p = “STRATA SATU”

ElseIf k = “2″ Then

j = “MANAJEMEN INFORMATIKA”

p = “DIPLOMA TIGA”

ElseIf k = “3″ Then

j = “TEKNIK INFORMATIKA”

p = “DIPLOMA DUA”

ElseIf k = “4″ Then

j = “KOMPUTER AKUNTASI”

p = “DIPLOMA EMPAT”

End If

TXTJURUSAN.Text = j

TXTPRODI.Text = p

TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 5)

End If

End Sub

Gambar

SCRIPT 1 : PROSES & ENTER

 

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

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 Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

Gambar

MENGGUNAKAN ENTER

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 Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

End If

End Sub

Gambar

MENGGUNAKAN PROSES

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(Text1.Text, 3)

If K = “SIM” Or K = “sim” Then

J = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

H = “75900″

ElseIf K = “EDP” Or K = “edp” Then

J = “Elektronik Data Procesing”

P = “Nurul Agustina”

H = “62000″

ElseIf K = “MNJ” Or K = “mnj” Then

J = “Manajemen”

P = “Rian Hidayat”

H = “42000″

ElseIf K = “cdr” Or K = “CDR” Then

J = “Corel Draw”

P = “Siti Nur Khotimah”

H = “53000″

ElseIf K = “rpl” Or K = “RPL” Then

J = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

H = “83000″

End If

Text2.Text = J

Text3.Text = P

Text6.Text = H

K = Right(Text1.Text, 1)

If K = “A” Or K = “a” Then

G = “Andi Offset Yogyakarta”

ElseIf K = “i” Or K = “I” Then

G = “Indah Surabaya”

ElseIf K = “S” Or K = “s” Then

G = “Salemba Empat”

ElseIf K = “E” Or K = “e” Then

G = “Elek Media Komputindo”

ElseIf K = “M” Or K = “m” Then

G = “Maxikom”

End If

Text5.Text = G

Text4.Text = “20″ & Mid(Text1.Text, 5, 2)

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

0

INDONESIA HARUS MENANG

|
Indonesia Vs Arab Saudi Digelar di Surabaya atau Yogya
Penulis: Ary Wibowo | Senin, 11 Februari 2013 | 17:28 WIB
 
Dibaca: 11216
|
Share:

AFP/KARIM SAHIB

Gelandang Indonesia, Taufik (kiri) bertarung dengan dua pemain Irak, Alaa Abdulzehra (tengah) dan Humam Tareq pada laga pertama Pra-Piala Asia 2015 Grup C di Duba, 6 Februari lalu. Pada laga kedua Indonesia akan menjamu Arap Saudi, 22 Februari natni.

JAKARTA, KOMPAS.com – Persatuan Sepak Bola Seluruh Indonesia (PSSI) berencana untuk memindahkan laga lanjutan Pra-Piala Asia 2015 kontra Arab Saudi yang awalnya akan digelar di Jakarta ke Surabaya atau Yogyakarta. Menurut koordinator timnas, Bob Hippy, alasan pemindahan laga 22 Februari itu dilakukan karena faktor cuaca.

Laga melawan Arab Saudi rencananya akan digelar pada 22 Maret mendatang di Stadion Utama Gelora Bung Karno, Jakarta. Selain Arab Saudi, Indonesia juga melawan Irak dan China di Grup C.

“Sementara ini memang FIFA dan AFC menunjuk pertandingan itu agar digelar di GBK. Tetapi, nanti kita akan beri penjelasan kepada mereka soal pemindahan ini kerena bisa saja dapat merugikan tim dengan situasi musim hujan dan banjir di Jakarta,” ungkap Bob di Jakarta, Senin (11/2/2013).

Bob menuturkan, saat ini PSSI tengah berkoordinasi dengan AFC yang rencananya akan mengunjungi Jakarta beberapa hari ke depan untuk melakukan pengecekan lapangan GBK. Ia berharap pemindahan tersebut bisa berjalan mulus tanpa hambatan. “Nanti akan kita kasih penjelasan juga kalau mereka (AFC) ke Jakarta,” terang Bob.

Sementara, pemindahan laga tersebut pun berimbas kepada tempat pemusatan latihan (training camp/TC) timnas. Asisten manajer timnas, Nico Dimo, mengatakan, timnas kemungkinan besar juga akan pindah ke Surabaya atau Yogyakarta tempat pertadingan utama dilangsungkan.

“Nanti para pemain akan kumpul kalau tidak di Surabaya, ya, di Yogyakarta pada 15 Maret. Nanti akan segera kita usulkan pemindahan ini kepada AFC,” kata Nico.

 

0

TUGAS VB.

|

Private Sub Command1_Click()

Text1NPM.SetFocus

Text1NPM = “”

Text2NAMA = “”

Text3ALAMAT = “”

End Sub

 

Private Sub Command2_Click()

Text1NPM.SetFocus

Text1NPM = “”

Text2NAMA = “”

Text3ALAMAT = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Text1NPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2NAMA.SetFocus

End If

End Sub

 

Private Sub Text2NAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3ALAMAT.SetFocus

End If

End SubImage

0

PSSI

|

Manuver La Nyalla di KLB PSSI 17 Maret

Sumber: bola.net

Rabu, 6 Maret 2013 19:41:00

Manuver La Nyalla di KLB PSSI 17 Maret

La Nyalla Mattalitti terus bermanuver (c) Eggi Paksha

0
 

 

Episode salah satu anggota Komite Eksekutif (Exco) Persatuan Sepak Bola Seluruh Indonesia (PSSI) La Nyalla Mahmud Matalitti masih terus berlangsung. Buktinya, Ketua Umum Komite Penyelamat Sepak Bola Indonesia (KPSI) tersebut, terus bermanuver.

La Nyalla meminta agenda tambahan dalam Kongres Luar Biasa (KLB) yang akan digelar PSSI di Hotel Borobudur, Jakarta, 17 Maret mendatang. Apa yang diucapkan La Nyalla, kerap berlawan dengan kenyataan. Teranyar, pria kelahiran Jakarta 10 Mei 1959 tersebut, berjuang untuk memasukkan agenda tambahan di KLB.

Padahal, status KLB yang diberikan FIFA, bertujuan untuk menghindari kemungkinan adanya pengubahan agenda dari yang sebelumnya telah disepakati FIFA dan AFC.

Yakni, tentang penyatuan liga, revisi statuta, dan pengembalian empat mantan Komite Eksekutif (Exco) terhukum, La Nyalla Mahmud Mattalitti, Roberto Rouw, Tonny Aprilani, dan Erwin Dwi Budiawan.

“Agenda tambahan sangat penting untuk mengakomodir MoU dan juga untuk membubarkan KPSI,” tuturnya.

Dikatakannya, KLB tidak biasa membubarkan KPSI. Sesuai amanat MoU 7 Juni 2012 antara PSSI dan KPSI di Kuala Lumpur, Malaysia, KPSI baru bisa dibubarkan setelah adanya Kongres Biasa (KB).

Sementara itu, Ketua Umum PSSI, Djohar Arifin Husin mengatakan siap mengikuti perintah FIFA untuk mengadakan KLB. Dia pun meminta agar semua pihak untuk patuh terhadap FIFA yang mengamanatkan KLB. “Jika tidak patuh, Indonesia akan terkena sanksi,” kata Djohar. (esa/dzi)

Sumber: Bola.net

Share Detail
 

 

Berita Terkait
0

INFO GAYA HIDUP MEWAH

|
0

TECNOLOGI

|

Robot Yeti Lacak Retakan Es di Antartika

Yahoo! NewsOleh Yahoo! News | Yahoo! News – 24 menit yang lalu

  • Sarankan
  • Tweet

Konten Terkait

  • The Yeti rover in Greeland in April 2012, with its ground-penetrating radar sled.Lihat Foto

    The Yeti rover in Greeland in April 2012, with its ground-penetrating radar sled …

Becky Oskin, Staf Penulis OurAmazingPlanet | LiveScience.com

Yeti adalah nama robot penjelajah setia yang bisa mengendus keberadaan jurang berbahaya bagi konvoi yang melintasi gletser Antartika dan Greenland, menelusuri gua es di gunung berapi aktif dan menemukan bangunan tua terkubur di bawah kutub es.

Pada musim panas selatan kali ini, Yeti bergerak perlahan di depan traktor oranye yang mengantarkan pasokan ke pos-pos penelitian di seluruh Antartika. Dengan radar penembus tanah, robot tersebut memperingatkan pengemudi akan retakan es yang tersembunyi. Salju sering menutupi retakan itu, menyamarkan bahaya, namun robot kecil itu cukup ringan (150 pon atau 68 kilogram) untuk menyeberangi retakan.

“Robot itu tidak akan jatuh, dan tidak ada bahaya bagi robot tersebut kecuali hilang,” kata Laura Ray, insinyur di Dartmouth College di Hanover, N.H, yang memimpin pengembangan robot Yeti. [Saksikan Yeti menuntun traktor di Greenland]

Mencegah cedera dan kerusakan peralatan sangat penting di Antartika. Banyak operasi penyelamatan berbahaya bagi yang terluka dan awak penyelamat.

Tapi Yeti menawarkan lebih dari perlindungan bagi para peneliti kutub. Pada Desember 2012, para ilmuwan memetakan gua es di Gunung Erebus, sebuah gunung berapi aktif, dengan radar. Robot itu juga membantu menemukan bangunan terabaikan, stasiun penelitian asli yang sudah lama terkubur di Kutub Selatan pada Desember 2011. Struktur es tersebut dihancurkan setelah traktor jatuh melewati es di puncak salah satu bangunan. Robot itu juga membantu konvoi di Greenland.

Meski bukan robot pertama yang menjelajahi es Antartika, Yeti saat ini merupakan robot terkecil yang mengelilingi permukaan benua beku tersebut. Para peneliti juga mengintai danau glasial yang terkubur dengan menggunakan kapal selam mikro atau memetakan dasar laut dengan kendaraan yang dioperasikan dari jarak jauh.

Penjelajah robotik sebelumnya termasuk robot Dante yang menyerupai laba-laba, yang dikirim ke Gunung Erebus pada 1992, robot penjelajah Nomad yang memburu meteorit pada 2000, dan sebuah robot penjelajah yang diuji oleh Kansas University pada 2005.
Robot Yeti disusun dan dibangun mahasiswa Dartmouth dengan biaya sekitar $25 ribu (sekitar Rp240 juta).

Sebagai perbandingan, Mars Curiosity Rover menelan biaya $2,5 miliar (sekitar Rp24 triliun) untuk perancangan, pembangunan, dan pendaratan di planet lain.

0

BISNIS

|

Kurs Rupiah Rabu Sore Menguat Tujuh Poin

AntaraAntara – 2 jam 36 menit lalu

  • Sarankan
    1
  • Tweet
    25
  • 0

Jakarta (ANTARA) – Kurs nilai tukar rupiah pada Rabu sore bergerak menguat sebesar tujuh poin terhadap dolar AS seiring masih stabilnya fundamental ekonomi Indonesia.

Kurs nilai tukar mata uang rupiah yang ditransaksikan antarbank di Jakarta pada Selasa sore bergerak menguat nilainya sebesar lima poin menjadi Rp9.695 dibanding sebelumnya di posisi Rp9.700 per dolar AS.

“Sentimen eksternal yang masih berfluktuasi mendorong investor cenderung masuk ke pasar negara berkembang yang ekonominya stabil,” kata pengamat pasar uang Bank Himpunan Saudara, Ruly Nova di Jakarta, Rabu.

Ia menambahkan kondisi itu membuat kurs nilai tukar rupiah menguat terhadap dolar AS meski masih dalam kisaran yang sempit.

Ruly mengatakan Bank Indonesia (BI) yang masih menjaga fluktuasi nilai tukar domestik menjadi salah satu katalis mata uang rupiah berada dalam area positif.

Pengamat pasar Samuel Sekuritas, Lana Soelistianingsih menambahkan pada pekan ini tren rupiah masih melemah. Namun dibandingkan mata uang Asia lainnya, rupiah masih mencatat penguatan selama tahun berjalan.

Ia memperkirakan nilai tukar rupiah berpotensi melemah secara bertahap untuk menyeimbangkan dengan kondisi mata uang di kawasan Asia.

“Rupiah kemungkinan bergerak dalam kisaran yang lebar namun tetap dengan penjagaan BI,” kata dia.

Sementara itu, kurs tengah Bank Indonesia pada, Rabu (6/3) tercatat mata uang rupiah bergerak menguat nilainya menjadi Rp9.686 dibanding posisi sebelumnya Rp9.705 per dolar AS.(tp)

Untuk berita terbaru, ikuti Yahoo! Indonesia di Twitter dan Facebook

Berita Lainnya

0

NUSANTARA

|

Polda Kaltim Siagakan Dalmas Nunukan dan Bulungan

TRIBUNnews.comTRIBUNnews.com – 11 menit yang lalu

 

laporan Wartawan Tribun Kaltim Ahmad Bayasut

TRIBUNNEWS.COM BALIKPAPAN, – Polda Kaltim telah memerintahkan Polres Nunukan dan Bulungan untuk menurunkan Dalmas (Pengendalian Massa) Sabhara untuk membantu mengatasi situasi kerusuhan di kota Tarakan, Rabu (6/3/2013). Dalmas Sabhara kedua Polres itu tiba beberapa jam setelahdiketahui adanya situasi kerusuhan oleh sejumlah kelompok demonstrasi.

“Dalmas dari polres Nunukan dan Bulungan yang kami perintahkan untuk membantu mengamankan situasi di Tarakan,” ujar Kabid Humas Polda Kaltim Kombes Pol Antonius Wisnu Sutirta, Rabu (6/3/2013). Wisnu panggilan akrabnya belum mengetahui berapa jumlah anggota yang diturunkan. Melihat dari situasi dan kondisinya dinilai sudah memadai pengamanan bantuan dari Polres Bulungan dan Nunukan. “Bila memang masih diperlukan akan kami tambah personel untuk memberi rasa nyaman kepada warga Tarakan,” katanya.

Wisnu sudah mendapat informasi bahwa pada sore kondisi Tarakan sudah mampu dikendalikan. Dan belum mendapat konfirmasi apakah ada korban luka atau jiwa. “Sekarang kondisinya sudah aman,” katanya. Mengenai bantuan Dalmas Sabhara Nunukan dan Bulungan masih diminta untuk bersiaga untuk mengantisipasi bila ada demo susulan.

Menurut Wisnu Dalmas dari dua polres itu bisa kembali bila melihat situasi di lapangan sudah aman dan terkendali. “Intinya bantuan akan disiagakan penuh di lokasi demontrasi hingga sampai benar-benar kondusif,” ujar perwira tiga melati ini. Untuk saat ini bantuan dari Brimobda Kaltim masih bersiaga di Balikpapan. Bila sewaktu-waktu dibutuhkan atau ada perintah segera diberangkatkan. “Maih belum ada perintah (Brimob) diminta kesana,” ujarnya. Dan dikabarkan Kasat Brimobda Polda Kaltim Kombes Pol Leo Bona Lubis dan Dirintel Kombes Hari Prasodjo. (bay)

Baca  Juga  :

  • Akses Wartawan Dibatasi ke Daerah Konflik 1 detik lalu
  • Adanya Peningkatan Warga Malaysia Bergeser ke Pulau Sebatik 2 menit lalu
  • Dana PNPM Pedesaan di Nunukan Berkurang 9 menit lalu
0

POLITIK

|

Pengamat: Century Jadi “Mainan” Politik Jelang Pemilu

AntaraAntara – 19 menit yang lalu

 

Jakarta (ANTARA) – Pengamat politik Syamsuddin Haris menilai kasus korupsi fasilitas pinjaman jangka pendek (FPJP) terhadap Bank Century akan dimunculkan kembali untuk dijadikan barang “mainan” bagi partai politik menjelang Pemilu 2014.

“Ini bisa jadi mainan politik dari pihak-pihak yang berkepentingan untuk memanfaatkan itu, terutama untuk kekuasaan masing-masing partai politik,” kata peneliti senior Lembaga Ilmu Pengetahuan Indonesia (LIPI) itu di Jakarta, Rabu.

Sudah menjadi hal lumrah di dunia politik bahwa kasus apapun yang belum tuntas penyelesaiannya akan diungkit lagi demi pemenangan strategi politik partai terkait.

Meskipun akan sering dimunculkan lagi ke publik, pada akhirnya kasus tersebut tidak akan mengalami banyak perubahan dalam penyelesaiannya.

“Secara substansi, kasus itu sendiri `status quo`,” tambahnya.

Demikian halnya dengan Komisi Pemberantasan Korupsi (KPK), yang dinilainya tidak akan lebih jauh lagi mengungkap dan menetapkan tersangka dengan dua alat bukti kuat.

“Secara hukum, langkah KPK akan begitu-begitu saja. Artinya, bahwa ada tekanan kuat bagi KPK,” lanjutnya.

Keterlibatan partai politik dalam kasus Century tidak hanya berhenti pada satu parpol saja, melainkan bisa banyak parpol yang terlibat dalam hal itu.

Oleh karena itu, kasus Bank Century akan selalu menjadi “mainan” politik, entah oleh individu politikus maupun parpol.

“Kalaupun ada langkah signifikan KPK dalam kasus Century, saya menduga langkah itu lebih pada pejabat publik, bukan di level atas,” ujarnya.

Pemberian pinjaman ke Bank Century bermula saat bank tersebut mengalami kesulitan likuiditas pada Oktober 2008. Manajemen Century mengirim surat kepada Bank Indonesia (BI) pada 30 Oktober 2008 untuk meminta fasilitas repo aset senilai Rp1 triliun.

Namun Bank Century tidak memenuhi syarat untuk mendapat FPJP karena masalah kesulitan likuiditas Century sudah mendasar akibat penarikan dana nasabah dalam jumlah besar secara terus-menerus.

Century juga tidak memenuhi kriteria karena rasio kecukupan modal (CAR) yang hanya 2,02 persen, padahal, sesuai dengan aturan Nomor 10/26/PBI/2008 tanggal 30 Oktober 2008, syarat untuk mendapat bantuan itu adalah CAR harus 8 persen.

Badan Pemeriksa Keuangan (BPK) atas Century menyimpulkan adanya ketidaktegasan Bank Indonesia terhadap bank milik Robert Tantular tersebut karena diduga telah mengutak-atik peraturan yang dibuat sendiri agar Century bisa mendapat FPJP, yaitu dengan mengubah Peraturan Bank Indonesia No 10/26/PBI/2008 mengenai persyaratan pemberian FPJP dari semula dengan CAR 8 persen menjadi CAR positif.

BPK menduga perubahan ini hanya rekayasa agar Century mendapat fasilitas pinjaman itu karena menurut data BI, posisi CAR bank umum per 30 September 2008 berada di atas 8 persen, yaitu berkisar 10,39 – 476,34 persen dan satu-satunya bank yang CAR-nya di bawah 8 persen hanya Century.

BI akhirnya menyetujui pemberian FPJP kepada Century sebesar Rp502,07 miliar karena CAR Century sudah memenuhi syarat PBI. Belakangan BI bahkan memberi tambahan FPJP Rp187,32 miliar sehingga total FPJP yang diberikan BI kepada Century sebesar Rp689 miliar.

Posisi CAR Century ternyata sudah negatif 3,53 bahkan sejak sebelum persetujuan FPJP artinya BPK menilai BI telah melanggar PBI No 10/30/PBI/2008 yang menyatakan bank yang dapat mengajukan FPJP adalah bank dengan CAR positif.

Selain itu jaminan FPJP Century hanya Rp467,99 miliar atau hanya 83 persen yang melanggar PBI No 10/30/PBI/2008 mengenai jaminan kredit.

Pemberian dana talangan bank Century sendiri diberikan secara bertahap yaitu pertama Rp2,7 triliun pada 23 November 2008, kedua pada 5 Desember 2008 sebesar Rp2,2 triliun, tahap ketiga pada 3 Februari 2009 sebesar Rp1,1 triliun dan tahap keempat pada 24 Juli 2009 sebesar Rp630 miliar sehingga total dana talangan adalah mencapai Rp6,7 triliun.(ar)

0

KASUS RAFFI AKHMAT YANG BERLARUT-LARUT

|

Besok, Komisi III Panggil BNN Bahas Raffi

Rabu, 6 Maret 2013 16:51 wib
Tri Purna Jaya – Okezone

Browser anda tidak mendukung iFrame

Hotma dan ibunda Raffi di DPR (Foto: Runi/Okezone)

Hotma dan ibunda Raffi di DPR (Foto: Runi/Okezone)

LAMPUNG – Setelah menerima pengaduan dari pengacara Raffi Ahmad terkait kasus narkoba yang menjeratnya, besok Komisi III DPR RI mengundang Badan Narkotika Nasional (BNN) meminta klarifikasi pengaduan kuasa hukum dan keluarga Raffi.

”Insya Allah besok, Kamis pukul 10.00 Komisi III mengundang BNN untuk klarifikasi kasus Raffi di DPR,” kata Wakil Ketua Komisi III DPR RI, Almuzzammil Yusuf, dalam siaran persnya, Selasa (6/3/2013).

Politikus PKS itu menjelaskan, kemungkinan besar pertemuan tersebut digelar terbuka untuk umum.

“Kami ingin memberikan kesempatan kepada BNN untuk mengklarifikasi kepada Komisi III dan publik secara transparan terkait kasus Raffi,” jelasnya.

Namun, jika ada informasi yang dianggap BNN rahasia, menurut Muzzammil, setelah rapat terbuka, BNN dapat meminta diadakan rapat tertutup dengan Komisi III.

“Jika ada informasi rahasia terkait dengan proses penyidikan, atau informasi lainnya terkait jaringan mafia narkoba, maka rapat dapat digelar tertutup,” tandasnya.

Selain menjelaskan kasus Raffi, kata Muzzammil, BNN juga dipersilakan untuk menjelaskan tentang hambatan dan tantangan dalam pemberantasan narkoba yang selama ini dilakukan.

Muzzammil sangat berharap DPR dapat membantu BNN, baik dengan dukungan legislasi maupun anggaran, agar kerja BNN dapat optimal dalam menangkap para bandar narkoba kelas kakap di Indonesia.

“Untuk itu kami berharap BNN harus menunjukkan kerja yang transparan dan profesional dalam pemberantasan narkoba di Indonesia,” tutup politisi asal Lampung ini.