Pemrograman Desktop (Mod Tahun Kabisat)

Mod Tahun Kabisat

1. Script Program

Module TahunKabisat

    Function IsGenap(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("Masukkan Tahun :")

        bil = Console.ReadLine()

        If IsGenap(bil) Then

            Console.WriteLine("Tahun {0} adalah Tahun Kabisat", bil)

        Else

            Console.WriteLine("Tahun {0} adalah Bukan Tahun Kabisat", bil)

        End If

        Console.ReadLine()

    End Sub

End Module

2. Hasil Setelah Dijalankan

Tahun kabisat 

Bukan Tahun Kabisat

Pemrograman Desktop (Program Mod Ganjil Genap)

Program Mod Ganjil Genap

1. Script Program

Module GenapGanjil

    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("Masukkan Bilangan :")

        bil = Console.ReadLine()

        If IsGenap(bil) Then

            Console.WriteLine("Bilangan {0} adalah Genap", bil)

        Else

            Console.WriteLine("Bilangan {0} adalah Ganjil", bil)

        End If

        Console.ReadLine()

    End Sub

End Module

2. Hasil Setelah Dijalankan

jika yang diinput bilangan Genap

jika yang diinput bilangan ganjil

Pemrograman Desktop (Mendefiniskan Class Persegi Panjang)

Mendefiniskan Class Persegi Panjang

1. Script Program

'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

2. Hasil Setelah Dijalankan

Pemrograman Desktop (Mendefinisikan Class Segi Empat)

Mendefinisikan Class Segi Empat

1. Script Program

'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

2. Hasil Setelah Dijalankan 

OOP & Fungsi

Pemrograman Desktop

1. OOP

ü  Metode : merupakan suatu operasi serupa fungsi-fungsi yang dapat dikerjakan oleh suatu objek. Contoh : objek mangga terdapat method ambil, rasa, kupas kulit.

4 bagian dasar

1. Nama Metode

2. Tipe Objek Primitive

3. Daftar Parameter

4. Badan atau Isi metode

ü  Property (Atribut) : adalah data yang terdapat dalam sebuah class.

ü  Event : Fungsi yang dipanggil untuk merespon event tertentu, misalnya klik mouse, penekanan tombol keyboar, dan lain lain.

ü  Indexer : adalah struktur data yang mengatur record data pada disk untuk mengoptimalkan beberapa jenis operasi pengambilan tertentu.

ü  Operator : adalah operasi yang memiliki macam-macam jenis.

ü  Konstruksi : adalah kegiatan membangun. Dalam hal OOP, konstruksi dari pemrograman Java selalu berbasis pada OOP. Konstruktor daalah fungsi anggota dari suatu kelas yang secara otomatis dijalankan ketika suatu objek diciptakan. Konstruksi memliki beberapa aturan.

ü  Destruktor: adalah fungsi anggotadari suatu kelas yang akan dijalankan secara otomatis pada saat objek akan hilang/sirna.

2. Fungsi

Fungsi adalah suatu statement dimana pada suatu proses atau rumus akan mengembalikan nilai kepada pemanggil.

Tugas 2 Membuat Program Sederhana Pemrograman Desktop

Program Sederhana Menghitung Luas Benda

Disini saya menggunakan Tab untuk beberapa program menghitung luas benda. Di Visual Studio 2013.

Berikut adalah contoh script nya.

Script Program

Public Class Form1

    Private Sub TabPage3_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Label6.Text = Val(TextBox10.Text) * Val(TextBox8.Text) / 2

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Label14.Text = Val(TextBox7.Text) * Val(TextBox5.Text)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Label15.Text = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        TextBox10.Text = String.Empty

        TextBox8.Text = String.Empty

        Label6.Text = String.Empty

    End Sub

    Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        TextBox7.Text = String.Empty

        TextBox5.Text = String.Empty

        Label14.Text = String.Empty

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        TextBox1.Text = String.Empty

        TextBox2.Text = String.Empty

        TextBox3.Text = String.Empty

        Label15.Text = String.Empty

    End Sub

End Class

Tampilan Program

1. Tab Pertama

2. Tab Kedua

3. Tab Ketiga

Soal Tantangan Tugas 1 (Semester 2) Pemrograman Desktop XI RPL 2

Pemrograman Desktop

Jadi, tugas nya disini adalah jika kita menginput karakter nama, maka akan muncul jika ditekan tombol button. tetapi karakter yang akan muncul nanti tidak dapat diubah oleh pengguna/user. 

Berikut adalah script program nya.

Script Program 

Tampilan Setelah Dijalankan