APLIKASI MENGHITUNG NILAI DENGAN PROGRAM VISUAL BASIC 6

Ini tugas waktu final kuliah disuruh buat yang beginiyan ...
semoga bermanfaat aja bagi yang membutuhkan ..

MEMBUAT APLIKASI MENGHITUNG NILAI DENGAN PROGRAM VISUAL BASIC 6

1. Membuat sebuah aplikasi baru yang mempunyai fungsi menghitung hasil – hasil nilai mahasiwa.

2. Buatlah properties masing-masing komponen seperti yang sudah tertera di bawah ini :

*Objek*	*Propertis*	*Value*
*Form1*	*Caption*	*Nilai akhir Mahasiswa*
*Label1*	*Name*	*Nilai mahasiswa*
*Label2*	*Name*	*Nim*
*Label3*	*Name*	*Nilai tugas*
*Label4*	*Name*	*Nilai Quiz*
*Label5*	*Name*	*Nilai uas*
*Label6*	*Name*	*Nilai*
*Textbox1*	*Text* *nama*	*<kosong>* *Txtnilaimahasiswa*
*Textbox2*	*Text* *Nama*	*<kosong>* *Txtnim*
*Textbox3*	*Text* *Nama*	*<kosong>* *Txtnilaitugas*
*Textbox4*	*Text* *Nama*	*<kosong>* *Txtnilaiquiz*
*Textbox5*	*Text* *Name*	*<kosong>* *Txtnilaiuas*
*Textbox6*	*Text* *Name*	*<kosong>* *Txtnilai*
*Textbox7*	*Text* *Name*	*<kosong>* *Txtnilaihuruf*
*Command1*	*Caption*	*Proses*
*Command2*	*Caption*	*Tampilan*
*Command3*	*Caption*	*Get out*

Sesuaikan dengan layout di bawah ini yaaaaaa ::::

Untuk tampilannya silahkan buat sendiri

Masukkan code pada command1

TXTNILAIAKHIR.Text = Val(txtnilaitugas.Text) * 0.1 + Val(txtnilaiquiz.Text) * 0.2 + Val(txtnilaiuts.Text) * 0.3 + Val(txtnilaiuas.Text) * 0.4 + Val(TXTNILAIAKHIR.Text)

txtnilai.Text = TXTNILAIAKHIR.Text

End Sub

Masukkan code pada command2

MsgBox " Nama Anda " & txtnamamahasiswa.Text & " Nim " & txtnim.Text & " Dengan Nilai " & TXTNILAIAKHIR.Text & " Nilai " & txtnilai.Text & ""

End Sub

Masukkan code pada command3

End

End Sub

Masukkan code pada txtnilaiakhir

NilaiAkhir = (10 * tugas) + (20 * Quiz) + (30 * UTS) + (40 * UAS)

End Sub

Masukkan code pada txtnilai

If TXTNILAIAKHIR.Text >= 85 Then

txtnilai.Text = "A"

ElseIf TXTNILAIAKHIR.Text >= 70 Then

txtnilai.Text = "B"

ElseIf TXTNILAIAKHIR.Text >= 60 Then

txtnilai.Text = "C"

ElseIf TXTNILAIAKHIR.Text >= 50 Then

txtnilai.Text = "D"

ElseIf TXTNILAIAKHIR.Text < 50 Then

txtnilai.Text = "E"

End If

End Sub

Hasil dari program di atas seperti gambar di bawah ini..

Untuk hasil dari tampilannya seperti pada gambar di bawah ini :

Oke selasai dah……..

Tidak terlalu susah kan……………

Selamat mencoba ……………………..

Cara Membuat Lock Folder

Inilah cara membuat lock folder tanpa software apapun...

caranya...

1. Buka Notepad dan copy kode dibawah ini
2. Pengisian dan perubahan password pada kode dibawah,ditunjukkan dengan warna merah.
3. Save file sebagai locker.bat
4. Setelah itu klik dua kali locker.bat
5. locker.bat akan mengunci folder secara otomatis. Setelah membuat pengunci folder, jalankan program locker.bat maka locker.bat akan membuat folder baru yang bernama Locker masukkan isi atau data pada folder locker tadi dan jalankan locker.bat sekali lagi..maka data kita akan terprotek

Quote:

cls
@ECHO OFF
title Folder Locker
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Are you sure u want to Lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock folder
set/p "pass=>"
if NOT %pass%== type your password here goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End

PROSEDUR KALIBRASI LAMPU DIALEB PHOTOMETER DTN 410/410K

Prosedur Kalibrasi Lampu

(Dilakukan setelah penggantian lampu baru)

Pada MAIN MENU tekan ( . )
Kemudian tekan ( 8 )
Masukkan nilai / tekan : 4095
Tekan ENTER
Kemudian tekan ( 8 ) lagi
Masukkan nilai / tekan : 3700
Tekan ENTER
Tekan ESC

Kemudian lakukan LOOPSETUP :

Tekan ( 7 ) / ke menu UTILITIES
Pada menu UTILITIES tekan ( . )
Kemudian tekan ( 1 )
Tunggu hingga LOOP SETUP selesai.

Ket : Saat melakukan LOOPSETUP, bila alarm pada alat berbunyi, geser CELL COMPARTMENT pada posisi Flowwcell atau Cuvette.

CARA MENGGUNAKAN HYPER TERMINAL DI WINDOW XP

Langkah - langkah dalam menggunakan hyper terminal sebagai berikut :
1 . Star >> All Program >> Accecories >> Communication >> Hyper Terminal

2 . Isi Nama sesuai Yang diinginkan

3 . Pilih Com sesuai dengan conektor device manager

4 . Atur settingan sesuai data yang telah diprogram contoh :

5 . Kemudian muncul gambar dibawah ini ...
dan siapp di gunakan ..

<<<<<<< >>>>>>>>>> semoga bermanfaat <<<<<<<<<<>>>>>>>>

Contoh Gambar Animasi

Animasi Fahmi Membuat gambar animasi tidak susah asal mau.
rajin memainakan aplikasi maka kan datang ilham sendiri hahahaha ...

ada beberapa contoh gambar yg sudah saya buat menjadi animasi, mulai dari pertama bisa hingga
meningkat kualitas dalam pewarnaan dan lukisan menjadi agak lebih mirip dengan poto yang asli ..

silahkan di lihat - lihat ......
hehehe