TUGAS1

Disini saya akan posting kan tugas ke-1 Visual Basic yaitu membuat form Gaji Karyawan. Latar belakang saya membuat form ini yaitu untuk memudahkan proses hitung menghitung gaji karyawan yang tadi nya kurang efisien, menjadi efiesien.

saya membuat program sederhana yang bisa di pakai oleh semua kalangan contoh nya,

pada bidang Industri,pertokoan,perkantoran dan bidang kerja lain nya.

langsung saja di sini proses pembuatan program saya..... CEKIDOT!!!

Pertama buatlah user interface seperti berikut :

Form tersebut terdiri dari beberapa komponen yaitu:

9 label

4 combo box

4 text box

1 list box

1 command

Lalu ini adalah tampilan coding nya..

Dim a As Currency
Dim b As Currency
Dim c As Currency
Dim d As Currency


Private Sub Command1_Click()
End

End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click()
List2.Clear
End Sub

Private Sub Command4_Click()
List3.Clear
End Sub

Private Sub Command5_Click()
List4.Clear
End Sub

Private Sub Command6_Click()
List5.Clear
End Sub

Private Sub Command7_Click()
a = Combo4.Text
b = Text1.Text
d = Text4.Text

c = (a + d) - b
Text2.Text = c

List1.AddItem "Nama        :" + Combo1.Text
List1.AddItem "Alamat      :" + Text5.Text
List1.AddItem "Jabatan     :" + Combo2.Text
List1.AddItem "Golongan   :" + Combo3.Text


End Sub

Private Sub Form_Load()
Combo1.AddItem "Umar"
Combo1.AddItem "Salman"
Combo1.AddItem "Halimah"
Combo1.AddItem "Shafira"
Combo1.AddItem "Udin"
Combo1.AddItem "Romlah"
Combo1.AddItem "Mumun"
Combo1.AddItem "Asep"
Combo1.AddItem "Gusti"

Combo2.AddItem "Administrasi"
Combo2.AddItem "Supervisor"
Combo2.AddItem "HRD"
Combo2.AddItem "Office boy"

Combo3.AddItem "1"
Combo3.AddItem "2"
Combo3.AddItem "3"

Combo4.AddItem " 800000"
Combo4.AddItem " 1500000"
Combo4.AddItem " 2000000"


End Sub

Private Sub Label12_Click()
End Sub
 

Catatan...
tipe data global

Dan ini lah tampilan nya setelah di running

combo box1(nama karyawan)

 

combo box2(Jabatan)

 

combo box3(Golongan)

combo box4(Gaji pokok)

Gampar di atas adalah tampilan Combo box pada form saya...

dan tampilan full nya

SEKIAN DAN TERIMAKIS

Read More

MATERI PERTEMUAN 3

Kami mempelajari tentang "TIPE DATA"

MATERI 3

TIPE DATA PADA VISUAL BASIC
 

Tipe data	Ukuran
Integer ( Bilangan bulat )	2 byte
String (Huruf, angka, tanda baca)	1 byte / character
Boolean (True/False)	1 byte
Single (pecahan)	4 byte
Currency ( Mata Uang)	1 byte / character
Double (pecahan)	8 byte
Date (tgl, jam)	1 byte /character
Long (Bilangan bulat)	4 byte

Format Definisi :
Dim nama_variable as tipe_data
Contoh :
Dim nilai as Integer
Dim alamat as String
Dim tgl_lahir as Date

PERBEDAAN SINGEL DOUBLE

 

 

 Coding nya

Setelah runing program

PROJECT 2 (MEMBUAT OPERATOR DATA)

Buatlah user interface sebagai berikut

 Coding nya untuk frame "arimatika"

Dim a As Single
Dim b As Single

Private Sub Option1_Click()
a = Text1.Text
b = Text2.Text
hasil = a + b
Text3.Text = hasil
End Sub

Private Sub Option2_Click()
a = Text1.Text
b = Text2.Text
hasil = a - b
Text3.Text = hasil
End Sub

Private Sub Option3_Click()
a = Text1.Text
b = Text2.Text
hasil = a * b
Text3.Text = hasil
End Sub

Private Sub Option4_Click()
a = Text1.Text
b = Text2.Text
hasil = a / b
Text3.Text = hasil
End Sub

Private Sub Option5_Click()
a = Text1.Text
b = Text2.Text
hasil = a And b
Text3.Text = hasil
End Sub

Private Sub Option6_Click()
a = Text1.Text
b = Text2.Text
hasil = a Mod b
Text3.Text = hasil
End Sub

Private Sub Option7_Click()
a = Text1.Text
b = Text2.Text
hasil = a ^ b
Text3.Text = hasil
End Sub

Private Sub Option8_Click()
a = Text1.Text
b = Text2.Text
hasil = a \ b
Text3.Text = hasil
End Sub

Coding untuk frame"perbandingan"

Private Sub Option10_Click()
a = Text1.Text
b = Text2.Text
hasil = a < b
Text3.Text = hasil
End Sub

Private Sub Option12_Click()
a = Text1.Text
b = Text2.Text
hasil = a <> b
Text3.Text = hasil
End Sub

Private Sub Option13_Click()
a = Text1.Text
b = Text2.Text
hasil = a >= b
Text3.Text = hasil
End Sub

Private Sub Option14_Click()
a = Text1.Text
b = Text2.Text
hasil = a <= b
Text3.Text = hasil
End Sub

Private Sub Option9_Click()
a = Text1.Text
b = Text2.Text
hasil = a > b
Text3.Text = hasil
End Sub

TERIMAKASIH..........

Read More

MATERI PERTEMUAN 2

Pertemuan kali ini kami mempelajari FORM yang dibimbing oleh dosen kami .

* Membuat User Interface (UI)

 

Pengaturan property setiap object-nya adalah sebagai berikut :

Object	Properties	Value
Form2	Caption StartUpPosition	MethodTest 2 – CenterScreen
List1	-	-
Combo1	-	-
Command1	Caption	Add
Command2	Caption	Delete
Command3	Caption	Clear

* MenulisKodeProgram: MethodTest

Pada bagianCode Editor ketikkan kode programnyasebagaiberikut :

PrivateSubForm_Load() Combo1.AddItem"Umar" Combo1.AddItem"Salman" Combo1.AddItem"Halimah" Combo1.AddItem"Shafira"

EndSub

PrivateSubCommand1_Click() List1.AddItemCombo1.Text

EndSub

PrivateSubCommand2_Click() List1.RemoveItemList1.ListIndex

EndSub

PrivateSubCommand3_Click() List1.Clear

EndSub

SimpanForm2(namafile:Lat2.frm).

Cobajalankan Project1 :

9     UntukmenambahisiListBox:pilih“Umar”didalamComboBoxkemudiankliktombolAdd.

Ulangiuntuknama-namayanglainsecaraacak.

9     UntukmenghapussalahsatuisiListBox:pilih“Shafira”didalamListBoxkemudiankliktombol

Delete.

9     UntukmenghapussemuaisiListBox : klik tombolClear.

Penjelasan kode program:

PrivateSubForm_Load() Combo1.AddItem"Umar" Combo1.AddItem"Salman" Combo1.AddItem"Halimah" Combo1.AddItem"Shafira"

EndSub

PadasaatForm2di-load ke dalammemorikomputer, object Combo1 diisidengan beberapa nama.

PrivateSubCommand1_Click() List1.AddItemCombo1.Text

EndSub

Ketikaseorangusermeng-kliktombolAdd(objectCommand1)makaisiobjectList1ditambahsesuai denganisiobject Combo1yang sudah dipilih.

PrivateSubCommand2_Click() List1.RemoveItemList1.ListIndex

EndSub

Ketikaseorangusermeng-kliktombolDelete(objectCommand2)makaisiobjectList1yangdipilih akandihapus.Catatan: bila belumadaisi yang dipilih akan terjadi error.

PrivateSubCommand3_Click() List1.Clear

EndSub

Ketikaseorangusermeng-kliktombolClear(objectCommand3)makasemuaisiobjectList1akan dihapus.

Carapenulisan(syntax)kodeprogramuntukmenggunakanmethoddarisebuahobjectadalahsebagai

berikut :

nama_object.method [argument]

Perhatikan, setelah Anda mengetikkan tanda titik (dot) dibelakang nama_object maka VB 6 akan menampilkan daftar property danmethod yang dimiliki olehnama_object :

Fasilitasini akanmembantu Anda agar tidaksalahmengetikkan nama_objectmaupunmethod-nya. KomponenComboBoxdanListBoxmemilikibeberapamethoduntukmengaturisi(item)didalamnya,

yaitu :

ƒ    AddItem–methodiniakanmenambahisisesuaidenganargumentyangdiberikanberupatulisan.

Setiapkaliadaisiyangditambahkanakandiberikannomerindexsecaraotomatisdimulaidari0 (nol).

Contoh:

Combo1.AddItem “Umar”    Æ“Umar”adalah argumentsebagai isiyangakan ditambahkan

ke dalamobject Combo1.

List1.AddItemCombo1.Text Æproperty Textdari object Combo1adalah argument

sebagaiisi yang akan ditambahkan ke dalamobject List1.

ƒ    RemoveItem–methodiniakanmenghapusisisesuaidenganargumentyangdiberikanberupa nomerindexdariisiyangdipilih.Setiapkaliadaisiyangdihapusmakanomerindexakandisusun ulangsecara otomatis.Bilaisinyatidakada(kosong) nomer index-nya adalah–1.

Contoh:

List1.RemoveItemList1.ListIndexÆpropertyListIndex dariobjectList1adalahargument

sebagainomer index isiyangakan dihapus.

ƒ    Clear–method iniakan menghapussemuaisi(tidakmembutuhkan argument).

Contoh:

List1.Clear Æsemuaisi objectList1akan dihapus.

 

 

 

Menggunakan Event dan Property

* MembuatUserInterface(UI)

AktifkanVB6melalui tombol Start.

MelaluiJendelaPropertiesaturproperty setiapobject sebagaiberikut:

Object	Properties	Value
Form1	Caption StartUpPosition	Property Test 2 – CenterScreen
Label1	Caption	TuliskannamaAnda:
Text1	-	-
Label2	Alignment BackColor Font	2– Center Palette: <putih> Size: 24
Command1	Caption	OK
Command2	Caption	Selesai

* Menulis Kode Program : Property Test

ProgramyangberbasisWindowsbersifatevent-driven,artinyaprogrambekerjaberdasarkaneventyang

terjadipadaobjectdidalamprogramtersebut.Misalnya,jikaseorangusermeng-kliksebuahtombol maka  programakan  memberikan“reaksi”  terhadapeventklik  tersebut.  Programakan  memberikan “reaksi”sesuaidengan kode-kodeprogram yangdibuat untuksuatueventpadaobjecttertentu.

PilihobjectCommand1padabagianObjectSelector.SecaraotomatispadabagianCodeEditorakan muncul blok kode programberikut:

Private Sub Command1_Click() End Sub

EventClickmerupakaneventdefault(standar)dariobjectCommand1,Andabisamelihateventlainnya

pada bagian Event Selector.

Pada bagianCode Editor ketikkan kode programnyasebagaiberikut :

Private Sub Command1_Click() Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click() End

End Sub

SimpanProject1(namafile:Latihan.vbp)danForm1(namafile:Lat1.frm).VB6akanmenyimpan programyangAndabuatkedalambeberapafileyangsalingterkait,antaralain:fileproject(*.vbp),file form(*.frm)danfilemodule (*.bas).

CobajalankanProject1denganmeng-kliktombolStart(                )padabagianToolbaratautekantombol F5padakeyboard.Ketikkan“Salman”didalamTextBoxkemudiankliktombolOK.Makaakantampil hasil sebagai berikut :

Bila inginkeluarkliktombolSelesai.

Penjelasan kode program :

Berikut diberikan penjelasanbagaimanacarakerja programsederhana di atas

PrivateSubCommand1_Click() Label2.Caption= Text1.Text

EndSub

Ketikaseorangusermeng-kliktombolOK(objectCommand1)makaisitulisanpadaobjectLabel2akan sama  denganisi  tulisanpadaobject  Text1.  PropertyCaptionpada  obyek  Label2  digunakan  untuk menampilkan texttertentu di obyektersebut.

Selanjutnya untuk keluar dariprogramdituliskankodeberikut:

PrivateSubCommand2_Click() End

EndSub

Read More