• Kuliah 3 Membuat program operasi matematika dan persegi panjang (Tipe Data dan Var)

    Kamis, 26 April 2018

    Assalamualaium semua, disini saya kembali menuliskan hasil perkuliahan saya pada mata kuliah pemrograman visual. pada kali ini saya akan share contoh membuat program operasi matematika atau yang sering kita kenal sebagai Kalkulator dan program persegi panjang.

    Okelah langsung aja ya gan :D


    Tipe Data

    Seperti bahasa pemrograman yang lain, Visual Basic .Net juga menyediakan berbagai tipe data yang dapat digunakan oleh pemrograman sesuai dengan konteks pemakaiannya. Berikut beberapa tipe data yang tersedia dalam VB.Net yang sering digunakan.


    Data Type
    Size
    in Bytes
    Return Value
    Type
    Tipe Data Numeric
    Byte
    1
    8-bit unsigned integer (0 – 255)
    System.Byte
    Integer
    3
    32-bit signed integer
    (-2.147.483.648 s/d 2.147.483.647)
    System.Int32
    Long
    8
    64-bit signed integer
    -9.223.372.036.854.775.808 s/d
     9.223.372.036.854.775.807
    System.Int64
    Double
    8
    64-bit floating point variabel
    (5E-324 s/d 1.8E+10308)
    System.Double
    Decimal
    16
    128-bit floating point variabel
    (Nilai hingga 28 digit)
    System.Decimal
    Tipe Data Karakter
    Char
    2
    16-bit unicode characters
    System.Char
    String
    Varies
    Non-Numeric Type
    System.String
    Tipe Data Tanggal
    Date
    8
    0:00:00 on Januari 1, 0001 through 11:59:59 PM on December 31, 9999
    System.Date
    Tipe Data Logika
    Boolean
    2
    True or False
    System.Boolean
    Tipe Data Object
    Object
    4
    Any type can be stored in variable of type object
    System.Object
     
     

    Variabel

    Variabel merupakan tempat penyimpanan data. Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut.
    Berbeda dengan VB6, variabel dalam VB.Net harus dideklarasikan terlebih dahulu, jika tidak akan terjadi kesalahan Compiler.


    Deklarasi Variabel

    Dim merupakan keyword dalam pendeklarasian variabel.

    Bentuk penulisan Deklarasi Variabel:
                Dim (namavariabel) as (tipedata)


    Contoh:
    Dim a,b as integer
    Dim i as string


    Pemberian Nilai Awal pada Variabel

    Bentuk Penulisan:
                (namavariabel) = NilaiAwal

     

    Contoh:
    a=10
    b=5
    i=“Visual Basic”


    Pendeklarasian Variabel disertai pemberian Nilai Awal

    Bentuk Penulisan:
         Dim (namavariabel) as (tipedata)  = NilaiAwal


    Contoh:
    Dim a as integer = 10
    Dim i as string = “Visual Basic”


    Contoh Program

    PUBLIC Z AS INTEGER

    Private Sub Button1_Click(ByVal sender As System.Object,

    Dim x,y as integer
    x=15
    y=5
    z=x*y
    TextBox1.Text=z
    End Sub



    Operasi Terhadap Tipe Data Numeric

    Operasi terhadap tipe data numeric sama halnya melakukan perhitungan matematik atau aritmatika. Ada penjumlahan, pengurangan, perkalian, pembagian, dan sebagainya.

    Untuk melakukan perhitungan matematika dibutuhkan operator aritmatika.
    Berikut operator aritmatika sesuai urutan pengerjaannya :
    ^     :    perpangkatan
    *      :    perkalian
    /      :    pembagian
    +     :    penjumlahan
    -           :           pengurangan




    1. Desain Program Kalkulator

    2. Pengaturan Properties
    NO.
    OBJEK
    PROPERTIES
    PENGATURAN
    1
    Label1
    Text
    OPERASI MATEMATIKA


    Font Size
    9


    Bold
    True
    2
    Label2
    Text
    Bilangan 1 :
    3
    Label3
    Text
    Bilangan 2 :
    4
    Label4
    Text
    Hasil :
    5
    Label5
    Text
    OPERATOR


    Bold
    True
    6
    TextBox1
    Name
    txtbil1
    7
    TextBox2
    Name
    txtbil2
    8
    TextBox3
    Name
    Txthasil
    9
    Button1
    Text
    ^


    Size
    10


    Name
    Btnpangkat
    10
    Button2
    Text
    *


    Size
    10


    Name
    Btnkali
    11
    Button3
    Text
    /


    Name
    Btnbagi
    12
    Button4
    Text
    +


    Size
    9


    Name
    Btntambah
    13
    Button5
    Text
    -


    Size
    10


    Name
    Btnkurang
    14
    Button6
    Text
    Bersih


    Name
    Btnbersih
    15
    Button7
    Text
    Tutup


    Name
    Btntutup


    3. Alur dan perintah yang diharapkan

    Alur Program
    * Input bilangan 1 dan bilangan 2.
    * Klik salah satu tombol operator, maka akan tampil perhitungan sesuai operator.
    Tombol ^ Pangkat
    Tombol * Kali
    Tombol / Bagi
    Tombol + Tambah
    Tombol - Kurang
    *Klik tombol bersih, maka bil 1 dan bil 2 dan hasil akan terhapus.
    *Klik tmbol tutup, maka program akan ditutup.

    Perintah Program
    Private Sub btnpangkat_Click(ByVal sender As System.Object,
          txthasil.Text = txtbil1.Text ^ txtbil2.Text
      End Sub
     

      Private Sub btnkali_Click(ByVal sender As System.Object,
          txthasil.Text = txtbil1.Text * txtbil2.Text
      End Sub
     

      Private Sub btnbagi_Click(ByVal sender As System.Object,
          txthasil.Text = txtbil1.Text / txtbil2.Text
      End Sub
     

      Private Sub btntambah_Click(ByVal sender As System.Object,
          txthasil.Text = Val(txtbil1.Text) + txtbil2.Text
      End Sub
     

      Private Sub btnkurang_Click(ByVal sender As System.Object,
          txthasil.Text = txtbil1.Text - txtbil2.Text
      End Sub

    Dan hasilnya akan seperrti ini


    Selanjutnya kita akan membuat program persegi panjang seperti di bawah ini.


    Skrip Kodenya beriku ini:

    Public Class Form2

        Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Close()
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
            txtpanjang.Clear()
            txtlebar.Clear()
            txtluas.Clear()
            txtkeliling.Clear()
        End Sub

        Private Sub txtp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpanjang.TextChanged

        End Sub

        Private Sub txtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlebar.TextChanged

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim panjang, lebar As Integer
            Dim Luas As Integer
            Dim Keliling As Integer

            panjang = Val(txtpanjang.Text)
            lebar = Val(txtlebar.Text)
            Luas = Val(txtluas.Text)
            Keliling = Val(txtkeliling.text)

            Luas = (panjang * lebar)
            txtluas.Text = Luas

            Keliling = (2 * (panjang + lebar))
            txtkeliling.Text = Keliling
        End Sub
    End Class

    Dan Hasilnya seperti ini gan :D



    Oke gan n sist itu dulu yang dapat saya berikan kali ini semoga menambah ilmu dan wawasan kalian.
    Terima Kasih telah membaca. Wassalamualaikum :D

    { 1 komentar... read them below or add one }

    1. ZeCau²4 Agustus 2020 pukul 19.34

      Operasi MTK
      https://drive.google.com/file/d/10CrfnfmKYxqRhORLhrwknmjkVIhMZkPy/view?usp=sharing

      Program Persegi Panjang

      kode ini buat apaan ya?
      jadi ky nya bang aldi ini udh sett name txt1 itu txtp dan txt2 itu txtl tapi males nge ganti di pengaturan. di ganti dh di dalam kode. txtp jadi txtpanjang dan txtl jadi txtlebar. koreksi jika salah.

      Private Sub txtp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpanjang.TextChanged

      End Sub

      Private Sub txtl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlebar.TextChanged

      BalasHapus

    • Popular Posts

    Diberdayakan oleh Blogger.

    About me

    instagram.com/aldifikri.nt

    Seseorang mahasiswa STMIK Trigguna Dharma yang hobi melihat perkembangan dunia digital

    Acces dan Database Connection di Visual Basic

    KONEKSI DATABASE I Untuk membuat suatu aplikasi basis data, diperlukan suatu koneksi agar antara visual basic dengan basis data dap...

    Copyright © - Aldi Fikri Blog Perkuliahan

    Aldi Fikri Blog Perkuliahan - Powered by Blogger - Designed by Johanes Djogan