Analisa Dengan M vfr9.0 Aplikasi Nilai

PENGINPUTAN HASIL NILAI DENGAN APLIKASI M vfr9.0

Aplikasi ini berguna untuk memasukkan hasil nilai ujian siswa berdasar dari mata pelajaran tertentu yang telah dibuat sebelumnya. Tahapan dari pembuatan aplikasi ini adalah sebagai berikut :

1. Buka Project PrgSiswa....

2. Klik folder Docoments dan klik folder Forms.

3. Klik New....

4. Maka akan muncul New Form, kemudian klik New Form.

5. Hubungkan form dengan lingkungan data (data environment), dengan cara sebagai berikut :


a. Klik kanan di area form yang tidak ada objeknya.

b. Pilih data environment.

c. Pilih atau ketikan tabel Siswa kemudian klik Add...

d. Pilih atau ketikan tabel Pelajaran kemudian Add....

e. Pilih atau ketikan tabel nilai kemudian Add....

f. Klik tabel Nilai pada kotak data environment, set atau atur properti Exclusive menjadi .T. (true).

6. Atur Propertiesnya seperti berikut ini :


OBJEK PROPERTI NILAI
Form Caption Sistem Nilai
Label1 Caption Nilai
Label1 AutoSize T
Label1 FontBold T
Label1 FontSize 16
Shape1 Name Shape1
Label2 Caption Nis
Label2 AutoSize T
Label3 Caption KodePelajaran
Label3 AutoSize T
Label4 Caption NamaSiswa
Label4 AutoSize T
Label5 Caption NamaPelajaran
Label5 AutoSize T
Label6 Caption Tgl Ujian
Label6 AutoSize T
Label7 Caption Nilai
Label7 AutoSize T
Label8 Caption Index
Label8 AutoSize T
Cmb1 Name CmbNis
Cmb1 RecordSource Siswa.Nis
Cmb1 RecordSourceType 6-Fields
Cmb2 Name CmbKdPel
Cmb2 RecordSource Pelajaran.KdPel
Cmb2 RecordSourceType 6-Fields
Text1 Name TxtNama
Text2 Name TxtNmPel
Text3 Name TxtTglujian
Text4 Name TxtNilai
Text4 Format !
Txt5 Name TxtIndex
Cmd1 Caption Simpam
Cmd1 Name CmdSimpan
Cmd2 Caption Selesai
Cmd2 Name Cmdselesai
Cmd3 Caption InputSiswaSama
Cmd3 Name CmdSama
Cmd4 Caption InputSiswaBeda
Cmd4 Name CmdBeda




MEMBUAT METODE-METODE DAN PERINTAHNYA

Program Nilai ini menggunakan tiga metode, yaitu Kosong1, Kosong2, dan Tdakaktif. Dengan perintahnya sebagai berikut :

1. Isi pada metode kosong1 dengan perintah :


WITH Thisform
.CmbNis.Value=” “
.TxtNama.Value=” “
.TxtKdPel.Value=” ‘
.TxtNmPel.Value=” “
.TxtTglujian.Value=” “
.TxtNilai.Value=” “
.TxtIndex.Value=” “
ENDWITH



2. Isi pada metode kosong2 dengan perintahnya sebagai berikut :

WITH Thisform
.CmbKdPel.Value=” “
.TxtNmPel.Value=” “
.TxtTglujian.Value=” “
.TxtNilai.Value=” “
.TxtIndex.Value=” “
ENDWITH



3. Isi pada metode tidakaktif dengan perintahnya :

Thisform.TxtIndex.Enabled=.F.