Jam Analog

17 Juni 2009

Jam digunakan sebagai ukuran waktu. Terdapat dua jenis jam yang digunakan yaitu jam analog dan digital. Jam analog sebagai alat penghitung waktu dinyatakan dengan angka 1,2,3,4,5,6,7,9,10,11 dan 12 sebagai jam penunjuk waktu mulai dari tengah malam hingga tengah hari dan angka 1,2,3,4,5,6,7,8,9,10,11,12 yang menunjukkan angka tengah hari hingga tengah malam. Angka-angka di jam sering disebut sebagai pukul. Terdapat 3 jenis jarum pada jam yaitu jarum jam, menit dan detik. Bila jarum detik berputar satu putaran penuh maka jarum menit akan bertambah satu. Jika jarum menit berputar satu putaran penuh maka jarum jam akan bertambah satu.

I.Antar muka program
1. Buka proyek standard.exe
2. Simpan proyek dengan nama PAnalog
3. Simpan form dengan nama FAnalog
4. Ganti properti Form
Name : FrmAnalog
BorderSytel : Dialog
Caption : Analog
WindowState : Normal
5. Masukkan control Timer ke Form
6. Ganti properti Timer
Name : TrmAnalog
Interval : 1000 (dalam milisecond. 1 detik = 1000 milisecond)
7. Masukkan control Picture ke Form
8. Ganti properti Picture
Name : PicAnalog
Height : 3000 (dalam pixel)
Widht : 3000 (dalam pixel)
9. Masukkan command dan ganti propertinya menjadi:
– Name : cmdPlay
– Caption : &Play
10. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdStop
– Caption : &Stop
11. Masukkan control command dan ganti propertinya menjadi:
– Name : cmdSet
– Caption : &Set

II.Implementasi
1. Buka Jendela Kode
2. Ketikkan kode program berikut:

Dim JariLingkaran, JarumJam, xTengah, yTengah, Y, X As Integer
Dim Radian, Derajat As Single
Dim strDetik, StrMenit, StrJam As String * 2
Dim Detik, Menit, Jam As Integer

Private Sub cmdPlay_Click()
TmrAnalog.Enabled = True
End Sub

Private Sub cmdStop_Click()
TmrAnalog.Enabled = False
End Sub

Private Sub Form_Load()
xTengah = PicAnalog.Width / 2
yTengah = PicAnalog.Width / 2
JariLingkaran = yTengah – 115
JarumJam = xTengah
X = JarumJam
Y = 100
Derajat = 264
PicAnalog.Circle (xTengah, yTengah), JariLingkaran, Black
Detik = -1
Menit = 0
Jam = 0
strDetik = “00”
StrMenit = “00”
StrJam = “00”
End Sub

Private Sub Form_Paint()
PicAnalog.Cls
PicAnalog.Line (xTengah, yTengah)-(X, Y), Yellow
End Sub

Private Sub TmrAnalog_Timer()
Derajat = Derajat + 6
If Derajat >= 360 Then
Derajat = 0
End If
Radian = 3.14 / 180 * Derajat
X = JarumJam + Cos(Radian) * 1400
Y = JarumJam + Sin(Radian) * 1400
Form_Paint
Detik = Detik + 1
If Detik 59 Then
Detik = 0
Menit = Menit + 1
If Menit 59 Then
Menit = 0
If Jam 12 Then
Jam = 0
End If
End If
End If
txtJam.Text = StrJam + “:” + StrMenit + “:” + strDetik
End Sub

III. Running
1. Jalankan proyek dengan menekan tombol F5


Kalkulator Sederhana

17 Juni 2009

Kalkulator yang akan dirancang termasuk sederhana karena kalkulator ini hanya difokuskan pada operasi dasar artimatika dan trigonometri yang melibatkan bilangan desimal yakni angka 0,1,2,3,4,5,6,7,8, dan 9. Namun penting diingat bahwa kalkulator pada saat ini sudah sangat canggih sehingga kemampuan seperti yang ditawarkan komputer yang dapat beroperasi pada data alpabet, numerik dan alphanumerik juga sudah dapat dilakukannya.
Operasi aritmatika merupakan operasi yang melibatkan angka-angka yang operasinya meliputi penjumlahan (+), pengurangan (-), perkalian (*), pembagian (/), pemangkatan (^), sisa bagi (mod). Sedangkan operasi trigonometri pada rancangan aplikasi ini menyangkut nilai sin, cos dan tangen.
Operasi penjumlahan aritmatika dengan syntax operasi umumnya adalah:
C = A Op B, dimana
A dan B adalah operand yang dioperasikan. Operand yang dioperasikan diganti dengan nilai bilangan bulat (-.., -3,-2,-1,0,1,2,3,…)
Op adalah operator aritmatika +, _ , * dan /
= adalah operator pemberi nilai
C adalah operand yang menerima hasil operasi

-Antar muka sistem

-Implementasi

Dim Op1, Op2, Op3, R As Double
Dim A, Op As Byte
Dim Sign, Koma As Boolean
Private Sub Nilai(ByVal Nilai As String)
If A = 0 Then
txthasil.Text = Trim(Str(Nilai))
A = 1
Else
txthasil.Text = txthasil.Text + Trim(Str(Nilai))
End If
End Sub

Private Sub cmd0_Click()
Nilai (cmd0.Caption)
End Sub

Private Sub cmd1_Click()
Nilai (cmd1.Caption)
End Sub

Private Sub cmd2_Click()
Nilai (cmd2.Caption)
End Sub

Private Sub cmd3_Click()
Nilai (cmd3.Caption)
End Sub

Private Sub cmd4_Click()
Nilai (cmd4.Caption)
End Sub

Private Sub cmd5_Click()
Nilai (cmd5.Caption)
End Sub

Private Sub cmd6_Click()
Nilai (cmd6.Caption)
End Sub

Private Sub cmd7_Click()
Nilai (cmd7.Caption)
End Sub

Private Sub cmd8_Click()
Nilai (cmd8.Caption)
End Sub

Private Sub cmd9_Click()
Nilai (cmd9.Caption)
End Sub

Private Sub cmdbagi_Click()
Op = 1
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdbersih_Click()
txthasil.Text = “”
Koma = True
End Sub

Private Sub cmdkali_Click()
Op = 2
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdkoma_Click()
If Koma Then
txthasil.Text = txthasil.Text + “.”
Koma = Not Koma
End If
End Sub

Private Sub cmdkos_Click()
Op = 6
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdkurang_Click()
Op = 3
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdsd_Click()
Op2 = Val(txthasil.Text)
Select Case (Op)
Case 1: Op3 = Op1 / Op2
Case 2: Op3 = Op1 * Op2
Case 3: Op3 = Op1 – Op2
Case 4: Op3 = Op1 + Op2
Case 5: Op3 = Sin(pi / 180 * Op2)
Case 6: Op3 = Cos(pi / 180 * Op2)
Case 7: Op3 = Sin(pi / 180 * Op2) / Cos(pi / 180 * Op2)
End Select
txthasil.Text = Str(Op3)
End Sub

Private Sub cmdsin_Click()
Op = 5
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdtambah_Click()
Op = 4
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdtk_Click()
If Trim(txthasil.Text) “” Then
If Sign Then
R = txthasil.Text
txthasil.Text = “-” + txthasil.Text
Sign = False
Else
txthasil.Text = R
Sign = True
End If
End If
End Sub

Private Sub Form_Load()
A = 1
Sign = True
Koma = True
End Sub

-Running

-Analisis