Tugas Program VB (Pengolahan Citra)

Listing Program

Public Class Form1
    Dim gambar As Bitmap

    Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click
        OFD.Filter = "BMP|*.bmp|JPG|*.jpg"
        OFD.ShowDialog()

        If OFD.FileName = "" Then Exit Sub
        Pic1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(Pic1.Image)
    End Sub

    Private Sub SaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCitraToolStripMenuItem.Click
        SFD.Filter = "JPG|*.jpg|BMP|*.bmp"
        SFD.ShowDialog()
        If SFD.FileName = "" Then Exit Sub
        If SFD.FilterIndex = 1 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
    End Sub

    Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim Rt, Vm, Vh, Vb As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    Vm = .GetPixel(Pc, Pb).R
                    Vh = .GetPixel(Pc, Pb).G
                    Vb = .GetPixel(Pc, Pb).B
                    Rt = (Vm + Vh + Vb) / 3
                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = 255 - .GetPixel(Pc, Pb).R
                    vH = 255 - .GetPixel(Pc, Pb).G
                    vB = 255 - .GetPixel(Pc, Pb).B
                    If vM <= 0 Then vM = 0
                    If vB <= 0 Then vB = 0
                    If vH <= 0 Then vH = 0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R + 5
                    vH = .GetPixel(Pc, Pb).G + 5
                    vB = .GetPixel(Pc, Pb).B + 5
                    If vM > 255 Then vM = 255
                    If vB > 255 Then vB = 255
                    If vH > 255 Then vH = 255
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim rata, vM, vH, vB As Double
        With gambar
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    rata = (vM + vH + vB) / 3
                    If (rata < 128) Then
                        vM = 0
                        vH = 0
                        vB = 0
                    Else
                        vM = 255
                        vH = 255
                        vB = 255
                    End If
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
        With gambar
            For Pb = .Height - 1 To 0 Step -1
                For Pc = .Width - 1 To 0 Step -1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar3
                Pic2.Refresh()
            Next
        End With
        gambar = gambar3
    End Sub

    Private Sub SmoothingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SToolStripMenuItem.Click
        Dim MF(2, 2) As Double

        'MaskFilter.Show()
        'matriks Filter
        '  0 1 2
        '0 a b c
        '1 d e f
        '2 g h i

        'Filter smoothing
        MF(0, 0) = 1 / 9 'a
        MF(0, 1) = 1 / 9 'b
        MF(0, 2) = 1 / 9 'c

        MF(1, 0) = 1 / 9 'd
        MF(1, 1) = 1 / 9 'e
        MF(1, 2) = 1 / 9 'f

        MF(2, 0) = 1 / 9 'g
        MF(2, 1) = 1 / 9 'h
        MF(2, 2) = 1 / 9 'i

        gambar = New Bitmap(Pic1.Image)
        Pic2.Image = gambar
        Dim tempbmp As New Bitmap(Pic1.Image)
        Dim DX As Integer = 1
        Dim DY As Integer = 1
        Dim Red As Integer, Green As Integer, Blue As Integer

        With gambar
            For i = DX To .Height - DX - 1
                For j = DY To .Width - DY - 1
                    'proses matriks filter
                    'point(j,i)*e --> titik tengah
                    Red = CInt(.GetPixel(j, i).R) * MF(1, 1)
                    Green = CInt(.GetPixel(j, i).G) * MF(1, 1)
                    Blue = CInt(.GetPixel(j, i).B) * MF(1, 1)
                    'proses titik tetangga
                    'point(j-1,i-1)*a--> MF(0,0)--> titik kiri atas
                    If j - 1 < 1 And i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i - 1).R) * MF(0, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i - 1).G) * MF(0, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i - 1).B) * MF(0, 0))
                    End If
                    'point(j,i-1)*b --> MF(0,1) --> titik atas
                    If i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 1))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 1))
                    Else
                        Red = Red + (CInt(.GetPixel(j, i - 1).R) * MF(0, 1))
                        Green = Green + (CInt(.GetPixel(j, i - 1).G) * MF(0, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i - 1).B) * MF(0, 1))
                    End If
                    'point(j+1,i-1)*c --> MF(0,2) --> titik kanan atas
                    If j + 1 > .Width - DY - 1 And i - 1 > 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i - 1).R) * MF(0, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i - 1).G) * MF(0, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i - 1).B) * MF(0, 2))
                    End If
                    'point(j-1,i)*d --> MF(1,0) --> titik kiri
                    If j - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i).R) * MF(1, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i).G) * MF(1, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i).B) * MF(1, 0))
                    End If
                    'point(j+1,i)*f --> MF(1,2) --> titik kanan
                    If j + 1 > .Width - DY - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i).R) * MF(1, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i).G) * MF(1, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i).B) * MF(1, 2))
                    End If
                    'point(j-1,i+1)*g --> MF(2,0) --> titik kiri bawah
                    If j - 1 < 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i + 1).R) * MF(2, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i + 1).G) * MF(2, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i + 1).B) * MF(2, 0))
                    End If
                    'point(j,i+1)*g --> MF(2,1) --> titik bawah
                    If i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 1))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 1))
                    Else
                        Red = Red + (CInt(.GetPixel(j, i + 1).R) * MF(2, 1))
                        Green = Green + (CInt(.GetPixel(j, i + 1).G) * MF(2, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i + 1).B) * MF(2, 1))
                    End If
                    'point(j+1,i+1)*h --> MF(2,2) --> titik kanan bawah
                    If j + 1 > .Width - DY - 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i + 1).R) * MF(2, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i + 1).G) * MF(2, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i + 1).B) * MF(2, 2))
                    End If
                    'normalisasi
                    If Red < 0 Then
                        Red = 0
                    Else
                        If Red > 255 Then
                            Red = 255
                        End If
                    End If
                    If Green < 0 Then
                        Green = 0
                    Else
                        If Green > 255 Then
                            Green = 255
                        End If
                    End If
                    If Blue < 0 Then
                        Blue = 0
                    Else
                        If Blue > 255 Then
                            Blue = 255
                        End If
                    End If

                    'simpan warna hasil smoothing ke point j,i
                    gambar.SetPixel(j, i, Color.FromArgb(Red, Green, Blue))
                Next
                If i Mod 10 = 0 Then
                    Pic1.Invalidate()
                    Me.Text = Int(100 * i / (Pic1.Image.Height - 2)).ToString & "%"
                    Pic1.Refresh()
                End If
            Next
        End With
        Pic1.Refresh()
        Me.Text = "Proses Smoothing Image berhasil"
    End Sub

    Private Sub ContrastToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrastToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
        Pic2.Image = gambar
        Dim tempbmp As New Bitmap(Pic1.Image)
        Dim DX As Integer = 1
        Dim DY As Integer = 1
        Dim Red, Green, Blue As Integer
        Dim X, Y As Integer
        Dim tc As Integer
        tc = 5

        With tempbmp
            For X = DX To .Height - DX - 1
                For Y = DY To .Width - DY - 1
                    Red = CInt(.GetPixel(Y, X).R)
                    Green = CInt(.GetPixel(Y, X).G)
                    Blue = CInt(.GetPixel(Y, X).B)
                    'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey
                    Red = Red * tc
                    Blue = Blue * tc
                    Green = Green * tc
                    If (Red > 255) Then
                        Red = 255
                    End If
                    If (Blue > 255) Then
                        Blue = 255
                    End If
                    If (Green > 255) Then
                        Green = 255
                    End If
                    gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))
                Next
                If X Mod 10 = 0 Then
                    Pic1.Invalidate()
                    Pic2.Refresh()
                End If
            Next
        End With
    End Sub

    Private Sub DerajatToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DerajatToolStripMenuItem2.Click
        Dim rgb As Image
        rgb = Pic2.Image
        If rgb IsNot Nothing Then rgb.RotateFlip(RotateFlipType.Rotate270FlipY)
        Pic2.Image = rgb
    End Sub

    Private Sub DerajatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DerajatToolStripMenuItem.Click
        Dim rgb As Image
        rgb = Pic2.Image
        If rgb IsNot Nothing Then rgb.RotateFlip(RotateFlipType.Rotate270FlipX)
        Pic2.Image = rgb
    End Sub

    Private Sub DerajatToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DerajatToolStripMenuItem1.Click
        Dim rgb As Image
        rgb = Pic2.Image
        If rgb IsNot Nothing Then rgb.RotateFlip(RotateFlipType.Rotate180FlipY)
        Pic2.Image = rgb
    End Sub
End Class

Gambar Hasil Program

 

 Biner.jpg

 

Negatif.jpg

Brigthness.jpg

 Rotate 180 derajad .jpg

 Rotate  90 derajad.jpg

 Grayscale.jpg

 Smooting.jpg

 Rotate 270 derajad.jpg

Contrast.jpg

Continue Reading

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :

Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

 

Berikut Jawaban Program :
 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "PENJUALAN BARANG"

        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")

        Buattabel()
    End Sub
    Sub Buattabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = No.Text
        LST.SubItems.Add(Kode.Text)
        LST.SubItems.Add(Nama.Text)
        LST.SubItems.Add(Merk.Text)
        LST.SubItems.Add(Harga.Text)
        LST.SubItems.Add(Jumlah.Text)
        LST.SubItems.Add(Total.Text)
        LV.Items.Add(LST)
    End Sub
    Sub smpn(ByVal t As Form)
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 2)
        Select Case x
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-Gen"
        End Select
        Dim y As String
        y = Microsoft.VisualBasic.Right(Kode.Text, 3)
        Select Case y
            Case "001" : Nama.Text = "Flashdisk 4GB"
            Case "002" : Nama.Text = "Flashdisk 2GB"
        End Select
        Dim z As String
        z = Microsoft.VisualBasic.Mid(Kode.Text, 1)
        Select Case z
            Case "TS001" : Harga.Text = "105000"
            Case "TS002" : Harga.Text = "75000"
            Case "VG001" : Harga.Text = "90000"
            Case "VG002" : Harga.Text = "60000"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Total.Text = Val(Harga.Text) * Val(Jumlah.Text)
    End Sub
    Private Sub Bntsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bntsimpan.Click
        ISITABEL()
        smpn(Me)
    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
End Class

Continue Reading

Tugas Pak Mesran

Listing Program

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Vita"
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAFF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")

        For I = 1 To 4
            JAnak.Items.Add(I)
        Next I
        For I = 1 To 10
            JLembur.Items.Add(I)
        Next I
        Buattabel()
    End Sub
    Sub Buattabel()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("T - ISTRI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("J - ANAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("T - ANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("J - LEMBUR", 80, HorizontalAlignment.Center)
        LV.Columns.Add("H - LEMBUR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NIK.Text
        LST.SubItems.Add(Nama.Text)
        LST.SubItems.Add(Jabatan.Text)
        LST.SubItems.Add(Gaji.Text)
        LST.SubItems.Add(Status.Text)
        LST.SubItems.Add(Tistri.Text)
        LST.SubItems.Add(JAnak.Text)
        LST.SubItems.Add(TAnak.Text)
        LST.SubItems.Add(JLembur.Text)
        LST.SubItems.Add(HLembur.Text)
        LST.SubItems.Add(Pajak.Text)
        LST.SubItems.Add(Total.Text)
        LV.Items.Add(LST)
    End Sub
    Sub smpn(ByVal t As Form)
        NIK.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        JAnak.Text = ""
        TAnak.Text = ""
        JLembur.Text = ""
        HLembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub
    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "MANDOR" : Gaji.Text = 1750000
            Case "KEPALA BAGIAN" : Gaji.Text = 2500000
            Case "STAFF" : Gaji.Text = 1250000
        End Select
        Pajak.Text = 0.015 * Gaji.Text
    End Sub
    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        Select Case Status.Text
            Case "MENIKAH" : Tistri.Text = 0.09 * Gaji.Text
            Case "TIDAK MENIKAH" : Tistri.Text = 0
        End Select
    End Sub
    Private Sub JAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAnak.SelectedIndexChanged
        If JAnak.Text >= 2 And Status.Text = "MENIKAH" Then
            TAnak.Text = 0.07 * Gaji.Text
        ElseIf JAnak.Text = 1 And Status.Text = "MENIKAH" Then
            TAnak.Text = 0.03 * Gaji.Text
        Else
            TAnak.Text = 0
        End If
    End Sub
    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        If Jabatan.Text = "MANDOR" Then
            HLembur.Text = 7500
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            HLembur.Text = 10000
        ElseIf Jabatan.Text = "STAFF" Then
            HLembur.Text = 5000
        Else
            HLembur.Text = 0
        End If
        Total.Text = Val(HLembur.Text * JLembur.Text) + Val(Gaji.Text) + Val(Tistri.Text) + Val(TAnak.Text) - Val(Pajak.Text)
    End Sub
    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : Nama.Text = "vita"
            Case "002" : Nama.Text = "sari"
            Case "003" : Nama.Text = "Eni"
        End Select
    End Sub
    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABEL()
        smpn(Me)
    End Sub
    Private Sub HAPUS_ITEMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_ITEMS.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
    Private Sub HAPUS_SEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_SEMUA.Click
        LV.Items.Clear()
    End Sub
    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        Me.Close()
    End Sub
    Private Sub BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click
        NIK.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        JAnak.Text = ""
        TAnak.Text = ""
        JLembur.Text = ""
        HLembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub
End Class

Gambar hasil Program

Tugas Bahasa Pemrograman

Continue Reading

Mesran.Net Is The Best

Mau belajar PASCAL, VB.Net, Visual Basic 6.0, Visual C Sharp , Javascript dan lain-lain

Di sini ja lebih di jamin deh, di Mesran.Net.

Ada banyak contoh-contoh program  &  kita juga bisa download software, download-ebook dan Download Program. Di Mesran.Net Mahasiswa/i STMIK BUDIDARMA bisa melihat IP, Jadwal kuliah, Judul Tugas Akhir dan Judul Skripsi, dsb.

Continue Reading

Kumpulan Artikel Teknologi | Hubungan Teknologi dengan Pendidikan

 

Salah satu manfaat teknologi adalah sebagai media edukasi atau pembelajaran. Ya, dengan adanya teknologi, sistem penyampaian edukasi menjadi lebih menarik. Sistem pembelajaran dengan konsep teknologi ini dapat kita temui di beberapa taman hiburan atau tempat rekreasi di Indonesia, salah satunya ada di Jawa Timur Park 1 yang terletak di kota Malang. Di sini kita dapat menemukan wahana sejenis Holiday Technology bernama Science Centre Kimia & Biologi. Di wahana ini, terdapat perpaduan antara ilmu pengetahuan dan teknologi dengan berbagai alat peraga yang ada dan bisa langsung digunakan. Selain itu juga ada wahana Outdoor Science Center atau Taman Fisika yang juga menyuguhkan ilmu-ilmu fisika yang dikemas dengan teknologi terkini. Salah satu alat peraga adalah yang cukup menarik perhatian adalah Generator Van de Graff. Dengan menyentuh silinder utama generator Van de Graff ini, maka rambut dan bulu kita akan berdiri. Bagaimana bisa? Generator Van de Graff ini terdiri dari kubah logam, sisir logam bawah dan atas, serta silinder logam dan silinder politena yang dihubungkan oleh sabuk karet(Kumpulan Artikel Teknologi | Hubungan Teknologi dengan Pendidikan)
 

Cara kerjanya adalah dengan menggunakan teknologi kelistrikan yaitu dengan mengalirkan arus listrik dan menggerakkan motor generatornya. Akibatnya silinder politena berputar dan menggerakkan sabuk karet dan membuatnya  bermuatan positif. Muatan positif ini lalu dibawa darii sisir logam bawah ke sisir logam atas hingga menuju kubah yang membuat kubah juga bermuatan positif. Sabuk karet terus bergerak ke bawah lagi dan mengulangi proses yang sama.(Generator Van de Graff)Proses ini terus berlangsung sehingga menghasilkan muatan listrik positif yang banyak di kubah. Hal ini memicu rambut kita menjadi berdiri jika kita memegang generator Van de Graff ini. Alat peraga ini tentu membuat siswa menjadi lebih tertarik dalam mempelajari ilmu kelistrikan. Secara tidak langsung, siswa bisa menikmati wahana-wahana yang ada sambil mengetahui ilmu muatan listrik.

Kumpulan Artikel Teknologi | Hubungan Teknologi dengan Pendidikan-Keberadaan wahana-wahana ilmu pengetahuan dengan teknologi seperti ini tentunya sangat efektif untuk menunjang pembelajaran siswa. Hal ini bermanfaat sehingga siswa tidak hanya mengerti teori ilmu yang mereka pelajari, namun juga dalam hal praktek langsung. Selain itu, siswa tentu menjadi lebih semangat dan gembira karena wahana-wahana ini juga bisa digunakan untuk refreshing dan bermain. Wahana-wahana ini sebenarnya juga tidak hanya menarik bagi anak-anak kalangan pelajar saja, orang dewasa juga bisa menikmati kecanggihan teknologi yang dipadu dengan ilmu pengetahuan ini. Dan tentunya keberadaan wahana-wahana ini bisa dijadikan destinasi alternatif saat hari libur tiba karena selain bisa refreshing, kita juga bisa belajar dan menambah wawasan yang ada.

Selain wahana-wahana yang ada di tempat rekreasi, teknologi media pembelajaran sebenarnya juga bisa dilakukan di sekolah-sekolah. Sistem yang dilakukan bisa melalui sistem pembelajaran online ataupun media interaktif. Sistem pembelajaran dengan teknologi seperti ini sudah dilaksanakan di beberapa sekolah-sekolah favorit.

Sistem online atau E-Learning mungkin yang paling sering digunakan. Dengan ini guru tak harus bertatap muka dengan siswa-siswa untuk menyampaikan materinya. Cukup megirim tugas lewat email atau memasang informasi di web, siswa akan dapat membukanya lewat komputer dengan koneksi internet, baik di sekolah maupun saat di rumah. Selain itu, peran jejaring sosial juga tidak bisa dianggap remeh. Jejaring sosial seperti Facebook atau Twitter juga bisa berperan sebagai tempat sharing ilmu dan diskusi, sehingga pembelajaran tidak hanya dilakukan di sekolah saja.


Sedangkan untuk pembelajaran lewat media interaktif, kita bisa memanfaatkan fasilitas LCD proyektor dengan menggunakan file PDF, presentasi Power Point atau animasi Flash untuk menyampaikan materi yang dipelajari. Tentu siswa tidak akan mudah bosan dengan sistem belajar tersebut dibanding ketika guru menerangkan materi dengan panjang lebar di depan kelas. Kita juga bisa memanfaatkan perangkat multimedia lainnya seperti video, musik dan animasi untuk lebih menarik siswa dalam kegiatan belajar.

Teknologi Cerdas Untuk Pendidikan Masa Depan
(Pembelajaran dengan teknologi LCD proyektor)-Keberadaan wahana-wahana edukasi dan sistem pembelajaran berbasis teknologi ini tentu membuat proses pembelajaran menjadi lebih menarik. Terutama untuk wahana-wahana edukasi teknologi yang akan meningkatkan daya serap siswa akan ilmu yang dipelajari. Namun untuk mencoba wahana-wahana edukasi berbasis teknologi, para pelajar ini harus mengunjunginya di taman rekreasi yang harga tiketnya tidak bisa dibilang murah. Selain itu keberadaannya hanya tersebar di beberapa kota besar saja sehingga tidak semua siswa bisa mencobanya.

Inovasi baru perlu dilakukan untuk mengatasinya dengan menghadirkan wahana-wahana berbasis teknologi ini di sekolah-sekolah atau minimal di tiap-tiap kota. Mungkin ini akan memakan biaya yang cukup besar, namun terkadang investasi dengan dana besar diperlukan untuk meningkatkan kualitas pendidikan di Indonesia.

(Salah satu wahana edukasi berbasis teknologi)-Artikel Teknologi Berkaitan di Dunia Pendidikan,Keberadaan wahana-wahana edukasi yang berbasis teknologi ini tentu akan membuat siswa semakin semangat dalam belajar. Dan jika inovasi tersebut dijalankan, maka tiap siswa di seluruh wilayah bisa memanfaatkan fasilitas wahana edukasi tersebut dengan maksimal. Selain itu, siswa juga bisa mengisi hari liburnya dengan mengunjungi wahana-wahana edukasi ini. Tentu ini lebih bermanfaat dibandingkan tempat-tempat wisata lainnya.

Dengan banyaknya teknologi-teknologi yang bisa digunakan untuk wahana dan media pembelajaran, tentu kita berharap agar dunia pendidikan Indonesia bisa menjadi lebih baik lagi. Diharapkan dengan wahana-wahana rekreasi dan wisata yang berbasis edukasi dan sistem pembelajaran yang lebih modern tersebut dapat mencetak individu-individu yang pintar, cerdas, kreatif, dan berkarakter. Dan harapannya tentu saja untuk mewujudkan masa depan pendidikan yang lebih cerah dengan teknologi yang ada dan terus berkembang ini.

Continue Reading

Jepang Kembangkan Robot Cekatan Pembantu Pasien Penderita Stroke

Gambar Robot Toyota. (Foto: fareastgizmos.com)

 TOKYO (Berita SuaraMedia)  - Tidak hanya ingin berkutat di dunia otomotif, Toyota rupanya semakin berhasrat untuk mengembangkan teknologi robotika.

Bahkan, perusahaan asal Jepang ini kabarnya tengah menciptakan robot terapi khusus penyakit stroke.

Ide di balik robot ini adalah menciptakan sebuah robot yang bisa membantu para pasien yang terkena stroke, terlebih bagi mereka yang telah menderita lumpuh satu bagian sisi tubuh.

 

Toyota rupanya tak sendirian dalam penggarapannya, mereka mengajak kerja sama Universitas Fujita Health untuk menguji robot terapi ini.

Diberitakan Slash Gear, Selasa (7/6/2011), kabarnya Toyota sedang menciptakan versi baru robot tersebut dengan bobot yang lebih ringan namun tetap bisa cekatan untuk mengerjakan segala pekerjaan.

Nantinya robot ini akan berada di sisi pasien untuk menopang tubuh mereka ketika sedang berjalan.

Baik menggunakan tangan maupun bahu robot, tergantung pada kebutuhan pasien.

Namun sayang, belum begitu banyak informasi yang bisa dikorek mengingat robot ini tengah diuji.

Agaknya pihak universitas dan Toyota masih menjaga informasi rapat-rapat pada ciptaan baru mereka. Mudah-mudahan saja kita bisa segera melihat lebih banyak robot dalam waktu dekat. (ar/dt/sglg) www.suaramedia.com

Continue Reading

Perbedaan Jelas Blackberry dan Android

Beda sumber dan beda tanggapan mengenai perbedaan kedua ponsel ini. Menurut beberapa provider seluler, disini saya ambil contoh Indosat. Bagi Indosat, ponsel berlogo titik-titik yang membentuk huruf 'B' ini memiliki keunggulan aplikasi dan perangkat. Sehingga siapa pun yang baru memiliki BlackBerry tak akan kesulitan untuk menggunakannya. Sedangkan si robot ijo milik Google mengadopsi sistem operasi terbuka. Hanya orang yang suka ngoprek aplikasi saja yang bakal lebih menggemari.

Dari segi fitur dan kegunaan, secara teknis hardware Android jauh diatas Blackberry. Untuk software, bisa dibilang Blackberry sangat kaku. Sebagai contoh Android sanggup play dengan 25 fps HD pada saat kita mengcopy file avi 1GB tanpa converting. Sedangkan Blackberry mengharuskan kita menggunakan converting.

Sedangkan dari segi tampilan mungkin sobat bisa membedakannya sendiri. 

Blackberry merupakan satu jenis ponsel yang dibuat oleh RIM dengan berbagai tipe tapi dalam bentuk model tampilan ponsel yang hampir sama. Sebagai contoh dan bahan perbandingan bisa sobat lihat pada produk-produk buatan Apple seperti Macbook, iPhone, iPad, dll. Dimana semua tipe produk itu berada dinaungan satu perusahaan dan OS yang hanya dimiliki oleh satu naungan perusahaan. Beda dengan si robot ijo Android yang bebas melanglang buana di berbagai tipe hp. Seperti Samsung, HTC, dll. Sebagai contoh juga si robot ijo ini bisa dibandingkan dengan Windows, OS yang dibuat oleh perusahaan ternama Microsoft ini bisa sobat temukan diberbagai tipe dan merk laptop. Kebanyakan ponsel Android menggunakan input touchscreen yang kurang populer di Indonesia.

Perbedaan Jelas Blackberry dan Android

Satu catatan dari saya buat sobat yang ingin membeli si robot ijo, bahwa Android membutuhkan koneksi internet yang sangat cepat untuk memaksimalkan kegunaannya. Dan seperti kita ketahui, koneksi internet yang murah meriah alias cepat tapi dengan harga relatif murah dari Operator selular Indonesia menurut saya kurang dapat diandalkan dan untuk memaksimalkan koneksi internet, sobat harus merogoh kocek lebih dalam (jangan membeli celana dengan kocek yang tidak dalam).

Continue Reading

Teknologi Revolusioner yang diperkirakan akan merubah seluruh dunia

Manusia akan segera memasuki masa depan.

Teknologi bergerak sedemikian cepatnya sehingga dalam waktu tidak lama lagi seluruh dunia akan berubah besar-besaran. Teknologi-teknologi baru yang sedang dikembangkan benar-benar revolusioner, hal-hal yang nyaris tidak pernah terbayangkan sebelumnya oleh para ilmuwan dan hanya ada dalam khayalan-khayalan manusia.


Di suatu hari nanti, manusia mungkin bisa hidup ratusan tahun tanpa mengenal penyakit, memiliki kecerdasan yang genius, dan pergi bertamasya ke luar angkasa.


Ini adalah beberapa teknologi revolusioner yang diperkirakan akan merubah seluruh dunia :
1. Mesin-mesin Cerdas Seukuran Atom, Nanoteknologi
2. Zaman Manusia-manusia Super, Rekayasa Genetika
3. Energi terdahsyat di Alam Semesta, Fusi Nuklir
4. Regenerasi Wolverine, Stem Cell
5. Komputer Kuantum
6. Baju Menghilang Harry Potter, Metamaterial
7. Space Elevator, Tangga Menuju Bintang-bintang
8. Scramjet
9. Hidup Ratusan Tahun, Resveratrol.
10. Penyatuan Manusia dan Mesin, Singularitas.

1. Mesin-mesin Cerdas Seukuran Atom, Nanoteknologi

“Coal and diamonds, sand and computer chips, cancer and healthy tissue: throughout history, variations in the arrangement of atoms have distinguished the cheap from the cherished, the diseased from the healthy. Arranged one way, atoms make up soil, air, and water. Arranged another, they make up ripe strawberries. Arranged one way, they make up homes and fresh air; arranged another, they make up ash and smoke”.Eric Drexler, Engines of Creation

Nanoteknologi adalah segala teknologi masa depan yang memungkinan manusia memanipulasi partikel-partikel super kecil yang besarnya nyaris seukuran atom! Nanometer sendiri adalah ukuran 1/semilyar meter, atau nyaris ketebalan rambut dibelah 50.000. Itulah kedahsyatan teknologi nano.


Tujuannya adalah menciptakan material-material baru masa depan, bahkan mesin-mesin dan robot-robot seukuran partikel. Material-material itu akan bisa lebih kuat dari intan, super ringan, tahan panas dan dingin dengan skala yang ekstrim, mampu menghantarkan listrik lebih baik, lebih tahan lama, ramah lingkungan dan seterusnya.


Kemungkinan aplikasinya benar-benar dahsyat dan akan merubah seluruh dunia. Bayangkan bila kita bisa menciptakan berbagai material baru yang lebih keras dari intan, dan jauh lebih ringan dari baja. (Carbon nanotubes, sp2 bond). Kita bisa menciptakan kerangka super kuat untuk mobil, pesawat terbang, atau bangunan dan jembatan. Dengan bobotnya yang lebih ringan, semua mobil dan pesawat juga akan lebih hemat energi.


Kita bisa menciptakan baju anti kusut dan tahan noda. Kita juga bisa menciptakan robot berukuran bakteria, nanobots, dan memasukanya ke dalam tubuh manusia. Fungsinya bisa dari menyembuhkan penyakit, menghancurkan sel-sel kanker, bahkan memperkuat tubuh manusia (Feynman, ”Swallowing the Doctor”). Nanobots ataupun nanoparticles bahkan nantinya diperkirakan juga akan bisa kembali menutup lubang ozon.


Dengan komponen seukuran nano, kita bisa membuat supercomputer sebesar kotak korek api, dan media penyimpanan data yang menyimpan jutaan gigabyte informasi tentang umat manusia dan seluruh alam semesta, sebesar seujung kuku.

Bagaimana teknologi ini bisa dilakukan? Karena mikroskop super-canggih yang dapat melihat atom sudah ada sejak 1981, Scanning Tunneling Microscope (STM), dan Atomic Force Microscope (AFM, 1986).

2. Era Manusia-manusia Super, Rekayasa Genetika

“Human genetic engineering has the potential to change human beings' appearance, adaptability, intelligence, character, and behaviour. It may potentially be used in creating more dramatic changes in humans”.
Wikipedia Genetic Engineering.

Manusia telah berhasil memetakan gennya dalam proyek raksasa “The Human Genome Project”. Dengan data ini manusia mempunyai peta informasi untuk mengeksplorasi fungsi dan potensi dari tiap gen dalam tubuh manusia. Mulai dari gen yang menentukan bentuk fisik manusia, gen penyebab kanker, gen yang membentuk ingatan, gen yang menciptakan kecerdasan, bahkan gen khusus yang mengatur proses penuaan.

Ini nantinya akan memungkinkan dilakukannya rekayasa genetika untuk menciptakan manusia-manusia masa depan yang sangat unggul. Manusia dengan kesehatan sempurna, terbebas dari penyakit, berumur lebih dari 100 tahun dan mempunyai kecerdasan mendekati genius.

Bayangkan bila manusia menemukan gen spesial yang membuat Einstein menjadi genius. Lalu gen itu bisa ditransfer ke seluruh umat manusia. Atau keunggulan fisik David Beckham, atau bahkan kharisma John F. Kennedy.

Tapi rekayasa genetika tidak hanya untuk manusia, tapi juga bisa untuk tumbuhan dan hewan ternak. Rekayasa genetika bisa menciptakan padi dan gandum jenis baru dengan hasil panen yang berkali-kali lipat. Kita juga bisa menciptakan daging sapi yang lebih empuk dan gurih. Kita bahkan juga bisa menciptakan tanaman dan hewan konsumsi dengan nilai gizi yang unggul.

3. Energi Terdahsyat di seluruh Alam Semesta, The Power of the Stars

“What would fusion mean? Endless, cheap energy. Amazing Star Trek, space travel possibilities. Fame, fortune, and undoubtedly a Nobel or two for the lucky scientist”.

The Observer, Desember 2000

Matahari, setiap detiknya, mengeluarkan energi sebesar seluruh energi yang digunakan seluruh umat manusia sepanjang sejarahnya. Energi plasma hidrogen raksasa sebesar 380 Milyar-milyar Mega-Watt (380^26 MW), per detiknya. Inilah energi yang dikenal sebagai energi Fusi Nuklir (Nuclear Fusion), The power of the Sun. Dan para ilmuwan dunia sedang berusaha mendapatkannya.

Dan ini adalah energi yang membuat bintang-bintang raksasa di alam semesta terbakar selama milyaran tahun. Energi terdahsyat, di seluruh alam semesta.

Sebuah percobaan besar sedang dilakukan di kota kecil Cadarache di ujung selatan Perancis dalam sebuah proyek bernama ITER. Disini atom Deuterium dan Tritium dilebur dengan panas mencapai 150 juta derajat Celcius, nyaris 10 kali panas inti Matahari. Wadah peleburannya dilindungi oleh medan magnet Tokamak sehingga tidak meleleh.

Hebatnya adalah bahwa Deuterium bisa dihasilkan dari air laut biasa, dan Tritium dibentuk dari Lithium yang bisa didapat dari batu alam. Energi terdahsyat di seluruh alam semesta dari Air dan Batu alam.

Kalau para ilmuwan ini berhasil menciptakannya, maka seluruh dunia akan mempunyai sumber energi baru yang dahsyat menggantikan minyak bumi. Energi ini akan begitu besar dan efisien, tidak terbatas, sangat murah, serta ramah lingkungan.

(Note : penggunaan nanoteknologi dalam sel photovoltaic tenaga surya, nanocrystal, juga dikatakan memiliki potensi energi super besar yang mampu menggantikan minyak bumi).

4. Regenerasi Wolverine, Stem Cell

Bayangkan bila penyakit jantung dan diabetes bisa disembuhkan secara sempurna, orang lumpuh bisa berjalan, dan orang buta, bisa melihat kembali.

Anda pernah melihat seekor cecak, yang bisa menumbuhkan kembali ekornya yang putus dengan sempurna? Atau jika anda penggemar komik ”X-Men”, anda pasti tahu tokoh superhero bernama Wolverine. Saat tubuhnya tertusuk pisau atau tertembus peluru, dia dapat menyembuhkan lukanya dengan nyaris seketika. Ia dapat meregenerasi seluruh sel-sel tubuhnya dengan sempurna, secara instan.

Tapi itu cuma khayalan. Ada sejenis cacing bernama “planarian worm”, yang banyak hidup di laut maupun sungai, yang mampu menumbuhkan ulang bahkan nyaris seluruh tubuhnya.

Planaria, terutama spesies Schmidtea mediterranea, mampu meregenerasi utuh tubuhnya, bahkan bila tinggal sepotong kecil saja tubuhnya yang tersisa, sampai 1/300 bagian. Dan bila kepalanya dihilangkanpun, dia akan menumbuhkan kembali kepalanya dengan sempurna.

Bagaimana jika manusia bisa melakukan itu nantinya? Jika kita dapat secara langsung mengganti semua sel-sel tubuh kita yang rusak dengan sempurna dan tanpa cacat. Para ilmuwan telah nyaris mencapai keajaiban itu. Teknologi biologi molekular bernama Stem Cell, atau Sel Induk. Ini adalah sel paling dasar dari tubuh manusia, yang bisa berubah, atau dirubah, menjadi sel atau organ apapun di tubuh manusia.

Bila anda memiliki penyakit jantung, maka sel jantung itu bisa diganti dengan stem sel dan jantung anda akan berfungsi normal kembali. Bila anda mengalami kebutaan, sel retina anda bisa diganti dengan sel baru dari sel induk dan anda akan bisa melihat kembali.

Jika anda menderita penyakit yang berhubungan dengan fungsi otak seperti stroke, alzheimer atau parkinson, maka sel otak anda yang rusak, bahkan jaringan pusat otak cerebral cortex, bisa diganti dengan stem cell. Dan kalau anda menderita diabetes, maka stem cell akan menyelamatkan anda dengan meregenerasi sel pankreas penghasil hormon insulin.

Stem Cell benar-benar membawa revolusi besar dalam kesehatan umat manusia.

5. Komputer Kuantum

Bayangkan sebuah komputer masa depan, yang kecepatannya ribuan kali lebih cepat dari supercomputer tercepat sekarang. Ribuan kali lebih cepat dan efisien dari IBM ”Roadrunner” di Los Alamos yang kecepatannya mencapai 1.7 petaflops (1 petaflop = 10^15 operasi per detik).


Inilah kedahsyatan komputer kuantum. Komputer ini begitu dahsyat karena diciptakan memakai fenomena keajaiban dunia kuantum, Superposition dan Quantum Entanglement.


Dalam pemecahan kode misalnya (kriptografi), untuk memecahkan kode yang digitnya sampai 140, komputer biasa akan memerlukan waktu milyaran tahun untuk memecahkannya. Tapi dengan komputer kuantum, ini bisa dipecahkan hanya dalam waktu beberapa puluh menit saja.

Dengan komputer ini manusia juga akan bisa memprediksikan cuaca di bumi dan gejala-gejala alam lain yang sangat kompleks dengan sangat akurat berbulan-bulan sebelumnya, seperti gempa bumi dan tornado. Dan tentu saja ini akan makin merevolusikan lagi kecepatan pengembangan seluruh teknologi canggih yang ada sekarang.


6. Jubah Menghilang Harry Potter, Metamaterial

“The announcement last November of an "invisibility shield," created by David R. Smith of Duke University and colleagues, inevitably set the media buzzing with talk of H. G. Wells's invisible man and Star Trek's Romulans”.
MIT Technology Review

Hanya beberapa tahun yang lalu, seluruh ilmuwan ternama dunia masih yakin bahwa tidak ada satupun material di dunia ini yang bisa membuat manusia menghilang. Itu benar-benar tidak mungkin, karena itu melanggar semua hukum alam yang diketahui manusia. Tapi mereka semua salah..

Metamaterial, menjadi salahsatu bahan yang ramai dibicarakan. Bahan ini bisa membuat sesuatu, menjadi tidak terlihat. Sebuah baju yang menggunakan teknologi ini bisa membuat pemakainya ”menghilang”, seperti jubah ajaib dalam ”Harry Potter”. 

Sebuah pesawat tempur dengan bahan metamaterial akan jadi tidak terlihat, bukan sekedar tidak terlihat radar seperti teknologi ”Stealth”, tapi benar-benar tidak terlihat mata seperti alat cloaking device dalam Star Trek.

Ini bisa dilakukan misalnya dengan menciptakan material artifisial yang mampu membelokkan radiasi elektromagnetik, demikian pula dengan cahaya, yang pada dasarnya adalah radiasi elektromagnetik. Bahannya bisa seperti timah dan plastik yang diatur dalam struktur pola tertentu.

Metamaterial akan membelokkan cahaya, mengelilingi obyek yang diselimutinya dan berkumpul kembali di ujungnya, seperti air sungai mengelilingi sebuah batu. Dalam penelitian terakhir di Perdue University mereka menggunakan jarum-jarum khusus yang akan membelokkan cahaya melampaui obyek yang diselubungi sementara obyek di belakangnya akan terlihat.

Material ini sedang diteliti di seluruh dunia termasuk di MIT, University of California Berkeley, Duke University, dan Caltech di LA.

7. Space Elevator, Tangga Menuju Bintang-bintang

Space elevator atau Tangga Luar angkasa adalah seperti lift yang sangat tinggi dari bumi menuju ke orbit bumi di luar angkasa, 35.000 kilometer tingginya. Dengan lift ini perjalanan ke orbit bumi akan menjadi lebih mudah, dan murah. 

Banyak orang berharap, bahwa program ruang angkasa yang tadinya berhenti sampai di bulan karena sangat mahal, akan bisa dimulai lagi. Dan mungkin impian manusia untuk pergi ke Mars, akan terwujud.

Lift ini awalnya hanya berupa khayalan, tapi ternyata dengan ditemukannya sebuah teknologi baru, hal ini menjadi sangat memungkinkan diwujudkan. Teknologi itu adalah Carbon nanotube, material baru yang dikatakan lebih kuat dari intan dan lebih ringan dari baja.

Hal ini nantinya akan memungkinkan dimulainya era baru dalam penjelahajan ruang angkasa.

8. Memasuki Era Hiper-Sonik, Scramjet

Scramjet akan menjadi salahsatu revolusi terbesar dalam sejarah transportasi dunia. Pesawat tempur tercanggih di dunia sekarang, F/A-22 Raptor milik Amerika berkecepatan maksimal Mach 2, atau 2 kali kecepatan suara. Pesawat penumpang Scramjet, akan membawa anda terbang dengan kecepatan 10 kali kecepatan suara, Mach 10.

Penerbangan dari New York ke Tokyo yang sekarang ditempuh dalam waktu 18 jam yang panjang dan melelahkan, akan ditempuh Scramjet, hanya dalam 120 menit.

Scramjet tidak perlu memakai bahan bakar roket biasa yang mahal dan berat, bahan bakarnya menggunakan hidrogen cair yang dicampur penyedotan oksigen langsung dari atmosfer (air-breathing scramjet engine). Pembakaran hidrogen dan oksigen pada kecepatan supersonik inilah yang akan mengakselerasikan kecepatannya.

Ini akan membuat penerbangan dari satu tempat ke tempat lain di seluruh dunia menjadi super cepat.

9. Fountain Of Youth, Resveratrol 

Mungkin, nantinya kita bisa menemukan sesuatu yang memungkinkan kita hidup ratusan tahun. Tapi para ilmuwan mungkin telah menemukannya, sesuatu yang dinamakan “Sirtuin”, Silent Information Regulator 2 (Sir2) proteins dan resveratrol, zat antioxidan yang ternyata banyak ditemukan dalam buah anggur merah (Jadi sering-seringlah makan buah anggur.)


Tapi para ilmuwan juga telah menciptakan sesuatu yang bahkan lebih kuat dari resveratrol yaitu sebuah obat dengan kode, SRT1720.


“SRT1720 is a thousand times more potent than resveratrol, meaning that it could be taken in smaller doses. A person would have to drink hundreds of glasses of wine to get the same health benefits from resveratrol. Resveratrol will pretty soon look like ancient technology,"
David Sinclair, a biologist at Harvard Medical School


10. Singularitas.

Suatu hari nanti, akan datang suatu masa dimana melalui rekayasa genetika seluruh manusia akan mempunyai fisik dan kecerdasan yang nyaris sempurna. 

Lalu dengan kemajuan teknologi komputer, komputer kuantum dan nanoteknologi memungkinkan manusia memasukkan Quantum Computer berukuran partikel ke dalam otaknya dan menggunakan partikel-partikel nano untuk makin memperkuat tubuhnya. Ini adalah hal yang dinamakan Singularitas. Penyatuan antara biologi manusia dengan teknologi.

Continue Reading