Latest Games :

Popular Posts

Powered by Blogger.

Latest Post

Tugas Program VB (Pengolahan Citra)

Friday, June 28, 2013 | 0 komentar


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

Sunday, June 2, 2013 | 0 komentar

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

Tuesday, May 21, 2013 | 0 komentar

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

Continue Reading

Mesran.Net Is The Best

Thursday, May 2, 2013 | 0 komentar


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

Tuesday, April 23, 2013 | 2komentar

Teknologi Cerdas Untuk Pendidikan Masa Depan 

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

| 0 komentar

Gambar Robot Toyota. (Foto: fareastgizmos.com)
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
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Informasi Dunia Maya - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger