Membuat Animasi menggunakan Visual Basic 2008/VB.net

Langkah awal untuk Membuat Animasi menggunakan Visual Basic 2008/VB.net adalah siapkan gambar yang akan digunakan menjadi animasi, cukup satu gambar saja, saya akan mencoba dengan gambar dibawah ini:

 Simpan gambar diatas di Drive D:\, gambar dan pastikan gambar tersebut bukanlah gambar yang bisa bergerak sebelum dimasukkan kedala Visual Basic 2008, lalu masukkan komponen Picturebox dan Button.

Kemudian Klik 2 kali Form1, hapus semua kode dan masukkan kode dibawah ini:

Public Class Form1
    Dim bingkai(15) As Bitmap

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static mba As Integer = -1
        If mba < 15 Then
            mba += 1
        Else
            mba = 0
        End If
        PictureBox1.Image = bingkai(mba)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim img As New Bitmap("D:\caveman.bmp")
        For x As Integer = 0 To 15
            bingkai(x) = New Bitmap(264, 264)
            Dim gr As Graphics = Graphics.FromImage(bingkai(x))
            Dim leftPos As Integer = 0
            Select Case x
                Case 1, 5, 9, 13
                    leftPos = 64
                Case 2, 6, 10, 14
                    leftPos = 128
                Case 3, 7, 11, 15
                    leftPos = 192
            End Select
            gr.DrawImage(img, 0, 0, New RectangleF(leftPos, Int(x / 4) * 64, 264, 264), GraphicsUnit.Pixel)
        Next
        Timer1.Enabled = True
    End Sub
End Class

Read more

Membuat list Angka otomatis di listbox menggunakan Visual Basic 2008/VB.Net

Jika anda ingin Membuat list Angka otomatis di listbox menggunakan Visual Basic 2008/VB.Net caranya sangat mudah sekali karena tidak dibutuhkan keahlian yang mahir, namun jika anda adalah pemula maka alangkah baiknya anda teliti code dibawah ini, jika bingung tanyakan di komentar dengan menambahkan kata Tanya didepan pertanyaan.

Sekarang buatlah 1 form dengan komponen sebagai berikut:

• 1 Listbox
• 1 Timer

Set Timer1 interval menjadi 1000.

Lihat gambar dibawah ini:

Kemudian Klik 2 kali form1 hapus semua kode dan masukkan kode dibawah ini:

Public Class Form1


    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
        ListBox1.Items.Add(ListBox1.SelectedIndex + 1)
        ListBox1.SelectedItem = ListBox1.SelectedIndex + 1
        If ListBox1.SelectedIndex > 19 Then
            Timer1.Enabled = False
        End If
    End Sub
End Class

 

Read more

Membuat Shutdown, Restart, Sleep Timer menggunakan visual basic 2008/ vb.net

Untuk Membuat Shutdown, Restart, Sleep Timer menggunakan visual basic 2008/ vb.net komponen yang dibutuhkan yaitu:

1. 3 label

2. 3 button

3. 2 timer

4. 2 combo box

Kosongkan text pada label1 dan ganti text pada label2 menjadi Jam dan label3 menjadi Opsi, kemudian isikan items pada combobox1 dari angka 1 hingga 23 kemudian dilanjutkan angka 00 dan combobox2 isikan items:

• Shutdown
• Restart
• Sleep

Lalu ganti text dari button menjadi Setting Manual ganti background form menggunakan gambar sesuai keinginan anda saja dan ubah FormBorderStyle menjadi None, ganti Text pada button2 menjadi X dan hapus text pada button3 lihat  gambar dibawah:

 

Setelah tampilan tertata menjadi seperti yang diatas, kemudian klik 2 kali formnya dan hapus semua kode yang ada lalu masukkan kode dibawah:

Imports System.IO
Public Class Form1
    Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove

        If IsFormBeingDragged Then
            Dim temp As Point = New Point()

            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = "Jam Sekarang  " & TimeOfDay
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Dim file As String = "srst.exe"
        Dim dir As Object = Path.GetFullPath(file)
        Dim reg As Object = CreateObject("WScript.Shell")
        reg.regWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\srst", dir)
        Timer2.Enabled = True
        NotifyIcon1.Visible = True
        Me.Hide()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If ComboBox1.Text = "" Then
            Timer2.Stop()
            MsgBox("Anda belum setting jam!!", MsgBoxStyle.Critical, "Error!!")

        ElseIf Hour(TimeOfDay) = ComboBox1.Text Then
            If ComboBox2.Text = "Shutdown" Then
                Shell("Shutdown -s")
                Timer2.Enabled = False
            ElseIf ComboBox2.Text = "Restart" Then
                Shell("Shutdown -r")
                Timer2.Enabled = False
            ElseIf ComboBox2.Text = "Sleep" Then
                Shell("Shutdown -l")
                Timer2.Enabled = False

            End If
        Else
        End If
    End Sub

    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        NotifyIcon1.Visible = False
        Me.Show()
    End Sub

    Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        NotifyIcon1.Visible = False
        Me.Show()
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 1
        Me.Top = 1
        Me.TopMost = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NotifyIcon1.Visible = True
        Me.Hide()
    End Sub
End Class
 

Read more

DDOS Attacker visual basic 2008/ vb.net

Tadinya saya tidak mau membuat program yang dapa merugikan orang lain seperti DDOS Attacker visual basic 2008/ vb.net namun setelah berfikir dalam waktu yang cukup lama akhirnya keputusan untuk membuat DDOS Attacker visual basic 2008/ vb.net ditentukan, mungkin software ini saya peruntukan hanya untuk orang yang ingin belajar mengembangkan Programing language saja, jadi kalau ada seseorang yang menggunakan ilmu atau pelajaran yang didapat dari blog ini untuk kepentingan pribadi saja, saya tidak akan dan tidak mau bertanggung jawab sama sekali.

Baiklah, sekarang bukalah Visual basic 2008 anda kemudian buatlah satu form dengan kmponen sebagai berikut:

• 1 label
• 1 textbox
• 2 button
• 1 listbox
• 1 Timer dengan ketentuan sebagai berikut:

            - Enabled= False
            - Interval = 1
            - Modifier = Friends

Lihat gambar dibawah:

 

Kemudian klik 2 kali formnya, hapus semua kode yang ada dan masukkan kode dibawah ini:

Imports System.Net
Public Class form1
    Dim pi As New System.Net.NetworkInformation.PingOptions
    Dim pipi As New System.Net.NetworkInformation.Ping
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button2.Enabled = True
        Button1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = host.AddressList

        Shell("Ping " & (TextBox1.Text) & "-1" & "6500")
        pipi.Send(TextBox1.Text)
        Try
            ListBox1.Items.Add("Ping Reply From " & ip(0).ToString & " time=" & pipi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pipi.Send(TextBox1.Text).Options.Ttl)
            ListBox1.SelectedIndex += 1

        Catch
            ListBox1.Items.Add("Timed Out")
            ListBox1.SelectedIndex += 1
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button1.Enabled = True
        Button2.Enabled = False
    End Sub
End Class

 Lalu coba jalankan program yang sudah dibuat tersebut, maka hasilnya akan seperti gambar dibawah ini:

 

 

 

Read more

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 Game menggunakan visual basic 2008/vb.net

Kali ini saya akan membeberkan sedikit tentang cara Membuat Game menggunakan visual basic 2008/vb.net, dengan menggunakan visual basic 2008 atau visual basic 2010 saya rasa lebih mudah dalam mengawali pembuatan game tersebut, dan pada artikel berikutnya akan saya terangkan bagaimana membuat game menggunakan visual basic 6 dan inilah cara Membuat Game menggunakan visual basic 2008/vb.net.

Untuk Membuat Game menggunakan visual basic 2008/vb.net anda harus menyiapkan beberapa gambar kali ini saya membuat game helikopter pembunuh tikus, jadi saya persiapkan 5 gambar yaitu gambar background, helikopter, tikus, api dan dinamit, anda dapat melihat gambar-gambar yang saya gunakan dibawah ini:

 

Setelah gambar diatas anda download ke komputer atau laptop anda kemudian buatlah satu form lalu ganti background image untuk form dengan gambar begron yang ada diatas setelah itu buatlah  komponen:

•  4 PictureBox dengan ketentuan:

1. Picturebox1 masukkan pada  image gambar helikopter, style Mode StretchImage
2. Picturebox2 masukkan pada  image gambar dinamit, style Mode StretchImage
3. Picturebox3 masukkan pada image gambar api, style Mode StretchImage
4. picturebox4 masukkan pada image gambar tikus, style mode StretchImage

• Button ganti text menjadi Ulangi
• 3 Timer
• 2 label label1 ganti text menjadi 0 dan label2 ganti text menjadi Tikus yang terbunuh 

Lihat gambar dibawah:

 Setelah Form yang anda buat seperti gambar diatas, lalu klik 2 kali form yang sudah dibuat, hapus semua kode dan masukkan kode dibawah:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer3.Enabled = True
    End Sub



   

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If PictureBox3.Left = PictureBox4.Left Or PictureBox3.Right = PictureBox4.Right Then
            PictureBox4.Visible = False
            Label1.Text += 1
            Timer2.Enabled = False
        End If
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Timer2.Enabled = True
        Timer1.Enabled = True
        PictureBox3.Visible = False
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        PictureBox4.Left += 10
        If PictureBox4.Left > Me.Right Then
            PictureBox4.Left = Me.Left
            PictureBox4.Visible = True
        End If
        If Label1.Text > 9 Then
            Timer3.Interval = 5
        ElseIf Label1.Text > 19 Then
            Timer3.Interval = 3
        ElseIf Label1.Text > 29 Then
            Timer3.Interval = 2
        ElseIf Label1.Text > 39 Then
            Timer3.Interval = 1
        End If
        If Label1.Text > 49 Then
            MsgBox("Selamat anda dapat membunuh 50 tikus besar")
            Timer2.Enabled = False
            Timer1.Enabled = False
            Button1.Visible = True
            Timer3.Enabled = False
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        PictureBox1.Left = MousePosition.X - 150

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox2.Visible = True
        PictureBox2.Top += 10
        If PictureBox2.Top > Me.Bottom - 280 Then
            Timer1.Enabled = False
            PictureBox2.Top = Me.Top
            PictureBox2.Visible = False
            PictureBox3.Visible = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer3.Enabled = True
        Label1.Text = "0"
        Button1.Visible = False
    End Sub
End Class

Maka hasilnya ketika anda Run aplikasi game ini adalah ketika arah kursor dipindah maka helikopter akan mengikuti arah kursos kekanan dan kekiri dan ketik gambar helikopter diklik maka dinamit akan jatuh, dan ketika dinamit mengenai tanah maka dinamit hilang dan yang keluar adalah api, lalu jika tikus yang berjalan dari kiri kekanan terkena dinamit maka tikus akan menghilang dan yang terlihat hanyalah api namun jika tidak mengenai tikus maka tikus akan berjalan terus.
 

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 Ping Reply dengan visual basic 2008/vb.net

Biasanya seseorang Membuat Ping Reply dengan visual basic 2008/vb.net digunakan untuk memulai pembuatan program DDOS Attacker atau UDP flooder, namun kali ini saya tidak akan mengajarkan bagaimana cara membuat DDOS Attacker atau UDP Flooder karena biasanya kalau sudah diajarkan maka akan digunakan untuk hal yang melanggar aturan, jadi kali ini saya hanya akan menerangkan dengan singkat bagaimana Membuat Ping Reply dengan visual basic 2008.

Untuk Membuat Ping Reply dengan visual basic 2008 anda cukup membuat 1 form dengan komponen 1 textboxt, 2 button, 1 listbox dan 1 timer, lihat gambar dibawah:

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

Imports System.Net

Public Class Form1
    Dim pi As New Net.NetworkInformation.Ping

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = host.AddressList

        pi.Send(TextBox1.Text)
        Try
            ListBox1.Items.Add("Reply Dari " & ip(0).ToString & " waktu=" & pi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pi.Send(TextBox1.Text).Options.Ttl)
            ListBox1.SelectedIndex += 1
        Catch

            ListBox1.Items.Add("Hubungan Terputus")
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ganti As String = InputBox("Silahkan masukkan alamat url tanpa menggunakan http://", "Form ganti alamat url ping")
        If ganti = "" Then
            TextBox1.Text = "www.google.com"
        Else
            TextBox1.Text = ganti
        End If


    End Sub
End Class

Lihat hasil dari kode dan form yang sudah dibuat pada gambar dibawah:

 

 

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

Membuat Sound recorder menggunakan visual basic 2008

Membuat Sound recorder menggunakan visual basic 2008 sebenarnya sangatlah mudah sekali jika anda sudah mengetahui sedikit kode system windows, karena sound recorder yang akan saya buat adalah sound recorder dengan ekstensi file wav, visual basic 2008 bisa dikatakan program dengan menu terlengkap karena apa saja yang dibutuhkan dapat digunakan pada Microsoft visual basic 2008 ini.

Dan selanjutnya saya akan memulai Membuat Sound recorder menggunakan visual basic 2008, disini saya akan membuat 1 form dengan 1 progressbar, 3 button 4 label dan 2 timer seperti gambar dibawah ini:

 

Kemudian saya membuat kode seperti dibawah ini:

Public Class Form1
    Dim sv As New SaveFileDialog
    Private Declare Function record Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = sv.FileName & ".wav"
            record("save recsound " & sv.FileName & ".wav", "", 0, 0)
            record("close recsound", "", 0, 0)
            Timer1.Enabled = False
            ProgressBar1.Value = 0
        Else

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        record("open new Type waveaudio Alias recsound", "", 0, 0)
        record("record recsound", "", 0, 0)
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Audio.Play(Label1.Text, AudioPlayMode.Background)
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
    End Sub
End Class

Sekarang waktunya mencoba sound recorder buatan saya.

 

Read more