Minggu, 21 Juli 2013

Program VB.net yang pertama.


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 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 toolbar 

Project

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
1

Tidak ada komentar :

Posting Komentar