Sesuatu hal yang baru di VB.net dibandingkan dengan Visual Basic 6.0, adalah pembuatan program console yang berjalan di lingkungan MS-DOS prompt. Anda dapat membuat program console dengan pilihan “Console application” pada jendela New Project.
Selanjutnya akan muncul suatu Code Windows, dimana anda dapat mengetikan program anda.
Module
Module1
Sub Main()
End Sub
End
Module
Berikut ini adalah contoh program menghitung Luas Persegi panjang :
Module
Module1
Sub Main()
'Deklarasi
variabel
Dim
Panjang, Lebar As Integer
Dim
Luas As Long
Console.WriteLine("Menghitung
luas persegi panjang")
Console.Write("Panjang
:")
Panjang =
Console.ReadLine()
Console.Write("Lebar
:")
Lebar = Console.ReadLine()
Luas = Panjang * Lebar
Console.WriteLine("Luas
persegi panjang : " & Luas.ToString)
Console.ReadLine()
End Sub
End
Module
Untuk menjalankan program dapat digunakan tombol fungsi F5, atau dari menu
“Project” pilih “Run”, ataupun dengan menggunakan toolbar
Buatlah program untuk menghitung akar persamaan kuadrat.
Imports
System.Math
Module
Module1
Sub Main()
Dim
a, b, c As Integer
Dim
D As Long
Dim
x1, x2 As Double
Console.WriteLine("Menghitung
persamaan kuadrat aX2 + bX + c")
Console.Write("Nilai a
:")
a = Console.ReadLine()
Console.Write("Nilai b
:")
b = Console.ReadLine()
Console.Write("Nilai c
:")
c = Console.ReadLine()
'Menghitung
diskriminan
D = b ^ 2 - 4 * a * c
If
D > 0 Then
x1 =
(-b + Sqrt(D)) / 2 * a
x2 =
(-b - Sqrt(D)) / 2 * a
Console.WriteLine("x1
" & x1.ToString)
Console.WriteLine("x2
" & x2.ToString)
Else
Console.WriteLine("Akar
imaginier !")
End
If
End Sub
End
Module