SELAMAT DATANG

welcome to my first blog---

Jumat, 23 November 2012

AVG 2013 Internet Security

AVG Internet Security 2013 Full Serial Number merupakan antivirus terbaru yang diluncurkan oleh AVG. Antivirus ini dapat melindungi PC anda ketika "berselancar" di dunia maya. Walaupun masih dalam versi beta (tahap pengembangan), antivirus ini tampilannya sudah lebih baik dari versi 2012 dan sudah cukup baik dalam melindungi PC kita dari serangan virus dan sejenisnya.
Minimum System requirements: 

  • Operating system: Windows XP, Vista, 7
  • Processor: Intel Pentium 1.5 GHz or faster
  • RAM: 512 MB 
  • Disk Space: 1 GB
Download AVG 2013

http://cdn.ghacks.net/wp-content/uploads/2012/09/avg-anti-virus-free-2013.jpg

Kamis, 19 Juli 2012

Cara Mengubah Tampilan Windows 7 menjadi Mac OS X Apple ( Part1 )


Selamat Malam. Bosan dengan tampilan windows yang itu itu aja dah beribu kali ganti theme namun yg berubah palingan background ataupun latar startup..Tenang tenang Kali ini maha akan share style MAC OS X apple :) khusus untuk windows 7 32 bit :) . Mungkin dengan anda melihat gambar dibawah ini begitu banyak aplikasi yang dipakai dan mesti download disini disitu ...tenang lagi dah jangan tegang gitu :D maha share bukan style doank kok udah masuk dalam 1 paket begitu sobat install nih Mac OS X Lion Skin 12 maka otomatis semua aplikasi untuk mempercantik tampilan desktop anda akan terinstall semua seperti,Rocketdock,XWidget dan lain lain :)  Sampai Skrg maha aja masih menggunakan tampilan apple ini dikarenakan unik ,..ada suaranya juga lo klo klik ini itu

Mau Liat Screenshotnya?





Sampai sampai ke windows 7 startupnya pun berubah apple :) ..ada juga IPAD LAUNCER buat ya gaya gayaan aja ,.. anda juga bisa menambahkan banyak widget dengan cara mendownloadnya dari gallery di Xwidget setelah anda install Lion X Pack 12


DOWNLOAD Mac OS X Lion Skin Pack

Password : mahaxp.com

Rabu, 29 Februari 2012

cara koneksi ke mysql dari vb menggunakan mysql odbc

1.  Install vbnya
2.  Download mysql odbc-nya, install
3.  create database di mysql, misalnya infoonline
4.  use infoonline ==> create table mahasiswa
5.  masuk ke control panel, switch ke classic view aja.
6.  masuk ke Administrative Tools –> Data Source (ODBC)
7.  Di tag user DSN, klik Add
8.  pilih mysql odbc driver, –> klik finish
9.  akan tampil panel odbc connector
10. isi datasource name, misal ikhsanganteng, description (kosongin juga boleh),server(defaultnya localhost),User nya root, password (default kosong), pilih databasenya
11. Klik Test… (success, connection was made) berarti telah sukses buat koneksi, klik ok
12. Sekarang, masuk ke vbnya, klik menu project — > references — > pilih Microsoft ActiveX  Data  Objects 2.0 Library dan Microsoft ActiveX Data Object RecordSet 2.8 Library
13. Di project Explorer, tambahkan module, add module
14. Isikan coding koneksi dan seleksi mahasiswa
Public con As New ADODB.Connection
Public rsmhs As New ADODB.Recordset
Public Sub konekdb()
Set con = New ADODB.Connection
‘ connection provider kalau ragu, ambil dari adodc,
‘build, isi bagian pada tag connection, isi datasource namenya,
‘pilih ikhsanganteng, ok, copy connection stringnya
con.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=ikhsanganteng”
con.CursorLocation = adUseClient
End Sub
Public Sub seleksimhs()
Set rsmhs = New ADODB.Recordset
rsmhs.Open “select * from mahasiswa”, con, adOpenDynamic, adLockOptimistic
End Sub
——————-
Kalau udah, di form, tambahkan komponen datagrid, double klik formnya
‘tambahkan coding berikut pada form_Load
Private Sub Form_Load()
konekdb
seleksimhs
Set DataGrid1.DataSource = rsmhs
End Sub
——————–
Run (F5), selamat mencoba…

Kamis, 26 Januari 2012

JAWABAN QUIS NO. 2

Listing Program

Public Class Form1
Sub BuatTabel()
ListView1.Columns.Add("Npm", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True

End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = Npm.Text
Lst.SubItems.Add(Nama.Text)
ListView1.Items.Add(Lst)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
End Sub

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
IsiTabel()
Npm.Text = ""
Nama.Text = ""

End Sub

Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
ListView1.Items.Clear()
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class



Hasil Program




LINK SOAL QUIS

JAWABAN QUIS NO.3

LISTING PROGRAM LOGIN

Public Class Form1

Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
If Nama.Text = "MUHAMMAD SUHAR" And Password.Text = "naruto" Then
formmenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Nama.Text = ""
Password.Text = ""
End If
End Sub

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

Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Masuk_Click(sender, e)
End If
End Sub
End Class



HASIL PROGRAM
 







LISTING PROGRAM FORMMENU

Public Class formmenu

Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
penggajian.show()
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class


HASIL PROGRAM








LISTING PROGRAM PENGGAJIAN KARYAWAN

Public Class penggajian
    Sub addno()
        Dim i As Integer
        For i = 0 To 9
            No.Items.Add(i)
        Next i
    End Sub
    Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        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(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(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addno()
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
        Jam.Items.Add("4")
        Jam.Items.Add("5")
        Jam.Items.Add("6")
    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 Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Muhammad Suhar"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Bayu Pratama"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Juliana"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Nurhayati"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" Then
            Lembur.Text = (Jam.Text * 5000)
        ElseIf Jabatan.Text = "MANDOR" Then
            Lembur.Text = (Jam.Text * 7500)
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Lembur.Text = (Jam.Text * 10000)
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub


    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class


HASIL PROGRAM
 

Selasa, 01 November 2011

Pemograman Visual

Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.
Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:
Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF.

Contoh Pemrograman

Microsoft vb: Membuat Form Transaksi

Sudah lama juga tidak menulis artikel mengenai pemrograman.Kali ini saya akan mencoba berbagi sebuah tutorial VB.net tentang bagaimana membuat form transaksi.

Sebelum membaca artikel ini,anda perlu tahu bahwa disini saya mencoba meneruskan apa yang sudah saya tulis sebelumnya,bisa anda lihat disini: Microsoft Visual Basic .Net Tutorial 1: Mengkoneksikan VB.net Dengan Database Access.