Video Tutorial visual basic 6 dan visual basic 2008

Bagi anda yang menginginkan Video Tutorial visual basic 6 dan visual basic 2008 dari berbagai macam jenis aplikasi yang dibuat oleh saya dapat dilihat di channel youtube saya, video tutorial ini dibuat untuk mempermudah anda dalam mempelajari bahasa pemprograman visual basic baik visual basic 6 ataupun versi yang setelahnya.

Dalam Video Tutorial visual basic 6 dan visual basic 2008 yang saya buat mungkin belum pernah ada yang mempublish meskipun dengan judul yang sama saya yakin kode yang saya gunakan tidak sama dengan yang lain, Video Tutorial visual basic 6 dan visual basic 2008 yang saya masukkan ke youtube akan selalu update sehingga anda tidak kebingungan lagi ketika mencari pelajaran tentang pemprograman menggunakan visual basic.

Video Tutorial visual basic 6 dan visual basic 2008 yang pertama kali di upload adalah tutorial database ms access dengan visual basic 6 ketika database sudah selesai selanjutnya adalah pemprograman lain yang menggunakan visual basic 6 baik yang berhubungan dengan database ataupun yang tidak menggunakan database.

Anda dapat melihat semua video tutorial saya di channel saya yang di youtube yaitu http://www.youtube.com/user/ArtikelVisualBasic/videos
Copy link diatas dan pastekan pada browser kesayangan anda dan make bookmark jika memang anda benar-benar membutuhkan tutorial tentang visual basic, karena saya akan mencoba menerangkan visual basic secara gamblang dan terbuka tanpa ada yang ditutup-tutupi.

Read more

Membuat Task Manager & CPU Performance dengan visual basic 2008/vb.net

Setelah saya mengawali dengan Membuat CPU Performance menggunakan Visual Basic 2008/vb.net, selanjutnya diteruskan dengan Membuat Task Manager & CPU Performance dengan visual basic 2008/vb.net, kali ini akan lebih susah dari sebelumnya dan lebih rumit, harus menggunakan pemahaman dan ketelitian yang matang karena saya akan menggunakan TabControl,Groupbox,Timer dan masih banyak lagi komponen yang lainnya sehingga kalau tidak dipahami betul maka dalam Membuat Task Manager & CPU Performance dengan visual basic 2008/vb.net ini akan terjadi error berkali-kali bahkan bisa jadi anda jengkel karena program yang anda buat tidak jadi.

Ok untuk mengawali pembuatan program task manager anda cukup membuat 1 form dengan komponen utama TabControl dengan 2 pageTab, TabPage1 ganti Text menjadi Task Manager dan TabPage2 ganti text menjadi CPU Performance, kemudian tambahkan komponen pada tab Task manager:

• 1 listview dengan 3 headcolumn, column1 ganti text menjadi Nama, column2 menjadi PID dan column ke 3 menjadi Memory
• StatusStrip dengan menu StatusLabel dalam hal ini yang saya gunakan StatusLabel3
• 1 button dan 2 Timer 

Lihat gambar dibawah:

 

Kemudian pada tab CPU Performance komponen tambahannya adalah:

• 2 Groupbox
• 8 label
• 2 progressbar

Lihat gambar dibawah:

 Selanjutnya klik 2 kali form yang sudah dibuat, hapus semua kode dan masukkan kode dibawah ini:

Public Class Form1
    Dim pro As Process
    Dim idih As ListViewItem
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True

    End Sub





    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each prog As ListViewItem In ListView1.SelectedItems
            MsgBox("Anda akan menghentikan proses " & prog.SubItems(0).Text)
            System.Diagnostics.Process.GetProcessById(prog.SubItems(1).Text).Kill()
            Timer1.Enabled = True
        Next
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ListView1.Items.Clear()
        For Each Me.pro In Process.GetProcesses
            idih = ListView1.Items.Add(pro.ProcessName)
            idih.SubItems.Add(pro.Id)
            idih.SubItems.Add(Math.Round(pro.PrivateMemorySize64 / 1024))
            ToolStripStatusLabel3.Text = "Jumlah Proses: " & ListView1.Items.Count
        Next
        Timer1.Enabled = False
    End Sub
    Dim proses As New PerformanceCounter
    Dim pros As New PerformanceCounter
    Dim prose As New PerformanceCounter
    Dim thr As New PerformanceCounter

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        proses.CategoryName = "Processor"
        proses.CounterName = "% Processor Time"
        proses.InstanceName = "_Total"
        ProgressBar1.Value = proses.NextValue
        Label5.Text = ProgressBar1.Value & " %"
        Label6.Text = ProgressBar2.Value & " %"
        pros.CategoryName = "Memory"
        pros.CounterName = "% Committed Bytes In Use"
        ProgressBar2.Value = pros.NextValue
        prose.CategoryName = "Process"
        prose.CounterName = "Handle Count"
        prose.InstanceName = "_Total"
        thr.CategoryName = "Process"
        thr.CounterName = "Thread Count"
        thr.InstanceName = "_Total"
        Label8.Text = prose.NextValue
        Label7.Text = thr.NextValue
    End Sub
End Class

Maka setelah di Run akan menghasilkan karya seperti 2 gambar ini:

Read more

Membuat CPU Performance menggunakan Visual Basic 2008/vb.net

Proses untuk Membuat CPU Performance menggunakan Visual Basic 2008/vb.net sebenarnya cukup rumit dan butuh ketelitian jika masih menggunakan menu manual dan tidak menggunakan kode dibawah ini adalah cara Membuat CPU Performance menggunakan Visual Basic 2008/vb.net, pahami dan teliti artikel yang saya terangkan jika masih belum faham silahkan isi komentar.

Dalam Membuat CPU Performance menggunakan Visual Basic 2008/vb.net, yang perlu anda buat adalah 1 form dengan 1 groupbox, 8 label 2 progress bar dan 1 timer, lihat gambar dibawah ini:

Setelah tampilan seperti gambar diatas kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu pastekan kode dibawah ini:

Public Class form1
    Dim proses As New PerformanceCounter
    Dim pro As New PerformanceCounter
    Dim pros As New PerformanceCounter
    Dim prose As New PerformanceCounter
    Dim pr As New PerformanceCounter
    Dim pre As New PerformanceCounter

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        proses.CategoryName = "Processor"
        proses.CounterName = "% Processor Time"
        proses.InstanceName = "_Total"
        pro.CategoryName = "Memory"
        pro.CounterName = "% Committed Bytes In Use"
        pros.CategoryName = "Process"
        pros.CounterName = "Handle Count"
        pros.InstanceName = "_Total"
        prose.CategoryName = "Process"
        prose.CounterName = "Thread Count"
        prose.InstanceName = "_Total"
        pr.CategoryName = "Process"
        pr.CounterName = "% User Time"
        pr.InstanceName = "_Total"

        ProgressBar1.Value = proses.NextValue
        ProgressBar2.Value = pro.NextValue
        Label3.Text = ProgressBar1.Value & " %"
        Label5.Text = ProgressBar2.Value & " %"
        Label6.Text = pros.NextValue
        Label7.Text = prose.NextValue

    End Sub


End Class

Maka jika di Run hasilnya seperti gambar dibawah ini:

 

Read more