Notifikasi :

Welcome To My Blog

Popular Post

  • Cara Membuat Time
    Cara membuat Time dengan menggunakan Microsoft Visual Basic. Anda dapat mendownload Microsoft Visual Basic dengan mengklik:  Microsoft Vi...
  • Cara Membuat Kalkulator
    Cara membuat Kalkulator dengan menggunakan Microsoft Visual Basic. Anda dapat mendownload Microsoft Visual Basic dengan mengklik:  Micros...
  • Cara Membuat Stopwatch
    Cara Membuat Stopwatch dengan menggunakan Microsoft Visual Basic 2010. Anda dapat mendownload Microsoft Visual Basic dengan mengklik: ...
  • Cara Membuat Task Manager
    Cara membuat Task Manager dengan menggunakan Microsoft Visual Basic. Anda dapat mendownload Microsoft Visual Basic dengan mengklik:  Micr...
  • Application made by me
    1.  Stopwatch http://www.mediafire.com/download.php?5a7l3h543b975p1 2. Kalkulator http://www.mediafire.com/download.php?9zs2iczio84q...

Archive for 2013

Application made by me

By : Unknown

Read More
0 Comments

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:
http://www.mediafire.com/?5a7l3h543b975p1

Password: Julius Danes Nugroho
Read More
0 Comments

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:
    http://www.mediafire.com/download.php?l3wng75lgcuygse
    Password: Julius Danes Nugroho
    Read More
    0 Comments

    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:
    http://www.mediafire.com/download.php?o34wvwochkksqjq

    Password: Julius Danes Nugroho
    Read More
    0 Comments

    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:
    http://www.mediafire.com/download.php?9zs2iczio84q8jq

    Password: Julius Danes Nugroho
    Read More
    0 Comments

    Date A Live

    About Me

    Total Pageviews

    Diberdayakan oleh Blogger.

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