7.06.2010

While ...... Whend

Pada postingan kali ini, saya akan bahas sedikit tentang bagaimana melakukan perulangan dengan menggunakan statement while...wend... dan do...loop

- Perulangan While..Whend
- Perulangan Do..Loop


0.1 Perulangan While-Wend

Pernyataan while .. Wend digunakan untk mengeksekusi serangkaian perintah selama kondisi yang disyaratkan bernilai true.

Bentuk umum :
While Ungkapan
Statement
When

Statemen While – Whend digunakan untuk melakukan proses perulangan suatu statemen atau blok statemen terus menerus selama kondisi ungkapan logika pada While masih bernilai logika benar.

Ketrangan :
- Kondisi: Merupakan ekspresi numeric atau ekspresi string yang bernilai True atau False. Bila bernilai Nol dianggap sama dengan False
- Statemen: Merupakan sebuah atau beberapa baris perintah yang terus menerus di eksekusi selama kondisi bernilai True.
Contoh program menggunakan statemen While..Whend bisa didownload disini

0.2 Perulangan Do..Loop
Selain pernyataan For..Next untuk melakukan perulangan,Visual Basic juga menyediakan pernyataan Do..Loop. pernyataan ini digunakan untuk mengulangi suatu blok statemen selama kondisi yang disyaratkan bernilai true.

Bentuk umum:
Do [{While| Until} Kondisi]
[Statemen]
[exit do]
[Statemen]
Loop

Atau dapat juga dituliskan:
Do [perintah]
[exit do]
[perintah]
Loop [{While|Until}kondisi]

Keterangan :
- Kondisi : merupakan ekspresi numeric atau ekspresi string yang bernilai true atau false. Bila bernilai Nol dianggap sama dengan false
- Statemen : merupakan sebuah atau beberapa baris perintah yang terus menerus di eksekusi selama kondisi tersebut bernilai true.
Contoh program menggunakan statemen Do..Loop bisa didownload disini
artikel ini bisa anda download disini

PERULANGAN

Pada postingan kali ini saya akan bahas sedikit tentang perulangan dalam penerapan pada Visual Basic :
- statement For
- perulangan positif
- perulangan tersarang


0.1 Perulangan
salah satu proses yang hampir selalu ada dalam pemograman adalah proses berulang (looping). Proses berulang adalah suatu proses did mana computer akan mengeksekusi satu atau lebih statement berulang kali sesuai kebutuhan. Perulangan statemen for digunakan untuk mengulang statement atau satu blok statement berulang kali, sejumlah yang ditentukan. Perulangan dengan statement For dapat berbentuk perulangan :
- Positip
- Tersarang

0.2 Perulangan Positif
Perulangan positif adalah perulangan dengan penghitung (Counter) dari kecil ke besar atau dengan kata lain pertambahan positip.
Bentuk umum :
For Variabel Kontrol = Nilai Awal To Nilai Akhir
Contoh Perulangan positif bisa di download disini

0.3 Perulangan Tersarang
Perulangan tersarang (nested loop) adalah perulangan yang berada di dalam perulangan yang lainya . Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.
Contoh Perulangan tersarang bisa di download disini

6.26.2010

5.25.2010

Properti Form Vb 6

Form memiliki property yang lebih banyak daripada objek-objek atau control –control lain pada visual basic 6. walaupun begitu umumnya tidak semua property akan digunakan oleh form. Di bawah ini saya akan tampilkan beberapa property form umum yang paling sering digunakan.

PROPERTI KETERANGAN
Backcolor Warna latar belakang dari Form.
Borderstyle Menentukan pembatas di sekeliling Form.
0 - None: tidak ada pembatas
1 - Fixed Single: pembatas garis tunggal
2 - Sizable: jendela Form dapat diubah ukuranya
3 - Fixed Dialog: jendela seperti kotak dialog
4 - Sizable ToolWindow: jendela seperti toolbar dan ukuranya bisa di ubah
Caption Teks yang akan ditampilkan pada bagian atas Form(judul form)
ControlBox menentukan apakah form menampilkan icon control menu
Enabled menentukan apakah form tersebut aktif
Font mengubah jenis dan ukuran huruf untuk form
ForeColor warna teks dari form
Height tinggi form
Icon gambar icon yang akan ditampilkan pada taskbar apabila form ini di minimalkan
Left jarak dari sisi kiri layer ke sisi kiri form
MaxButton menampilkan/menyembunyikan tombil maximize
MinButton menampilkan/menyembunyikan tombil minimize
MousePointer menentukan bentuk kursor mouse apabila diletakan diatas form
Moveable menetukan apakan form bisa digeser letaknya
Picture gambar yang akan ditampilkan sebagai latar belakang form
ScaleMode menetukan satuan ukuran form dalam twip,pixel,inci,centimeter, dan lain-lain
ShowInTaskbar menentukan apakah form ditampilkan pada taskbar windows
StartUpPosition menetukan posisi awal form pada saat aplikasi pertama kali dijalankan
Top jarak dari sisi atas layer ke sisi atas form
Visible menampilkan/menyembunyikan form dari user
Width lebar form
Windowstate menentukan status awal ukuran form (minimal, maksimal, atau normal) saat pertama kali dijalankan)

4.05.2010

Cara Membuat Aplikasi Menu

Pada latihan kali ini saya bahas bagaimana cara membuat aplikasi yang telah dilengkapi Full Down, sebenarnya sih di kampus saya belum diajarin bikin kaya ginian berhubung saya punya buku vb maka saya akan share disini. Okelaah jangan terlalu banyak improvisasi langsung aja kita mulai.
Sebagai contoh kita akan membuat menu seperti gambar di bawah ini :


 Langkah – langkah membuat menu
1. Buatlah sebuah form, atur property caption form menjadi Desain Menu
2. Setelah Form tersebut menjadi focus (aktif), pilih menu tools kemudian pilih Sub Menu Menu editor atau dengan cara menekan Ctrl+E maka akan di tampilkan dialog menu editor seperti gambar di bawah ini 
3. Pada kotak dialog pengisian Caption, Ketik :&File, maka akan tampil pada kotak list dibagian jendela menu editor
4. Pada kota dialog pengisian Name ketik nama menu contoh:mnfile Tekan enter untuk mengakhiri pendefinisian ini. Teks yang ada pada kotak caption dan name akan terhapus sendiri untuk membuat menu berikutnya.
5. Buatlah seluruh menu seperti gambar di bawah ini, dan ingat jangan memberikan nama yang sama untuk menu

6. Pilih item shortcut dalam kotak dialog menu editor kemudian pilih salah satu yang ada dalam list box seperti gambar di bawah ini :

7. Kemudian Buatlah sebuah for seperti di bawah ini :


8. aturlah property masing – masing dan jangan lupa memberikan formabout sebagai properti nama dari form
Masukan kode berikut ini pada tombol OK
      
Private Sub Command1_Click()
Me.Hide
End Sub

9. Kemudian pada saat desainn Form, klik menu Help buatan anda, dan selanjutnya akan di tampilkan menu-menu lainya milik dari menu file tersebut.
Dari menu help itu klik menu sub menu About, yang akan menyebabkan di tampilkanya kota dialog untuk pengisian kode pada kotak dialog tersebut tuliskan kode sebagai berikut :
Private Sub mnabout_Click()
formabout.Show
End Sub

10. selanjutnya anda tinggal menjalankan form menu klik menu Run atau tekan F5
Mudahkan....
semoga bermanfaat

Program Menghitung Berat Badan

Waduh udah gak kerasa nih sekarang udah semester 4, kerasa cepet banget nh waktu... Padahal ngerasa baru kemaren gw baru masuk kuliah, Bahasa Program yang harus dikuasai juga udah beda,,, sekarang gw belajar Visual Basic 6.0 . Sekedar kasih tau aja visual basic adalah salah satu development tools untuk membangun aplikasi dalam lingkungan windows dalam pengembangan aplikasi. Visual Basic adalah bahasa pemograman berbasis windows yang sering disebut dengan OOP ( objek oriented programming) yaitu pemrograman yang berorientasi dengan Objek inget yah “objek” bukan “ojek” (capee deh...)
Kemaren pas ga ada kerjaan di rumah gw coba-coba bikin program perhitungan berat badan simple aja ch.... oke tidak usah banyak bicara, untuk membuat program tersebut ikuti langkah berikut....
1. klik new form
2. kemudian buat form seperti berikut :


Nama Kontrol
Property
Nilai
Label1
Caption
Program Menghitung Berat
Badan
Label2
Caption
Masukan data anda
Label3
Caption
Text
Nama
 Kosongkan
Label4
Caption
Text
Tinggi Badan
Kosongkan
Label5
Caption
Text
Berat Badan
Kosongkan
Text1
Name
Text
Nm
kosongkan
Text2
Name
Text
Tbadan
Kosongkan
Text3
Name
Text
Bbadan
Kosongkan
Command1
Name
Caption
cmdproses
Proses
Command2
Name
Caption
cmdulang
ulang
Command3
Name
Caption
cmdselesai
selesai


  1. Pada Tombol proses, masukan kode program berikut :
Private Sub cmdproses_Click()
Dim Nama As String
Dim tb, bb, bi, b As Long
Nama = nm.Text
tb = Val(tbadan.Text)
bb = Val(bbadan.Text)
bi = (tb - 110) * 1.1
If (bb > (1.1 * bi)) Then
MsgBox " Halo " + Nama + " Anda Terlalu Gemuk "
Else
If (bb < (0.9 * bi)) Then
MsgBox " Halo " + Nama + " Anda Harus Banyak Makan "
Else
MsgBox " Halo " + Nama + " Berat Tubuh Anda Ideal "
End If
End If
End Sub
 4. pada tombol ulang masukan code program berikut :
Private Sub cmdulang_Click()
nm.Text = ""
tbadan.Text = ""
bbadan.Text = ""
End Sub
5. pada tombol selesai masukan code program berikut :
Private Sub cmdselesai_Click()
x = MsgBox("Yakin Mau Udahan", vbYesNo + vbInformation, "Tawaran")
If x = vbYes Then
End
End If

6. jika sudah selesai tekan F5, atau pilih menu run kemudian start,
7. beres deh!!!!  gampang kan.....

2.19.2010

Listing Program Penyewaan Mobil

uses crt;
label
awal,akhir;
procedure garis;
begin
writeln('=============================================================');
end;
var
jm,mm:array [1..10] of string;
ls,h,tt:array [1..10] of longint;
j:char;
a: byte;
b:string;
begin
awal:
clrscr;
gotoxy(35,1);writeln('PENYEWAAN MOBIL');
garis;
gotoxy(1,3);write('Nama Penyewa :');readln(b);
writeln;
for a:= 1 to 1 do
begin
write('Jenis Mobil :');readln(jm[a]);
if jm[a] ='J' then
begin
mm[a]:='Cheroke';
h[a]:=500000;
end;
if jm[a]='S' then
begin
mm[a]:='Baleno';
h[a]:=600000;
end;
writeln('Merk Mobil :',mm[a]);
write('Lama sewa :');readln(ls [a]);
tt[a]:= ls[a]*h[a];
writeln('Total :',tt[a]);
garis;
gotoxy(35,11);writeln('STRUK PENYEWAAN');
garis;
gotoxy(1,13);writeln('Nama:',(b));
garis;
gotoxy(5,15);writeln('| No| Jenis Mobil | Merk Mobil | Lama sewa | Harga | Total |');
garis;
for a:= 1 to 1 do
gotoxy(1,17);writeln(a:7,jm[a]:14,mm[a]:16,ls[a]:12,h[a]:11,tt[a]:12);
garis;
write('Input Lagi :');readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end;
end.

Rancangan Input



Jika Jenis mobil = 'J' maka Merk Mobil 'Cheroke'
Jika Jenis mobil = 'S' maka Merk mobl 'Baleno'

Semoga Bermanfaat!!!!

Listing Program Perhitungan Nilai Mahasiswa

Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan Function dengan bahasa pascal. Sebenarnya cih banyak contoh yang kita bisa implementasikan pada program ini akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem perhitungan nilai mahasiswa .

uses crt;
label
awal,akhir;
type
bb=longint;
bp=real;
function garis:string;
begin
garis:=('______________________________________________________________');
end;
function hitung (var tn:bp;abs,tgs,uts,uas:bb):bb;
begin
tn:=(abs*0.1)+(tgs*0.2)+(uts*0.3)+(uas*0.4);
end;


var
i,jml:byte;
nmk:string;
nm:array [1..10] of string;
tt:array [1..10] of bp;
a,t,ut,ua:array [1..10] of bb;
j:char;
begin
awal:


clrscr;
textcolor(3);gotoxy(25,2);writeln('Perhitungan Nilai Mahasiswa');
gotoxy(27,3);writeln('Bina Sarana Informatika');
writeln(garis);
write('Nama Mata Kuliah:');readln(nmk);
write('Masukan Jumlah data:');readln(jml);
for i:= 1 to jml do
begin
writeln('Data Mahasiswa ke-',i);
write('Nama Mahasiswa:');readln(nm[i]);
write('Nilai Absen :');readln(a[i]);
write('Nilai Tugas :');readln(t[i]);
write('Nilai UTS :');readln(ut[i]);
write('Nilai UAS :');readln(ua[i]);
hitung(tt[i],a[i],t[i],ut[i],ua[i]);
end;
clrscr;

textcolor(5);gotoxy (23,2);writeln('Hasil Perhtungan Nilai Mahasiswa');
writeln(garis);
gotoxy(28,3);writeln('Nama Mata Kuliah');
writeln(garis);
textcolor(7);writeln('No Nama Mahasiswa N.Absen N.Tugas N.UTS N.UAS Total Nilai');
writeln(garis);
for i:= 1 to jml do
writeln(i:1,nm[i]:12,a[i]:12,t[i]:12,ut[i]:10,ua[i]:10,tt[i]:10:2);
writeln(garis);
write('Masukan data lagi:');textbackground(3);readln(j);
if j='Y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

Rancangan Input
Rancangan Output
Mohon dekoreksi bila ada kesalahan.
Terima kasih.....

Listing Program Penjualan Tiket Pesawat


Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan procedure  dengan bahasa pascal. Sebenarnya cih masih banyak contoh yang  kita bisa  implementasikan pada program ini, akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem pembelian tiket pesawat .

uses crt;
procedure garis;
begin
writeln('====================================================');
end;
label
awal,akhir;
var
tt:longint;
j:char;
a,b,x:byte;
st,jt,h: array [1..10] of longint;
np,kp,nps:array [1..10] of string;
procedure hitung;
begin
st[a]:= jt[a]*h[a];
end;
begin
awal:
tt:=0;
clrscr;
gotoxy(28,1);writeln('DATA PENJUALAN TIKET PESAWAT');
garis;
write('Masukan Jumlah penumpang:');readln(b);
writeln;
for a:= 1 to b do

begin
writeln('Data penumpang Ke  :',a);
write('Nama penumpang     :');readln(np [a]);
write('Kode Pesawat :');readln(kp [a]);
if kp[a]='G' then
begin
nps[a]:='Garuda';
h[a]:=980000;
end
else
if kp[a] ='M' then
begin
nps [a]:='Merpati';
h[a]:=850000;
end;
writeln('Nama Pesawat       :',nps[a]);
write('Jumlah Tiket       :');readln(jt[a]);
writeln('Harga              :',h[a]);
hitung;
end;
clrscr;
writeln;
gotoxy(30,3);writeln('Data Penumpang');
garis;
gotoxy(x,6);writeln('| No | Nama Pesawat |  Nama Penumpang |  Jumlah Tiket |  Harga |  Subtotal|');
garis;
writeln;
for a:= 1 to b do
begin
gotoxy(x+1,6+a);writeln('|',a);
gotoxy(x+6,6+a);writeln('|');
gotoxy(x+7,6+a);writeln(nps[a]);
gotoxy (x+21,6+a);writeln('|');
gotoxy (x+25,6+a); writeln(np[a]);
gotoxy(x+39,6+a);writeln('|');
gotoxy(x+44,6+a);writeln(jt[a]);
gotoxy(x+55,6+a);writeln('|');
gotoxy(x+57,6+a);writeln(h[a]);
gotoxy(x+64,6+a);writeln('|');
gotoxy(x+66,6+a);writeln(st[a]);
gotoxy(x+75,6+a);writeln('|');
end;
garis;
writeln;
for a:= 1 to b do
begin
hitung;
tt:=st[a]+tt;
end;
writeln('Total Pendapatan   :',tt);
garis;
writeln('Input lagi :');readln(j);
if j='y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

2.15.2010

RINGKASAN MATERI PASCAL

Struktur program Pascal :

Judul Program
Blok Program
Bagian deklarasi
- Deklarasi Unit
- Deklarasi Label
- Deklarasi Konstanta ingat baik-baik
- Deklarasi Type
- Deklarasi Variabel
- Deklarasi Prosedur
- Deklarasi Fungsi
Bagian Pernyataan
Begin
Statemen;
End.


- Read dan Readln digunakan untuk meminta masukan dari keyboard untuk di olah computer. Perbedaan antara Read dan Readln setelah meminta masukan, jika Readln akan diakhiri dengan pindah baris, sedangkan pada Read tidak
- Write dan Writeln digunakan untuk mencatak hasil proses, perbedaan antara Write dan Writeln setelah mencetak jika Writeln akan diakhiri dengan pindah baris, sedangkan Write tidak.
- Syarat-syarat penamaan suatu identifier ( Baik untuk Variabel, Konstanta, Type atau yang lainnya ) :
• Karakter pertama huruf
• Karakter kedua dan seterusnya boleh huruf, angka atau garis bawah
• Tidak boleh menggunakan karakter khusus (kecuali garis bawah) seperti :
( , . * / @) dll.
• Tidak boleh mengandung spasi / blank
• Panjang nama bebas, tetapi hanya 63 karakter awal yang signifikan

- Variable suatu tempat di memori computer yang dapat menyimpan nilai / data yang berubah – ubah
- Konstanta suatu nilai atau data bersifat tetap ( tidak dapat berubah ) yang disimpan didalam memori dan dapat diambil nilai / datanya
- Type => Pengenal ( identifier ) dari data yang digunakan harus deperkenalkan type-nya. Jika ingin menggunakan type data dengan nama yang dibuat pemakai, maka harus disebutkan type data standarnya.
- Label
• Label harus dideklarasikan dahulu pada bagian deklarasi
• Nama label boleh berupa string (cth.Selesai) atau berupa integer (cth.100)
• Label digunakan sebagai arah tujuan dari perintah Goto