Program ini saya buat dengan memakai statemen perulangan,  yaitu :
Repeat Until

Pernyataan Repeat biasa dipakai untuk menangani perulangan yang jumlahnya belum pasti, tetapi paling tidak dikerjakan sekali. Itulah yang saya ketahui tentang statemen Repeat.
Bila Ibu kurang jelas pada tampilan listing program di atas, Ibu boleh mencobanya disini.

{title:”Program Tebak angka”,url:”http://satriodwilaksono.ngeblogs.com/2010/03/05/program-tebak-angka/”}

Continue reading...

Program Biodata Mahasiswa dengan memakai Pasqal

/h4>
Ini hanya listing  program sederhana yang saya buat untuk memenuhi tugas mata kuliah AP saya. Bila Ibu ingin melihat hasil outputnya atau mencoba program saya ini, Ibu bisa klik disini. gratis !!!

Selamat Menikmati. .
{title:”Program Sederhana”,url:”http://satriodwilaksono.ngeblogs.com/2010/03/05/program-sederhana/”}

Continue reading...

Bilangan Ganjil vs Genap
Listing Program
Private Sub Command1_Click()
Dim a As Single
Dim b As Integer
Dim c As Single
a = Val(Text1.Text) / 2
b = Val(Text1.Text) \ 2
c = a – b
If c = 0# Then
Label2.Caption = “Bilangan Genap”
Else
Label2.Caption = “Bilangan Ganjil”
End If
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Label2.Caption = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Output

{title:”pROgram VB”,url:”http://satriodwilaksono.ngeblogs.com/2009/11/18/program-vb/”}

Continue reading...