Jurnal Weekend

buat tampilan seperti ini: untuk menggunakan commandgroup lihat di form control lalu pilih commandgroup jika sudah lalu anda berikan count (jumlah command di commandgroup).caranya klik di commandgorup lihat di properties sebelah kanan lalu ganti buttoncount yang semula bernilai 2 menjadi yang anda inginkan.misalkan anda butuh 5 command button ganti angka 2 menjadi angka 5.untuk melakukan coding di commandgroup1 klik kanan pada commandgroup1 lalu pilih edit lalu klik2x pada setiap command,lalu isikan script berikut : command1 thisform.text1.BackColor=RGB(255,0,0) thisform.text1.Value="WARNA MERAH" command2 thisform.text1.BackColor=RGB(255,255,0) thisform.text1.Value="WARNA KUNING" command3 thisform.text1.BackColor=RGB(0,255,0) thisform.text1.Value="WARNA HIJAU" command4 thisform.text1.BackColor=RGB(0,128,255) thisform.text1.Value="WARNA BIRU" command5 thisform.text1.BackColor=RGB(255,128,0) thisform.text1.Val

Membuat calculator di visual voxpro Buatlah Tampilan seperti dibawah ini: yang dibutuhkan adalah comand button untuk operasi +,-,*,/ text untuk inputan dan label Script untuk + thisform.text3.Value=ROUND(VAL(thisform.text1.value)+VAL(thisform.text2.Value),2) Script untuk -  thisform.text3.Value=ROUND(VAL(thisform.text1.value)-VAL(thisform.text2.Value),2) Script untuk *  thisform.text3.Value=ROUND(VAL(thisform.text1.value)*VAL(thisform.text2.Value),2) Script untuk /  thisform.text3.Value=ROUND(VAL(thisform.text1.value)/VAL(thisform.text2.Value),2) Angka 2 sebelum tutup akhir itu dimaksudkan untuk memberikan 2 koma dari hasil, misalkan anda menambah kan 2 + 2 hasilnya adalah 4.00 bukan 4, Tetapi jika anda mengganti angka 2 itu dengan 0 maka hasilnya 4. Selamat Mencoba!!

Cara Membuat Program Biodata di Visual FoxPro Teman Teman sekalian kali ini kita akan mencoba membuat program biodata dengan Visual Voxpro . Pertama buatlah tampilan seperti dibawah ini: Yang dibutuhkan adalah label,textbox dan command button.. ini script dari program tersebut: script untuk Input : thisform.label6.Caption="NPM :"+thisform.text1.Value thisform.label7.Caption="NAMA :"+thisform.text2.Value thisform.label8.Caption="KELAS :"+thisform.text3.Value thisform.label9.Caption="ALAMAT :"+thisform.text4.Value thisform.label10.Caption="JURUSAN :"+thisform.text5.Value script untuk Reset: thisform.text1.Value="" thisform.text2.Value="" thisform.text3.Value="" thisform.text4.Value="" thisform.text5.Value="" thisform.label6.Caption="-" thisform.label7.Caption="-" thisform.label8.Caption="-" thisform.label9.Caption="-