Persiapan Praktikum

Demi menyongsong suksesnya Praktiku Pemrograman Komputer untuk mahasiswa semester II, disini Ane akan menshare beberapa contoh aplikasi sangat-sangat sederhana yang siapa tahu para calon praktikan Ane ada yang mau membacanya. Pada Praktikum kali ini, ehm... ane kebetulan mendapatkan mandat untuk menjadi koordinator Praktikumnya. Tapi itu bukan masalah, yang jadi masalah sekarang adalah banyak rekan asisten saya yang sudah lupa dengan pemrograman Visual Basic 6.0, yiah dengan terpaksa Ane mengadakan tutorial buat yang lain. Di bawah ini adalah contoh program sederhana buatan Ane.

Pertama - tama Ente buka visual Basic kemudian pilih yang standard EXE. Setelah terbuka buatlah 5 textBox dan 4 Command Button. Sehingga Tampilan di VB ente jadi seperti ini.

Source code : 

Private Sub Command1_Click()

Text5.Text = Val(Text1.Text) + Val(Text2.Text)

Text5.BackColor = vbRed

End Sub

------------------------------------

Private Sub Command2_Click()

Text5.Text = Val(Text1.Text) - Val(Text2.Text)

Text5.BackColor = vbBlue

End Sub

----------------------------------------------------

Private Sub Command3_Click()

Text5.Text = Val(Text3.Text) / Val(Text4.Text)

Text5.BackColor = vbGreen

End Sub

----------------------------------------------------

Private Sub Command4_Click()

Text5.Text = Val(Text3.Text) * Val(Text4.Text)

Text5.BackColor = vbBlack

Text5.ForeColor = vbWhite

End Sub

----------------------------------------------------

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Form1.BackColor = vbRed

End Sub

----------------------------------------------------

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Form1.BackColor = &H8000000F

End Sub

-----------------------------------------------------

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

Form1.BackColor = vbBlue

End Sub

-----------------------------------------------------

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)

Form1.BackColor = &H8000000F

End Sub

-----------------------------------------------------

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)

Form1.BackColor = vbGreen

End Sub

-----------------------------------------------------

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)

Form1.BackColor = &H8000000F

End Sub

----------------------------------------------------

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)

Form1.BackColor = vbBlack

End Sub

----------------------------------------------------

Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)

Form1.BackColor = &H8000000F

End Sub

Selamat mempraktekkan, dan lihat apa yang terjadi.

Posted in: Programing