Notifikasi :

Welcome To My Blog

Popular Post

  • Cara Membuat Kalkulator

    Kalkulator adalah alat untuk menghitung dari perhitungan sederhana seperti penjumlahan, pengurangan, perkalian dan pembagian sampai kepada kalkulator sains.

  • Cara Membuat Stopwatch

    Jam sukat atau jam randek (stopwatch) adalah alat yang digunakan untuk mengukur lamanya waktu yang diperlukan dalam kegiatan.

  • Cara Membuat Task Manager

    Task Manager adalah aplikasi yang menyediakan informasi kinerja komputer dan menjalankan aplikasi, proses dan penggunaan CPU, melakukan informasi muatan dan memori, aktivitas jaringan dan statistik, log-in pengguna, dan sistem pelayanan.

  • Cara Membuat Time

    Waktu atau Masa ( menurut Kamus Besar Bahasa Indonesia (1997) adalah seluruh rangkaian saat ketika proses, perbuatan atau keadaan berada atau berlangsung.

Application made by me

By : Unknown

Cara Membuat Stopwatch

By : Unknown
Cara Membuat Stopwatch dengan menggunakan Microsoft Visual Basic 2010.
Anda dapat mendownload Microsoft Visual Basic dengan mengklik: Microsoft Visual Basic

Berikut ini cara membuatnya:


1. Buka  program Microsoft Visual Basic 2010 dan buat project baru.

2. Tambahkan Timer dan setting:
    - Name    : Timer1
    - Enabled : True
    - Interval : 1000

3. Tambahkan Button dan setting:
    - Name    : Button1
    - Text     : Start/Stop

4. Copy dan masukkan scrip ini:

Public Class Form1
    Dim detik, menit, jam As Integer
    Dim a As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If a = True Then
            Timer1.Start()
            a = False
        Else
            Timer1.Stop()
            a = True
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If detik = 60 Then
            detik = 0
            menit = menit + 1
        End If
        If menit = 60 Then
            If detik = 0 Then
                detik = 0
                menit = 0
                jam = jam + 1
            End If
        End If
        detik = detik + 1
        Label1.Text = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")
    End Sub

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


6.  Simpan dan jalankan.


Anda dapat mendownload Stopwatch dengan mengklik link dibawah ini:

Password: Julius Danes Nugroho

Cara Membuat Task Manager

By : Unknown
Cara membuat Task Manager dengan menggunakan Microsoft Visual Basic.
Anda dapat mendownload Microsoft Visual Basic dengan mengklik: Microsoft Visual Basic

Berikut ini cara membuatnya:


1. Buka program Microsoft Visual Basic dan buat project baru.


2. Tambahkan ListBox dan setting:

    - Name : ListBox1


3. Tambahkan Button dan setting:
    - Name : Button1

    - Text   : Refresh


4. Tambahkan Button dan setting:

    - Name : Button2
    - Text   : Delete


5. Copy dan masukkan scrip ini:
    Imports System.IO
    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            GetProcesses()
        End Sub




        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            KillProcess()
        End Sub
        Public Sub GetProcesses()
            ListBox1.Items.Clear()
            For Each p In Process.GetProcesses
                ListBox1.Items.Add(p.ProcessName)
            Next
        End Sub
        Public Sub KillProcess()
            Try
                Dim p As Process
                For Each p In Process.GetProcesses
                    If p.ProcessName = ListBox1.SelectedItem Then
                        p.Kill()
                    End If
                Next
                GetProcesses()
            Catch ex As Exception
                MsgBox("Process Kill Failed", MsgBoxStyle.Critical)
            End Try
        End Sub

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

        Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            GetProcesses()
            ListBox1.Items.Clear()
            For Each p In Process.GetProcesses
                ListBox1.Items.Add(p.TotalProcessorTime)
            Next
        End Sub
    End Class



    6. Simpan dan jalankan.

    Anda dapat Mendownload Task Manager dengan mengklik link dibawah ini:
    Password: Julius Danes Nugroho

    Cara Membuat Time

    By : Unknown
    Cara membuat Time dengan menggunakan Microsoft Visual Basic.
    Anda dapat mendownload Microsoft Visual Basic dengan mengklik: Microsoft Visual Basic

    Berikut ini cara membuatnya:

    1. Buka  program Microsoft Visual Basic dan buat project baru.




    2. Tambahkan Timer dan setting:
        - Name    : tmrjam
        - Enabled : True
        - Interval : 1000


    3. Tambahkan Label dan setting:
        - Name    : Jam

        - Text      : 00 : 00 : 00


    4. Tambahkan DateTime Picker.


    5. Copy dan masukkan scrip ini:

    Public Class Form1

        Private Sub tmrjam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrjam.Tick
            Jam.Text = TimeOfDay
        End Sub
    End Class



    6.  Simpan dan jalankan.

    Anda dapat mendownload Time dengan mengklik link dibawah ini:

    Password: Julius Danes Nugroho

    Cara Membuat Kalkulator

    By : Unknown
    Cara membuat Kalkulator dengan menggunakan Microsoft Visual Basic.
    Anda dapat mendownload Microsoft Visual Basic dengan mengklik: Microsoft Visual Basic

    Berikut ini cara membuatnya:


    1. Buka program Visual Basic dan buat project baru.



    2. Tambahkan TextBox dan setting:
        - Name : TextBox1

        - Text   : (kosong)




    3. Tambahkan TextBox dan setting:
        - Name : TextBox2
        - Text   : (kosong)
     

    4. Tambahkan Label dan setting:
        - Nama : Label1

        - Text   : (kosong)





    5. Tambahkan Label dan setting:
        - Nama : Label2

        - Text   : (kosong)


    6. Tambahkan Button dan setting:
        - Nama : Button1

        - Text   : x

    7. Tambahkan Button dan setting:
        - Nama : Button2

        - Text   : /



    8. Tambahkan Button dan setting:
        - Nama : Button3

        - Text   : +


    9. Tambahkan Button dan setting:
        - Nama : Button4

        - Text   : -


    10. Tambahkan Button dan setting:
        - Nama : Button5

        - Text   : Clear

    11. Copy dan masukkan scripnya:

    Public Class Kalkulator

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Label1.Text = "*"
            Label2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
        End Sub

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

            Label1.Text = "/"
            Label2.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
        End Sub

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

            Label1.Text = "+"
            Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        End Sub

        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

            Label1.Text = "-"
            Label2.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        End Sub

        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

            TextBox1.Text = ""
            TextBox2.Text = ""
            Label1.Text = ""
            Label2.Text = ""
        End Sub

        Private Sub tmrjam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrjam.Tick

            Jam.Text = TimeOfDay
        End Sub

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

        End Sub
    End Class






    12. Simpan dan jalankan.


    Anda dapat Mendownload Kalkulator dengan mengklik link dibawah ini:

    Password: Julius Danes Nugroho

    - Copyright © 2013 IT Programmer - Date A Live - Powered by Blogger - Designed by Julius Danes Nugroho -