Error: OS 64 Bit Tidak Keluar di Virtual Box

Permasalahan Type Sistem Operasi 64 Bit yang tidak muncul di Virtual Box ini sangat sering terjadi, padahal dalam situasi dan kondisi tertentu kita sangat membutuhkan OS 64 Bit sebagai guest OSnya. Misalkan saja untuk server Ujian Nasional CBT (Computer Based Test), kita diwajibkan menginstall server OS yang 64 Bit. Nah penyebab OS 64 Bit ini tidak mau muncul bisa karena banyak hal, diantaranya settingan Virtualization di BIOS kita harus di "enable". Selain itu banyak ditemui masalah seperti dikarenakan kita mengenable "Hyper-v Hipervisor", apa itu dan bagaimana solusinya? Silakan anda lihat panduan video cara mengatasi OS 64 Bit yang tidak muncul di Virtual Box berikut ini.
Lihat Video:

Readmore → Error: OS 64 Bit Tidak Keluar di Virtual Box

Cara Menampilkan Record Database ke DataGridView Visual Basic

Berikut ini tutorial bagaimana cara menampilkan record database menggunakan item DataGridView di Visual Basic VB.NET. Untuk membuatnya anda membutuhkan class dan sebuah form, agar lebih jelas anda dapat mendownload project maupun melihat video panduan pembuatannya.
Kode Koneksi:

Imports MySql.Data.MySqlClient
Public Class koneksidata
    Dim conect As New MySqlConnection("server=localhost;uid=root;pwd='';database='dbgrid'")
    Public Function open() As MySqlConnection
        Try
            conect.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return conect
    End Function
    Public Function close() As MySqlConnection
        Try
            conect.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return conect
    End Function
End Class

Kode Form1:

Imports MySql.Data.MySqlClient
Public Class Form1
#Region "deklarasi"
    Dim mycmd As New MySqlCommand
    Dim myconection As New koneksidata
    Dim dadapter As MySqlDataAdapter
    Dim dtable As New DataTable
#End Region
#Region "prosedur"
    Sub tampilkangrid()
        mycmd.Connection = myconection.open
        mycmd.CommandText = "select * from tbgrid order by id asc"
        dadapter = New MySqlDataAdapter(mycmd)
        dtable.Rows.Clear()
        dadapter.Fill(dtable)
        If Not dtable Is Nothing AndAlso dtable.Rows.Count > 0 Then
            DataGridView1.AutoGenerateColumns = False
            DataGridView1.DataSource = dtable
            DataGridView1.Columns(0).DataPropertyName = "id"
            DataGridView1.Columns(1).DataPropertyName = "nama"
        End If
        'With DataGridView1
        '    .Columns(0).HeaderText = "ID"
        '    .Columns(1).HeaderText = "Nama"
        'End With
        myconection.close()
    End Sub
    Sub klikgrid()
        Dim i As Integer
        Try
            With DataGridView1
                If .CurrentCell.Value Is Nothing Then
                    Exit Sub
                Else
                    i = .CurrentRow.Index
                    TID.Text = .Rows(i).Cells(0).Value.ToString
                    TNAMA.Text = .Rows(i).Cells(1).Value.ToString
                End If
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
    End Sub
#End Region
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        mycmd.Connection = myconection.open
        mycmd.CommandText = "insert into tbgrid(id,nama) values('" & TID.Text & "','" & TNAMA.Text & "')"
        mycmd.ExecuteNonQuery()
        myconection.close()
        tampilkangrid()
        MsgBox("Data disimpan !", MsgBoxStyle.Information, "Pemberitahuan !")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        mycmd.Connection = myconection.open
        mycmd.CommandText = "update tbgrid set nama='" & TNAMA.Text & "' where id='" & TID.Text & "'"
        mycmd.ExecuteNonQuery()
        myconection.close()
        tampilkangrid()
        MsgBox("Data dirubah !", MsgBoxStyle.Information, "Pemberitahuan !")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        mycmd.Connection = myconection.open
        mycmd.CommandText = "delete from tbgrid where id='" & TID.Text & "'"
        mycmd.ExecuteNonQuery()
        myconection.close()
        tampilkangrid()
        MsgBox("Data dihapus !", MsgBoxStyle.Information, "Pemberitahuan !")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        tampilkangrid()
    End Sub
    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        klikgrid()
    End Sub
End Class

Download Project:
Download Project Lihat Video:

Readmore → Cara Menampilkan Record Database ke DataGridView Visual Basic

Cara Menampilkan Database Menggunakan ListView di Visual Basic

Berikut panduan bagaimana cara menampilkan record database menggunakan listview di Visual Basic. Anda perlu membuat class untuk koneksi data dan sebuah form untuk menempatkan listview beserta item yang lainnya. Agar lebih jelas anda dapat mendownload project maupun melihat video panduannya.
Kode Koneksi:

Imports MySql.Data.MySqlClient
Namespace accessdata
    Public Class koneksidata
        Dim conect As New MySqlConnection("server=localhost;uid=root;pwd='';database='skyars'")
        Public Function open() As MySqlConnection
            Try
                conect.Open()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return conect
        End Function
        Public Function close() As MySqlConnection
            Try
                conect.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return conect
        End Function
    End Class
End Namespace

Kode Form1:

Imports MySql.Data.MySqlClient
Public Class Form1
#Region "deklarasi"
    Dim mycmd As New MySqlCommand
    Dim myconnection As New accessdata.koneksidata
    Dim objreader As MySqlDataReader
#End Region
#Region "prosedur"
    Sub bacalistview()
        Dim isi As ListViewItem
        LISTFORM.Items.Clear()
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "select * from tbtes"
        objreader = mycmd.ExecuteReader
        While objreader.Read
            isi = LISTFORM.Items.Add(objreader.Item("nomor").ToString)
            isi.SubItems.Add(objreader.Item("nama").ToString)
        End While
        myconnection.close()
    End Sub
    Sub kliklistview()
        Dim index As Integer
        If LISTFORM.SelectedItems.Count = 0 Then Exit Sub
        With LISTFORM
            index = .SelectedIndices(0)
            TNO.Text = .Items(index).Text
            TNAMA.Text = .Items(index).SubItems(1).Text
        End With
    End Sub
#End Region
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "insert into tbtes(nomor,nama) values('" & (TNO.Text) & "','" & (TNAMA.Text) & "')"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        bacalistview()
        MsgBox("Berhasil disimpan !", MsgBoxStyle.Information, "Notice !")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "update tbtes set nama='" & TNAMA.Text & "' where nomor='" & TNO.Text & "'"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        bacalistview()
        MsgBox("Berhasil dirubah !", MsgBoxStyle.Information, "Notice !")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "delete from tbtes where nomor='" & TNO.Text & "'"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        bacalistview()
        MsgBox("Berhasil dihapus !", MsgBoxStyle.Information, "Notice !")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        bacalistview()
    End Sub
    Private Sub LISTFORM_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LISTFORM.SelectedIndexChanged
        kliklistview()
    End Sub
End Class

Download Project:
Download Project Lihat Video:

Readmore → Cara Menampilkan Database Menggunakan ListView di Visual Basic

Cara Membuat Form Loading Keren di Visual Basic

Berikut ini adalah kode dan tutorial yang disertai video bagaimana cara membuat form loading keren menggunakan Visual Basic VB.NET. Untuk membuatnya anda membutuhkan 1 buah form dan satu buah module untuk mendeklarasikan MyFont, untuk lebih jelasnya anda dapat mendownload project dan melihat video tutorialnya.
Kode Form:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Font = myfont.GetInstance(72, FontStyle.Bold)
    End Sub
    Private Sub TLOAD_Tick(sender As Object, e As EventArgs) Handles TLOAD.Tick
        Dim i As Double
        Static ictr As Integer
        For i = 1 To 100
            Label1.Text = ProgressBar1.Value
        Next
        If ictr <= 100 Then
            ProgressBar1.Value = ictr
            ictr = ictr + 1
        Else
            'FORM_UTAMA.Show() 'Ini Merupakan Form yang Akan Muncul Setelah Form Loading Selesai
            'Form_Login.Hide() 'Untuk Menyembunyikan Form Login
            Me.Close() 'Menutup Form Loading atau Form Ini
        End If
    End Sub
End Class

Kode MyFont:

Kode myfont:
Imports System.Drawing.Text
Imports System.Runtime.InteropServices
Module myfont
    '
    '' Start ==[Authors Line]==
    '' This tutorial by SkyArs (www.skyars.com)
    '' Don't remove this line for legal purposes
    '' End ====[Authors Line]====
    '
    'PRIVATE FONT COLLECTION TO HOLD THE DYNAMIC FONT
    Private _pfc As PrivateFontCollection = Nothing
    Public ReadOnly Property GetInstance(ByVal Size As Single,
                                         ByVal style As FontStyle) As Font
        Get
            'IF THIS IS THE FIRST TIME GETTING AN INSTANCE
            'LOAD THE FONT FROM RESOURCES
            If _pfc Is Nothing Then LoadFont()

            'RETURN A NEW FONT OBJECT BASED ON THE SIZE AND STYLE PASSED IN
            Return New Font(_pfc.Families(0), Size, style)

        End Get
    End Property
    Private Sub LoadFont()
        Try
            'INIT THE FONT COLLECTION
            _pfc = New PrivateFontCollection

            'LOAD MEMORY POINTER FOR FONT RESOURCE
            Dim fontMemPointer As IntPtr =
                Marshal.AllocCoTaskMem(
                My.Resources.digital_7.Length)

            'COPY THE DATA TO THE MEMORY LOCATION
            Marshal.Copy(My.Resources.digital_7,
                         0, fontMemPointer,
                         My.Resources.digital_7.Length)

            'LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
            _pfc.AddMemoryFont(fontMemPointer,
                               My.Resources.digital_7.Length)

            'FREE UNSAFE MEMORY
            Marshal.FreeCoTaskMem(fontMemPointer)
        Catch ex As Exception
            'ERROR LOADING FONT. HANDLE EXCEPTION HERE
        End Try
    End Sub
End Module

Download Project:
Download Project Lihat Video:

Readmore → Cara Membuat Form Loading Keren di Visual Basic

Membuat Form Login di Visual Basic

Berikut ini adalah kode dan tutorial yang disertai video bagaimana cara membuat form login menggunakan Visual Basic VB.NET. Dalam tutorial saya menggunakan 2 form dan 1 module/class.
Kode Koneksi:

Imports MySql.Data.MySqlClient
Public Class koneksidata
    Dim conect As New MySqlConnection("server=localhost;user=root;password='';database='dblogin'")
    Public Function open() As MySqlConnection
        Try
            conect.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return conect
    End Function
    Public Function close() As MySqlConnection
        Try
            conect.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return conect
    End Function
End Class

Kode Form1/Form Login:

Imports MySql.Data.MySqlClient
Public Class Form1
#Region "deklarasi"
    Dim mycmd As New MySqlCommand
    Dim myconnection As New koneksidata
    Dim objadapter As MySqlDataAdapter
    Dim objreader As MySqlDataReader
    Dim dtable As New DataTable
#End Region
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objadapter = New MySqlDataAdapter("select username,password from tabellogin where username='" & Replace(TUSER.Text, "'", "''") & "' and password='" & Replace(TPASS.Text, "'", "''") & "'", myconnection.open)
        dtable.Clear()
        objadapter.Fill(dtable)
        If dtable.Rows.Count = Nothing Then
            MsgBox("Gagal Login !!")
        Else
            Form_Profil.Show()
            Me.Hide()
        End If
        myconnection.close()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TUSER.Text = ""
        TPASS.Text = ""
    End Sub
End Class

Kode Form Profil:

Public Class Form_Profil
    Private Sub Form_Profil_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        End
    End Sub
End Class

Download Project:
Download Project Lihat Video:

Readmore → Membuat Form Login di Visual Basic

Insert, Update, Delete Database di Visual Basic

Untuk menggunakan perintah insert, update dan delete ke database MySQL menggunakan pemrograman Visual Basic VB.NET, anda dapat menggunakan kode berikut, jika masih bingung Anda dapat melihat videonya agar lebih jelas. Kode Koneksi:

Namespace accessdata
    'Ini koneksi
    Public Class koneksidata
        Dim conect As New MySql.Data.MySqlClient.MySqlConnection("server=localhost;uid=root;pwd='';database='skyars'")
        Public Function open() As MySql.Data.MySqlClient.MySqlConnection
            Try
                conect.Open()
            Catch ex As Exception
                MsgBox("Localhost belum aktif atau coba cek database !!", MsgBoxStyle.Information, "Notice !!")
            End Try
            Return conect
        End Function
        Public Function close() As MySql.Data.MySqlClient.MySqlConnection
            Try
                conect.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return conect
        End Function
    End Class
End Namespace

Kode Form:

Imports MySql.Data.MySqlClient
Public Class Form1
#Region "deklarasi"
    Dim mycmd As New MySqlCommand
    Dim myconnection As New accessdata.koneksidata
#End Region
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "insert into tbtes(nomor,nama) values('" & TNO.Text & "','" & TNAMA.Text & "')"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        MsgBox("Data berhasil disimpan !", MsgBoxStyle.Information, "Pemberitahuan!")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "update tbtes set nama='" & TNAMA.Text & "' where nomor='" & TNO.Text & "'"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        MsgBox("Data berhasil dirubah !", MsgBoxStyle.Information, "Pemberitahuan!")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        mycmd.Connection = myconnection.open
        mycmd.CommandText = "delete from tbtes where nomor='" & TNO.Text & "'"
        mycmd.ExecuteNonQuery()
        myconnection.close()
        MsgBox("Data berhasil dihapus !", MsgBoxStyle.Information, "Pemberitahuan!")
    End Sub
End Class

Download Project:
Download Project Lihat Video:

Readmore → Insert, Update, Delete Database di Visual Basic

Test Koneksi Database MySQL dengan Visual Basic

Untuk mengetes koneksi database MySQL dengan program Visual Basic VB.NET, Anda dapat menggunakan kode berikut. Silakan buat sebuah form dan tambahkan satu buah button, lalu tambahkan kodenya, kira-kira hasilnya nanti seperti dibawah.
Code:

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New MySql.Data.MySqlClient.MySqlConnection
        Dim koneksiku As String
        koneksiku = "server=localhost;uid=root;pwd='';database='skyars'"
        Try
            conn.ConnectionString = koneksiku
            conn.Open()
            MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Informasi")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

End Class

Download Project:
Download Project Lihat Video:

Readmore → Test Koneksi Database MySQL dengan Visual Basic

Membuat Game Sederhana Dengan Java

1. Buka dan jalankan IDE Netbeans.
2. Buat project baru dengan nama main, kemudian buat package baru dengan nama GameMain.
3. Setelah itu create new class dengan nama TicTacToe.java dan XOButton.java.
4. Pada class TicTacToe.java, ketikkan sintaks berikut ini:

package GameMain;
import javax.swing.JPanel;
import javax.swing.JFrame;
import java.awt.GridLayout;
/**
*
* @author Pra
*/
public class TicTacToe extends JFrame {
JPanel p = new JPanel();
XOButton buttons[] = new XOButton[9];
public static void main(String [] args) {
new TicTacToe();
}
public TicTacToe() {
super("TicTacToe");
setSize(400, 400);
setResizable(false);
setDefaultCloseOperation(EXIT_ON_CLOSE);
p.setLayout(new GridLayout(3,3));
for (int i=0; i<9; i++) {
buttons[i] = new XOButton();
p.add(buttons[i]);
}
add(p);
setVisible(true);
}
}

5. Pada kelas XOButton.java ketikkan sintaks berikut ini:

package GameMain;
import javax.swing.JButton;
import javax.swing.ImageIcon;
import java.awt.event.ActionListener;
import java.awt.event.ActionEvent;
/**
*
* @author Pra
*/
public class XOButton extends JButton implements ActionListener{
ImageIcon x,o;
byte value =0;
/*
1:nothing
*/
public XOButton() {
x = new ImageIcon(this.getClass().getResource("/GameMain/x.png"));
o = new ImageIcon(this.getClass().getResource("/GameMain/o.png"));
this.addActionListener(this);
}
@Override
public void actionPerformed(ActionEvent e){
value++;
value %=3;
switch (value) {
case 0: setIcon(null);
setIcon(null);
break;
case 1:setIcon(x);
setIcon(x);
break;
case 2:setIcon(o);
setIcon(o);
break;
}
}
}

6. Lakukan copy gambar pada netbeans document di dalam project main>src>GameMain gambar x.png dan o.png, (gambar sudah ada dalam project).

7. Kemudian lakukan pengecekan dari sintaks error yang terjadi, sampai semua tidak ada error message. 

8. Lakukan run pada program main sampai berhasil. (Lihat video dibawah).
Download Project

Readmore → Membuat Game Sederhana Dengan Java

Cara Membuat Klik Kanan di Visual Basic

Tutorial cara membuat menu klik kanan menggunakan Visual Basic:
1. Buka Visual Basic anda.
2. Buat sebuah project.
3. Tambahkan "ContextMenuStrip" ke form Visual Basic anda.
4. Lalu lihatlah properties form anda, cari yang bernama "ContextMenuStrip".
5. Setelah itu set ContextMenuStripnya ke "ContextMenuStrip1" yang telah anda tambahkan di form tadi.
6. Untuk menambahkan event anda bisa mengkliknya dua kali, sama seperti ketika anda bermain button.
7. Untuk lebih jelasnya lihat video dibawah.

Readmore → Cara Membuat Klik Kanan di Visual Basic

Convert PDF ke Excel Dengan Cepat

1. Download aplikasi pdf to excel, [ klik disini ].
2. Install aplikasinya.
3. Jalankan aplikasinya.
4. Pilih "Add File(s)" dan blok semua file PDF yang ingin di convert.
5. Klik "Convert All".
6. Selesai. Biasanya saat excelnya dibuka akan ada warning, jadi anda "Yes" saja.

Readmore → Convert PDF ke Excel Dengan Cepat

Cara Edit Logo PNG Transparan Dengan Photoshop

Logo dengan tulisan berwarna putih dan background transparan biasanya sulit di edit, namun bisa kita lakukan dengan cara berikut.

1. Buka logo yang akan di edit menggunakan photoshop.
2. Duplikat dengan cara tekan "Ctrl+J".
3. Pada layer copyan silakan anda ganti backgroundnya menjadi hitam, caranya ubah semua warna di tools menjadi hitam, lalu tekan "Alt+Backspace".
4. Aktifkan/klik layer utama, editlah pada layer ini, maka seharusnya tulisan anda akan bisa di edit dengan lebih mudah karena backgroundnya menjadi hitam.
5. Jika selesai hapus layer copyan sehingga warnanya akan menjadi transparan kembali.

Tutorial ini berguna jika anda ingin meniru font hingga ukuran tulisan dari sebuah file PNG.

Readmore → Cara Edit Logo PNG Transparan Dengan Photoshop

Cara Mengganti Cell Blank Dengan Angka Nol di Excel

Tutorial cara mengganti cell kosong dengan angka "nol" di Microsoft Excel. 
1. Buka Excel. 
2. Blok seluruh area termasuk yang ada isinya. 
3. Pilih "Find & Select". 
4. Pilih radio button "Blank". 
5. Ketikkan angka "0" atau apapun terserah anda. 
6. Tekan "Ctrl+Enter" bersamaan.

Readmore → Cara Mengganti Cell Blank Dengan Angka Nol di Excel

Adding Backsound in Visual Basic

Below the code is using for audio on your Visual Basic .NET project. Especially for .wav audio.

Play from path:

Sub PlayBackgroundSoundFile()
    My.Computer.Audio.Play("C:\Waterfall.wav", _
        AudioPlayMode.Background)
End Sub

Play from resources:

Sub PlayBackgroundSoundResource()
    My.Computer.Audio.Play(My.Resources.Waterfall, _
        AudioPlayMode.Background)
End Sub

Loop your audio:

Sub PlayLoopingBackgroundSoundResource()
    My.Computer.Audio.Play(My.Resources.Waterfall, 
          AudioPlayMode.BackgroundLoop)
End Sub

Readmore → Adding Backsound in Visual Basic

Cara Membuat Aplikasi di Visual Basic

Video panduan cara membuat aplikasi menggunakan Visual Basic VB.NET. Ini hanya tutorial dasar cara memulai dan membuat program/project dengan VB.NET, jika ingin mempelajari lebih lanjut silakan request video panduan atau tunggu postingan berikutnya. Semoga bermanfaat bagi kita semua yang sedang belajar.

Readmore → Cara Membuat Aplikasi di Visual Basic

Using Keypress Visual Basic

This is how to using keypress event in Visual Basic VB.NET. For Example below is code that handle "ENTER" keyboard with keyboard code "13". Replace action with you want to do.

If you want to change the "ENTER" event, replace "13" with others ASCII keyboard code.

    Try
        If e.KeyChar = Convert.ToChar(13) Then
           'Your Action Here... 
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

Readmore → Using Keypress Visual Basic