RSS

Arsip Kategori: Yuli Bicara Tentang Teknologi

MOBIL TERBANG


Siang ini … tak aktifitas di luar rumah, oleh sebab itu saya memiliki banyak waktu tuk googling informasi-informasi baru, tidak sengaja saya menemukan informasi tentang mobil yang dirancang tuk bisa terbang. Saya jadi ingat bebrapa waktu yang lalu ketika saya memberikan penjelasan pada siswa-siswa saya terkait dengan “Perubahan bisnis karena faktor teknologi baru” saat itu dalam penjelasan saya, saya mengatakan begini : entah kapan dan taun berapa saya tidak tahu, tapi saya mempunyai keyakinan yang kuat bahwa suatu hari nanti akan ada mobil atau motor yang bisa terbang. keyakinan saya berdasarkan pada kemajuan teknologi saat ini dan melihat keadaan dimana daratan semakin padat”.

Saat itu reaksi dari siswa siswa saya adalah mereka mentertawakan saya dan ada yang mengatakan bahwa saya sedang “Berkhayal”. Saya tidak marah atau tersinggung dengan reaksi mereka, saya menjawab begini “jika suatu saat teknologi itu ada dan hadir ditengah-tengah masyarakat dunia, kalian harus memberitahu saya ttg informasi tsb mungkin saat itu saya sudah sangat tua, sanggup???” dan mereka berteriak “Saaangguuuuuuup bu”, “bagus” saya tunggu.

Ternyata tidak harus menunggu lama, informasi yg saya tunggu sekarang sudah saya temukan sendiri, ingin tahu informasi lengkapnya??? ini dia

Mobil Terbang ? Ternyata yang dulunya hanya mimpi, atau cuma ada di flim-film action, akan menjadi kenyataan.

Produsen otomotif asal Amerika Serikat, Terrafugia, akan segera memasarkan mobil terbang, yakni Transition ke seluruh dunia.

Seperti dilansir Spacedaily, mobil ini akan mulai diniagakan ke pasar otomotif dunia, pada akhir tahun depan. Uniknya, sebelum dipasarkan, Transition sudah diinden oleh 100 orang, dengan harga per unit US$ 279.000 atau sekitar Rp. 2,4 miliar.

Mobil yang dirancang untuk dua penumpang ini diharapkan menjadi mobil terbang komersial pertama di dunia. Setelah Amerika Serikat, mobil terbang ini akan dipasarkan di Eropa, India, Brazil, dan China

Transition memiliki kecepatan maksimal hingga 185 km/jam, dengan konsumsi BBM 18,9 km/liter. Hanya butuh waktu 30 detik untuk mengubah mobil ini menjadi pesawat ringan.

Tidak disebutkan secara detail mesin yang digunakan mobil ini, namun tenaga pendorongnya berasal dari mesin bensin biasa yang bisa diisi dari SPBU. Transition dilengkapi dengan baling-baling di bagian belakang, dan sayap kedua sisi badan mobil. Desainnya yang ramping, membuat mobil ini bisa masuk ke garasi rumah.

Terrafugia sudah melakukan tes terbang perdana Transition pada Maret 2009. Terrafugia telah mendapatkan izin dari National Highway Traffic Safety Administration agar mobilnya bisa terbang di udara dan jalanan Amerika, pada bulan Juli lalu.

source:  spacedaily

sumber : http://planet-berita.blogspot.com/2012/10/mobil-terbang-akan-beredar-di-pasaran.html?utm_source=BP_recent 

 

VIRUS KOMPUTER


PENGERTIAN VIRUS

Pertama kali istilah “virus” digunakan oleh Fred Cohen pada tahun 1984 di
Amerika Serikat. Virus komputer dinamakan “Virus” karena memiliki beberapa
persamaan mendasar dengan virus pada istilah kedokteran(biological viruses).

Virus komputer bisa diartikan sebagai suatu program komputer biasa.Tetapi
memiliki perbedaan yang mendasar denganprogram-programlainnya,yaitu
virusdibuatuntuk menulari program-program lainnya,mengubah,

memanipulasinya bahkan sampai merusaknya. Ada yang perludicatatdisini,
virus hanya akan menulari apabila program pemicu atau programyang telah
terinfeksi tadi dieksekusi, disinilah perbedaannya dengan “worm”  Read the rest of this entry »

 
 

Bocah SMP Rintis Antivirus Indonesia


SENIN, 14 FEBRUARI 2011 | 08:49 WIB

foto
ARTAV.

TEMPO InteraktifBandung – Sebuah program Antivirus asal Indonesia muncul dari tangan pelajar kelas 2 SMPN 48 di Bandung. Arrival Dwi Sentosa, 14 tahun, membuat ARTAV Antivirus gratis. Pengunduhnya kini tak kurang dari 150 ribu orang dari penjuru dunia.

Antivirus tersebut seperti program sejenis lain yang telah dijual oleh perusahaan asing. Cara kerjanya sama. Namun lebih banyak membasmi virus buatan dalam negeri hingga sekitar 60 persen. “Sekarang virus yang sudah bisa dimatikan 1.031 macam,” ujarnya.

ARTAV sejauh ini mampu memindai ratusan ribu varian virus. Pengunduhnya tak hanya dari Indonesia, tapi juga pengguna di Perancis, Jerman, Israel, dan Palestina. Dalam sebuah survey di sebuah situs tentang kemampuan memindai virus, ARTAV berada di posisi ketiga, dibawah dua merek antivirus ternama di dunia.

Arrival yang biasa dipanggil Ipal, mulai merintis pembuatan antivirus itu pada September 2010 lalu. Awalnya ia belajar otodidak dari buku-buku komputer. “Gara-garanya waktu itu motherboard komputer mati kena virus pas buka internet,” ujarnya. Sampai sekarang, jenis virus itu masih ditelusurinya.

Program itu dibuatnya di rumah sepulang sekolah. Kakaknya, Taufik Aditya Utama, pelajar SMA 25 Bandung, ikut membantu pembuatan desain tampilan dan logo. Nama ARTAV singkatan dari nama Arrival dan Taufik.

Untuk menguji karyanya, Ipal rajin mengumpulkan virus-virus yang ada di komputer beberapa warung internet di sekitar sekolahnya di daerah Ciwastra, Bandung. Kadang ia minta penjaga warnet kenalannya untuk mencari virus lalu disimpannya di USB dan dibawa pulang.

“Sehari bisa dapat 10-20 virus baru,” kata Ipal yang bercita-cita ingin seperti Bill Gates itu. Selanjutnya, antivirus buatannya secara berkala diuji ke komputer pribadi teman-teman sekolahnya. Memenuhi permintaan pengguna, ARTAV juga bisa dipakai untuk menangkal penularan virus dari USB.

Kemampuannya di bidang rekayasa tekonologi komputer itu, juga membuat ibu Ipal, Yeni Sofia, 38 tahun, kaget, sekaligus bangga. Kaget, karena banyak orang menghargai dan ingin membantu kemampuan anaknya untuk lebih berkembang. “Saya bahagia karena perjalanan pembuatan antivirus ini memang panjang,” ujar Yeni., seorang guru Taman Kanak-kanak di Bandung ini.

Ipal bukan berasal dari keluarga kaya. Yeni hanya bekerja sebagai guru TK dengan gaji Rp. 300 ribu perbulan. Keluarga ini kerap berpindah-pindah tempat, dan kini mereka mengontrak rumah ukuran tipe 21 di daerah Bojongsoang, Kabupaten Bandung. Herman Suherman, 46 tahun, iyah Ipal, pensiunan PT Inti yang kini menjual pulsa dan telepon genggam bekas.

Menurut Yeni, buku-buku komputer yang cukup mahal hanya bisa mereka beli saat musim diskon hingga 50 persen. Ipal memotong uang sakunya Rp 30 ribu per minggu untuk menabung uang buku itu dan pencarian virus di warnet-warnet. “Itu sisa hasil uang ongkos sekolah Rp 16 ribu seminggu,” kata Yeni.

Mereka sempat meminta bantuan ke Wakil Gubernur Jawa Barat Dede Yusuf karena Arrival punya bakat yang harus dikembangkan. “Dua kali kami kirim surat tahun lalu tapi belum ada balasan,” kata Yeni.

Untungnya, dosen-dosen Institut Teknologi Bandung kini membuka pintu kelasnya agar Ipal bisa kursus gratis sepekan sekali tiap Jumat sore. “Saya dan kakak mau mengembangkan antivirus buat telepon genggam,” kata Ipal.

Pakar keamanan komputer dari ITB Budi Raharjo mengatakan, antivirus buatan Ipal tergolong hebat untuk anak seusianya. “Inovasinya apa? Kebaruan antivirus itu sebagai buatan Indonesia,” ujarnya. Dia berharap terobosan ini diikuti perusahaan lokal untuk membuat antivirus asli Indonesia. Soalnya, virus yang beredar di Indonesia ini kebanyakan bukan buatan lokal alias impor.

 

ANWAR SISWADI

Sumber: TempoInteraktif.com

     

    MEMBUAT WEB DENGAN JOOMLA


    Joomla memang cukup terkenal dan lebih banyak disukai banyak orang dibandingkan dengan saingan beratnya Drupal. Tidak dapat disangkal memang semakin banyak orang menggunakan joomla juga semakin banyak pula yang selalu mencari-cari kelemahan pada joomla bahkan situs resmi joomla sendiri pernah terhack oleh orang-orang yang memang ahli dibidangnya. Tetapi kali ini masalah keamanan itu kita singkirkan terlebih dahulu karena bagi anda yang belum pernah membuat web dari joomla jangankan terpikirkan tentang kemanannya tetapi cara membuatnya saja sudah pusing, Nah untuk itu disini saya akan memberikan sedikit info tentang cara membuat website dengan joomla tanpa perlu upload file joomlanya terlebih dahulu karena kita akan menggunaka jasa hosting gratis yang support dengan fantastico installer. Sebenarnya bukan hanya joomla tetapi apabila anda memang mau sedikit belajar tentunya drupal, wordpress pun dapat dengan mudah anda buat. Berikut langkah-langkah yang dapat anda ikuti..

    1. Pertama yang kita butuhkan yaitu sebuah alamat domain. Bagi yang belum mempunyai domain sendiri silahkan daftar terlebih dahulu di www.co.cc

    2. Pilih nama domain yang kamu suka lalu setelah itu segera lakukan setup dan pilih Manage DNS

    3. Pada kolom nama server kita isikan data sebagai berikut

    ns1.byet.org
    ns2.byet.org
    ns3.byet.org
    ns4.byet.org
    ns5.byet.org

    4. Selesai lalu klik setup.

    5. Sekarang kita masuk ke http://byethost.com Lalu klik signup. Disini saya sarankan hosting ke byethost karena selain memiliki kapasitas yang cukup besar juga support denga fantastico installer

    6. Isi data dengan lengkap, klik signup lalu konfirmasi email.

    7. Masuk ke panel kontrol dengan account yang diberikan oleh byethost setelah itu kita klik Addon Domains

    8. Tuliskan domain co.cc yang sebelumnya kamu buat tadi lalu klik create Domain.

    9. Kembali ke control panel dan pada menu Software / services kita klik fantastico type installer

    10. Pilih domain co.cc kita tadi lalu klik proceed

    11. Nah pada tahap Select install script disana kamu dapat memilih salah satu dari 27 software yang tersedia. Karena kita akan membuat web dengan joomla maka kita klik install now pada joomla 1.5.10. Tetapi apabila kamu ingin mencoba memebuat web dengan drupal atau membuat blog dari wordpress so silahkan aja..

    12. Pada tahap ketiga disana kita dapat memilih menyimpan file file instalan kita dimana. klik complate install

    13. Nah setelah itu akan muncul keterangan tentang alamat url admin dan selamat website joomla pertama anda sekarang sudah jadi dan dapat langusng di edit untuk merubah tampilan atau menambahkan item2 tertentu.

    Untuk merubah atau menambahkan item tertentu sebenarnya tidak ada bedanya dengan mengedit joomla versi offine-nya tetapi bagi yang belum tahu caranya kamu baca lagi pada posting sebelumnya tentang joomla.. Ok semoga berhasil.

     

     

    VISUAL BASIC – QUIS


    Ketentuan:

     

    Kode Paket Nama Paket Besar Sedang Kecil
    P01 Paket Satu 25000 20000 15000
    P02 Paket Dua 22500 17000 12000

     

    Jalannya Program:

    –          Pilih Kode Paket , Nama Paket tampil

    –          Pilih Ukuran, harga Per Paket tampil, kursor berada di jumlah beli

    –          Masukkan jumlah Beli, PPN (10% * (harga*jumlah)& Total Tampil, kursor berada di bayar

    –          Masukkan Bayar, Kembali Tampil

    –          Jika di klik Tombol Bersih maka Semua Field kosong, Kursor berada di kode Paket

    –          Jika di klik tombol keluar pesan dan form tertutup.

     

     

    Private Sub Form_Load()

    CboKode.AddItem “P01”

    CboKode.AddItem “P02”

    End Sub

    Private Sub CboKode_Click()

    If CboKode.Text = “P01” Then

    txtnama.Text = “Paket Satu”

    If OptB.Value = True Then

    TxtHarga.Text = 25000

    ElseIf OptS.Value = True Then

    TxtHarga.Text = 20000

    ElseIf OptK.Value = True Then

    TxtHarga.Text = 15000

    Else

    TxtHarga.Text = 0

    End If

    Else

    txtnama.Text = “Paket Dua”

    If OptB.Value = True Then

    TxtHarga.Text = 22500

    ElseIf OptS.Value = True Then

    TxtHarga.Text = 17000

    ElseIf OptK.Value = True Then

    TxtHarga.Text = 12000

    Else

    TxtHarga.Text = 0

    End If

    End If

    End Sub

     

    Private Sub Timer1_Timer()

    Label1.Caption = Date & ” ” & Time

    End Sub

     

    Private Sub OptB_Click()

    If CboKode.Text = “P01” Then

    TxtHarga.Text = 25000

    ElseIf CboKode.Text = “P02” Then

    TxtHarga.Text = 22500

    Else

    TxtHarga.Text = 0

    End If

    TxtJumlah.SetFocus

    End Sub

    Private Sub Opts_Click()

    If CboKode.Text = “P01” Then

    TxtHarga.Text = 20000

    ElseIf CboKode.Text = “P02” Then

    TxtHarga.Text = 17000

    Else

    TxtHarga.Text = 0

    End If

    TxtJumlah.SetFocus

    End Sub

    Private Sub OptK_Click()

    If CboKode.Text = “P01” Then

    TxtHarga.Text = 15000

    ElseIf CboKode.Text = “P02” Then

    TxtHarga.Text = 12000

    Else

    TxtHarga.Text = 0

    End If

    TxtJumlah.SetFocus

    End Sub

    Private Sub TxtJumlah_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    TxtPPN.Text = 0.1 * (Val(TxtHarga.Text) * Val(TxtJumlah.Text))

    TxtTotal.Text = (Val(TxtHarga.Text) *val(Txtjumlah.text))+ Val(TxtPPN.Text)

    TxtBayar.SetFocus

    End If

    End Sub

    Private Sub TxtBayar_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    TxtKembali.Text = Val(TxtBayar.Text) – Val(TxtTotal.Text)

    End If

    End Sub

    Private Sub CmdBersih_Click()

    CboKode.Text = “”

    txtnama.Text = “”

    OptB.Value = 0

    OptS.Value = 0

    OptK.Value = 0

    TxtHarga.Text = “”

    TxtJumlah.Text = “”

    TxtPPN.Text = “”

    TxtTotal.Text = “”

    TxtBayar.Text = “”

    TxtKembali.Text = “”

    CboKode.SetFocus

    End Sub

     

    Private Sub CmdKeluar_Click()

    a = MsgBox(“Yakin Ingin Keluar Program ?”, vbYesNo + vbExclamation, “Konfirmasi”)

    If a = 6 Then

    Unload Me

    End If

    End Sub

     

     
    1 Komentar

    Ditulis oleh pada Februari 9, 2011 in Yuli Bicara Tentang Teknologi

     

    VISUAL BASIC – LATIHAN SOAL (APLIKASI PROGRAM HOTEL)


    • Buat Database dengan nama:penginapan
    • Save di Folder Nim Masing-Masing
    • Buat Tabel Baru :

    Kamar

    NAME TYPE SIZE Ket
    kode_kamar Text 5 Primary Key
    jenis_kamar Text 10  
    harga Currency 8  

    Untuk kamar Isi data Sebanyak 3 Record:

    Transaksi

    NAME TYPE SIZE Ket
    no_trans Text 5 Primary Key
    Nama Text 20  
    Jenis Text 15  
    kode_kamar Text 5  
    harga Currency 8  
    lama integer 2  
    total Currency 8  
    ubay Currency 8  
    ukem Currency 8  

    Buat Desain Form

     

    Save di Folder Nim Masing-Masing

    Nama Project Penginapan dan Form Hotel

     

    Sub aktif()

    Txtno.Enabled = True

    txtnama.Enabled = True

    CboKode.Enabled = True

    TxtJenis.Enabled = True

    TxtHarga.Enabled = True

    TxtLama.Enabled = True

    txttobay.Enabled = True

    txtubay.Enabled = True

    txtukem.Enabled = True

    End Sub

    Sub nonaktif()

    Txtno.Enabled = False

    txtnama.Enabled = False

    CboKode.Enabled = False

    TxtJenis.Enabled = False

    TxtHarga.Enabled = False

    TxtLama.Enabled = False

    txttobay.Enabled = False

    txtubay.Enabled = False

    txtukem.Enabled = False

    End Sub

    Sub bersih()

    Txtno.Text = “”

    txtnama.Text = “”

    CboKode.Text = “”

    TxtJenis.Text = “”

    TxtHarga.Text = “”

    TxtLama.Text = “”

    txttobay.Text = “”

    txtubay.Text = “”

    txtukem.Text = “”

    End Sub

    Sub nomor()

    If Trans.Recordset.RecordCount <= 0 Then

    no = “T0001”

    Else

    Trans.Recordset.MoveLast

    no = “T” & Right(10001 + Right(Trans.Recordset!no_trans, 4), 4)

    End If

    Txtno.Text = no

    End Sub

    Private Sub CboKode_Click(Area As Integer)

    Dim a As Byte

    a = Len(CboKode.Text)

    If a < 5 Then

    Exit Sub

    End If

    With Kamar.Recordset

    .Index = “kode_kamar”

    .Seek “=”, CboKode.Text

    If .NoMatch Then

    CboKode.Text = “”

    CboKode.SetFocus

    Else

    Kamar.Refresh

    TxtJenis.Text = !jenis_kamar

    TxtHarga.Text = !harga

    End If

    End With

     

    End Sub

    Private Sub CmdBatal_Click()

    Form_Load

    End Sub

    Private Sub CmdCari_Click()

    With Trans.Recordset

    .Index = “no_trans”

    .Seek “=”, TxtCari.Text

    If .NoMatch Then

    MsgBox “Data Tidak Ditemukan”, vbInformation, “Pencarian”

    TxtCari.SetFocus

    Else

    Txtno.Text = !no_trans

    txtnama.Text = !nama

    CboKode.Text = !kode_kamar

    TxtJenis.Text = !jenis

    TxtHarga.Text = !harga

    txttobay.Text = !total

    txtubay.Text = !ubay

    txtukem.Text = !ukem

    TxtLama.Text = !lama

    CmdNew.Enabled = False

    CmdEdit.Enabled = True

    CmdBatal.Enabled = True

    End If

    End With

    End Sub

    Private Sub CmdDel_Click()

    If Trans.Recordset.RecordCount > 0 Then

    a = MsgBox(“Yakin Ingin Menghapus ?”, vbYesNo + vbQuestion, “Hapus ?”)

    If a = 6 Then

    Trans.Recordset.Delete

    End If

    End If

    End Sub

    Private Sub CmdEdit_Click()

    aktif

    Txtno.Enabled = False

    txtnama.SetFocus

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = True

    CmdDel.Enabled = True

    End Sub

    Private Sub CmdExit_Click()

    End

    End Sub

    Private Sub CmdFirst_Click()

    Trans.Recordset.MoveFirst

    End Sub

    Private Sub CmdLast_Click()

    Trans.Recordset.MoveLast

    End Sub

    Private Sub CmdNew_Click()

    bersih

    aktif

    CmdNew.Enabled = False

    nomor

    CmdSave.Enabled = True

    CmdBatal.Enabled = True

    txtnama.SetFocus

    End Sub

    Private Sub CmdNext_Click()

    Trans.Recordset.MoveNext

    If Trans.Recordset.EOF Then

    MsgBox “Akhir Record”

    Trans.Recordset.MoveLast

    End If

    End Sub

    Private Sub CmdPrev_Click()

    Trans.Recordset.MovePrevious

    If Trans.Recordset.BOF Then

    MsgBox “Awal Record”

    Trans.Recordset.MoveFirst

    End If

    End Sub

    Private Sub CmdSave_Click()

    With Trans.Recordset

    .AddNew

    !no_trans = Txtno.Text

    !nama = txtnama.Text

    !jenis = TxtJenis.Text

    !kode_kamar = CboKode.Text

    !harga = TxtHarga.Text

    !total = txttobay.Text

    !ubay = txtubay.Text

    !ukem = txtukem.Text

    !lama = TxtLama.Text

    .Update

    MsgBox “Data berhasil Disimpan”, vbInformation, “Simpan”

    Form_Load

    End With

    End Sub

    Private Sub CmdUpdate_Click()

    With Trans.Recordset

    .Edit

    !no_trans = Txtno.Text

    !nama = txtnama.Text

    !jenis = TxtJenis.Text

    !kode_kamar = CboKode.Text

    !harga = TxtHarga.Text

    !total = txttobay.Text

    !ubay = txtubay.Text

    !ukem = txtukem.Text

    !lama = TxtLama.Text

    .Update

    MsgBox “Data berhasil Diupdate”, vbInformation, “Update”

    Form_Load

    End With

    End Sub

    Private Sub Form_Load()

    bersih

    nonaktif

    CmdNew.Enabled = True

    CmdSave.Enabled = False

    CmdEdit.Enabled = False

    CmdUpdate.Enabled = False

    CmdDel.Enabled = False

    CmdBatal.Enabled = False

    Trans.Refresh

    Txtjml.Text = Trans.Recordset.RecordCount

    End Sub

    Private Sub TxtLama_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    txttobay.Text = Val(TxtHarga.Text) * Val(TxtLama.Text)

    txtubay.SetFocus

    End If

    End Sub

    Private Sub txtnama_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    CboKode.SetFocus

    End If

    End Sub

    Private Sub txtubay_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

    txtukem.Text = Val(txtubay.Text) – Val(txttobay.Text)

    CmdSave.SetFocus

    End If

    End Sub

     

     
    2 Komentar

    Ditulis oleh pada Februari 9, 2011 in Yuli Bicara Tentang Teknologi

     

    Visual Basic latihan1


    Private Sub Form_Load()

    CboJenis.AddItem “VB”

    CboJenis.AddItem “MO”

    CboJenis.AddItem “PCL”

    End Sub

    Private Sub CboJenis_Click()

    If CboJenis.Text = “VB” Then

    txtnama.Text = “Visual Basic”

    ElseIf CboJenis.Text = “MO” Then

    txtnama.Text = “Microsoft Office”

    Else

    txtnama.Text = “Pascal”

    End If

    txtnama.Enabled = False

    End Sub

    Private Sub CmdBatal_Click()

    Txtno.text = “”

    Txtnama.text = “”

    CboJenis.text = “”

    OptPagi.Value = False

    OptMalam.Value = False

    Txtbiaya.text = “”

    txtno.SetFocus

    End Sub

    Private Sub CmdKeluar_Click()

    a = MsgBox(“Yakin Keluar Program ?”, vbYesno + vbQuestion, “Konfirmasi”)

    If a = vbyes Then

    Unload Me

    End If

    End Sub

    Private Sub Form_Activate()

    txtno.SetFocus

    End Sub

    Private Sub OptPagi_Click()

    txtbiaya.Text = 500000

    txtbiaya.Enabled = False

    End Sub

    Private Sub OptMalam_Click()

    txtbiaya.Text = 550000

    txtbiaya.Enabled = False

    End Sub

    Private Sub Timer1_Timer()

    Label1.Caption = Date + Time

    End Sub

     

     
    Tinggalkan komentar

    Ditulis oleh pada Februari 9, 2011 in Yuli Bicara Tentang Teknologi