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

Iklan
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

 

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