Ini Visual Basic

Assalamualaikum.Wr.Wb
Disini gw bakal ngasih tau hasil dari kerjaan gw tentang visual basic

Ini hasil fotonya
Dan codingan dari gambar diatas ada dibawah sini

>Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Paket 1" Then
            TextBox1.Text = "Nasi+Ayam Jibu"
            TextBox2.Text = "10000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        ElseIf ComboBox1.Text = "Paket 2" Then
            TextBox1.Text = "Nasi+DagingBawang"
            TextBox2.Text = "20000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        ElseIf ComboBox1.Text = "Paket 3" Then
            TextBox1.Text = "Nasi+Bebek"
            TextBox2.Text = "15000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
      
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        TextBox6.Text = Val(TextBox5.Text) - Val(TextBox4.Text)
    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        If TextBox4.Text > 500000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(10 / 100)
            TextBox8.Text = "Jalan jalan ke rumah nanas"

        ElseIf TextBox4.Text > 200000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(5 / 100)
            TextBox8.Text = "Jalan jalan ke rumah apel"

        ElseIf TextBox4.Text > 50000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(5 / 100)
            TextBox8.Text = "Jalan jalan ke rumah yusnun"
        End If
    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(1)
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(0).Value = ComboBox1.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(1).Value = ComboBox2.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(2).Value = TextBox1.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(3).Value = TextBox2.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(4).Value = TextBox3.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(5).Value = TextBox4.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(6).Value = TextBox7.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(7).Value = TextBox5.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(8).Value = TextBox6.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(9).Value = TextBox8.Text
        DataGridView1.Update()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox7.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
    End Sub
End Class


Komentar

Posting Komentar

Postingan populer dari blog ini

Contoh Simulasi Berbasis Software PowerSIm oleh valent

Contoh Simulasi Berbasis Software PowerSIm Simulasi model menjadi esensial dalam memahami perilaku suatu model yang telah dibangun. Ada beragam perangkat lunak yang dapat digunakan untuk tujuan ini, dan di antaranya adalah Vensim, Dynamo, Ithink, Stella, dan Powersim. Powersim, khususnya, menonjol dalam pembangunan dan simulasi model dinamik. Model dinamik dalam Powersim merupakan kumpulan variabel yang saling memengaruhi sepanjang waktu. Setiap variabel merepresentasikan besaran nyata atau dibuat sendiri, dengan nilai numerik yang sudah terkait erat dengan dirinya sendiri. Ketika model disimulasikan, variabel-variabel ini saling terhubung membentuk sistem yang mampu menirukan kondisi sebenarnya dengan baik. Powersim menggunakan stock flow diagram untuk menggambarkan hubungan antara variabel-variabel tersebut. Stock, dalam hal ini, mengumpulkan dan merepresentasikan karakteristik keadaan sistem, menjadi dasar pembangkit informasi yang mendasari pengambilan keputusan. Dengan dipadukanny...
Baca selengkapnya

Studi Simulasi dan Pemodelan Dalam Sebuah Sistem Oleh Valent

Proses simulasi adalah suatu metode penting untuk menganalisis sistem kompleks dengan elemen stokastik. Simulasi memungkinkan kita untuk mengestimasi kinerja sistem dalam berbagai kondisi operasi. Ini juga memungkinkan perbandingan antara desain sistem alternatif untuk menentukan yang terbaik. Simulasi memberikan kontrol yang lebih baik terhadap kondisi eksperimen dan memungkinkan studi sistem dalam kerangka waktu yang lebih singkat. Namun, perlu diingat bahwa setiap percobaan simulasi hanya memberikan estimasi karakteristik sistem, dan model analitik sering lebih valid daripada model simulasi. Selain itu, pengembangan model simulasi bisa mahal dan memakan waktu, dan output besar yang dihasilkan dari simulasi tidak selalu menjamin kevalidan modelnya. Untuk mencapai keberhasilan dalam simulasi, beberapa langkah kunci harus diikuti. Langkah pertama adalah merumuskan masalah dengan jelas. Ini melibatkan identifikasi masalah yang akan diselesaikan, deskripsi operasi sistem dalam terminolog...
Baca selengkapnya

RUANG LINGKUP SIMULASI DAN PEMODELAN oleh Valent Destra Pasha

Gambar
RUANG LINGKUP SIMULASI DAN PEMODELAN Simulasi merupakan teknik yang digunakan untuk menirukan atau memodelkan berbagai macam proses atau fasilitas dari dunia nyata. Dalam konteks keilmuan, simulasi digunakan untuk membuat asumsi-asumsi tentang bagaimana sistem tersebut beroperasi. Asumsi-asumsi ini sering berbentuk hubungan matematik atau logika yang membentuk model yang membantu kita memahami perilaku sistem. Dalam beberapa kasus, hubungan yang membentuk model cukup sederhana sehingga dapat dipecahkan secara analitik menggunakan metode matematik seperti aljabar, kalkulus, atau teori probabilitas. Namun, ketika sistem menjadi terlalu kompleks untuk dievaluasi secara analitik, simulasi menjadi pilihan yang sangat berguna. Simulasi melibatkan penggunaan komputer untuk mengevaluasi model numerik, dengan data digunakan untuk mengestimasi karakteristik yang diharapkan dari model tersebut. Aplikasi simulasi sangat luas, mencakup berbagai bidang seperti perancangan sistem manufaktur, evaluasi...
Baca selengkapnya