TUTORIAL TUGAS ALPRO 2 LOKAL MI-3 SEMESTER2

4/19/2012  Antoni  No comments

Untuk totorial kali ini penulis akan memaparkan tugas kuliah penulis sendiri ke halaman ini, yaitu tugas dalam perkuliahan. Penulis bukan berarti sombong memamerkan kepandaian, tetapi disini hanya membandingkan dengan teman-teman yang sudah selesai, apakah sama atau tidak seperti yang di ajarkan oleh dosen. Penulis mohon maaf kalau ada kesalahan bagi seluruh pembaca, mohon kritikannya yang sifatnya membangun. TERIMA KASIH.

Langkah yang harus di lakukan di sini adalah :
1. Bukalah Microsoft Visual Basic 6.0
2. Berilah Nama Project dan nama Form nya
3. Pada Form Buatlah komponen-komponen
    11 buah Label, 20 Tetx  Box dan 3 Comman Button
4. Ketentuan-ketentuan pada komponen tersebut adalah :

NO.    
NAMA
PROPERTIES
NILAI / KETERANGAN
1
 Project             Nama                         prjNilai
2
 Form Name
Caption		 frmNilai
NILAI VISUAL BASIC
3
 Label1
Label2
Label3
Label4
Label5
Label6
Label7
Label8
Label9
Label10
Label11		 Caption DAFTAR NILAI VISUAL BASIC               
NAMA
NILAI UTS
NILAI US
NILAI TUGAS
NILAI AKHIR
MAHASISWA 1
MAHASISWA 2
MAHASISWA 3
TOTAL
RATA-RATA
4
 Text Box 1

Text Box 2

Text Box 3

Text Box 4

Text Box 5

Text Box 6

Text Box 7

Text Box 8

Text Box 9

Text Box 10

Text Box 11

Text Box 12

Text Box 13

Text Box 14

Text Box 15

Text Box 16

Text Box 17

Text Box 18

Text Box 19

Text Box 20
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text
Name
Text

 txtuts1
kosongkan
txtuts2
kosongkan
txtuts3
kosongkan
txtus1
kosongkan
txtus2
kosongkan
txtus3
kosongkan
txttugas1
kosongkan
txttugas2
kosongkan
txttugas3
kosongkan
txtna1
kosongkan
txtna2
kosongkan
txtna3
kosongkan
txtratauts
kosongkan
txtrataus
kosongkan
txtratatugas
kosongkan
txtratana
kosongkan
txttotaluts
kosongkan
txttotalus
kosongkan
txttotaltugas
kosongkan
txttotalna
kosongkan
5
 Comand Button1

Comand Button1

Comand Button1
Name
Caption
Name
Caption
Name
Caption

 cmdsimpan
SIMPAN
cmdbersih
BERSIH LAYAR
cmdkeluar
keluar


Ketik Kode berikut di halaman code Visual basic :

Kemudian pada lembar kerja Form lakukan perintah berikut :

Dobel klik txtuts1, masukkan kode berikut :
Private Sub txtuts1_Change()
  txtna1.Text = NA(Val(txtuts1.Text), Val(txtus1.Text), Val(txttugas1.Text))
  txttotaluts.Text = TOTAL(Val(txtuts1.Text), Val(txtuts2.Text),  Val(txtuts3.Text))
  txtratauts.Text = RATA(Val(txttotaluts.Text))
End Sub

Dobel klik txtuts2, masukkan kode berikut :
Private Sub txtuts2_Change()
  txtna2.Text = NA(Val(txtuts2.Text), Val(txtus2.Text), Val(txttugas2.Text))
  txttotaluts.Text = TOTAL(Val(txtuts1.Text), Val(txtuts2.Text), Val(txtuts3.Text))
  txtratauts.Text = RATA(Val(txttotaluts.Text))
End Sub

Dobel klik txtuts3, masukkan kode berikut :
Private Sub txtuts3_Change()
  txtna3.Text = NA(Val(txtuts3.Text), Val(txtus3.Text), Val(txttugas3.Text))
  txttotaluts.Text = TOTAL(Val(txtuts1.Text), Val(txtuts2.Text), Val(txtuts3.Text))
  txtratauts.Text = RATA(Val(txttotaluts.Text))
End Sub

Dobel klik txtus1, masukkan kode berikut :
Private Sub txtus1_Change()
  txtna1.Text = NA(Val(txtuts1.Text), Val(txtus1.Text), Val(txttugas1.Text))
  txttotalus.Text = TOTAL(Val(txtus1.Text), Val(txtus2.Text), Val(txtus3.Text))
  txtrataus.Text = RATA(Val(txttotalus.Text))
End Sub

Dobel klik txtus2, masukkan kode berikut :
Private Sub txtus2_Change()
  txtna2.Text = NA(Val(txtuts2.Text), Val(txtus2.Text), Val(txttugas2.Text))
  txttotalus.Text = TOTAL(Val(txtus1.Text), Val(txtus2.Text), Val(txtus3.Text))
  txtrataus.Text = RATA(Val(txttotalus.Text))
End Sub

Dobel klik txtus3, masukkan kode berikut :
Private Sub txtus3_Change()
  txtna3.Text = NA(Val(txtuts3.Text), Val(txtus3.Text), Val(txttugas3.Text))
  txttotalus.Text = TOTAL(Val(txtus1.Text), Val(txtus2.Text), Val(txtus3.Text))
  txtrataus.Text = RATA(Val(txttotalus.Text))
End Sub
Dobel klik txttugas1, masukkan kode berikut :
Private Sub txttugas1_Change()
  txtna1.Text = NA(Val(txtuts1.Text), Val(txtus1.Text), Val(txttugas1.Text))
  txttotaltugas.Text = TOTAL(Val(txttugas1.Text), Val(txttugas2.Text),    Val(txttugas3.Text))
  txtratatugas.Text = RATA(Val(txttotaltugas.Text))
End Sub

Dobel klik txttugas2, masukkan kode berikut :
Private Sub txttugas2_Change()
  txtna2.Text = NA(Val(txtuts2.Text), Val(txtus2.Text), Val(txttugas2.Text))
  txttotaltugas.Text = TOTAL(Val(txttugas1.Text), Val(txttugas2.Text), Val(txttugas3.Text))
  txtratatugas.Text = RATA(Val(txttotaltugas.Text))
End Sub

Dobel klik txttugas3, masukkan kode berikut :
Private Sub txttugas3_Change()
  txtna3.Text = NA(Val(txtuts3.Text), Val(txtus3.Text), Val(txttugas3.Text))
  txttotaltugas.Text = TOTAL(Val(txttugas1.Text), Val(txttugas2.Text), Val(txttugas3.Text))
  txtratatugas.Text = RATA(Val(txttotaltugas.Text))
End Sub

Dobel klik txtna1, masukkan kode berikut :
Private Sub txtna1_Change()
  txttotalna.Text = TOTALNA(Val(txtna1.Text), Val(txtna2.Text), Val(txtna3.Text))
  txtratana.Text = RATA(Val(txttotalna.Text))
End Sub

Dobel klik txtna2, masukkan kode berikut :
Private Sub txtna2_Change()
  txttotalna.Text = TOTALNA(Val(txtna1.Text), Val(txtna2.Text), Val(txtna3.Text))
  txtratana.Text = RATA(Val(txttotalna.Text))
End Sub

Dobel klik txtna3, masukkan kode berikut :
Private Sub txtna3_Change()
  txttotalna.Text = TOTALNA(Val(txtna1.Text), Val(txtna2.Text), Val(txtna3.Text))
  txtratana.Text = RATA(Val(txttotalna.Text))
End Sub

Dobel klik cmdbersih, masukkan kode berikut :
Private Sub cmdbersih_Click()
  Bersih
End Sub

Dobel klik cmdsimpan, masukkan kode berikut :
Private Sub cmdsimpan_Click()
  MsgBox ("Maaf Pak Saya (ANONI MARADONA) belum bisa membuat script SIMPAN")
End Sub

Dobel klik cmdkeluar, masukkan kode berikut :
Private Sub cmdkeluar_Click()
  Unload Me      ‘Bisa juga End
End Sub

Setelah selesai anda bisa memodifikasi Form, apakah menukar warna latar, font dan lain-lain. Hasilnya kira-kira bisa seperti gambar berikut :

Gimana? mudahkan.

Anda bisa juga melihat file PDF, Silahkan lihat atau download File Pdf nya di sini !
Hasil Programnya dapat di download di sini!
Kata sandi "antonidesain" tanpa tanda petik.

Posted in: , ,

0 comments:

Posting Komentar