Disini saya akan menulis program-program sederhana pada Visual Basic, dibawah ini merupakan program sederhana!
1.Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim nilai As Integer
nilai = TextBox1.Text
Dim nama As Integer
nama = TextBox1.Text
Select Case nilai
Case 90 To 100
TextBox2.Text = "A"
Case 80 To 89
TextBox2.Text = "B"
Case 60 To 79
TextBox2.Text = "C"
Case 50 To 59
TextBox2.Text = "D"
Case Else
TextBox2.Text = "E"
End Select
If TextBox2.Text = "A" Then
TextBox3.Text = "memuaskan"
ElseIf TextBox2.Text = "B" Then
TextBox3.Text = "baik"
ElseIf TextBox3.Text = "C" Then
TextBox3.Text = "cukup"
ElseIf TextBox2.Text = "D" Then
TextBox3.Text = "kurang"
ElseIf TextBox2.Text = "E" Then
TextBox3.Text = "maaf anda gagal"
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox4.Text = String.Empty
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
End Sub
Private Sub Nama_Click(sender As Object, e As EventArgs) Handles Nama.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
hasil dari program diatas adalah:
2. Public Class Form1
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label3.Text = TextBox1.Text
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
hasil dari program diatas adalah:
3. Imports System
Module Module1
Function isgenap(x As Long) As Boolean
If (x Mod 2) = 0 Then
Return True
Else
Return False
End If
End Function
REM program utama
Sub Main()
Dim bil As Long
Console.Write("masukan bilangan:")
bil = Console.ReadLine()
If isgenap(bil) Then
Console.WriteLine("masukkan bilanga{0} adalah genap", bil)
Else
Console.WriteLine("masukkan bilanga{0} adalah ganjil", bil)
End If
Console.ReadLine()
End Sub
End Module
hasil dari program diatas adalah:
4. 'mendefinisikan kelas segi empat
Public Class segiempat
Public panjang As Integer
Public lebar As Integer
End Class
'program utama modul program segiempat
Module Module1
Sub main()
'mendeklarasikan variabel lokal
Dim luas As Integer
'mendeklarasikan objek dari kelas segiempat
Dim se As segiempat
'membuat ibjek kelas segiempat
se = New segiempat()
'mengisi nilai objek
se.panjang = 8
se.lebar = 6
'menghitung luas
luas = se.panjang * se.lebar
'menampilkan luas
Console.WriteLine("luas segi empat = {0}", luas)
Console.ReadLine()
End Sub
End Module
hasil dari program diatas adalah:
5. 'mendefinisikan kelas persegipanjang
Public Class segiempat
Public panjang As Integer
Public lebar As Integer
End Class
'program utama modul program persegipanjang
Module Module1
Sub main()
'mendeklarasikan variabel lokal
Dim luas1 As Integer
Dim luas2 As Integer
'mendeklarasikan objek dari kelas persegipanjang
Dim se1 As segiempat
Dim se2 As segiempat
'membuat ibjek kelas persegipanjang
se1 = New segiempat()
se2 = New segiempat()
'mengisi nilai objek
se1.panjang = 250
se1.lebar = 2
se2.panjang = 34
se2.lebar = 5
luas1 = se1.panjang * se1.lebar
luas2 = se2.panjang * se2.lebar
'menampilkan luas
Console.WriteLine("luas persegi panjang 1 = {0}", luas1)
Console.WriteLine("luas persegi panjang 2 = {0}", luas2)
Console.ReadLine()
End Sub
End Module
hasil dari program diatas adalah:
6. Imports System
Module Module1
Function fak(n As Long) As Integer
If (n > 1) Then
Return n * fak(n - 1)
Else
Return 1
End If
End Function
REM program utama
Sub Main()
Console.WriteLine("faktorial dari 9 adalah {0}", fak(9))
Console.ReadLine()
End Sub
End Module
hasil dari program diatas adalah:
7. Imports System
Module Module1
Function tahunkabisat(x As Long) As Boolean
If (x Mod 4) = 0 Then
Return True
Else
Return False
End If
End Function
REM program utama
Sub Main()
Dim bil As Long
Console.Write("masukan tahun kabisat:")
bil = Console.ReadLine()
If tahunkabisat(bil) Then
Console.WriteLine("{0} adalah tahun kabisat", bil)
Else
Console.WriteLine("{0} adalah bukan tahun kabisat", bil)
End If
Console.ReadLine()
End Sub
End Module
hasil dari program diatas adalah:
jika dia merupakan tahun kabisat hasil nya seperti dibawah ini:
jika bukan merupakan tahun kabisat hasilnya akan seperti dibawah ini:
selesai! semoga bermanfaat bagi anda:)
Tidak ada komentar:
Posting Komentar