Menggunakan Listbox Visual Basic
Berikut ini ada salah satu contoh dalam penggunaan listbox yang ada pada visual basic. Contoh ini bisa di ubah-ubah sesuai kebutuhan kok. Bagaimana caranya? Ya tinggal mengedit aja sendiri. Hehehehe
Program Penghitung dengan Visual Basic
Sekedar untuk latihan atau coba-coba bagi yang ingin belajar bahasa pemrograman visual basic(vb), langsung saja mempraktekkan kode program yang ada di bawah ini.
Membuat Program Master Data
Program Mencetak Laporan
Selain menampilkan data per record, kita juga bisa menampilkan seluruh record sekaligus. Yaitu dengan membuat laporan, untuk lebih jelasnya langsung saja kita coba yang di bawah ini.
Menampilkan Data per Record
Menghapus Data Record Database
Mengedit Data Record Database
Menambahkan Data Record Database
Setelah kita bisa membuat database pada clipper dan juga mengaktifkan database pada clipper, sekarang mari kita coba menambah data record database.Kurang lebih tampilannya seperti ini
Menggunakan / Mengaktifkan Databse pada Cipper
Setelah kemarin belajar membuat database pada clipper, kali ini kita akan belajar menggunakan database yang sudah dibuat. Bagi yang belum bisa membuat database alias ketinggalan postingan kemarin, bisa baca di sini. Bagi yang sudah baca, mari kita lanjutkan.
Bentuk umum perintah yang digunakan adalah
USE <nama database> INDEX <data file database>
atau
USE <nama database> INDEX <data file database> NEW
Cara membuat Database pada Clipper
Berbeda dengan pascal, clipper bisa menyimpan dan mengakses data yang telah disimpan sebelumnya. Yaitu menyimpannya kedalam database. Langsung saja, untuk membuat database pada clipper, perintah umumnya :
DBCREATE(<nama
database>,<variable struktur database>
Misal kita ingin membuat database seperti tabel sebagai berikut
Nama Field
|
Type
|
Lebar/Width
|
Dec
|
Kd_brg
|
C
|
5
|
|
Nm_brg
|
C
|
20
|
|
Merk
|
C
|
15
|
|
Satuan
|
C
|
10
|
|
Harga
|
N
|
7
|
0
|
stok
|
N
|
4
|
0
|
Koding Login (pasword) dengan Pascal
Pernahkah anda memasukan pasword saat akan login atau mengakses sesuatu? Dan setelah beberapa kali memasukan pasword yang salah, maka tidak bisa memasukan pasword lagi untuk beberapa saat? Program semacam itu bisa juga dibuat dengan bahasa pemrograman pascal. Ini dia kodenya :
uses crt;
var pas:string;
i:integer;
begin
clrscr;
i:=3;
Perkalian acak Visual Basic (code)
Koding pascal sudah, clipper juga sudah, sekarang giliran visual basic. Ini ada contoh program yang dibuat menggunakan visual basic, yaitu perkalian yang angka-angkanya bisa muncul sendiri secara acak (random). Lumayan buat koleksi atau sekedar coba-coba.
Koding Pascal untuk Mencari Bilangan Prima
Ok, selanjutnya kembali lagi tentang bahasa pemrograman pascal. Mungkin ada yang lagi nyari koding (coding) pascal bagaimana menampilkan bilangan prima. Bilangan prima adalah bilangan yang hanya habis dibagi dengan dua angka, yaitu 1 dan bilangan itu sendiri. Misalnya bilangan 7, hanya akan habis dibagi 1 dan 7 (bilangan itu sendiri), jadi blangan 7 termasuk bilangan prima.
Sekarang, bagaimana menuangkan pengertian tersebut kedalam sebuah bahasa pemrograman yang sederhana (pascal)? Kita harus mengggunan perulangan bersarang, yaitu sebuah perulangan yang didalamnya berisi perulangan lagi. Kita lihat kode programnya :
uses crt;
var i1,j1,prima1:integer;
function prima(i,j:integer):integer;
var k:integer;
begin
i:=1;
while i<=100 do begin
k:=0;
j:=1;
while j<=i do begin
if i mod j=0 then
k:=k+1;
j:=j+1;
end;
Bagi temen2 yang masih agak bingung bagaimana membuat form utama yang terdapat bar menu yang dilengkapi menu tarik (pull-down), bisa copas dari sini.
Silakan edit sesuai kebutuhan :D
Karna temen2 request, selain itu juga untuk mengingatkan kita dengan matakuliah pascal,maka ini saya tuliskan koding pascal untuk menghitung huruf vokal
program PenghitungJumlahHurufVokal;
uses wincrt;
var inputkata,x:string;
jumlah,i,jumVokal:integer;
masukanLagi:char;
begin
repeat
clrscr;
gotoxy(1,2);
write('masukan kata atau kalimat');
gotoxy(1,4);
readln(inputkata);
x:=inputkata;
jumlah:=0;
for i:=1 to length(x) do
begin
if x[i] in ['A','I','U','E','O','a','i','u','e','o'] then jumlah:=jumlah+1;
end;
jumVokal:=jumlah;
gotoxy(1,6);
