Modul 2


1. FLOWCHART KASIR


 2. FLOWCHART KASIR




3. Tutorial dan Listing Kalkulator
TUTORIAL TEKNOLOGI INFORMATIKA VISUAL BASIC 2010
“Membuat Program Aplikasi Kalkulator HADINAN”

1.      Deskripsi Singkat
Program aplikasi kalkulator HADINAN ini adalah sebuah program aplikasi yang diciptakan dan difungsikan untuk membantu manusia dalam menghitung dan mengetahui hasil perhitungan dari beberapa bangun ruang yang ada. Perhitungan-perhitungan tersebut terdiri dari perhitungan-perhitungan standard seperti penjumlahan (+), pengurangan (-), perkalian (x), pembagian (/). Juga terdapat operasi perhitungan matematis yang lebih kompleks dan ilmiah seperti logaritma, logaritma natural, dan bilangan berpangkat.Adapun perhitungan rumus untuk luas dan volume bangun ruang, terdiri dari luas dan volume persegi, persegi panjang, lingkaran, dan kerucut.
2.      Tujuan dan Manfaat
Tujuan program ini dibuat yaitu untuk mempermudah proses perhitungan matematis yang sederhana hingga yang bersifat ilmiah (scientific) serta mempermudah manusia untuk dapat mengetahui luas dan volume beberapa bangun ruang.
Manfaat dari program aplikasi kalkulator ini adalah mengefesiensikan waktu manusia dalam melakukan perhitungan.
3.      Sasaran
Sasaran kami membuat program aplikasi ini adalah untuk semua kalangan, namun terutama bagi pelajar.
4.      Konsep
Konsep pembuatan program ini yaitu:
1.            Membuka Aplikasi Visual Basic 2010
2.     Klik New Project
3.     Kemudian klik Ok untuk Windows Form Application kemudian kita tampilkan Tool Box yang terdapat pada Menu Bar Visual Basic 2010, langkahnya adalah klik View→Other Windows→Tool Box
4.    Atur properti untuk tool-tool yang akan kita gunakan dalam program aplikasi kita:
Komponen
Properties
Keterangan
Form 1
Name
Text
Form 1
Form 1
TextBox1
Name
TextBox1
Button1
Name
Text
Button1
∏
Button2
Name
Text
Button2
n!
Button3
Name
Text
Button3
,
Button4
Name
Text
Button4
)
Button5
Name
Text
Button5
(
Button6
Name
Text
Button6
L Persegi
Button7
Name
Text
Button7
Tan
Button8
Name
Text
Button8
Cos
Button9
Name
Text
Button9
Sin
Button10
Name
Text
Button10
L Lingkaran
Button11
Name
Text
Button11
L Persegi Panjang
Button12
Name
Text
Button12
(-)
Button13
Name
Text
Button13
Ln
Button14
Name
Text
Button14
log
Button15
Name
Text
Button15
^
Button16
Name
Text
Button16
X2
Button17
Name
Text
Button17
√
Button18
Name
Text
Button18
=
Button19
Name
Text
Button19
X^3
Button21
Name
Text
Button21
V Bola
Button22
Name
Text
Button22
X^-1
Button23
Name
Text
Button23
CLEAR
Button24
Name
Text
Button24
V Tabung
Button25
Name
Text
Button25
V Kerucut
Button27
Name
Text
Button27
7
Button28
Name
Text
Button28
9
Button31
Name
Text
Button31
-
Button32
Name
Text
Button32
/
Button33
Name
Text
Button33
AC
Button35
Name
Text
Button35
+
Button36
Name
Text
Button36
X
Button37
Name
Text
Button37
0
Button38
Name
Text
Button38
6
Button39
Name
Text
Button39
3
Button42
Name
Text
Button42
2
Button43
Name
Text
Button43
5
Button44
Name
Text
Button44
8
Button46
Name
Text
Button46
1
Button47
Name
Text
Button47
4



5.     Membuat Form 1 sesuai dengan aturan properties yang telah kita buat sebelumnya. Untuk mengganti background Form 1, kita pilih Properties-BackgroundImage-LocalResource-Import-Ok.
6.        Untuk mengganti style pada toolbox (background toolbox, font), klik toolbox yang hendak diganti style nya, pilih properties – font(huruf) - backcolor (background toolbox) – forecolor (warna tulisan toolbox).
7.         Listing code Program Aplikasi “Kalkulator Hadinan” beserta penjelasan:
KALKULATOR HADINAN

*      Form 1
Option Explicit On
PublicClassForm1
Dim FirstNumber AsSingle
Dim SecondNumber AsSingle
Dim AnswerNumber AsSingle
Dim ArithmeticProcess AsString
Dim A AsDouble

Penjelasan:
Dalam Form1 ini, kita menggunakan bantuan fungsi Dim yang berguna sebagai pemisalan atau untuk menentukan bagian mana dalam perhitungan yang menjadi as single, as string, dan as double.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim key As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)
        If Not (((key >= 48) And (key <= 57)) Or (key = 8) Or (key = 46) Or (key = 45)) Then
            e.Handled = True
        End If
    End Sub

Penjelasan:
Dalam Form1 ini, kita menggunakan bantuan fungsi Dim untuk membuat kalkulator hanya dapat dimasukkan data input melalui kalkulator itu sendiri serta mencegah agar data input tidak berupa huruf.

-          Button1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "∏"
EndSub

Penjelasan:
Kita menggunakan simbol ∏sebagai button1, maka kita menggunakan fungsi rumus program TextBox1.Text = "∏".
-          Button2
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = ""
        ArithmeticProcess = "n!"
EndSub

Penjelasan:
Untuk button2, kita menggunakan simbol n! Dalam kalkulator Hadinan, oleh karena itu kita menggunakan fungsi rumus program FirstNumber = Val(TextBox1.Text), TextBox1.Text = "" , danArithmeticProcess = "n!"yang berarti FirstNumber adalah angka pertama yang akan kita inputkan ke dalam kalkulator, Val berarti nilai bbeyang akan dicari
Berarti nilai yang akan dicari, dan arithmeticprocess berarti proses operasi matematika, agar kalkulator bekerja sesuai operasi matematika.

-          Button3
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text &","
EndSub

Penjelasan:
Seperti button1. Button3 juga hanya berfungsi untuk menampilkan simbol “,” pada kalkulator. Kita menggunakan TextBox1.Text = TextBox1.Text &",".

-          Button4
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = ")"
EndSub

Penjelasan:
Seperti button1. Button4 juga hanya berfungsi untuk menampilkan simbol “)” pada kalkulator. Kita menggunakan TextBox1.Text = TextBox1.Text &")".

-          Button5
PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text &"("
    
     Penjelasan:
Seperti pada button1, button5 dibuat untuk menampilkan simbol “(“ pada kalkulator. Kita gunakan TextBox1.Text = TextBox1.Text &"(".

-          Button6
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Form2.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada button6 ini, kita menggunakan rumus fungsi Form2.Show() dan  Me.Hide(). Dimana fungsi show berfungsi untuk menunjukkan form yang akan kita mau buka, sedangkan Hide berfungsi untuk menyembunyikan Form yang akan kita tutup.
-          Button7
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = "tan" & FirstNumber
        ArithmeticProcess = "tan"
    End Sub

Penjelasan:
Pada button7 ini, kita ingin membuat fungsi operasi matematika tangen terlihat pada textbox, maka kita menggunakan FirstNumber = Val(TextBox1.Text) dan TextBox1.Text = "tan" & FirstNumber. Sementara proses aritmatika digunakan untuk proses matematika.

-          Button 8
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = "cos" & FirstNumber
        ArithmeticProcess = "cos"
    End Sub
   Penjelasan: Pada button8 ini, kita ingin membuat fungsi operasi matematika tangen terlihat pada textbox, maka kita menggunakan FirstNumber = Val(TextBox1.Text) dan TextBox1.Text = "cos" & FirstNumber. Sementara proses aritmatika digunakan untuk proses matematika.

-          Button9
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = "sin" & FirstNumber
        ArithmeticProcess = "sin"
    End Sub

Penjelasan: Pada button9 ini, kita ingin membuat fungsi operasi matematika tangen terlihat pada textbox, maka kita menggunakan FirstNumber = Val(TextBox1.Text) dan TextBox1.Text = "sin" & FirstNumber. Sementara proses aritmatika digunakan untuk proses matematika.
-          Button10
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Form3.Show()
        Me.Hide()
    End Sub

Penjelasan:
Dalam Button10 ini, kita akan membuka atau menampilkan Form3 dengan menggunakan rumus fungsi Show dan kita menggunakan Hide untuk menyembunyikan atau menutup Form yang ingin kita tutup.
-          Button11
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Form4.Show()
        Me.Hide()
    End Sub

Penjelasan:
Dalam button11, kita menggunakan rumus fungsu Show untuk menampilkan Form4 yang ingin dibuka. Sedangkan fungsi rumus Hide kita gunakan untuk menyembunyikan Form yang ingin kita tutup.

-          Button12
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox1.Text = -TextBox1.Text
    End Sub
      

Penjelasan:
           
            Pada button12 ini kita ingin membuat data yang diinputkan bernilai negatif, maka kita menggunakan fungsi rumus TextBox1.Text = -TextBox1.Text.

-          Button13
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox1.Text = Math.Log(TextBox1.Text)
    End Sub

Penjelasan:
Pada button13 kita ingin melakukan operasi matematika yaiktu logaritma natural, maka kita menggunakan rumus TextBox1.Text = Math.Log(TextBox1.Text).

-          Button14
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox1.Text = "log" & Math.Log10(TextBox1.Text)  
    End Sub

Penjelasan:
Pada button14, kita ingin melakukan perhitungan logaritma biasa dalam kalkulator, maka kita menggunakan rumus TextBox1.Text = "log" & Math.Log10(TextBox1.Text). Perbedaan rumus dengan button13 adalah angka 10 setelah log.
-          Button15
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "^"
        ArithmeticProcess = "^"
    End Sub
Penjelasan:
Pada Button15 ini, kita ingin menampilkan perhitungan matematika menggunakan pangkat berapapun dan juga menampilkan operasi perhitungannya dalam textbox. Kita menggunakan rumus FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "^", dan ArithmeticProcess = "^".

-          Button16
Private Sub Button16_Click(ByVal sendedr As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "^2"
        ArithmeticProcess = "^2"
    End Sub

Penjelasan:
Pada button16 ini, kita ingin menampilkan operasi perhitungan matematika pangkat dua atau kuadrat serta juga ditampilkan di dalam textbox, maka menggunakan rumus FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "^2", dan ArithmeticProcess = "^2".
-          Button17
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "^0.5"
        ArithmeticProcess = "^0.5"

    End Sub

Penjelasan:
Dalam button17 ini, kita ingin membuat operasi matematika menggunakan pangkat ½ dan menampilkan proses perhitungannya di dalam textbox, maka kita menggunakan rumus FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "^0.5", ArithmeticProcess = "^0.5".

-          Button18
Private Sub Button18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        SecondNumber = Val(TextBox1.Text)
        If ArithmeticProcess = "+" Then
            AnswerNumber = FirstNumber + SecondNumber
        End If
        If ArithmeticProcess = "-" Then
            AnswerNumber = FirstNumber - SecondNumber
        End If
        If ArithmeticProcess = "X" Then
            AnswerNumber = FirstNumber * SecondNumber
        End If
        If ArithmeticProcess = "/" Then
            AnswerNumber = FirstNumber / SecondNumber
        End If
        If ArithmeticProcess = "/" Then
            If SecondNumber = "0" Then
                MsgBox("can't devide by zero", 0, "warning")
                TextBox1.Text = "0"
            End If
        End If
        If ArithmeticProcess = "^2" Then
            AnswerNumber = FirstNumber ^ 2
        End If
        If ArithmeticProcess = "^" Then
            AnswerNumber = FirstNumber ^ SecondNumber
        End If
        If ArithmeticProcess = "sin" Then
            AnswerNumber = Math.Sin(FirstNumber * (22 / 7 / 180))
        End If
        If ArithmeticProcess = "cos" Then
            AnswerNumber = Math.Cos(FirstNumber * (22 / 7 / 180))
        End If
        If ArithmeticProcess = "tan" Then
            AnswerNumber = Math.Tan(FirstNumber * (22 / 7 / 180))
        End If
        If ArithmeticProcess = "^-1" Then
            AnswerNumber = FirstNumber ^ -1
        End If
        If ArithmeticProcess = "^3" Then
            AnswerNumber = FirstNumber ^ 3
        End If
        If ArithmeticProcess = "^0.5" Then
            AnswerNumber = FirstNumber ^ 0.5
        End If
        If ArithmeticProcess = "n!" Then
            A = 1
            For i = 1 To FirstNumber
                A = A * i
                Next
            TextBox1.Text = Str(A)
            AnswerNumber = TextBox1.Text
        End If
        If ArithmeticProcess = "log" Then
            AnswerNumber = Math.Log10(TextBox1.Text)
        End If

        TextBox1.Text = AnswerNumber
    End Sub

Penjelasan:
Dalam button18 ini memuat dari keseluruhan fungsi-fungsi rumus sama dengan (=). Jadi terdapat beberapa rumus di dalam button ini, tergantung dari seberapa banyak rumus matematika yang kita gunakan dalam kalkulator.

-          Button19
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "^3"
        ArithmeticProcess = "^3"
    End Sub

 Penjelasan:
Dalam button19 ini, kita ingin membuat perhitungan matematika berupa pangkat tiga, maka rumus yang kita gunakan adalah FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "^3", dan ArithmeticProcess = "^3".

-          Button 21
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Form6.Show()
        Me.Hide()
    End Sub

Penjelasan:
Dalam button21, kita ingin menampilkan Form maka kita menggunakan Show dan bila ingin menyembunyikan Form yang ingin kita sembunyikan, maka kita gunakan Hide.
-          Button22
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "^-1"
        ArithmeticProcess = "^-1"
    End Sub

Penjelasan:
Pada button22, kita ingin menampilkan operasi matematika dengan pangkat -1, maka kita menggunakan rumus fungsi FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "^-1", ArithmeticProcess = "^-1".

-          Button23
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        TextBox1.Text = ""
    End Sub

Penjelasan:
Pada button23 kita ingin menampilkan data dengan nilai kosong. Maka kita gunakan rumus fungsi TextBox1.Text = "".

-          Button24
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Form5.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada Form24 kita ingin menampilkan Form5, maka kita menggunakan fungsi Show. Sedangkan bila kita ingin menyembunyikan dan menutup Form yang kita ingin tutup maka kita menggunakan rumus Hide.

-          Button25
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        Form7.Show()
        Me.Hide()
    End Sub
Penjelasan:
Pada Form25, kita ingin menampilkan Form7 maka kita menggunakan rumus Show, sedangkan apabila kita ingin menyembunyikan Form, maka kita menggunakan Hide.

-          Button27
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub

Penjelasan:
Pada button27 kita ingin membuat simbol angka 7 dan menampilkannya dalam textbox, maka kita menggunakan rumus TextBox1.Text = TextBox1.Text & "7".

-          Button28
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub

Penjelasan:
Pada button28 kita ingin membuat simbol angka 9 dan kita ingin menampilkannya dalam textbox, maka kita gunakam rumus TextBox1.Text = TextBox1.Text & "9".

-          Button31
Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "-"
        ArithmeticProcess = "-"
    End Sub

Penjelasan:
Pada button31 kita ingin membuat dan menampilkan simbol operasi matematis pengurangan dalm textbox, maka kita menggunakan rumus FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "-", ArithmeticProcess = "-".



-          Button32
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "/"
        ArithmeticProcess = "/"
    End Sub

Penjelasan:
Pada button32 kita ingin menampilkan simbol “/” pada textbox juga melakukan perhitungan di dalam kalkulator. Maka kita menggunakan rumus fungsi FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "/", ArithmeticProcess = "/".

-          Button33
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        TextBox1.Text = ""
    End Sub

Penjelasan:
Pada button33 kita ingin menampilkan bilangan kosong, maka kita gunakan rumus TextBox1.Text = "".

-          Button35
Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "+"
        ArithmeticProcess = "+"
    End Sub

Penjelasan:
Pada button35 kita ingin menggunakan rumus operasi matematika “+” dan ingin menampilkan perhitungannya dalam textbox, maka kita menggunakan rumus fungsi FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "+", ArithmeticProcess = "+".

-          Button36
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        FirstNumber = Val(TextBox1.Text)
        TextBox1.Text = FirstNumber & "X"
        ArithmeticProcess = "X"
    End Sub

Penjelasan:
Pada Button36 kita ingin menggunakan rumus matematika “X” dan juga menampilkan operasi perhitungan matematikanya di dalam textbox, maka kita menggunakan rumus FirstNumber = Val(TextBox1.Text), TextBox1.Text = FirstNumber & "X", dan ArithmeticProcess = "X". Proses aritmatika digunakan karena kita melakukan proses perhiyungan matematis.


-          Button37
Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub

Penjelasan:
Pada Button37 kita ingin membuat simbol “0” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "0".
-          Button38
Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub

Penjelasan:
Pada Button38 kita ingin membuat simbol “6” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "6".

-          Button39
Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub
Penjelasan:
Pada Button39 kita ingin membuat simbol “3” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "3".

-          Button42
Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub
Penjelasan:
Pada Button42 kita ingin membuat simbol “2” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "2".

-          Button43
Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub

Penjelasan:
Pada Button43 kita ingin membuat simbol “5” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "5".

-          Button44
Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub

Penjelasan:
Pada Button44 kita ingin membuat simbol “8” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "8".

-          Button46
Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
        TextBox1.Text = TextBox1.Text & "1"
    End Sub

Penjelasan:
Pada Button46 kita ingin membuat simbol “1” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "1".


-          Button47
Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub

Penjelasan:
Pada Button47 kita ingin membuat simbol “4” dan menampilkannya dalam proses perhitungan matematika dalam textbox di dalam kalkulator, maka kita gunakan rumus TextBox1.Text = TextBox1.Text & "4".

   
*      Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Input As Integer
        Dim Luas As Integer
        If Val(TextBox1.Text) <= 0 Then
            MsgBox("Maaf data yang diinput tidak valid")
            TextBox2.Text = ""
        End If
        TextBox2.Text = Input * Input
        Input = Val(TextBox1.Text)
        Luas = Input * Input
        TextBox2.Text = Luas
        If TextBox1.Text < 0 Then
            TextBox2.Text = ""
        End If

Penjelasan:
Pada Form2 kita ingin membuat kalkulator pencari hasil dari luas sebuah persegi. Oleh karena itu, kita menggunakan rumus fungsi Dim, dimana terdapat Dim Input dan Dim Luas. Namun bila kita memasukkan nilai dari sisi-sisi tersebut bernilai minus, maka akan keluar kotak pesan “Maaaf data yang diinput tidak valid”. Untuk rumus fugsi matematikanya dapat menggunakan rumus TextB TextBox2.Text = Luas ox2.Text = Input * Input, Input = Val(TextBox1.Text), Luas = Input * Input, TextBox2.Text = Luas, If TextBox1.Text < 0 Then, dan
TextBox2.Text = "".

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
    End Sub

Penjelasan:
Pada button2 kita ingin mengklir atau mengosongkan semua data inputan, maka kita menggunakan rumus fungsi TextBox1.Text = Nothing dan TextBox2.Text = Nothing.

-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada button3 kita ingin menampilkan Form1 maka kita menggunakan fungsi Show, dan untuk menyembunyikan Form kita dapat menggunakan rumus Hide.

*      Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text >= 0 Then
            Dim radius As Integer
            Dim Luas As Integer
            radius = Val(TextBox1.Text)
            Luas = 3.14 * radius * radius
            TextBox2.Text = Luas
        End If
        If TextBox1.Text <= 0 Then
            MsgBox("Maaf data yang diinput tidak valid")
        End If
    End Sub
   Penjelasan:
      Pada Form3 kita ingin membuat program penghitung luas lingkaran yang praktis. Kita menngunakan fungsi rumus Dim kembali. Dim radius dan Dim Luas kita misalkan untuk dapat melakukan perhitungan. Kemudian memasukkan fungsi rumus luas lingkaran dengan format rumus If TextBox1.Text >= 0 Then, Dim radius As Integer, Dim Luas As Integer, radius = Val(TextBox1.Text), Luas = 3.14 * radius * radius, TextBox2.Text = Luas. Dan apabila nilai dari input yang kita masukkan kurang dari 0, maka kita gunakan fungsi If dan akan muncul kotak pesan “Maaf data yang diinput tidak valid”.

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
    End Sub

Penjelasan:
Pada button2 kita ingin menghilangkan semua data yang diinput, maka kita dapat menggunakan rumus Reset(),TextBox1.Text = Nothing, TextBox2.Text = Nothing.

-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada button3 ini, kita ingin menampilkan Form1 kembali, maka kita dapat menggunakan fungsi Show. Sedangkan bila ingin menyembunyikan Form3 nya dapat menggunakan rumus Hide.

*      Form4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text And TextBox3.Text >= 0 Then
            Dim panjang As Integer
            Dim lebar As Integer
            Dim luas As Integer
            panjang = Val(TextBox1.Text)
            lebar = Val(TextBox3.Text)
            luas = panjang * lebar
            TextBox2.Text = luas
        End If
        If TextBox1.Text Or TextBox3.Text <= 0 Then
            MsgBox("Maaf data yang diinput tidak valid")
            TextBox2.Text = ""
            TextBox2.Text = Nothing
        End If

    End Sub

Penjelasan:
Pada Form4 kita ingin membuat perhitungan praktis mencari luas persegi panjang. Dengan menggunakan fungsi Dim, kita buat seperti berikut :
If TextBox1.Text And TextBox3.Text >= 0 Then
            Dim panjang As Integer
            Dim lebar As Integer
            Dim luas As Integer
Dan untuk perhitungan matematikanya, kita dapat menggunakan rumus panjang = Val(TextBox1.Text), lebar = Val(TextBox3.Text), luas = panjang * lebar, dan TextBox2.Text = luas. Namun bila data yang kita input ternyata kurang dari 0, maka akan keluar kotak pesan” Maaf data yang diinput tidak valid”.

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing
    End Sub

       
Penjelasan:
Pada button2, kita ingin merefresh atau mengosongkan semua inputan data, maka kita menggunakan rumus Reset(),TextBox1.Text = Nothing, TextBox2.Text = Nothing, dan TextBox3.Text = Nothing.

-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:

Pada button3 ini, kita ingin menampilkan Form1 kembali, maka kita dapat menggunakan fungsi Show. Sedangkan bila ingin menyembunyikan Form4 nya dapat menggunakan rumus Hide.

*      Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text And TextBox2.Text >= 0 Then
            Dim radius As Integer
            Dim tinggi As Integer
            Dim volume As Integer
            radius = Val(TextBox1.Text)
            tinggi = Val(TextBox2.Text)
            volume = 3.14 * radius * radius * tinggi
            TextBox3.Text = volume
        End If
        If TextBox1.Text Or TextBox2.Text <= 0 Then
            TextBox3.Text = ""
            MsgBox("Maaf Data yang diinput tidak valid")

        End If
    End Sub

Penjelasan:
Dalam form5 ini, kita akan membuat perhutungan praktis untuk mencari volume tabung. Maka kita menggunakan fungsi If dan Dim seperti If TextBox1.Text And TextBox2.Text >= 0 Then, Dim radius As Integer, Dim tinggi As Integer, Dim volume As Integer, dan untuk rumus matematikanya seperti radius = Val(TextBox1.Text), tinggi = Val(TextBox2.Text), volume = 3.14 * radius * radius * tinggi, TextBox3.Text = volume. Dan apabila inputan yang kita masukkan kurang dari 0, maka akan muncul kotak pesan “maaf data yang diinput tidak valid”.

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing
    End Sub


Penjelasan:

       Pada Button2 ini, kita akan merefresh atau mengosongkan data input dengan rumus Reset(),TextBox1.Text = Nothing, TextBox2.Text = Nothing, dan TextBox3.Text = Nothing



-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada button3 ini, kita ingin menampilkan Form1, maka kita dapat menggunakan rumus Show. Dan bila ingin menyembunyikan Form dapat menggunakan rumus Hide.

*      Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text >= 0 Then
            Dim radius As Integer
            Dim volume As Integer
            radius = Val(TextBox1.Text)
            volume = 0.75 * 3.14 * radius * radius * radius
            TextBox2.Text = volume
        End If
        If TextBox1.Text <= 0 Then
            TextBox2.Text = ""
            MsgBox("Maaf Data yang diinputkan tidak valid")
        End If
    End Sub

Penjelasan:
Pada Button1, kita ingin membuat rumus perhitungan praktis mencari volume tabung, maka kita menggunakan rumus If TextBox1.Text And TextBox2.Text >= 0 Then, Dim radius As Integer, Dim volume As Integer, radius = Val(TextBox1.Text), volume = 0.75 * 3.14 * radius * radius * radius, TextBox2.Text = volume. Dan bila data yang kita inputkan ternyata kurang dari 0, maka akan terdapat kotak pesan “Maaf data yang diinputkan tidak valid” yang diperoleh dari rumus If TextBox1.Text Or TextBox2.Text <= 0 Then, TextBox2.Text = "", dan MsgBox("Maaf Data yang diinputkan tidak valid").

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
    End Sub

Penjelasan:
Dalam Button2, kita ingin mengosongkan semua data yang telah kita input dengan menggunakan Reset(),TextBox1.Text = Nothing, dan TextBox2.Text = Nothing.

-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada Button3, kita akan menampilkan kembali Form1 dengan cara Form1.Show() dan juga menyembunyikan Form yang akan hendak kita sembunyikan dengan Me.Hide().

*      Form7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text And TextBox2.Text >= 0 Then
        Dim radius As Integer
        Dim tinggi As Integer
        Dim volume As Integer
        radius = Val(TextBox1.Text)
        tinggi = Val(TextBox2.Text)
        volume = 0.33 * 3.14 * radius * radius * tinggi
        TextBox3.Text = volume
        End If
        If TextBox1.Text Or TextBox2.Text <= 0 Then
            TextBox3.Text = ""
            MsgBox("Maaf data yang diinputkan Tidak valid")
        End If
    End Sub

Penjelasan:

Dalam Form7 ini kita akan membuat aplikasi program perhitungan mencari volume kerucut secara praktis. Maka kita dapat menggunakan If TextBox1.Text And TextBox2.Text >= 0 Then,  Dim radius As Integer, Dim tinggi As Integer, Dim volume As Integer, dan untuk rumus matematikanya dapat ditulis radius = Val(TextBox1.Text), tinggi = Val(TextBox2.Text), volume = 0.33 * 3.14 * radius * radius * tinggi, TextBox3.Text = volume, dan apabila data yang kita inputkan kurang dari 0 maka akan keluar kotak pesan “Maaf data yang diinputkan tidak valid” melalui rumus If TextBox1.Text Or TextBox2.Text <= 0 Then, TextBox3.Text = "", dan MsgBox("Maaf data yang diinputkan Tidak valid").

-          Button2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Reset()
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing

    End Sub

Penjelasan:
Dalam Button2, kita ingin mengosongkan semua data yang telah kita input dengan menggunakan Reset(),TextBox1.Text = Nothing, dan TextBox2.Text = Nothing.

-          Button3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Hide()
    End Sub

Penjelasan:
Pada Button3, kita akan menampilkan kembali Form1 dengan cara Form1.Show() dan juga menyembunyikan Form yang akan hendak kita sembunyikan dengan Me.Hide().

DOWNLOAD FILE DISINI! : http://www.4shared.com/office/B7sS4Ajl/TUTORIAL_KALKULATOR_KELOMPOK_1.html



4. Tutorial dan Listing Kasir

TUTORIAL TEKNOLOGI INFORMATIKA VISUAL BASIC 2010
“Membuat Program Aplikasi KASIR di EIGHTEEN’s SHOP”

1.      Deskripsi Singkat
Program aplikasi kasir kelompok 18 bernama kasir EIGHTEEN’s SHOP ini adalah sebuah program aplikasi yang diciptakan dan difungsikan untuk membantu pelanggan dalam dalam melakukan transaksi perbelanjaan di toko kelompok 18. Kasir ini terdiri dari beberapa pilihan bantuan pengisian yang sanagt diperlukan oleh pelanggan saat berbelanja dan melakukan transaksi perbelanjaan di toko kami. Beberapa kolom bantuan tersebut adalah pengisian nama, alamat, nama barang, harga, gambar barang yang hendak dibeli, jumlah barang yang akan dibeli, diskon, dan lainnya.
2.      Tujuan dan Manfaat
Tujuan program ini dibuat yaitu untuk mempermudah kasir dalam melayani transaksi belanja dari pelanggan. Yaitu dengan beberapa kolom bantu atau informasi seperti jumlah barang, harganya, dan pembayaran lainnya.
Manfaat dari program aplikasi kalkulator ini adalah mengefesiensikan waktu pembayaran perbelanjaan di kasir.
3.      Sasaran
Sasaran kami membuat program aplikasi ini adalah untuk toko-toko yang sudah menggunakan program aplikasi kasir.
4.      Konsep
Konsep pembuatan program ini yaitu:
1.            Membuka Aplikasi Visual Basic 2010
2.     Klik New Project
3.     Kemudian klik Ok untuk Windows Form Application kemudian kita tampilkan Tool Box yang terdapat pada Menu Bar Visual Basic 2010, langkahnya adalah klik View→Other Windows→Tool Box
4.    Atur properti untuk tool-tool yang akan kita gunakan dalam program aplikasi kita:
EIGHTEEN’S SHOP

Komponen
Properties
Keterangan
Form 1
Name
Text
Form 1
Form 1
Label1
Name
Text
Label1
EIGHTEEN’s SHOP
Label2
Name
Text
Label2
Nama
Label3
Name
Text
Label3
Alamat
Label4
Name
Text
Label4
Nama Barang
Label5
Name
Text
Label5
Harga
Label6
Name
Text
Label6
Jumlah Barang
Label7
Name
Text
Label7
Diskon
Label8
Name
Text
Label8
Total Harga
Label9
Name
Text
Label9
Jumlah Barang
Label10
Name
Text
Label10
Pembayaran
Label11
Name
Text
Label11
Kembalian
TextBox1
Name
TextBox1
TextBox2
Name
TextBox2
TextBox3
Name
TextBox3
TextBox4
Name
TextBox4
TextBox5
Name
TextBox5
TextBox6
Name
TextBox6
TextBox7
Name
TextBox7
TextBox8
Name
TextBox8
ComboBox1
Name
ComboBox1
Button1
Name
Text
Button1
Hitung
Button2
Name
Text
Button2
Keluar
Button3
Name
Text
Button3
Pembayaran
Button4
Name
Text
Button4
Refresh
PictureBox10
Name
PictureBox10
6.  Membuat Form 1 sesuai dengan aturan properties yang telah kita buat sebelumnya. Untuk mengganti background Form 1, kita pilih Properties-BackgroundImage-LocalResource-Import-Ok.
7.     Untuk mengganti style pada toolbox (background toolbox, font), klik toolbox yang hendak diganti style nya, pilih properties – font(huruf) - backcolor (background toolbox) – forecolor (warna tulisan toolbox).
8.         Listing code Program Aplikasi “EIGHTEEN’S SHOP” beserta penjelasan: 

Form 1
-         Label4 (Nama Barang)
Untuk menambahkan list barang klik kanan pada combo box lalu pilih add item

-     Label5 (Harga)
Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = ("komputer") Then TextBox3.Text = ("20000000")
        If ComboBox1.Text = ("komputer") Then PictureBox1.Visible = True
        If ComboBox1.Text = ("komputer") Then PictureBox2.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox3.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox4.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox5.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox6.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox7.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox8.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox9.Visible = False
        If ComboBox1.Text = ("komputer") Then PictureBox10.Visible = False
End Sub

Penjelasan:
If ComboBox1.Text = ("komputer") Then TextBox3.Text = ("20000000") ComboBox1 menunjukkan list barang dan textbox3 menunjukkan harga barang.
If ComboBox1.Text = ("komputer") Then PictureBox1.Visible = True
If ComboBox1.Text = ("komputer") Then PictureBox2.Visible = False
Listing di atas untuk memunculkan gambar. Pada listing diatas gambar komputer berada pada picturebox1 sehingga untuk memunculkan gambar komputer ketik visible=true pada listing dan agar gambar yang lain tidak keluar maka pada listing picturebox yang lain diketik visible=false.



-          Label8 (Total Harga)

Untuk memunculkan total harga klik button Hitung berikut listingnya:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim potongan As Double
        Dim total As Double
        Dim harga As Integer
        Dim jumlah As Integer
        Dim diskon As Integer

        harga = Val(TextBox3.Text)
        jumlah = Val(TextBox4.Text)
        diskon = Val(TextBox5.Text)
        potongan = (harga * jumlah * diskon) / 100
        total = (harga * jumlah) - (potongan)
        TextBox6.Text = total

    End Sub

Penjelasan:
 Dim  menunjukkan kata cadangan yang digunakan untuk mendeklarasikan variabel. harga = Val(TextBox3.Text) menunjukkan variabel harga yang berada pada textbox3. jumlah = Val(TextBox4.Text) menunjukkan variabel jumlah yang berada pada textbox4. diskon = Val(TextBox5.Text) menunjukkan variabel diskon pada textbox5. TextBox6.Text = total menunjukkan total harga akan muncul pada textbox6.


-          Button3 (Pembayaran)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim total As Double
        Dim pembayaran As Integer
        Dim kembalian As Integer

        pembayaran = Val(TextBox7.Text)
        total = Val(TextBox6.Text)
        kembalian = Val(TextBox8.Text)

        If TextBox7.Text < TextBox6.Text Then MsgBox("Maaf Pembayaran Kurang", 0, "EIGHTEEN'S SHOP")
        If TextBox7.Text >= TextBox6.Text Then kembalian = pembayaran - total
        TextBox8.Text = kembalian
    End Sub

Penjelasan: 
If TextBox7.Text < TextBox6.Text Then MsgBox("Maaf Pembayaran Kurang", 0, "EIGHTEEN'S SHOP") menunjukkan bila pembayaran lebih kecil dari total makan akan muncul message box yang bertuliskan “maaf pembayaran kurang”.
If TextBox7.Text >= TextBox6.Text Then kembalian = pembayaran - total
        TextBox8.Text = kembalian menunjukkan bila pembayaran lebih besar sama dengan tota maka akan muncul kembalian dengan rumus pembayaran dikurang total.


-          Button4 (Refresh)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox7.Text = ""
        TextBox8.Text = ""
    End Sub

Penjelasan:
Karena tombol refresh digunakan untuk mengulang pembayaran dan kembalian maka pada listing ditulis textbox7 dan textbox8 dengan tanda ""  yang artinya tidak ada yang muncul pada textbox7 dan textbox8.


-          Button2 (Keluar)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
End Sub
Penjelasan: 
Close() menunjukkan bila kita klick tombol keluar maka seluruh halaman akan tertutup.


  

-          Button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim potongan As Double
        Dim total As Double
        Dim harga As Integer
        Dim jumlah As Integer
        Dim diskon As Integer
        diskon = Val(TextBox5.Text)
        harga = Val(TextBox3.Text)
        jumlah = Val(TextBox4.Text)
        total = Val(TextBox6.Text)
        potongan = (harga * jumlah * diskon) / 100
        total = ((harga * jumlah) - potongan)
        TextBox6.Text = total


        If TextBox1.Text = Nothing Then
            TextBox6.Text = ""
            MsgBox("Input your name first!", 0, "EIGHTEEN'S SHOP")
        End If
        If TextBox2.Text = Nothing Then
            TextBox6.Text = ""
            MsgBox("Input your address first!", 0, "EIGHTEEN'S SHOP")
        End If
        If TextBox5.Text = "" Then
            TextBox6.Text = ""
            MsgBox("Maaf Diskon Tidak Berlaku")
        ElseIf TextBox5.Text > 100 Then
            MsgBox("Diskon Tidak Berlaku")
        End If
        Exit Sub

    End Sub


Penjelasan:
Pada button1 ini kita menggunakan rumus fungsi Dim dan val. Dimana fungsi Dim digunakan sebagai pemisalan. Dan Val kita gunakan untuk menentukan nilai dari fungsi rumus yang ingin kita ketahui seperti diskon = Val(TextBox5.Text), harga = Val(TextBox3.Text), jumlah = Val(TextBox4.Text), total = Val(TextBox6.Text),
potongan = (harga * jumlah * diskon) / 100, total = ((harga * jumlah) - potongan), TextBox6.Text = total.


DOWNLOAD FILE DISINI!: 

5. Program

DOWNLOAD PROGRAM KALKULATOR:


DOWNLOAD PROGRAM KASIR:




























No comments:

Post a Comment

Subscribe to: Posts (Atom)