BAHASA PEMROGRAMAN KOMPUTER - LAPORAN JURNAL MODUL II

BAHASA PEMROGRAMAN KOMPUTER
Laporan Journal

MODUL II

PRAKTIKUM BAHASA DAN PEMROGRAMAN

KOMPUTER

OLEH

NAMA                :Siti Saidah Bachri

NPM                   :1303038

JURUSAN TEKNIK INDUSTRI

SEKOLAH TINGGI TEKNOLOGI GARUT

BAB I

PENDAHULUAN

1.1  Latar Belakang Masalah

Dewasa ini perkembangan teknologi semakin pesat baik dalam bidang industri besar maupun industri rumahan. Untuk itu dibutuhkan sebuah software atau program yang dapat memenuhi semua aspek industri, selain program yang bunafit industri juga membutuhkan sumber daya manusia yang berkualitas.

Untuk itu Microsoft Corporation mencoba membuat sebuah program yang dapat mempermudah para programer pemula untuk belajar dalam membuat sebuah program yang dibutuhkan oleh dunia industri yaitu Visual Basic 6.0.

Microsoft Visual Basic 6.0 hampir dapat memanfaatkan seluruh kemudahan sistem operasi windows dan Visual Basic 6.0 merupakan bahasa pemograman yang cukup populer dan mudah dipahami oleh para pemula.

Diharapkan dengan adanya program Visual Basic mahasiswa dapat menggunakan imajinasi dan kemampuannya untuk berlatih membuat program yang nantinya dapat dipakai dalam dunia industri.

      Untuk memajukan teknologi diseluruh dunia para ilmuwan menciptakan sebuah benda yang berguna mempercepat dan mempermudah suatu pekerjaan kantor dan perusahaan-perusahaan.  Penemuan para ilmuwan itu dapat kita ambil manfaatnya untuk dipelajari dan mengembangkannya.

      Melalui penelitian dan percobaan yang membutuhkan waktu cukup lama para ilmuwan dapat membuat suatu benda yang disebut Komputer. Komputer selain dapat mempercepat dan mempermudah pekerjaan kantor, komputer juga dapat membantu dalam mengembangkan IPTEK suatu negara. Setelah ditemukannya komputer, para ilmuwan dan para ahli belum puas begitu saja dengan penemuannya sehingga masih dikembangkan lagi. Komputer yang dikembangkan mengalami perubahan bentuk yang lebih kecil,dan memiliki program yang lebih lengkap serta mudah dibawa kemana-mana.

          Kita mahasiswa sebagai generasi penerus bangsa dituntut untuk menghargai hasil penemuan para ilmuwan dan para ahli dengan cara mempelajari, bagaimana cara menjalankan program komputer yang sudah ada. Di kalangan mahasiswa program komputer sangat penting dan membutuhkan latihan-latihan, kursus-kursus yang mendukung untuk mendalami dan memahami aplikasi program komputer. Di dalam suatu perusahaan-perusahaan keahlian komputer sangat dibutuhkan untuk mempermudah dan mempercepat pekerjaan, maka mahasiswa wajib mengetahui betapa pentingnya komputer setelah lulus study. Kita sebagai mahasiswa Teknik Industri harus dapat melihat dan melangkah ke depan untuk keberhasilan baik study, diri kita, dan masyarakat pada umumnya.

          Banyaknya program komputer pada saat ini seperti Visual Basic 6.0 serta program-program yang lain, perlu kita pelajari dan kita terapkan pada saat kita mengamplikasikan program komputer.

1.2 Tujuan Praktikum

            Adapun tujuan dari praktikum bahasa pemrograman komputer adalah sebagai berikut :

1.      Mampu menentukan variabel pada program visual basic.

2.      Mampu membuat formulasi program dengan menggunakan operator.

3.      Mampu menentukan tipe data pada program visual basic.

4.      Mampu membuat program visual basic.

BAB II

LANDASAN TEORI

2.1 Variable.

Variabel adalah suatu tempat dalam memori yang telah diberi nama dan bersifat sementara. Variabel terdiri atas input dan output, yang telah ditentukan pada model matematika atau diagram alur. Variabel pada program dapat mengandung kata-kata, angka. Tanggal, dan properti. Contoh deklarasi variabel pada program dinyatakan diawal program sebagai berikut:

Dim namavariabel atau Dim Gaji As integer

Aturan yang dipakai ketika menamakan suatu variabel dalam Visual Basic adalah sebagai berikut:

• Tidak boleh melebihi 255 karakter
• Tidak boleh memakai spasi
• Tidak boleh dimulai dengan angka
• Tidak boleh memakai titik

2.2 Tipe Data.

Pernyataan dim mengandung arti deklarasi untuk suatu variabel. Adapun variabel bisa terdiri atas beberapa jenis data seperti terlihat pada tabel 2.1

2.3 Operator.

Operator adalah suatu simbol atau tanda untuk menyatakan suatu operasi atau proses. Berkenaan dengan operator pada visual basic, terdapat tiga jenis yaitu:

1.      Operator Aritmatika (Tabel 2.2).

2.      Operator Perbandingan (Tabel 2.3).

3.      Operator Logika (Tabel 2.4).

Tabel 2.1. Tipe-tipe Data pada Visual Basic.

Tipe Data	Ukuran	Rentang	Contoh Penggunaan
Integer	2 Byte	-32768-32767	Dim Nilai as Integer Nilai=1000
Long Integer	4 Byte	-2147483648-2147483647	Dim jumlah as long integer Jumlah=35
Singgle-precision Floating Point	8 Byte	-3202823E38- 3402823E38	Dim Harga as singgle Harga=500
Double – precision Floating point	8 Byte	-17976931348623D308-17976931348623D308	Dim Angka as double Angka=3145373
Currency	8 Byte	-922337203685477 – 922337203685477	Dim Kurs as currency Kurs=5000
String	1 Byte per karakter	0 – 65535	Dim Alamat as string Alamat=”Mayor Syamsu”
Boolean	2 Byte	True atau False	Dim Logika as Boolean Logika=True
Date	8 Byte	1 Januari 100 – 31 Desember 9999	Dim Tahun as date Tahun=#20-5-11#
Variant	16 Byte (untuk angka); 22 Byte + 1 Byte per karakter (untuk string)	Semua Tipe Data	Dim Final Final as 200 Final=”lawan”

Tabel 2.2 Operator Aritmatika.

Operator	Penjelasan
^	Perpangkatan
*atau/	Perkalian atau pembagian
\	Pembagian integer
Mod	Modulo (sisa bagi)
+ atau -	Penambahan dan pengurangan
+&	Penggabungan string

Tabel 2.3. Operator Perbandingan.

Operator	Penjelasan
>	Lebih besar
<	Lebih kecil
>=	Lebih besar atau sama dengan
<=	Lebih kecil atau sama dengan
=	Sama dengan
<>	Tidak sama dengan

Tabel 2.4. Operator Logika

Operator	Penjelasan
And	Jika seluruh syarat yang dibandingkan bernial True, maka hasilnya True.
Or	Jika salah satu syarat bernilai True, maka hasilnya bernilai True.
Not	Jika seluruh syarat yang dibandingkan bernilai False, maka hasilnya bernilai False.

2.4 Fungsi

Pada visual basic disediakan fungsi yang membantu dalam membuat struktur pemrograman, diantaranya adalah:

·         Fungsi Abs dengan ekspresi Abs (angka)

·         Fungsi Cos (number)

·         Fungsi Sin (number)

·         Fungsi Sqr (number)

·         Fungsi Rnd [(angka)]

BAB III

METODOLOGI PRAKTIKUM

No.1 Pemodelan :      N + Np + A + J                       = T

Variabel :                     N , Np, A, J                             = Input

Variabel :                     T                                             = Output

Keterangan :    N        = Nama Mahasiswa

                        Np       = NPM ( Nomor Pokok Mahasiswa)

                        A         = Alamat Mahasiswa

                         J          = Jurusan Mahasiswa

                 i.            Diagram Alur :

 

ii.          Hasil rancangan Interface dan Program

·         Rancangan Properti

Tabel 1. Rancangan Properti Identitas

Objek	Properti	Nilai
	Border Style	2-Sizable
Form 1	Caption	Identitas Mahaiswa
	Name	frmIdentitas
	Alignment	2-centre
Label 1, Label 2, Label 3, Label 4,	Caption	Nama :
		NPM :
		Alamat :
		Jurusan :
	Font Name	Times New Roman
	Font Regular	True
	Font Size	14
	Name	LblNama
		LblNPM
		LblAlamat
		LblJurusan
	Alignment	2-centre
	Caption
	Font Name	Times New Roman
Text 1, Text 2, Text 3, Text 4, Text 5	Font Regular	True
	Multi line	True
	Font Size	14
	Name	txtNAma
		txtNPM
		txtAlamat
		txtJurusan
		txtTampilan
	Alignment	2-centre
Command 1, Command 2	Caption	Proses
		Berakhir
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	CommandProses
		CommandBerakhir

·         Program

Private Sub CommandProses_Click()

If Me.txtNama.Text = "" Or Me.txtNpm.Text = "" Or Me.txtAlamat.Text = "" Or Me.txtJurusan.Text = "" Then MsgBox ("Tolong masukkan Nama, Npm, Alamat dan Jurusan terlebih dahulu!(^_^)")

Dim Text As String

Dim N As String

Dim NP As Variant

Dim A As String

Dim J As String

Dim T As String

T = " Identitas Anda adalah sebagai berikut : " + " Nama Anda : " + Me.txtNama.Text + " , NPM Anda : " + Me.txtNpm.Text + " , Alamat Anda ada Di : " + Me.txtAlamat.Text + " . Jurusan Anda : " + Me.txtJurusan.Text + "."

txtTampilan.Text = T

txtNama.Text = N

txtNpm.Text = NP

txtAlamat.Text = A

txtJurusan.Text = J

End Sub

Private Sub CommandBerakhir_Click()

MsgBox ("Terima Kasih (^_^)")

End

End Sub

·            Hasil Rancangan Interface

 No.2

Pemodelan : 5/9 * (F-32) = C

                      4/9 * (F-32) = R

Variabel : F             = Input

Variabel : C, R        = Output

Keterangan :           F          = Derajat Fahrenheit

                                C         = Derajat Celcius

                                  R       = Derajat Reamur

i.                    Diagram Alur :

 

ii.                  Hasil Rancangan Interface dan Program

·         Rancangan Properti

Tabel 2. Rancangan Properti Temperatur dalam Derajat Fahrenheit

Objek	Properti	Nilai
	Border style	2-Sizable
Form 1	Caption	Mengubah Temperatur derajat Fahrenheit menjadi derajat Celcius dan Reamur
	Name	frmMengubahTemperatur
	Alignment	2-centre
	Caption	Derajat Fahrenheit : Derajat Celcius :
		Derajat Reamur :
Label 1, Label 2, Label 3	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	LblDerajatFahrenheit
		LblDerajatCelcius
		LblDerajatReamur
	Alignment	2-centre
	Caption
Text 1, Text 2, Text 3	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	txtDerajatFahrenheit
		txtDerajatCelcius
		txtDerajatReamur
	Alignment	2-centre
Command 1, Command 2, Command 3	Caption	Mengubah derajat Fahrenheit menjadi derajat Celcius
		Mengubah derajat Fahrenheit menjadi derajat Reamur
		Berakhir
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	cmdDFahrenheitMenjadiDCelcius cmdDFahrenheitMenjadiDReamur Berakhir

·         Program

Private Sub cmdDFahrenheitMenjadiDReamur_Click()

Dim F As Integer

Dim R As Integer

F = Val(txtDerajatFahrenheit.Text)

R = Val(txtDerajatReamur.Text)

R = 4 / 9 * (F - 32)

txtDerajatReamur.Text = R

txtDerajatFahrenheit.Text = F

End Sub

Private Sub cmdDFahrenheitMenjadiDCelcius_Click()

Dim F As Integer

Dim C As Integer

F = Val(txtDerajatFahrenheit.Text)

C = Val(txtDerajatCelcius.Text)

C = 5 / 9 * (F - 32)

txtDerajatFahrenheit.Text = F

txtDerajatCelcius.Text = C

End Sub

Private Sub txtDerajatFahrenheit_Change()

If txtDerajatFahrenheit.Text = "" Then MsgBox ("Isikan terlebih dahulu Temperatur derajat Fahrenheit yang akan diuabah! (^_^) ")

End Sub

Private Sub commandBerakhir_Click()

MsgBox ("Terima Kasih (^_^) ")

End

End Sub

·         Rancangan Interface

No. 3

Pemodelan :       A – ( 2*T) * 1/ Tan(S)             = AT

                                        1 / 2 * T* (A+T)          = LT

                                        1 / 2 * (A*T)               = LS

Variabel : A, S, T            = Input

                AT, LT, LS     = Output

Keterangan :        A          = Alas Trapesium dan  Segitiga

                            S           = Sudut Alas Trapesium

                            T           = Tinggi Trapesium dan Segitiga

                            AT       = Sisi Sejajar dengan Alas

                            LT       = Luas Trapesium

                            LS       = Luas Segitiga

i.                    

Diagram Alur

 

ii.                  Hasil Rancangan Interface dan Program

·         Rancangan Properti

Tabel 3. Rancangan Properti Luas Trapesium dan Luas Segitiga

Objek	Properti	Nilai
	Border style	2-Sizable
Form 1	Caption	Hitung Luas Trapesium dan Segitiga
	Name	frmLuasTrapesiumdanSegitiga
	Alignment	2-centre
Label 1, Label 2, Label 3, Label 4, Label 5, Label 6	Caption	Alas
		Sudut Alas
		Tinggi
		Sisi Sejajar
		Luas Trapesium
		Luas Segitiga
	Font name	Times New Roman
	Font bold	True
	Font size	14
	Name	LblAlas
		LblSudutAlas
		LblTinggi
		LblSisiSejajar
		LblLTrapesium
		LblLuasSegitiga
	Alignment	2-centre
	Caption
Text 1, Text 2, Text 3, Text 4, Text 5, Tex 6	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	txtAlas
		txtSudutAlas
		txtTinggi
		txtSisiSejajar
		txtLTrapesium
		txtLuasSegitiga
	Alignment	2-centre
Command 1, Command 2, Command 3, Command 4	Caption	Hitung Sisi Sejajar
		Hitung Luas Trapesium
		Hitung Luas Segitiga
		Berakhir
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	commandSisiSejajar
		CommandHitungLTrapesium
		commandHitungLSegitiga
		commandSelesai

·         Program

Private Sub commandHitungLSegitiga_Click()

Dim A As Integer

Dim T As Integer

Dim LS As Integer

A = Val(txtAlas.Text)

T = Val(txtTinggi.Text)

LS = Val(txtLuasSegitiga.Text)

LS = 1 / 2 * (A * T)

txtLuasSegitiga.Text = LS

End Sub

Private Sub CommandHitungLTrapesium_Click()

Dim A As Integer

Dim AT As Integer

Dim S As Integer

Dim T As Integer

Dim LT As Integer

A = Val(txtAlas.Text)

S = Val(txtSudutAlas.Text)

T = Val(txtTinggi.Text)

LT = Val(txtLTrapesium.Text)

AT = Val(txtSisiSejajar.Text)

LT = 1 / 2 * T * (A + AT)

 AT = A - (2 * T) * 1 / Tan(S)

txtAlas.Text = A

txtLTrapesium.Text = LT

txtSisiSejajar = AT

End Sub

Private Sub commandSisiSejajar_Click()

Dim AT As Integer

Dim A As Integer

Dim S As Integer

Dim T As Integer

AT = Val(txtSisiSejajar.Text)

A = Val(txtAlas.Text)

S = Val(txtSudutAlas.Text)

T = Val(txtTinggi.Text)

AT = A - (2 * T) * 1 / Tan(S)

txtSisiSejajar = AT

End Sub

Private Sub commandSelesai_Click()

MsgBox (" Terima Kasih (^_^) ")

End

End Sub

·         Hasil Tampilan Interface

No.4

Pemodelan : π * r²      = L

                     2 * π * r  = K

Variabel : r, π              = Input

                L, K             = Output

Keterangan :    r           = Jari – jari

π          = 3.14159265

L          = Luas Lingkaran

K         = Keliling Lingkaran

i.                    Diagram Alur

 

ii.                  Hasil Rancangan Interface dan Program

·         Rancangan Properti

Tabel 4. Rancangan Properti Luas dan Keliling Lingkaran.

Objek	Properti	Nilai
	Border style	2-sizable
Form 1	Caption	Luas dan Keliling Lingkaran
	Name	frmLingkaran
	Alignment	2-centre
	Caption	Jari-Jari
		Luas Lingkaran
		Keliling Lingkaran
Label 1, Label 2, Label 3	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	LblJarijari
		lblLuas
		LblKeliling
	Alignment	2-centre
	Caption
Text 1, Text 2, Text 3	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	txtJariJari
		txtLuasLingkaran
		txtKelilingLingkaran
	Alignment	2-centre
Command 1, Command 2, Command 3	Caption	Hitung Luas Lingkaran
		Hitung Luas Trapesium
		Berakhir
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	CmndHitungLuasLingkaran
		CmndHitungKelilingLingkaran
		CommandBerakhir

·         Program

Private Sub CmndHitungKelilingLingkaran_Click()

Const pi As Double = 3.14159265

Dim K As Double

Dim r As Double

K = Val(txtKelilingLingkaran.Text)

r = Val(txtJariJari.Text)

K = 2 * pi * r

txtKelilingLingkaran.Text = K

txtJariJari.Text = r

End Sub

Private Sub CmndHitungLuasLingkaran_Click()

Const pi As Double = 3.14

Dim L As Double

Dim r As Double

L = Val(txtLuasLingkaran.Text)

r = Val(txtJariJari.Text)

L = pi * (r ^ 2)

txtLuasLingkaran.Text = L

txtJariJari.Text = r

End Sub

Private Sub CommanBerakhir_Click()

MsgBox (" Terima Kasih (^_^) ")

End

End Sub

Private Sub txtJariJari_Change()

If txtJariJari.Text + "" Then MsgBox (" Isikan terlebih dahulu Jari-jari lingkaran yang akan di hitug ")

End Sub

·         Hasil Rancangan Interface

No.5

Pemodelan :   2 * ((p*l) + ( l*t) + (p*t))       = LB

                                      p * l * t                      = V

Variabel :         p, l, t                = Input

                        LB, V              = Output

Keterangan :                p          = Panjang Balok

l           = Lebar Balok

t           = Tinggi Balok

LB       = Lebar Balok

V         = Volume Balok

i.                    Diagram Alur

 

ii.                  Hasil Rancangan Interface dan Program

·         Rancangan Properti

Tabel  5. Rancangan Properti  Disiplin Ilmu Teknik Dan Manajemen Industri : Luas Permukaan dan Isi Balok

Objek	Properti	Nilai
	Border style	2- sizable
Form 1	Caption	Luas dan Volume Balok
	Name	frmLuasdanVolumeBalok
	Alignment	2-centre
Label 1, Label 2, Label 3, Label 4, Label 5	Caption	Panjang
		Lebar
		Tinggi
		Luas Balok
		Volume Balok
	Font name	Times New Roman
	Font bold	True
	Font size	14
	Name	LblPanjang
		LblLebar
		LblTinggi
		LblLuasBalok
		LblVolumeBalok
	Alignment	2-centre
Text 1, Text 2, Text 3, Text 4, Text 5	Caption
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	txtAlas
		txtSudutAlas
		txtTinggi
		txtLuasBalok
		txtVolumeBalok
	Alignment	2-centre
Command 1, Command 2, Command 3	Caption	Hitung Luas Balok
		Hitung Volume Balok
		Berakhir
	Font name	Times New Roman
	Font Regular	True
	Font size	14
	Name	CommandhitungLuas CommandHitungVolume CommandBerakhir

·         Program

Private Sub CommandhitungLuas_Click()

If txtPanjang.Text = "" Or txtLebar.Text = "" Or txtTinggi.Text = "" Then MsgBox ("Isikan terlebih dahulu panjang, lebar, dan tinggi Balok yang akan dihitung")

Dim p As Integer

Dim l As Integer

Dim t As Integer

Dim LB As Integer

p = Val(txtPanjang.Text)

l = Val(txtLebar.Text)

t = Val(txtTinggi.Text)

LB = Val(txtHasilLuasBalok.Text)

LB = 2 * ((p * l) + (l * t) + (p * t))

txtHasilLuasBalok.Text = LB

End Sub

Private Sub CommandHitungVolume_Click()

If txtPanjang.Text = "" Or txtLebar.Text = "" Or txtTinggi.Text = "" Then MsgBox ("Isikan terlebih dahulu panjang, lebar, dan tinggi Balok yang akan dihitung")

Dim p As Integer

Dim l As Integer

Dim t As Integer

Dim V As Integer

p = Val(txtPanjang.Text)

l = Val(txtLebar.Text)

t = Val(txtTinggi.Text)

V = Val(txtHasilVolumeBalok.Text)

V = p * l * t

txtHasilVolumeBalok.Text = V

End Sub

Private Sub CommandBerakhir_Click()

MsgBox ("Terima Kasih (^_^)")

End

End Sub

·         Rancangan Interface

BAB IV

PEMBAHASAN

4.1            Pembahasan Hasil Praktikum.

1.   Menampilkan Nama, NPM, Alamat, serta Jurusan Teknik dan Manajemen Industri STT-Garut

-          Hasil Program :

Sebelum di klik Command Proses,  Mengisikan data terlebih dahulu

-          Setelah di klik Command Proses ,

Data yang telah di Isi , Tampil Pada Text Tampilan

2.   Temperatur dalam derajat Fahreinheit, harus diubah dalam derajat celcius dan derajat Reamur. (rumus C=5/9(F-32) : R=4/9(F-32) dimana C = Celcius, R= derajat Reamur, dan F = derajat Fahreinheit.

-       Hasil akhir program:

3.      Hitung luas trapesium sama kaki yang diketahui alas dan sudut alasnya, serta tingginya. Hitung pula luas segitiga yang alas dan tingginya sama dengan trapesium tersebut.

-                Hasil Program :

4.      Hitung luas dan keliling lingkaran yang diketahui jari-jarinya

-          Hasil Program :

5.      Studi  Kasus yang berkenaan dengan disiplin ilmu Teknik Industri :

Hitung Luas dan Volume Balok yang diketahui panjang, lebar dan tingginya

-          Hasil Program :

Setelah di klik Command Hitung Luas Balok dan Hitung Volume Balok

BAB V

KESIMPULAN

Dari hasil pembahasan praktikum di atas yang telah diuraikan, maka dapat ditarik kesimpulan sebagai berikut :

1.      Dapat lebih memahami mengenai segala hal tentang penggunaan program Visual Basic 6.0 dan mengaplikasikannya

2.      Dapat membuat program dasar dengan menggunakan program Visual Basic 6.0

3.      Dapat mengaplikasikan beberapa persoalan dengan pemrograman Visual Basic 6.0

DAFTAR PUSTAKA

Nurwandi ST.,MT, Luthfi., 2011. Modul Praktikum Visual Basic. Jurusan Teknik Industri: Sekolah Tinggi Teknologi Garut.