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