TEKNIK ELEKTRO UNIVERSITAS DIPONEGORO

Ini adalah kampus saya, iyaa itu kampus Teknik Elektro Undip, Semarang.
ini foto lamanya teknik elektro. sekarang udah banyak banget pohonnya hehe.

Saya Amiko dari angkatan 2015, saya berasal dari jakarta. Saya masuk ke elektro ini melalui jalun SNMPTN, jalurnya orang bejo... saya tidak merasa bahwa saya pintar, namun dari kesempatan yang di berikan tuhan kepada saya, akan saya manfaatkan sebaik-baiknya.


Saya merasa beruntung bisa masuk ke kampus ini, kenapa? karena saya merasakan memiliki keluarga baru disini. tidak hanya angkatan saya namun dari senior-senior yang baik dan juga dosen-dosen yang baik hati dan sabar menghadapi semua mahasiwa disni.

Awalnya belum tau apa sih elektro itu, namun ketika saya sudah masuk ke kampus ini saya mengerti elektro itu apa, bagaimana, dan seperti apaa pelajarannya dan bagaimana peluang pekerjaannya untuk kedepannya nanti. Menurut saya, Teknik Elektro adalah teknik yang sangat lengkap dalam pembelajarannya, karena disini ada 5 konsentrasi yaitu, arus kuat (power), arus lemah ada empat (kontrol, TI, elektronika dan telekomunikasi) semuanya adalah bidang yang cukup menjamin untuk masa modern seperti sekarang ini. Mau dimanapun kita belajar, lakukan yang terbaik yang kita bisa.



Sejauh apapun kita menuntut ilmu dalam belajar, jangan pernah di sia-siakan dan selalu ingat kepada kedua orang tua yang kita tinggalkan untk belajar. selalu berdoa untuk keselamatan kita dan orangtua.

SELAMAT BELAJAR MAHASISWA RANTAUAN!

VISUAL BASIC for beginner

MODUL

VISUAL BASIC

Tujuan

1.   Praktikan dapat mengetahui apa itu pemrogaman berbasis objek (OOP)

2.   Praktikan dapat mengetahui IDE pada Visual Basic

3.   Praktikan dapat memahami struktur project pada Visual Basic.

4.   Praktikan dapat membuat aplikasi sederhana menggunakan Visual Basic

Visual Basic

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan  Visual  Basic  juga dapat  menggunakan  Windows  API,  tapi  membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek (Object Oriented Programming / OOP) , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.

Membuat Project Baru

1.   Jalankan Aplikasi Visual Basic

2.   Klik menu File > New Project, atau melalui ikon New Project, atau melalui kombinasi tombol Ctrl+N.

3.   Pada kotak dialog New Project, pilih Windows Forms Application pada template

Visual Basic, kemudian klik OK.

Mengenal IDE Visual Basic

IDE (Integrated Development Environment), atau juga disebut sebagai Integrated Design/Debugging Environment, adalah perangkat lunak komputer yang berfungsi untuk membantu pemrogram dalam mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan beragam tools atau utilitas pendukung.

Dalam upaya memudahkan pembuatan aplikasi, maka diperlukan pemahaman yang baik mengenai IDE (Integrated Decelopment Environment) Visual Basic.

Interface	Keterangan
Menu Bar	Menu standar pada visual Basic
Toolbar	Daftar tool yang digunakan untuk menjalankan perintah yang sering digunakan
Toolbox	Daftar control yang tambahkan ke dalam program sebagai interface
Form Design	Digunakan  untuk  mengedit  tampilan  form  serta  mengatur  posisi control pada form
Solution Explorer	Digunakan untuk mengolah file dan project
Properties	Digunakan untuk mengedit  property dari form dan control  yang sedang diedit
Error List	Digunakan untuk menampilkan pesan error jika terjadi kesalahan

Control pada ToolBox

Ada yang banyak pilihan control yang terdapat pada ToolBox VB .NET, berikut

adalah

fungsi masing-masing control:

a. PictureBox : digunakan untuk menampilkan gambar atau image

b. Label : digunakan untuk menampilkan teks yang tidak dapat diubah oleh pengguna jika project sudah di-compile menjadi file EXE.

c. TextBox : digunakan untuk menampilkan teks yang bisa diubah oleh pengguna.

d. Frame, GroupBox, Panel : digunakan untuk mengelompokan control-kontrol yang dianggap memiliki fungsi sejenis.

e. Command Button, Button : digunakan untuk memulai proses tertentu pada saat pengguna melakukan klik.

f. CheckBox : digunakan untuk memberikan pilihan kepada pengguna.

g. Option Button : fungsinya hampir sama dengan CheckBox. Bedanya, pada CheckBox biasanya pengguna bisa memilih lebih dari satu pilihan.

h. ListBox : digunakan untuk memberikan pilihan dalam bentuk daftar.

i. ComboBox : fungsinya hampir sama dengan dengan ListBox, hanya saja pengguna bisa memasukan pilihan lain.

j. HscrollBar : digunakan untuk menggeser layar secara horizontal. k. VscrollBar : digunakan untuk menggeser layar secara vertical.

l. Timer : digunakan untuk mengatur proses pada program dalam interval waktu tertentu. m. DriveListBox : digunakan untuk menampilkan drive yang ada.

n. DirListBox : digunakan untuk menampilakan direktori pada drive. o. Shape : digunakan untuk menampilkan bentuk-bentuk tertentu.

p. Line digunakan untuk menampilkan garis.

q. Image : digunakan untuk menampilkan image, tetapi tidak bisa berfungsi sebagai container.

r. Data, DataGridViewer, DataGrid : digunakan untuk menghubungkan program ke database.

s. OLE : digunakan untuk menghubungkan form dengan program lain.

Membuat MessageBox

1.   Drag and Drop Button dari Toolbox ke Form

2.   Edit BackColor, Font, ForeColor, dan Text pada Properties

3.   Klik 2 kali pada Button tadi, maka kita akan masuk ke source code Button tersebut

4.   Tambahkan source code berikut pada function Button1.Click :

5.   Jalankan Aplikasi dengan Klik Start pada Toolbar

CheckBox dan RadioButton

1.   Buat project baru, dengan nama Praktikum2.

2.   Desain Tampilan form seperti gambar berikut ini :

3.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 CheckBox dan RadioButton
Label1	Name Autosize BorderStyle Font TextAlign Text	Lbl_Font False Fixed3D Microsoft Sans Serif, 16 Center CheckBox dan RadioButton
GroupBox1	Text	Efek
GroupBox2	Text	Font Style
CheckBox1	Text	StrikeOut
CheckBox2	Text	Underline
RadioButton1	Text	Regular
RadioButton2	Text	Italic
RadioButton3	Text	Bold
RadioButton4	Text	BoldItalic

4.   Klik ganda pada CheckBox1, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CheckBox1.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Strikeout)

End Sub

5.   Klik ganda pada CheckBox2, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles CheckBox2.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Underline)

End Sub

6.   Klik ganda pada RadioButton1, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles RadioButton1.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Regular)

End Sub

7.   Klik ganda pada RadioButton2, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles RadioButton2.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _ Lbl_Font.Font.Style Xor FontStyle.Italic)

End Sub

8.   Klik ganda pada RadioButton3, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles RadioButton3.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", _ Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)

End Sub

9.   Klik ganda pada RadioButton4, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles RadioButton4.CheckedChanged

Lbl_Font.Font = New Font("Microsoft sans Serif", _

Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)

End Sub

10. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start

Debugging di toolbar, atau melalui menu Debug > Start Debuging.

11. Simpan aplikasi Anda.

Operator

1.   Tambahkan Form baru, dengan nama Form3.

2.   Desain Tampilan form seperti gambar berikut ini :

3.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form3	Name Text	Form3 Operator
Label1	Text	Nilai1
Label2	Text	Operator
Label3	Text	Nilai2
Label4	Text	Hasil
TextBox1	Name	TxtNilai1
ComboBox1	Name	CmbOperator
TextBox2	Name	TxtNilai2
TextBox3	Name	TxtHasil
Button1	Name Text	BtnProses Proses

4.   Klik ganda pada Form3, kemudian ketikkan kode program berikut ini :

CmbOperator.Items.Add("+") CmbOperator.Items.Add("-") CmbOperator.Items.Add("x") CmbOperator.Items.Add("/") CmbOperator.Items.Add("Sisa") CmbOperator.Items.Add("Pangkat") CmbOperator.Items.Add("<>") CmbOperator.Items.Add("<") CmbOperator.Items.Add(">") CmbOperator.Items.Add("<=") CmbOperator.Items.Add(">=") CmbOperator.Items.Add("Like") CmbOperator.Items.Add("Not")

CmbOperator.Items.Add("&")

5.   Klik ganda pada tombol Proses, lalu ketikkan kode program berikut ini :

Select Case CmbOperator.Text

Case "+"

TxtHasil.Text = Val(TxtNilai1.Text) + Val(TxtNilai2.Text) Case "-"

TxtHasil.Text = Val(TxtNilai1.Text) - Val(TxtNilai2.Text) Case "x"

TxtHasil.Text = Val(TxtNilai1.Text) * Val(TxtNilai2.Text) Case "/"

TxtHasil.Text = Val(TxtNilai1.Text) / Val(TxtNilai2.Text)

Case "Sisa"

TxtHasil.Text = Val(TxtNilai1.Text) mod Val(TxtNilai2.Text) Case "Pangkat"

TxtHasil.Text = Val(TxtNilai1.Text) ^ Val(TxtNilai2.Text)

Case "<>"

TxtHasil.Text = TxtNilai1.Text <> TxtNilai2.Text

Case "<"

TxtHasil.Text = TxtNilai1.Text < TxtNilai2.Text

Case ">"

TxtHasil.Text = TxtNilai1.Text > TxtNilai2.Text

Case "<="

TxtHasil.Text = TxtNilai1.Text <= TxtNilai2.Text

Case ">="

TxtHasil.Text = TxtNilai1.Text >= TxtNilai2.Text

Case "Like"

TxtHasil.Text = TxtNilai1.Text Like TxtNilai2.Text

Case "Not"

TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text

Case "&"

TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text

End Select

6.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start

Debugging di toolbar, atau melalui menu Debug > Start Debuging.

7.   Simpan aplikasi Anda.

Pencabangan IF.. , IF.. ELSE, CASE..

1.   Buat form baru.

2.   Desain Tampilan form seperti gambar berikut ini :

3.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Pencabangan IF
Button1	Name Text	Btn_if IF.. ENDIF
Button2	Name Text	Btn_if_else IF.. ELSE.. ENDIF
Button3	Name Text	Btn_case CASE.. ENDCASE

4.   Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click

Dim usia As String, nilai As Single, thn As Integer

usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)

nilai = Val(usia)

If nilai >= 55 Then

thn = nilai - 55

MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

5.   Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini : Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click

Dim usia As String, nilai As Single, thn As Integer

usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)

nilai = Val(usia)

If nilai >= 55 Then thn = nilai - 55

MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

thn = 55 - nilai

MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

MessageBox.Show("Keterangan : Pegawai akan pensiun " & thn & " lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

6.   Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini : Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click

Dim isian As String, usia As Integer

isian = InputBox("Usia anda saat ini?", "Status Anda")

usia = Val(isian)

MessageBox.Show("Usia Anda saat ini : " & usia & " tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Select Case usia

Case 1 To 4

MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 5 To 16

MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 17 To 24

MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case 25 To 55

MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case Is >= 56

MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Case Else

MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Select

End Sub

7.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start

Debugging di toolbar, atau melalui menu Debug > Start Debuging.

8.   Simpan aplikasi Anda.

Array

1.   Tambahkan Form baru, dengan nama FormArray.

2.   Desain Tampilan form seperti gambar berikut ini :

1.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Array Satu Dimensi
Label1	Text	NIM
Label2	Text	Nama
Label3	Text	Prodi
TexBox1	Name	TxtNIM
TexBox2	Name	TxtNama
TexBox3	Name	TxtAsal
ListView1	Name	ListView1

Button1                  Name

Text

BtnTambah

Tambah

2.   Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini :

ListView1.GridLines = True ListView1.View = View.Details ListView1.Columns.Add("NIM") ListView1.Columns.Add("NAMA", 115) ListView1.Columns.Add("ASAL", 110) TxtNim.Text = 1

TxtNama.Focus()

3.   Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini :

Dim Arr(2) As String Arr(0) = TxtNim.Text Arr(1) = TxtNama.Text Arr(2) = TxtAsal.Text

Dim listitem As ListViewItem listitem = New ListViewItem

listitem = ListView1.Items.Add(Arr(0)) listitem.SubItems.Add(Arr(1)) listitem.SubItems.Add(Arr(2))

TxtNim.Text = TxtNim.Text + 1

TxtNama.Text = "" TxtAsal.Text = ""

TxtNama.Focus()

4.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start

Debugging di toolbar, atau melalui menu Debug > Start Debuging.

5.   Simpan aplikasi Anda.

FORM LOGIN

1.   Buat project baru, dengan nama Prak4.

2.   Desain Tampilan form seperti gambar berikut ini :

3.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Pencabangan IF
Label1	Text	User Name
Label2	Text	Password
TextBox1	Name	TxtUserName
TextBox2	Name PasswordChar	TxtPassword *
Button1	Name Text	BtnLogin Login
Button2	Name Text	BtnCancel Cancel

4.   Klik ganda pada BtnLogin, kemudian ketikkan kode program berikut ini : If TxtPassword.Text = "" And TxtUserName.Text = "" Then

MessageBox.Show("User name dan Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

TxtUserName.Focus()

ElseIf TxtPassword.Text = "" Then

MessageBox.Show("Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

TxtPassword.Focus()

ElseIf TxtUserName.Text = "" Then

MessageBox.Show("User name harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

TxtUserName.Focus()

ElseIf TxtUserName.Text = "undip" And TxtPassword.Text = "undip" Then

MessageBox.Show("Password dan User Name Benar", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

FormArray.Show ()

Else

MessageBox.Show("Password dan User Name Anda Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

TxtUserName.Text = "" TxtUserName.Text = "" TxtUserName.Focus()

End If

End Sub

5.   Klik ganda pada BtnCancel, kemudian ketikkan kode program berikut ini :

End

6.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start

7.   Debugging di toolbar, atau melalui menu Debug > Start Debuging.

8.   Simpan aplikasi Anda.