Nothing Special   »   [go: up one dir, main page]
Scribd Logo
Upload

Welcome to Scribd!

  • 38 views

    Program Aplikasi Dan Komputer Aplikasi Dan Coding Program Penjualan Motor

    Uploaded by

    Evan Renaldo
    This document describes a program for a motorcycle sales application coded in Visual Basic 2010. The program allows users to input motorcycle data including type, price, and discount calculations. It connects to a SQL database called "Harga_Motor" to save the data. Radio buttons and combo boxes dynamically update available motorcycle options. Text boxes display and calculate sale price, discount amount, and total price.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Program Aplikasi Dan Komputer Aplikasi Dan Coding Program Penjualan Motor

    Uploaded by

    Evan Renaldo
    38 views4 pages
    This document describes a program for a motorcycle sales application coded in Visual Basic 2010. The program allows users to input motorcycle data including type, price, and discount calculations. It connects to a SQL database called "Harga_Motor" to save the data. Radio buttons and combo boxes dynamically update available motorcycle options. Text boxes display and calculate sale price, discount amount, and total price.

    Original Description:

    Original Title

    222678_TUGAS_SQLVB1(1)[1].docx

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes a program for a motorcycle sales application coded in Visual Basic 2010. The program allows users to input motorcycle data including type, price, and discount calculations. It connects to a SQL database called "Harga_Motor" to save the data. Radio buttons and combo boxes dynamically update available motorcycle options. Text boxes display and calculate sale price, discount amount, and total price.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    38 views4 pages

    Program Aplikasi Dan Komputer Aplikasi Dan Coding Program Penjualan Motor

    Uploaded by

    Evan Renaldo
    This document describes a program for a motorcycle sales application coded in Visual Basic 2010. The program allows users to input motorcycle data including type, price, and discount calculations. It connects to a SQL database called "Harga_Motor" to save the data. Radio buttons and combo boxes dynamically update available motorcycle options. Text boxes display and calculate sale price, discount amount, and total price.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 4

    PROGRAM APLIKASI DAN KOMPUTER

    APLIKASI DAN CODING PROGRAM PENJUALAN MOTOR

    RATRIYA NUR CAHYA


    03021181621003

    JURUSAN TEKNIK PERTAMBANGAN


    FAKULTAS TEKNIK
    UNIVERSITAS SRIWIJAYA
    TAHUN AJARAN 2017/2018
    GAMBAR 1
    TAMPILAN PADA SQL

    GAMBAR 2
    TAMPILAN RUNING PADA VISUAL BASIC 2010
    CODING :

    Imports System.Data
    Imports System.Data.SqlClient
    Public Class Form1
    Public koneksi As String
    Public sql1, sql2 As String
    Public conn As SqlClient.SqlConnection = Nothing
    Public cmd As SqlClient.SqlCommand = Nothing
    Public dtadapter As SqlClient.SqlDataAdapter
    Public dttable As New DataTable
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    Dim o As Double
    Dim f As Integer
    Dim g As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles MyBase.Load
    koneksi = "Data Source=(local);Initial Catalog= Harga_Motor;Integrated
    Security=True"
    conn = New SqlClient.SqlConnection(koneksi)
    conn.Open()
    End Sub
    Sub simpan()
    sql1 = "insert into moto values ('" & Me.TextBox1.Text & "','" &
    Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.RadioButton1.Text & "' ,'" &
    Me.RadioButton2.Text & "','" & Me.ComboBox1.Text & "')"
    cmd = New SqlClient.SqlCommand(sql1)
    cmd.Connection = conn
    cmd.ExecuteNonQuery()
    End Sub
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles RadioButton1.CheckedChanged
    If ComboBox1.Items.Add("Mega Pro") And ComboBox1.Items.Add("Tiger") Then
    ComboBox1.Items.Remove("Supra Fit")
    ComboBox1.Items.Remove("Supra X")
    End If
    End Sub
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles RadioButton2.CheckedChanged
    ComboBox1.Items.Clear()
    ComboBox1.Items.Add("Supra Fit")
    ComboBox1.Items.Add("Supra X")
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e
    As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.Text = "Mega Pro" Then
    a = "26.000.000"
    TextBox5.Text = a
    End If
    If ComboBox1.Text = "Tiger" Then
    b = "24.000.000"
    TextBox5.Text = b
    End If
    If ComboBox1.Text = "Supra Fit" Then
    c = "10.000.000"
    TextBox5.Text = c
    End If
    If ComboBox1.Text = "Supra X" Then
    d = "15.000.000"
    TextBox5.Text = d
    End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox7.Text = ""
    TextBox8.Text = ""
    TextBox9.Text = ""
    ComboBox1.Text = ""
    End Sub
    Private Sub TextBox6_click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles TextBox6.Click
    TextBox6.Text = o
    o = (5 / 100) * Val(TextBox5.Text)
    End Sub
    Private Sub TextBox7_click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles TextBox7.Click
    TextBox7.Text = Val(TextBox5.Text) - o
    End Sub
    Private Sub TextBox8_click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles TextBox8.Click
    TextBox8.Text = f
    f = 0.1 * Val(TextBox5.Text)
    End Sub
    Private Sub TextBox9_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Handles TextBox9.Click
    TextBox9.Text = g
    g = f + Val(TextBox7.Text)
    End Sub
    Private Sub TextBox1_click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles TextBox1.Click
    If TextBox1.Text = "" Then MsgBox("Kode Tidak Boleh Kosong")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button2.Click
    Me.Close()
    End Sub
    End Class

    You might also like