LATIHAN MENGGUNAKAN LABEL,TEXTBOX DAN COMMANDBUTTON DI VB

Hai sobat PREL-BLOG???

Kali ini saya akan berbagi ilmu tentang VB!!!

Ok langsung saja ya??

LATIHAN MENGGUNAKAN LABEL,TEXTBOX DAN COMMANDBUTTON DI VB

Label adalah control yang biasanya di gunakan untuk menampilkan sebuah tulisan.

CommandButton adalah sebuah tombol yang di gunakan unutk menjalankan perintah.

TextBox adalah control yang umunya digunakan untuk menginputkan atau mengubah teks saat program dijalankan.

Ok,sampai disitu saja penjelasannya!!!

Kali ini saya akan mencoba untuk membuat aplikasi UJI NILAI KELULUSAN,langsung saja ya???

Pertama-tama desain dulu seperti gambar di bawah ini:

Lalu perhatikan table di bawah ini:

KONTROL	PROPERTI
	NAME	CAPTION	TEXT
Label1	-	No.uijan	-
Label2	-	Jurusan	-
Label3	-	Nilai UNAS	-
Label4	-	Keterangan	-
Label5	Lblket	-	-
Text1	Textnomor	-	-
Text2	Textjurusan	-	-
Text3	Textnilai	-	-
Command1	Cmdinput	Input baru	-
Command2	Cmdproses	Proses	-
Command3	Cmdkeluar	Keluar	-

Nah jangan sampai salah,karena jika salah sedikit saja maka program anda tidak akan berjalan.

Kemudian klick pada area form dan masukan script berikut ini:

Private Sub Form_Load()

‘menonaktifkan semua TextBOx agar tidak bisa menerima focus dati kursor.

Textnomor.Enabled = False

Textjurusan.Enabled = False

‘untuk menonaktifkan tombol agar tidak bisa di klick.

Textnilai.Enabled = False

cmdproses.Enabled = True

End Sub

Lalu untuk commandbutton Input Baru silahkan copas kode di bawah ini:

Private Sub CmdInput_Click()

‘mengaktifkan semua TextBox agar dapat meneripa focus dari kursor.

Textnomor.Enabled = True

Textjurusan.Enabled = True

Textnilai.Enabled = True

‘mengosongkan semua textbox

Textnomor = " "

Textjurusan = ""

lblket = " "

Textnilai = " "

‘memberikan focus kursor pada textnomor.

Textnomor.SetFocus

End Sub

Lalu untuk commandbutton Proses silahkan lihat script di bawah ini:

Private Sub cmdproses_Click()

‘jikanilai kurang dari 60 maka dinyatakan tidak lulus

If Textnilai < 60 Then

Text4 = "Peserta dengan nomor no.ujian" & Textnomor & " jurusan " & Textjurusan & " dinyatakan tidak lulus,maaf "

Else

Text4 = "peserta dengan no.ujian" & Textnomor & " jurusan " & Textjurusan & " dinyatakan lulus,selamat"

End If

Textnomor.Enabled = False

Textjurusan.Enabled = False

Textnilai.Enabled = False

cmdproses.Enabled = True

End Sub

lalu untuk commandbutton keluar isikan script ini:

Private Sub cmdKeluar _Click()

End

End Sub

Jika sudah beres silahkan tekan F5 dan coba di jalankan!

Nah itu saja caranya.

Jika anda ingin melihat hasil dari pembuatan saya silahkan di download DISINI.

Dan kalau ingin langsung mengedit atau mempelajari secara detail silahkan di download DISINI.

Nah sekian dulu dari saya,jika masing belum mengerti silahkan berkomentar!!!

Tunggu artikel saya selanjutnya!!!!

Baca juga artikel saya yang ini MEMBUAT PROPERTI TEST DENGAN VB | MEMBUAT PEMUTARVIDIO DENGAN VB | KALKULATOR.

Posted in: TRIK KOMPUTER,VB