BINA SARANA INFORMATIKA

TUGAS INTERFACING PERHITUNGAN GEOMETRI BERGAMBAR MENGGUNAKAN VISUAL BASIC

Disusun Oleh : Yunanda Ramadhan YS NIM : 13081330 Kelas : 13.5B.11 Teknik Komputer Pembimbing : Bapak Juniar Sinaga

AKADEMI MANAJEMEN INFORMATIKA & KOMPUTER

BINA SARANA INFORMATIKA 2010

KATA PENGANTAR Puji syukur saya panjatkan Kehadirat Allah SWTkarena berkat rahmat dan karunia-Nya maka penulisan ilmiah ini dapat terselesaikan tepat pada waktunya. Penulisan ilmiah ini didmaksudkan untuk melengkapi salah satu syarat untuk mendapatkan nilai tambah. Pokok permasalahan yang saya kemukakan adalah “Perhitungan Geometri” menggunakan Visual Basic. Penulisan ini tidak mungkin terwujud tanpa adanya bimbingan, bantuan, serta dukungan dari berbagai pihak. Oleh karena itu, pada kesempatan ini saya ingin mengucapkan terima kasih yang sebesar-besarnya kepada kepada semua pihak khususnya kepada Bapak Dosen Pembimbing yang telah membantu dan telah memberikan semangat kepada saya baik langsung maupun secara tidak lansung sehingga terselesaikannya penulisan ilmiah ini. Saya menyadari bahwa penulisan ilmiah ini masih jauh dari kesempurnaan, untuk itu diharapkan dengan segala kerendahan hati kiranya dapat diberikan saran dan kritik yang bersifat membangun kepada penulis agar terciptanya karya yang lebih baik dimasa depan nanti. Semoga tulisan ini dapat bermanfaat bagi saya khususnya dan pembaca pada umumnya.

Bekasi, Nopember 2010

Penulis

i

DAFTAR ISI Kata Pengantar………………………………………………………………….

i

Daftar Isi……………………………………………………...............................

ii

BAB I

PENDAHULUAN 1.1

Latar Belakang……………………………………………

1

1.2

Ruang Lingkup……………………………………………

1

BAB II

PEMBAHASAN 2.1

Landasan Teori…………………………………………...

2

2.2

Listing Program…………………………………………...

3

BAB III

KESIMPULAN…………………………………………………….

6

BAB IV

DAFTAR PUSTAKA……………………………...……………...

7

ii

BAB I PENDAHULUAN

1.1 Latar Belakang Dalam era globalisasi sekarang ini segala teknologi diciptakan untuk membantu kerja manusia agar pekerjaan manusia jadi lebih mudah dan lebih efisien waktu. Program-program dibuat sedemikian rupa sehingga dapat memacu daya kerja manusia. Adapun masalah yang akan dibahas dalam penulisan ini adalah membuat program Perhitungan Geometri menggunakan Visual Basic, juga dilengkapi dengan gambar atau bentuk geometri seperti Peresegi Panjang, Segi Tiga, dan lingkaran. Dengan aplikasi tersebut disamping untuk memudahkan manusia dalam bekerja, manusia juga tidak perlu repot-repot untuk menghitung secara manual.

1.2 Ruang Lingkup Dalam pembuatan program ini dengan menggunakan Visual Basic, dengan pernyataan if…then…else…

1

BAB II PEMBAHASAN

2.1 Landasan Teori - Visual Basic Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yangbersifat even driven an menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. -

Interface Dalam penggunaan umum, sebuah antarmuka atau interface adalah sebuah titik,

atau permukaan di mana dua zat atau benda berbeda bertemu; dia juga digunakan secara metafora untuk perbatasan antara benda. Kata interface kadangkala (biasanya dalam bidang teknik) disingkat menjadi "i/f".Bentuk kerja dari interface berarti menghubungkan dua atau lebih benda pada suatu titik atau batasan yang terbagi, atau untuk menyiapkan kedua benda untuk tujuan tersebut. Kata interface juga memiliki arti khusus: antarmuka pengguna (bahasa Inggris: user interface) merupakan bentuk tampilan grafis yang berhubungan langsung dengan pengguna (user). Antarmuka pengguna berfungsi

2

untuk menghubungkan antara pengguna dengan sistem operasi, sehingga komputer tersebut bisa digunakan.

2.2 Listing Program

Private Sub CHKkeliling_Click()

LBLhasil2.Visible

If CHKkeliling.Value = vbChecked Then

TXThasil2.Visible = False

LBLhasil2.Visible = True

End If

TXThasil2.Visible = True

End If

If

OPTsegi3.Value

=

True

Then

=

False:

End Sub

LBLnilai1.Caption = "Sisi" End If

Private Sub CHKluas_Click()

If OPTsegi4.Value = True Then

If CHKluas.Value = vbChecked Then

LBLnilai1.Caption = "Sisi"

LBLhasil1.Visible = True

End If

TXThasil1.Visible = True

Else


If CHKkeliling.Value = vbUnchecked

LBLnilai1.Caption = "Alas"

Then

End If If OPTsegi4.Value = True Then

3

LBLnilai1.Caption = "Sisi 1"

LBLhasil1.Visible

=

End If


Else

End If

If CHKluas.Value = vbUnchecked Then

End If

False:

End Sub

Private Sub CMDproses_Click() If OPTsegi3.Value = True Then




TXThasil1=(Val(TXTniali1)*Val(TXTnilai2)) / 2

TXThasil2 = 3 * Val(TXTniali1)

End If

End If

End If

End If If OPTsegi4.Value = True Then




TXThasil2 = 4 * Val(TXTniali1)

TXThasil1 = Val(TXTniali1) * Val(TXTnilai2)

End If

End If

End If

End If

If OPTsegipanjang.Value = True Then If CHKkeliling.Value = vbChecked Then

If OPTsegipanjang.Value = True Then

TXThasil2


Val(TXTnilai2))

TXThasil1 = Val(TXTniali1) * Val(TXTnilai2)

End If

End If

End If

End If

End Sub

Private Sub Form_Load()

LBLhasil1.Visible = False

=

2

*

(Val(TXTniali1)

SHPkotak.Visible = False SHPpersegi.Visible = False


LNsegi31.Visible = False

LBLhasil2.Visible = False




LBLnilai3.Visible = False 4

+

TXTnilai3.Visible = False

End Sub

Private Sub OPTsegi4_Click() Private Sub OPTsegi3_Click()



SHPpersegi.Visible = False

SHPpersegi.Visible = False

SHPkotak.Visible = True

SHPkotak.Visible = False


LNsegi31.Visible = True





LBLnilai1.Caption = "Sisi 1"

LBLnilai1.Caption = "Alas"

LBLnilai2.visible = False

LBLnilai2.Caption = "Tinggi"

TXTnilai2.visible = False

End If

End If

End Sub

End Sub

Private Sub OPTsegipanjang_Click() If OPTsegipanjang.Value = True Then SHPkotak.Visible = False SHPpersegi.Visible = True LNsegi31.Visible = False LNsegi32.Visible = False LNsegi33.Visible = False LBLnilai1.Caption = "Panjang" LBLnilai2.Caption = "Lebar" End If End Sub

5

BAB III KESIMPULAN

Dalam membuat suatu program diperlukan suatu pemikiran yang bertujuan untuk mengetahui manfaat dari suatu program yang akan kita buat. Disamping itu kita juga harus memahami tentang bahasa program yang ingin kita pakai seperti Visual Basic, Foxpro, C++, dan masih banyak lagi bahasa pemrograman yang harus kita kuasai. Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®. Apakah Anda seorang profesional atau pemula sekalipun di bidang pemrograman Windows, Visual Basic menyediakan kepada Anda sekumpulan perangkat untuk mempermudah dan menyederhanakan pengembangan aplikasi yang tangguh. Dalam membuat program juga diperlukan Interface. Interface berguna untuk enyambungkan atau berhubungan langsung antara komputer dengan pengguna (user). Interface berfungsi untuk menghubungkan antara pengguna dengan sistem operasi, sehingga program atau komputer tersebut bisa digunakan. Bentuk kerja dari interface berarti menghubungkan dua atau lebih benda pada suatu titik atau batasan yang terbagi, atau untuk menyiapkan kedua benda untuk tujuan tersebut.

6

BAB IV DAFTAR PUSTAKA

Google.com Ilmu Komputer.com Belajar VB.com Slide Microsoft Visual Basic Semester 5 BSI

7

BINA SARANA INFORMATIKA

Recommend Documents