Selanjutnya akan muncul suatu Code Windows, dimana anda dapat mengetikan program anda.
Module Module1
Sub Main()
End SubEnd 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
Menjalankan program
Untuk menjalankan program dapat digunakan tombol fungsi F5, atau dari menu “Project” pilih “Run”, ataupun dengan menggunakan toolbarProject
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
Tidak ada komentar :
Posting Komentar