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

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

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…

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 

LINK SOAL QUIZ

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.

Tutorial dan Contoh Program – Menggunakan Stored Procedure Pada ADO.NET – VB.NET

<< Sebelumnya : Tutorial dan Contoh Program – Menggunakan Data Reader Pada ADO.NET – VB.NET

Stored Procedure merupakan rangkaian program yang dapat disimpan dan dipanggil/dieksekusi oleh program lain atau dieksekusi oleh SQL-prompt. Umumnya suatu stored procedure yang dibuat oleh SQL Server berhubungan dengan database server dan menghasilkan sekumpulan record. Stored procedure ditulis dengan sebuah script. Pemakaian stored procedure akan meningkatkan performa database, meningkatkan sekuritas database, dan memungkinkan membuat program untuk database. Performansi ditingkatkan melalui pemakaian memori lokal, program yang telah dikompilasi terlebih dahulu dan pemakaian cache. Alasan lain adalah kebutuhan akan sebuah operasi yang sama sedangkan ada banyak client yang harus mengakses dengan bahasa pemrograman yang berbeda.

Stored procedure yang telah dibuat di server database dapat diakses melalui aplikasi program VB.NET, yaitu dengan membentuk objek command dan mengatur nilai dari CommandType untuk diisi dengan StoredProcedure. Contoh programnya adalah sebagai berikut :

MEMBUAT KONEKSI DARI VB 2008 KE MICROSOFT ACCSES (2007) KE DATABASE MENGGUNAKAN CONNECTION STRING

koneksi dari vb 2008 ke database Access menggunakan My.Settings class, pada kesempatan kali ini kita akan membahas bagaimana caranya membuat koneksi dari vb 2008 ke database Access menggunakan Connection String.
untuk contoh database, kita masih menggunakan database Access 2007 dengan nama “TestDatabase.accdb” yang sudah kita gunakan sebelumnya, yang disimpan di dalam drive “C:\Test Project\Database”,

tujuan kita adalah membuat koneksi dari vb 2008 ke database Access tsb dan menampilan isi record dari table “TestTable” ke DataGridView.

Membuat Connection String

Ok, langkah-langkahnya adalah sebagai berikut :

Buka Aplikasi Visual Studio 2008 – Pilih File – New Project
Ubah Nama Projectnya menjadi DbConnectionString, lalu klik OK

Pilih menu Project – Add Module – Kemudian Klik tombol Add

Kemudian di Jendela Solution Explorer, Double klik Module1

Pada jendela Code Module1, ketikkan perintah berikut

Kembali ke Design Form1.vb, tambahkan control Button Dan DataGridView

Double klik button1, lalu ketikkan perintah dengan urutan sebagai berikut :

Setelah selesai, coba jalankan project anda dengan menekan tombol F5, lalu klik Button1, jika koneksi berhasil maka datagridview akan terisi oleh record dari table “testTable” seperti gambar dibawah.

Ok,, Happy Coding !!! ^_^

cara membuat program penjumlahan dalam vb 2008

dihalaman kerja vb 2008, maka yang harus kalian lakukan adalah membuat form seperti dibawah ini.


Maaf kalau desain formnya kurang bagus. Tapi kita coba dulu lah seperti ini. Nah, untuk membuat form seperti ini, caranya drag label yang terdapat pada toolbox kedalam form lalu pada properties box cari tulisan Text, kemudian ganti text label1 dengan A:. Selanjutnya drag Textbox menuju form dan letakkan disamping tulisan A: atau disamping label1. Ikuti langkah diatas untuk membuat B. Kemudian drag Button dan letakkan dibawah textbox2. Pada properties box, ganti Text pada button1 dengan "hitung". Nah, sekarang kalian telah mengetahui bagaimana cara membuat desain program. Selanjutnya, tugas kalian adalah membuat desain form seperti gambar diatas. Anda dapat mendesain program sesuka hati kalian, asalkan rapi dan enak dipandang mata.
Selanjutnya klik dua kali pada button1 atau hitung. Kemudian masukkan kode berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
End Class

Penjelasan: kode berwarna merah diatas adalah kode yang memang terdapat atau langsung ada ketika kita meng klik dua kali pada button1 atau hitung. Sedangkan yang kita tambahkan atau masukkan adalah kode berwarna orange.
Pengertian dari kode berwarna orange adalah, jika button1 di klik maka nilai pada teksbox3 adalah hasil dari penjumlahan nilai teksbox1 dan teksbox2.

Kemudian, klik dua kali pada button2 atau keluar. Selanjutnya tambahkan kode berikut:

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

Fungsi dari kode End adalah untuk menghentikan program.
Nah, jika sudah tekan F5 untuk meng compile dan menjalankan program. Jika sudah, dan sukses, maka program akan berjalan, kalian bisa mencoba menginputkan beberapa bilangan. Kira-kira hasilnya akan seperti gambar dibawah ini.


Nah, apabila program sudah berjalan dengan baik, Anda dapat meng-compile program yang Anda buat dengan cara mengklik menu Build, kemudian klik Build Desktop Windows dan tunggu proses compile selesai. Kemudian simpanlah program dengan cara mengklik File, Save All.

KEGIATAN KESEHARIAN SAYA

1. Sebelum saya mulai kost, kegiatan saya di kampung hanya membantu orang tua setelah saya pulang kuliah….
Misalnya: a. membatu orang tua di ladang
b. bantu ngurus nenek yang sedang sakit, dll
2. Selain saya bantu orang tua , saya juga hobby nonton, main game, olahraga main music dll,,,
3. Selama saya kost, kurang lebih 10 bulan, tidak banyak yang saya kerjakan, saya menghabiskan waktu hanya di kost main game, ngumpul sama teman, mungkin kalaw ada tugas, baru di kerjakan.
4. Alasan saya kenapa memilih kost,,, karena resiko yang terlalu besar, belum lagi kalaw ada halangan di jalan… makanya saya memilih kost demi menghindari hal-hal yang tidak saya inginkan…
5. Kegiatan saya yang lain hanya kuliah…

Kini kegiatan saya sudah bertambah, sejak saya mengikuti pelatihan gratis dari pemerintah. Pelatihan ini sangat penting buat saya dan masa depan saya. Pelatihan ini di jalani hari sabtu dan minggu saja jam 14:00. Palatihan yang saya ikuti mengajarkan disain grafis, yang di ajarkan meliputi :
1. Photoshop
2. Corel draw
3. sablon

kegiatan saya yang lain tidak jauh berbeda dengan kegiatan yang saya posting sebelumnya, hampir keseluruhannya sama... yang membedakan hanya jadwal makan dan mandi aja,,,,,hahaha.....

kegiatan saya yang lain tidak jauh berbeda dengan kegiatan yang saya posting sebelumnya, hampir keseluruhannya sama... yang membedakan hanya jadwal makan dan mandi aja,,,,,hahaha.....

kegiatan saya yang lain tidak jauh berbeda dengan kegiatan yang saya posting sebelumnya, hampir keseluruhannya sama... yang membedakan hanya jadwal makan dan mandi aja,,,,,hahaha.....



MAAF PAK, KEGIATAN SAYA ADA YANG SAMA, SOALNYA KEGIATAN SAYA KURANG LEBIH TIDAK JAUH BERBEDA, DAN SAYA BINGUNG HARUS POSTING KEGIATAN APA LAGI....