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