Teknologi Paling Canggih Di Dunia Saat Ini

| Oct 14, 2010 | Kategori Sains dan Teknologi

sumber : http://www.taukahkamu.com/2010/10/8-teknologi-tercanggih-di-dunia-saat.html

 

1. Quantum Teleporter


Q-Teleportation telah berhasil pada objek yang lebih kecil berdasarkan penelitian yang telah dilakukan. “Kami bisa melakukan ekesperimen quantum teleportation untuk pertama kalinya di luar laboratorium universitas,” kata Rupert Ursin, peneliti Institute if Experimental Physics, Universitas Vienna, Austria. Pada Q-Teleportation, quantum pada objek dihancurkan dan dibuat kembali. Oleh karena itu, Q-Teleportation tidak bisa memindahkan benda hidup maupun mati secara keseluruhan fisik. Alat ini “menciptakan” replika benda sebelumnya pada posisi di tempat lain dan benda sebelumnya akan “menghilang” selama replikanya diciptakan.
sumber: National Geographic.

2. 360º 3-D Holographic Displays

ZCam™ merupakan kamera video yang bisa merekam informasi hingga ke dalam bagian objek (yang biasa digunakan untuk membuat model 3D) video dan kemudian diproduksi oleh 3DV Systems. Teknologi ini berbasiskan prinsip “Time of Flight”. Pada teknik ini, data ukuran 3D didapatkan dengan cara mengirim gelombang infra merah ke dalam scene video dan mendeteksi cahaya yang direfleksikan oleh permukaan objek pada scene video. Dengan menggunakan variabel waktu yang ditempuh oleh gelombang infra merah untuk mencapai objek target dan saat kembali, jarak bisa dihitung dan kemudian digunakan untuk membuat informasi 3D dari semua objek pada scene.

3. Lightsaber (Pedang Laser)

Yang kita ketahui, pedang ini hanyalah hasil “karya: pada film-film sains fiksi belaka!! Lightsaber terdiri dari logam dan mata pedang berupa plasma sepanjang 1 meter. Lightsaber ini bisa memotong objek tanpa perlawanan sedikitpun. Bisa meninggalkan luka bakar pada kulit manusia. Tapi pedang ini bisa ditangkis, namun dengan pedang lightsaber pula, bisa juga ditangkis dengan perisai.

4. JetPack

Jetpack, juga termasuk alat yang banyak kita temukan di film sains fiksi, yang mana alat ini menggunakan jet yang melepaskan gas (bisa juga air) dan kemudian “menerbangkan” penggunanya. TAM adalah perusahaan pertama dan satu-satunya di dunia yang memproduksi paket lengkap kostum yang didesain oleh Rocket Belt menggunakan mutakhir dan juga material aerospace dengan mesin penyulingan khusus untuk memproduksi bahan bakar Hidrogen Peroksida jet anda.

5. Military exoskeleton prototype

Military exoskeleton merupakan sejenis rangka luar bertenaga hidrolik yang dipasang pada militer dan bisa mengangkat hingga 100 kg benda untuk jangka waktu yang lama dan bisa sambil mengelilingi suatu area pula. Desainnya yang fleksibel memungkinkan pengguna untuk berjongkok, bergerak pelan dan “mengangkat” ke atas. Tidak ada joystick maupun mekanisme kontrol lainnya. Kontrolnya menggunakan indra manusia.

6. Flying Car

“Mobil terbang” ini disebut “The Highway in the Sky”. Jika tiap waktu agan terjebak macet, maka dengan menggunakan flying car ini agan bisa berputar dan menukik di angkasa agar bisa sampai di tujuan dengan cepat.

7. Flying Saucer

Ini adalah model kendaraan udara tak berawak dengan bentuk cawan (mirip pesawat UFO uy) yang dibuat oleh sebuah perusahaan di Inggris bernama Aesir.

8. Virtual Goggles

Teknologi telah membawa dunia virtual ke dalam komputer kita sejak lama. Tapi, dunia virtual tersbut sekarang bisa disaksikan di rumah kita. Sebuah ekseprimen yang telah dilakukan selama beberapa dekade, sekarang telah menjadi kenyataan.

Pada gambar di atas, wanita tsb sedang menggunakan device berteknologi virtual bernama iWear VR920 dari perusahaan Icuiti. Alat tsb bisa berfungsi sebagai output video juga sebagai gaming console.

Spinning Hat TypeScreen, Perpaduan Unsur Modern Dan Mesin Tik Klasik Untuk iPad

Author dedenz, 31 Dec 2011
 

 

Zaman memang sudah semakin canggih, tapi bagi anda para pengguna iPad yang Ingin mencoba sensasi menggunakan mesin tik, mungkin perangkat yang satu ini bisa menjadi pilihan.

TypeScreen adalah sebuah aksesoris unik untuk iPad berbentuk mesin tik zaman dulu yang dapat melengkapi koleksi gadget Anda. Alat ini merupakan kombinasi antara unsur modern layar sentuh dan unsur retro bergaya klasik.

Desainnya memang nampak kuno, tapi jangan salah TypeScreen tetap hadir dengan fungsi modern sehingga cocok untuk dijadikan alternatif bagi pengguna iPad dalam menemani aktivitasnya yang selalu ditemani tablet besutan Apple itu.

Dengan menggunakan alat ini yang akan memberikan nuansa klasik retro, dapat dipastikan  cara mengetik manual ke layar iPad akan lebih menyenangkan. Selain itu, untuk menggunakan perangkat ini pun terbilang sangat mudah, pengguna cukup menghubungkan perangkat ke iPad ataupun iPad 2.

Cara kerjanya sangat sederhana, layaknya mesin tik sungguhan, hanya dengan mengetik setiap karakter, tuas secara manual bergerak dan akan menekan tombol QWERTY visual yang ada di layar iPad. Perangkat ini sendiri tersedia secara terbatas dengan harga sekitar Rp. 500 ribu.

akhmadfadli data base

Gambar

 

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Txtnama.SetFocus4
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprodi.Text = “”
Txttahunmasuk.Text = “”
txtnomorurut.Text = “”

End Sub

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjurusan.Text = “”
Txtprodi.Text = “”
Txttahunmasuk.Text = “”
txtnomorurut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
A = Mid(Txtnpm.Text, 3, 1)
If A = “1” Then
Txtjurusan.Text = “Sistem Informasi”
ElseIf A = “2” Then
Txtjurusan.Text = “Manajemen informatika”
ElseIf A = “3” Then
Txtjurusan.Text = “Tekhnik Informatika”
ElseIf A = “4” Then
Txtjurusan.Text = “Komputer Akuntansi”
End If
Txtnpm.SetFocus
A = Mid(Txtnpm.Text, 4, 2)
If A = “01” Then
Txtprodi.Text = “strata satu”
ElseIf A = “02” Then
Txtprodi.Text = “diploma empat”
ElseIf A = “03” Then
Txtprodi.Text = “diploma tiga”
ElseIf A = “04” Then
Txtprodi.Text = “diploma dua”
End If
Txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

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

Gambar

 

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
ibiteks.FontBold = True
Else
ibiteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
ibiteks.FontItalic = True
Else
ibiteks.FontItalic = False
End If
End Sub

Private Sub Chkstrike_Click()
If Chkstrike.Value = 1 Then
ibiteks.FontStrikethru = True
Else
ibiteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If Chkunderline.Value = 1 Then
ibiteks.FontUnderline = True
Else
ibiteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Optblue_Click()
ibiteks.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
ibiteks.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
ibiteks.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
ibiteks.ForeColor = vbYellow
End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
Txtjr = “”
Txtps = “”
Txttahun = “”
Txturut = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
Txtjr = “”
Txtps = “”
Txttahun = “”
Txturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim a, jr, ps As String
Txttahun.Text = “20” & Left(txtnpm.Text, 2)
a = Mid(txtnpm.Text, 3, 1)
If a = “1” Then
jr = “sistem informasi”
ElseIf a = “2” Then
jr = “manajemen informatika”
ElseIf a = “3” Then
jr = “tekhnik informatika”
ElseIf a = “4” Then
jr = “komputer akuntansi”
End If
Txtjr.Text = jr
a = Mid(txtnpm.Text, 4, 2)
If a = “00” Then
ps = “strata satu”
ElseIf a = “01” Then
ps = “diploma empat”
ElseIf a = “02” Then
ps = “diploma tiga”
ElseIf a = “03” Then
ps = “diploma dua”
End If
Txtps.Text = ps
Txturut.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

Gambar

Kalkulator Eror

Gambar

 

Private Sub Cmdkali_Click()
Txthasil.Text = Val(Txtnilai1.Text) * Val(Txtnilai2.Text)
End Sub
Private Sub Cmdbagi_Click()
Txthasil.Text = Val(Txtnilai1.Text) / Val(Txtnilai2.Text)
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdkurang_Click()
Txthasil.Text = Val(Txtnilai1.Text) – Val(Txtnilai2.Text)
End Sub
Private Sub Cmdlagi_Click()
Txtnilai1 = “”
Txtnilai2 = “”
Txthasil = “”
End Sub
Private Sub Cmdtambah_Click()
Txthasil.Text = Val(Txtnilai1.Text) + Val(Txtnilai2.Text)
End Sub
Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnilai2.SetFocus
End If
End Sub

NILAI MAHASISWA

Gambar

 

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
Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text7.Text)) / 4
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command4_Click()
End
End Sub