Bermain Viusal Basic 6.0 - Membuat Cash Register Sederhana Restoran

Hallo teman - teman cyber setelah hampir vakum satu tahun tidak tidak menulis lagi di blog saya, rasanya kangen banget...ya malum lah sibuk ini itu lihat dulu so tahu lo laga lu tu muke mu jauh...he..he jadi nyanyi..! Saya mau berbagi neh cara bermain VB ( Visual Basic ) sederhana..lumayan lah daripada tidak belajar sama sekali..!







Langsung aja ya..tampilannya seperti ini :

 Nah sebagai name TextBox nya kamu lihat saja di gambar dan ini nama buat :
Cheklist : ayam, nasgor, gurame, cumi :

ComanButtton : Tanpa Minuman = cmdnone, input | reset = cmdinput, hitung = cmdcount, keluar = cmdexit.

Untuk source kodenya kamu lihat saja di bawah ini :

Dim hrg_hayam As Currency
Dim hrg_hnasgor As Currency
Dim hrg_hgurame As Currency
Dim hrg_hcumi As Currency

Private Sub cmdnone_Click()
    hminum.Text = ""
End Sub

Private Sub Form_Load()
    lminum.AddItem (" Jus Alpukat ")
    lminum.AddItem (" Jus Strobery ")
    lminum.AddItem (" Lemin Squash ")
    lminum.AddItem (" Moca Float ")
End Sub

Sub aktif()
nopesan.Enabled = True
nama.Enabled = True
ayam.Enabled = True
nasgor.Enabled = True
gurame.Enabled = True
cumi.Enabled = True
hayam.Enabled = True
hnasgor.Enabled = True
hgurame.Enabled = True
hcumi.Enabled = True
hmakan.Enabled = True
lminum.Enabled = True
hminum.Enabled = True
total.Enabled = True
bayar.Enabled = True
kembali.Enabled = True
End Sub

Sub mati()
nopesan.Enabled = False
nama.Enabled = False
ayam.Enabled = False
nasgor.Enabled = False
gurame.Enabled = False
cumi.Enabled = False
hayam.Enabled = False
hnasgor.Enabled = False
hgurame.Enabled = False
hcumi.Enabled = False
hmakan.Enabled = False
lminum.Enabled = False
hminum.Enabled = False
total.Enabled = False
bayar.Enabled = False
kembali.Enabled = False
End Sub

Sub kosong()
    nopesan.Text = ""
    nama.Text = ""
    ayam.Value = 0
    nasgor.Value = 0
    gurame.Value = 0
    cumi.Value = 0
    hayam.Text = ""
    hnasgor.Text = ""
    hgurame.Text = ""
    hcumi.Text = ""
    hmakan.Text = ""
    lminum.Text = ""
    hminum.Text = ""
    total.Text = ""
    bayar.Text = ""
    kembali.Text = ""
End Sub

Private Sub Form_Activate()
    mati
    cmdinput.SetFocus
End Sub

Private Sub cmdinput_Click()
    kosong
    aktif
    nopesan.SetFocus
End Sub

Private Sub ayam_Click()
If ayam.Value = 1 Then
    hrg_ayam = 9000
Else
    hrg_ayam = 0
End If
    hayam.Text = hrg_ayam
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub nasgor_Click()
If nasgor.Value = 1 Then
    hrg_nasgor = 8000
Else
    hrg_nasgor = 0
End If
    hnasgor.Text = hrg_nasgor
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub gurame_Click()
If gurame.Value = 1 Then
    hrg_gurame = 35000
Else
    hrg_gurame = 0
End If
    hgurame.Text = hrg_gurame
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub cumi_Click()
If cumi.Value = 1 Then
    hrg_cumi = 15000
Else
    hrg_cumi = 0
End If
    hcumi.Text = hrg_cumi
    hmakan.Text = hrg_ayam + hrg_nasgor + hrg_gurame + hrg_cumi
End Sub

Private Sub lminum_Click()
Select Case lminum.ListIndex
    Case 0
        hminum.Text = 5000
    Case 1
        hminum.Text = 5000
    Case 2
        hminum.Text = 5500
    Case 3
        hminum.Text = 6000
    End Select
End Sub

Private Sub cmdcount_Click()
    total.Text = Val(hmakan.Text) + Val(hminum)
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub
Private Sub bayar_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        kembali.Text = Val(bayar.Text) - Val(total.Text)
    End If
End Sub


Atau kamu bisa Downloads Hasilnya Di Sini

Koneksi Formulir PHP Ke MySQL

Saya sedikit memberikan gambaran bagaimana mengelola file database dengan menggunakan PHP, HTML dan JavaScript. Sebenarnya metode ini paling mudah dan tidak membutuhkan spesifik khusus karena dalam sebuah formulir apalagi diperuntukan bagi pekerjaan yang system online maka diperlukan sebuah pengamanan yang di sebut recaptcha sehinggan mengurangi resiko spam write karena spam tidak bisa membaca dan menghitung sebuah karakter


contoh :
Kita memasukan sebuah data ke database MySQL seperti dibawah ini :

Nama
Alamat
Kota

nah di atas adalah bentuk from nya source nya ibawah ini simpan dengan nama apa saja contoh index.htm :

<html>
<head>
<title>Pemasukan Data</title>
<script type="text/javascript">
function cek_data()
{
   if (formprib.text_nama.value=="")
   {
      alert("Nama tidak boleh kosong");
      formprib.text_nama.focus()
      return false
   }

   if (formprib.text_alamat.value=="")
   {
      alert("alamat tidak boleh kosong");
      formprib.text_alamat.focus()
      return false
   }
  
   if (formprib.text_kota.value=="")
   {
      alert("Kota tidak boleh kosong");
      formprib.text_kota.focus()
      return false
   }
  
   return true
}
</script>
</head>
<body>
<center>
<form action="prosprib.php" method="post" name="formprib"
      onsubmit="return cek_data()">
<h1>Data Pribadi</h1>
    <table width="90%" border="0">
      <tr bgcolor="#99CCFF">
        <td width="13%">Nama</td>
        <td width="87%">
          <input name="text_nama" type="text" size="35" maxlength="35">
        </td>
      </tr>
      <tr bgcolor="#99CCFF">
        <td>Alamat</td>
        <td>
          <input name="text_alamat" type="text" size="60" maxlength="60">
        </td>
      </tr>
      <tr bgcolor="#99CCFF">
        <td>Kota</td>
        <td>
          <input name="text_kota" type="text" size="20" maxlength="20">
        </td>
      </tr>
      <tr bgcolor="#99CCFF">
        <td colspan="2" align="right">
          <input name="tombol_simpan" type="submit" value="Simpan">
        </td>
      </tr>
    </table>
</form>
</center>
</body>
</html>

Kemudian setelah membuat index.htm maka selanjutnya kita membuat file PHP sebagai kurir untuk mengantarkan Values ( isi ) ke database dan beri nama prosprib.php :

<?php
     if ($_POST["buttonsimpan"] == "Simpan")
     {
        // Berarti tombol Simpan diklik
       
        // Ambil data yang dilewatkan skrip
        $text_nama = $_POST['nama'];    
        $text_alamat = $_POST['alamat'];    
        $text_kota = $_POST['kota'];    
        
        // Proses MySQL
        $server = "127.0.0.1"; // nama server
        $pemakai = "userphp"; // nama pemakai MySQL biasanya root
        $password = "php123"; // Pasword dari pemakai MySQL biasanya kosong

        $id_mysql = mysql_connect($server, $pemakai, $password);
        $db_personalia = mysql_select_db("personalia", $id_mysql);
   
        $sql = "INSERT INTO karyawan " .
               "(nama, alamat, kota, ) " .
               "VALUES('$text_nama', '$text_alamat', '$text_kota')";
        $hasil = mysql_query($sql, $id_mysql);
        if (empty($hasil))
           print("Gagal menyimpan data nama='$text_nama'");
        else
           print("Data nip='$text_nama' telah disimpan");  
           mysql_close($id_mysql);
     }
  ?>