3 MOBIL TERCEPAT DI DUNIA

1. Bugatti Veyron Super Sport

Bugatti Veyron Super Sport

 Bugatti Veyron 16.4 (juga dikenal sebagai EB 16/4 Veyron) adalah sebuah mobil terkuat di dunia.  Mobil ini dibuat oleh anak perusahaan Volkswagen AG, Bugatti Automobiles SAS di pabriknya di Molsheim, Perancis, dan dijual engan merek Bugatti. Nama mobil ini diambil dari nama seorang pembalap dari Perancis, Pierre Veyron yang berhasil memenangkan 24 hours of Le Mans pada 1939 sebagai pembalap yang mewakili perusahaan Bugatti. Menurut Top Gear, mobil ini dibuat Perusahaan untuk eksperimen bahwa kecepatan mobil 100 kmj dapat ditempuh dibawah 3 detik. Dibuat secara terbatas dan memang tidak ditujukan untuk komersil, sehingga Anda jangan heran jika perusahaan asuransi tidak berani menjamin.
Kecepatan Bugatti Veyron Super Sport ini bisa mencapai hingga 431 km/jam. Veyron Super Sport juga mampu menembus kecepatan 0-60 dalam waktu hanya 2,5 detik saja. Mobil ini memiliki tenaga mesin 8.000 cc W16 guad turbocharged dan mencapai hingga 1.200 daya kuda serta torsi 1.500 Nm. Bugatti Veyron Super Sport sendiri dibandrol seharga sekitar US$ 1.700.000. Bugatti Veyron Super Sport 16,4 berhasil masuk Guinness Book of Record atau GBR karena berhasil menembus kecepatan tertinggi lebih dari 430 km/jam. Rekor diukir di trek Ehra-Lessien Group Volkswagen, dekat Wolfsburg, Jerman, akhir pekan lalu.
2. Koenigsegg Agera R

Koenigsegg Agera

Koenigsegg Agera R merupakan saingan dari Bugatti Veyron Super Sport dalam urusan kecepatan. Mobil ini bisa menembus kecepatan 0-60 dalam waktu 2,8 detik dengan kecepatan maksimal mencapai 418,43 km/jam. Koenigsegg Agera R memiliki mesin 5.0-liter V8 Engine yang menghasilkan 1099 tenaga kuda. Di pasaran, mobil ini memiliki harga di kisaran US$ 1.600.000. Pihak perusahaan membatasi kecepatan mobil ini hanya diperbolehkan mempergunakan kecepatan yaitu 378km/jam saja.
Koenigsegg Agera merupakan mobil sport mid-engined dari produsen mobil Swedia Koenigsegg. Agera hadir sebagai pengganti serie CCX yang tahun lalu   sempat menempati posisi sebagai salah satu mobil termahal.    Koenigsegg Agera R, diklaim lebih baik dari Ferrari LaFerrari dan McLaren P1. Hal ini didorong dengan fakta-fakta tentang kekuatan dan kecepatan Agera R yang lebih baik dari LaFerrari dan McLaren P1. Bobot dari dari Agera R juga lebih ringan dibanding dua supercar tersebut berkat penggunaan serat karbon terbaru. Koenigsegg Agera R dipersenjatai mesin V8 berkapasitas 5,0 liter twin turbo. Mesin tersebut mampu menghasilkan total output mencapai 1.115 tenaga kuda dengan torsi maksimal 885 lb-ft.
3. SSC Ultimate Aero

SSC Ultimate Aero

SSC Ultimate Aero merupakan mobil tercepat ketiga di dunia. Mobil ini bisa mencapai kecepatan maksimal 413,6 km/jam dengan kemampuan menembus kecepatan 0-60 dalam waktu 2,7 detik. SSC Ultimate Aero memiliki mesin twin-turbo V8 Engine dengan 1183 tenaga kuda. Harganya di pasaran adalah sekitar US$ 654,400  (Rp6,3 miliar).
SSC Ultimate Aero adalah mobil ciptaaan perusahaan supercar asal Amerika Shelby SuperCars. Tercatat terdapat 24 unit dalam produksi saat ini. SSC Ultimate Aero sangat dikenal dalam kecepatan, bahkan mobil sport keren ini membukukan rekor dan dicatat oleh Guinness World Book sebagai yang tercepat pada tahun 2007 sampai juli 2010 dengan kecepatan maksimal mobil ini mencapai 257 mph atau sekitar 414 km per jam.

http://puncakdunia.com/3-mobil-tercepat-di-dunia.php

SISTEM INFORMASI DATA BARANG

1.       Tampilan Form Menu

Public Class Form1

    Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBarangToolStripMenuItem.Click

        barang.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

 2.Tampilan Form Input

Imports MySql.Data.MySqlClient

Public Class barang

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=barang3"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kodebarang.Text = ""

        namabarang.Text = ""

        jenis.Text = ""

        stok.Text = ""

        harga.Text = ""

        rubahbutton(True, False, False, False, True)

        kodebarang.Enabled = True

    End Sub

    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        btnbaru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn3

        btnbatal.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattable()

        lv.Columns.Add("kode_barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama_barang", 180, HorizontalAlignment.Left)

        lv.Columns.Add("jenis", 80, HorizontalAlignment.Left)

        lv.Columns.Add("stok", 100, HorizontalAlignment.Left)

        lv.Columns.Add("harga", 100, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub isitable()

        lv.Items.Clear()

        sql = "select * from barang"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_barang")

                lst.SubItems.Add(rs("Nama_barang"))

                lst.SubItems.Add(rs("Jenis"))

                lst.SubItems.Add(rs("stok"))

                lst.SubItems.Add(rs("harga"))

                lv.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into barang values(kdoe_barang,nama_barang,jenis,stok,harga)" & _

                "values('" & kodebarang.Text & _

                "','" & namabarang.Text & _

                "','" & jenis.Text & _

                "','" & stok.Text & _

                "','" & harga.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update barang set nama_barang='" & namabarang.Text & "'," & _

                "jenis='" & jenis.Text & "'," & _

                "stok='" & stok.Text & "' " & _

                "harga='" & harga.Text & "' " & _

                "where kode_barang='" & kodebarang.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from barang where kode_barang='" & kodebarang.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")

            Call bersih()

            Call isitable()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kodebarang.Text = rs("kode_barang")

        namabarang.Text = rs("Nama_barang")

        jenis.Text = rs("jenis")

        stok.Text = rs("stok")

        harga.Text = rs("harga")

        rubahbutton(False, True, True, True, False)

        btnsimpan.text = "edit"

        kodebarang.Enabled = False

    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call bersih()

        Call buattable()

        Call isitable()

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call bersih()

        kodebarang.Focus()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call bersih()

        kodebarang.Focus()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.text = "simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub kodebarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodebarang.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kodebarang.Text = "" Then

                MsgBox("isi kode terlebih dahulu")

            Else

                sql = "select * from barang where kode_barang='" & kodebarang.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kodebarang.Text

                    bersih()

                    kodebarang.Text = x

                    rubahbutton(False, True, False, True, False)

                    btnsimpan.Text = "simpan"

                End Try

                namabarang.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class

3.Tampilan Form Input

Demikian Lah hasil postingan saya.

Nama : BINSAR MULIADI SIAGIAN

Npm  : 1102013