ANALISIS LISTING PROGRAM PENJUMLHAN BILANGAN DARI SUATU DERET ANGKA

Public Class Form1

    Dim awal, akhir, sel, jumlah, i As Integer

 (menampilkan variabel jumlah, awal, akhir dan sel hanya dikenal dalam daerah form 1 atau penjabaran dari tipe data yang digunakan dan tipe data numerik berupa bilangan bulat)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

        awal = Val(TextBox1.Text) ) (menunjukkan nilai awal dalam Textbox1 hanya dibaca nilai Numerik)

        akhir = Val(TextBox2.Text) ) (menunjukkan nilai akhir dalam Textbox1 hanya dibaca nilai Numerik)

        sel = Val(TextBox3.Text) ) (menunjukkan nilai sel dalam Textbox1 hanya dibaca nilai Numerik)

        jumlah = 0

        i = awal

        Select Case sel ‘menunjukkan kasus atau variabel untuk setiap input atau penyelesaiannya, select case membuat kode lebih mudah di baca’            

        Case Is > 0 ‘menunjukkan nilai variabel lebh dari 0’

                While i <= akhir

                    jumlah = jumlah + i ‘menunjukkan pada while wend penambahan atau pengurangan nilai dilakukan dengan menggunakan akumulator’

                    i = i + sel ‘menunjukkan pada while wend penambahan atau pengurangan nilai dilakukan dengan menggunakan akumulator’

                End While

‘while wend menunjukkan bentuk pengulangan terkendali dengan proses akan diulang selama kondisi yang diberikan masih dipenuhi,selama i kurang dari sama dengan nilai akhir maka proses akan diulang )

            Case Is < 0 ‘menunjukkan nilai variabel lebh dari 0’

                While i >= akhir

                    jumlah = jumlah + i ‘menunjukkan pada while wend penambahan atau pengurangan nilai dilakukan dengan menggunakan akumulator’

                    i = i + sel ‘menunjukkan pada while wend penambahan atau pengurangan nilai dilakukan dengan menggunakan akumulator’

                End While

‘while wend menunjukkan bentuk pengulangan terkendali dengan proses akan diulang selama kondisi yang diberikan masih dipenuhi,selama i lebih dari sama dengan nilai akhir maka proses akan diulang )

        End Select

‘select case menunjukkan hasil kondisi tertentu jika kondisi tertentu terpenuhi

        Label6.Text = "Dari" & Str(awal) & " " & "sampai" & " " & Str(akhir) & " " & "selisih" & " " & Str(sel) ‘menunjukkan pada label6 muncul kalimat “dari (nilai awal) sampai (nilai akhir) selisih (nilai selisih)”

        Label7.Text = "Hasil : " & Str(jumlah) ‘menunjukkan pada label7 adalah hasil dari perhitungan jumlah bilangan dengan

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close() ‘menunjukkan jika mengklik button 2 maka form akan keluar’

    End Sub

   

End Class

Read More

ANALISIS LISTING PROGRAM PENGHITUNGAN TOTAL BIAYA

Public Class Form1

    Sub harga(ByVal angka As Integer)

        'menunjukkan prosedur dari harga

        Dim hasil As Integer

        'menujukkan tipe data yang digunakan

        hasil = (angka * 10000)

        'menunjukkan perhitungan untuk hasil

        ListBox1.Items.Add("Jika membeli" & " " & angka & " " & "barang maka" & " " & "Rp" & " " & hasil)

        'menunjukkan text dan hasil untuk setiap item pada listbox1

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Integer = 1

        'menunjukkan tipe data yang digunakan adakah integer dan perhitungan data dimulai dari 1

        Do

            Call harga(x)

            'pemanggilan prosedur harga

            x = x + 1

        Loop Until x - 1 = Int(TextBox1.Text)

        'jika mengklik button2 atau total bayar maka secara otomatis akan memanggil prosedur dari harga dan perhitungan dimulai dari penjualan pertama sampai penjualan tertentu yang diinputka

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        ListBox1.Items.Clear()

        'mengosongkan isi inputan pada textbox1 dan hasil perhitungan untuk setiap item pada listbox1

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Close()

        'jika mengklik button4 atau keluar maka form akan ditutup

    End Sub

End Class

Read More

ANALISIS LISTING PROGRAM JUMLAH BILANGAN

Public Class Form1

    Dim Jumlah As Integer

    Dim awal, akhir As Integer

‘menampilkan variabel jumlah, awal, akhir hanya dikenal dalam daerah form 1 atau penjabaran dari tipe data yang digunakan dan tipe data numerik berupa bilangan bulat’

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Jumlah = 0

        awal = Val(TextBox1.Text) ‘menunjukkan nilai awal dalam Textbox1 hanya dibaca nilai Numerik’

       akhir = Val(TextBox2.Text) ‘menunjukkan nilai akhir dalam Textbox1 hanya dibaca nilai Numerik’

Do Until (awal > akhir)

            Jumlah = Jumlah + awal

            awal = awal + 1

        Loop

‘menunjukkan

        MsgBox("jumlah bilangan adalah " & Jumlah, vbOKOnly, "jumlah")

‘menunjukkan message box yang merupakan hasil dari perhitungan jumlah bilangan’

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close() (‘menunjukkan jika mengklik button 2 maka form akan keluar’

    End Sub

  

End Class

Read More

ANALISIS LISTING PROGRAM KONVERSI SUHU

Listing Function konversi suhu

Public Class Form1

   

    Function konversi()

        'menunjukkan function dari konversi

        Dim sngVarTemp As Single

        Dim sngVarKelvin As Single

        Dim sngVarCelcius As Single

        Dim sngVarReamur As Single

        Dim sngVarFahrenheit As Single

        'penjabaran tipe data yang digunakan

        sngVarTemp = CSng(TextBox1.Text)

        'menunjukkan sngVarTemp merupakan variabel pengganti dari data single di textbox 1

        Select Case True

            Case RadioButton1.Checked

                sngVarKelvin = sngVarTemp

                sngVarCelcius = sngVarTemp - 273

                sngVarReamur = (sngVarTemp - 273) * 4 / 5

                sngVarFahrenheit = ((sngVarTemp - 273) * 9 / 5) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat kelvin

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton2.Checked

                sngVarKelvin = sngVarTemp + 273

                sngVarCelcius = sngVarTemp

                sngVarReamur = sngVarTemp * 4 / 5

                sngVarFahrenheit = (sngVarTemp * 9 / 5) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat celcius

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton3.Checked

                sngVarKelvin = (sngVarTemp * 5 / 4) + 273

                sngVarCelcius = sngVarTemp * 5 / 4

                sngVarReamur = sngVarTemp

                sngVarFahrenheit = (sngVarTemp * 9 / 4) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat reamur

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton4.Checked

                sngVarKelvin = ((sngVarTemp - 32) * 5 / 9) + 273

                sngVarCelcius = (sngVarTemp - 32) * 5 / 9

                sngVarReamur = (sngVarTemp - 32) * 4 / 9

                sngVarFahrenheit = sngVarTemp

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat fahrenhait

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

        End Select

        Return True

'menunjukkan fungsi akan dijalankan jika function konversi dipanggil pada listing

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        konversi()

        'memanggil function dari konversi

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        'mengosongkan isi input atau hasil dari textbox1 sampai dengan textbox5

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

        'jika mengklik button3 atau tombol keluar maka form akan ditutup secara otomatis

    End Sub

End Class

Read More