Rumus program sederhana visual basic 6 Harga menu cafe

Konten [Tampil]

 

Visual basic atau biasa di sebut dengan vb 6 (visual basic versi 6) merupakan sebuah software bahasa pemograman. 

yang digunakan untuk merancang berbagai macam sistem dan juga membangun aplikasi.

Visual basic microsoft

Software yang dikembangkan oleh microsoft ini biasa nya digunakan pada windows. 

Dan menjadi software andalan bagi para programmer pemula, untuk mempelajari dasar – dasar bahasa pemograman.

Karena penggunaan nya cukup mudah dan memiliki konektivitas database yang tinggi. 

Tak heran meskipun visual basic ini sudah digunakan sejak lama, namun sampai saat ini masih banyak yang menggunakan nya, terutama programmer.

Beberapa kampus swasta pun masih banyak yang menggunakan visual basic ini, sebagai program yang dapat membantu pekerjaan staff nya. 

Contoh nya seperti pengecekan nomor NIM dan pembuatan data data lain nya. 

Kemudahan Visual Basic di bandingkan dengan yang lainnya

Visual basic ini populer dan banyak yang menggunakan nya. Karena kemudahan dari desain visual dan komponen yang di buat. Salah satu nya adalah desain form. Selain menggunakan coding. 

Desain form akan membantu kamu lebih mudah untuk membuat system dengan visual basic, seperti pembuatan tombol, kolom, dan text.  

Perpaduan antara coding dan form inilah yang membuat visual basic mudah untuk digunakan.

3 contoh program visual basic dasar sederhana untuk latihan

berikut contoh program visual basic 6.0 penjualan barang dan harga menu cafe sederhana, yang bisa kamu gunakan untuk latihan belajar microsoft visual basic.

1.  jumlah harga menu

contoh program sederhana untuk penjumlahan harga makanan dan minuman, pada sebuah cafe. Total harga sesuai dengan jumlah harga menu yang di pilih.

Berikut rumus form nya

Private Sub CMDOK_Click()

If Check1.Value = 1 Then

    A = 9000

    Else

    A = 0

End If

If Check2.Value = 1 Then

    B = 10000

    Else

    B = 0

End If

If Check3.Value = 1 Then

    C = 7000

    Else

    C = 0

End If

If Check4.Value = 1 Then

    D = 8000

    Else

    D = 0

End If

If Check5.Value = 1 Then

    E = 15000

    Else

    E = 0

End If

If Check6.Value = 1 Then

    F = 5000

    Else

    F = 0

End If

If Check7.Value = 1 Then

    G = 7000

    Else

    G = 0

End If

If Check8.Value = 1 Then

    H = 8000

    Else

    H = 0

End If

If Check9.Value = 1 Then

    I = 7000

    Else

    I = 0

End If

If Check10.Value = 1 Then

    J = 5000

    Else

    J = 0

End If

Text1 = (A + B + C + D + E + F + G + H + I + J)

End Sub

2. service produk

Program ini digunakan untuk memasukan data produk berdasarkan nama, kode, harga, untuk disimpan menjadi sebuah data dan juga bisa menghapus nya.

Berikut rumus form nya :

Option Explicit

Dim KoneksiADO As New ADODB.Connection

Dim rsADO As New ADODB.Recordset

Dim ScriptSQL As String

Private Sub Command1_Click()

ScriptSQL = Text1.Text

Set rsADO = KoneksiADO.Execute(ScriptSQL)

Set DataGrid1.DataSource = rsADO.DataSource

End Sub

Private Sub Form_Load()

Set KoneksiADO = New Connection

KoneksiADO.CursorLocation = adUseClient

KoneksiADO.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\produk.mdb;"

ScriptSQL = "SELECT * FROM produk"

Set rsADO = KoneksiADO.Execute(ScriptSQL)

Set DataGrid1.DataSource = rsADO.DataSource

End Sub

Private Sub CmdRun_Click()

Script.SQL = Text1.Text

KoneksiADO.Execute ScriptSQL

rsADO.Requery

End Sub

Private Sub cmdsimpan_Click()

ScriptSQL = "insert into produk(kodeproduk,nama,harga)values('" & Txtkodeproduk & "','" & Txtnama & "','" & Txtharga & "')"

KoneksiADO.Execute ScriptSQL

rsADO.Requery 'grid refresh

End Sub

Private Sub cmdhapus_Click()

ScriptSQL = " delete from produk where nama='" & Txthapus & "'"

KoneksiADO.Execute ScriptSQL

rsADO.Requery 'grid refresh

End Sub

3. kuiz sederhana

Program sederhana kuis menebak nama ibu kota, dan berikut rumus form nya :

Private Sub CMDOK_Click()

If Option1.Value = True Then

Tket.Text = "PEKANBARU"

End If

If Option2.Value = True Then

Tket.Text = "PADANG"

End If

If Option3.Value = True Then

Tket.Text = "MEDAN"

End If

If Option4.Value = True Then

Tket.Text = "BANDUNG"

End If

End Sub

Kesimpulan

itulah 3 rumus visual basic sederhana yang bisa kamu coba untuk memulai belajar bahasa pemograman. semoga bermanfaat.

Klik Spasi Hi, Aku Masboy, Suka Menulis Berbagai Macam Tutorial seputar Dunia Tekno

Share :