Program perhitungan nilai akhir dan progress bar VB.NET

aplikasi vb.net nilai akhir dengan tool box label, group box, progress bar, button beserta validasi nya....

Starting Form di tengah Pada VB.NET

Untuk membuat Form berada di tengah ( center windows location) maka caranya aktivkan kursor pada form kemudian ganti propeties yang ada di sebelah kiri yaitu pada Start Position ganti dengan CenterScreen.

Tahapan Membuat aplikasi (hello world) pada VB.NET windows application

Sekarang kita akan membuat aplikasi pada VB.NET windows application, disini saya menggunakan Visual Studio 2005 bila ada yang menggunakan Visual Studio 2008 atau Visual Studio 2010 tidak masalah karena coding dan tahapannya tidak jauh berbeda. oke langsung saja kita mulai tahapannya.

1. Buka program Visual Studio 2005 

Aplikasi menghitung Luas segi tiga, lingkaran dan balok Pada VB.NET 2005 Console Application

Aplikasi Luas segi tiga, lingkaran dan balok Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1
    Dim pilihan As Integer
    Dim jawab As Char
    Sub Main()

Source Code Jajar Genjang Pada VB.NET 2005 Console Application

Source Code Jajar Genjang Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim A, B, C As Integer
        For A = 1 To 10
            For C = 1 To A
                Write(" ")
            Next C
            For B = 1 To 10
                Write("A")
            Next B
            WriteLine()
        Next A
        ReadLine()
    End Sub

End Module

Deret Angka (0-9) segitiga siku-siku terbalik Pada VB.NET 2005 Console Application

Deret Angka (0-9) segitiga siku-siku terbalik  Pada VB.NET 2005 Console Application :

Segi Tiga Siku-siku Ganjil Pada VB.NET 2005 Console Application

Segi Tiga Siku-siku Ganjil Pada VB.NET 2005 Console Application :

Imports system.Console
Module Module1

    Sub Main()
        Dim A, B As Integer
        For A = 1 To 9 Step 2
            For B = 1 To A Step 2
                Write(B & " ")
            Next B
            WriteLine()
        Next A
        WriteLine()
        ReadLine()
    End Sub

End Module

Aplikasi Rumah Sakit Barcode Pada VB.NET 2005 Console Application

Aplikasi Rumah Sakit Barcode Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

Aplikasi Nilai Ujian Mahasiswa Pada VB.NET 2005 Console Application

Aplikasi Nilai Ujian Mahasiswa Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

Aplikasi Perumahan Pada VB.NET 2005 Console Application

Aplikasi Perumahan Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim no, nama, type As String
        Dim jumlah, daya, stb, stdawal, stdakhir, bkwh As Double
        WriteLine("DAFTAR REKENING LISTRIK PERUMAHAN ALAM SEMESTA BULAN MEI 2003 ")
        WriteLine("------------------------------------------------------------- ")
        Write(" MASUKAN NAMA        : ")
        nama = ReadLine()
        Write(" MASUKAN NO          : ")
        no = ReadLine()
        Write(" MASUKAN TYPE RUMAH  : ")

Aplikasi Nilai akhir Mahasiswa Pada VB.NET 2005 Console Application

Aplikasi Nilai akhir Mahasiswa Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim nm, nmmk, ket As String
        Dim ntgs, nabsen, nuts, nuas, ntotal As Double
        WriteLine("NILAI AKHIR MAHASISWA")
        WriteLine("---------------------")
        Write(" MASUKAN NAMA ANDA   : ")
        nm = Readline()
        Write(" NAMA MATA KULIAH    : ")
        nmmk = ReadLine()
        Write(" MASUKAN NILAI TUGAS : ")
        ntgs = ReadLine()
        Write(" MASUKAN NILAI ABSEN : ")
        nabsen = ReadLine()
        Write(" MASUKAN NILAI UTS   : ")
        nuts = ReadLine()
        Write(" MASUKAN NILAI UAS   : ")

kode karcis barcode (Left Right Mid) Pada VB.NET 2005 Console Application

kode karcis kereta (Left Right Mid) barcode Pada VB.NET 2005 Console Application :

Deret Bilangan Ganjil Pada VB.NET 2005 Console Application

Deret Bilangan Ganjil Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim bil, ganjil As Integer
        Dim f As Integer
        Write("masukan banyaknya deret : ")
        f = ReadLine()
        For bil = 1 To f
            ganjil = (2 * bil - 1)
            Write(ganjil & " ")
        Next
        ReadLine()
    End Sub

End Module

Segitiga Siku-siku Pada VB.NET 2005 Console Application

Segitiga Siku-siku Pada VB.NET 2005 Console Application :

Imports system.console
Module Module1

    Sub Main()
        Dim bil, k As Integer
        For bil = 1 To 10
            For k = 1 To bil
                Write("*")
            Next k
            WriteLine()
        Next bil
        WriteLine()
        ReadLine()
    End Sub

End Module

Deret bilangan penjumlahan angka genap Pada VB.NET 2005 Console Application

Deret bilangan penjumlahan angka genap Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim q, i, b, j As Integer
        Write(" masukan banyaknya deret  : ")
        q = ReadLine()
        For i = 1 To q
            b = i * 2
            j = j + b
            If i = q Then
                Write(b & "=")
            Else
                Write(b & "+")
            End If
        Next
        WriteLine(j)
        ReadLine()
    End Sub

Deret Bilangan terbalik Pada VB.NET 2005 Console Application

Deret Bilangan terbalik Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim bil As Integer
        For bil = 10 To 1 Step -1
            Write(bil & " ")
        Next
        ReadLine()
    End Sub

If (Condition) Then - 3 kondisi Pada VB.NET 2005 Console Application

If (Condition) Then - 3 kondisi Pada VB.NET 2005 Console Application :

Imports system.Console
Module module1
    Sub main()
        Dim nama, ket, mk As String
        Dim nilai As Integer

If (condition) then-bilangan terkecil Pada VB.NET 2005 Console Application

If (condition) then-bilangan terkecil Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim Bil1, Bil2, bil As Double
        Write("MASUKAN BIL 1 : ")
        Bil1 = ReadLine()
        Write("MASUKAN BIL 2: ")
        Bil2 = ReadLine()
        If Bil1 > Bil2 Then
            bil = Bil2
        Else
            bil = Bil1
        End If
        WriteLine("BILANGAN TERKECILNYA ADALAH: " & bil)
        ReadLine()
    End Sub

End Module

Deret Angka Ke bawah / Vertical Pada VB.NET 2005 Console Application

Deret Angka Ke bawah Pada / Vertical VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim x = 1
20:     WriteLine(x)
        If x = 5 Then GoTo 40
        x = x + 1
        GoTo 20
40:     ReadLine()
        End
    End Sub

End Module

Logika (for next goto step) Pada VB.NET 2005 Console Application

Logika (for next goto step) Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim i As Integer
        For i = 10 To 1 Step -2
            If i = 5 Then GoTo 100
            Write("PUSING ")
        Next i
100:
        ReadLine()
    End Sub

End Module