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);
     }
  ?>

PHP Dengan MySQL

He..he setelah sekian lama absen memposting..kangen juga neh..pengen berbagi dengan kalian semua yang merasa masih belajar sama seperti saya. Sengaja kali ini saya mengambil topik PHP dan MySQL.
kenapa harus PHP dan MySQL ? jawabanya adalah tuntutan jaman betul ? karena kenapa ? php dan MySQL selalu berdampingan mesra seperti halnya anda dengan pacar atau pasangan anda lengket gitchu..!

Menurut Wikipedia PHP & MySQL itu adalah :

Pada awalnya PHP merupakan kependekan dari Personal Home Page (Situs Personal). PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.
Selanjutnya Rasmus merilis kode sumber tersebut untuk umum dan menamakannya PHP/FI. Dengan perilisan kode sumber ini menjadi open source, maka banyak programmer yang tertarik untuk ikut mengembangkan PHP.

Pada November 1997, dirilis PHP/FI 2.0. Pada rilis ini interpreter PHP sudah diimplementasikan dalam program C. Dalam rilis ini disertakan juga modul-modul ekstensi yang meningkatkan kemampuan PHP/FI secara signifikan. Pada tahun 1997, sebuah perusahaan bernama Zend menulis ulang interpreter PHP menjadi lebih bersih, lebih baik, dan lebih cepat. Kemudian pada Juni 1998, perusahaan tersebut merilis interpreter baru untuk PHP dan meresmikan rilis tersebut sebagai PHP 3.0 dan singkatan PHP dirubah menjadi akronim berulang PHP: Hypertext Preprocessing.

Pada pertengahan tahun 1999, Zend merilis interpreter PHP baru dan rilis tersebut dikenal dengan PHP 4.0. PHP 4.0 adalah versi PHP yang paling banyak dipakai pada awal abad ke-21. Versi ini banyak dipakai disebabkan kemampuannya untuk membangun aplikasi web kompleks tetapi tetap memiliki kecepatan dan stabilitas yang tinggi. Pada Juni 2004, Zend merilis PHP 5.0. Dalam versi ini, inti dari interpreter PHP mengalami perubahan besar. Versi ini juga memasukkan model pemrograman berorientasi objek ke dalam PHP untuk menjawab perkembangan bahasa pemrograman ke arah paradigma berorientasi objek.

Kelebihan PHP dari bahasa pemrograman lain

  • Bahasa pemrograman PHP adalah sebuah bahasa script yang tidak melakukan sebuah kompilasi dalam penggunaanya.
  • Web Server yang mendukung PHP dapat ditemukan dimana - mana dari mulai apache, IIS, Lighttpd, nginx, hingga Xitami dengan konfigurasi yang relatif mudah.
  • Dalam sisi pengembangan lebih mudah, karena banyaknya milis - milis dan developer yang siap membantu dalam pengembangan.
  • Dalam sisi pemahamanan, PHP adalah bahasa scripting yang paling mudah karena memiliki referensi yang banyak.
  • PHP adalah bahasa open source yang dapat digunakan di berbagai mesin (Linux, Unix, Macintosh, Windows) dan dapat dijalankan secara runtime melalui console serta juga dapat menjalankan perintah-perintah system.
MySQL adalah sebuah perangkat lunak sistem manajemen basis data SQL (bahasa Inggris: database management system) atau DBMS yang multithread, multi-user, dengan sekitar 6 juta instalasi di seluruh dunia. MySQL AB membuat MySQL tersedia sebagai perangkat lunak gratis dibawah lisensi GNU General Public License (GPL), tetapi mereka juga menjual dibawah lisensi komersial untuk kasus-kasus dimana penggunaannya tidak cocok dengan penggunaan GPL.

Tidak sama dengan proyek-proyek seperti Apache, dimana perangkat lunak dikembangkan oleh komunitas umum, dan hak cipta untuk kode sumber dimiliki oleh penulisnya masing-masing, MySQL dimiliki dan disponsori oleh sebuah perusahaan komersial Swedia MySQL AB, dimana memegang hak cipta hampir atas semua kode sumbernya. Kedua orang Swedia dan satu orang Finlandia yang mendirikan MySQL AB adalah: David Axmark, Allan Larsson, dan Michael "Monty" Widenius.

Keistimewaan MySQL

MySQL memiliki beberapa keistimewaan, antara lain :
  1. Portabilitas. MySQL dapat berjalan stabil pada berbagai sistem operasi seperti Windows, Linux, FreeBSD, Mac Os X Server, Solaris, Amiga, dan masih banyak lagi.
  2. Perangkat lunak sumber terbuka. MySQL didistribusikan sebagai perangkat lunak sumber terbuka, dibawah lisensi GPL sehingga dapat digunakan secara gratis.
  3. Multi-user. MySQL dapat digunakan oleh beberapa pengguna dalam waktu yang bersamaan tanpa mengalami masalah atau konflik.
  4. 'Performance tuning', MySQL memiliki kecepatan yang menakjubkan dalam menangani query sederhana, dengan kata lain dapat memproses lebih banyak SQL per satuan waktu.
  5. Ragam tipe data. MySQL memiliki ragam tipe data yang sangat kaya, seperti signed / unsigned integer, float, double, char, text, date, timestamp, dan lain-lain.
  6. Perintah dan Fungsi. MySQL memiliki operator dan fungsi secara penuh yang mendukung perintah Select dan Where dalam perintah (query).
  7. Keamanan. MySQL memiliki beberapa lapisan keamanan seperti level subnetmask, nama host, dan izin akses user dengan sistem perizinan yang mendetail serta sandi terenkripsi.
  8. Skalabilitas dan Pembatasan. MySQL mampu menangani basis data dalam skala besar, dengan jumlah rekaman (records) lebih dari 50 juta dan 60 ribu tabel serta 5 milyar baris. Selain itu batas indeks yang dapat ditampung mencapai 32 indeks pada tiap tabelnya.
  9. Konektivitas. MySQL dapat melakukan koneksi dengan klien menggunakan protokol TCP/IP, Unix soket (UNIX), atau Named Pipes (NT).
  10. Lokalisasi. MySQL dapat mendeteksi pesan kesalahan pada klien dengan menggunakan lebih dari dua puluh bahasa. Meski pun demikian, bahasa Indonesia belum termasuk di dalamnya.
  11. Antar Muka. MySQL memiliki antar muka (interface) terhadap berbagai aplikasi dan bahasa pemrograman dengan menggunakan fungsi API (Application Programming Interface).
  12. Klien dan Peralatan. MySQL dilengkapi dengan berbagai peralatan (tool)yang dapat digunakan untuk administrasi basis data, dan pada setiap peralatan yang ada disertakan petunjuk online.
  13. Struktur tabel. MySQL memiliki struktur tabel yang lebih fleksibel dalam menangani ALTER TABLE, dibandingkan basis data lainnya semacam PostgreSQL ataupun Oracle.

Asyiknya Bermain MySQL Console

Anda seorang master databases ? saya mau belajar dong..he..he biar lebih ngerti lagi...! Dalam postingku ini saya mau berbagi buat temen temen yang sedang belajar Sintax SQL menggunakan MySQL dan butuh referensi buata mempertajam pelajarannya silahkan simak. Kita akan membahas mengenai cara membuat database dan mengisi dan memodifikasi database yang akan kita buat plus menampilkan hasil database yang sudah berisi data dengan menggunakan sedikit rumus dalam relasi antar tabel.

Dalam menggunakan aplikasi MySQL anda bebas menggunakan Pack Server apa saja mau XAMPP, WAMP, PHP2TRIAD de sebe deh. Pada intinya sama saja. Oke kita mulai ya..pertama tama harus ada soal terlebih dahulu sebagai berikut :
1.   Buat Database dengan nama Omy ! (He..he bebas kok mau nama apa saja )
      create database nama_database;   // kali ini kita membuat database dengan nama omy
2.  Pastikan database yang kita buat sudah tertera
      show databases;
3.   Pergunakan database omy sebagai folder kerja kita :
      use nama_database; // kita pakai database omy
4.   Buat tabel dengan nama :
  Barang :     
Field
Tipe Data
Size
Kd_barang (Pramary key)
Char
3
Nm_barang
Char
20
Harga
int


  Pelanggan :

Field
Tipe Data
Size
Kd_pelanggan (Pramary key)
Char
4
Nm_pelanggan
Char
20
Alamat
Char
30
Telp
Char
12
 
  Transaksi :

Field
Tipe Data
Size
No_transaksi (Pramary key)
Char
4
Kd_barang
Char
3
Kd_pelanggan
Char
4
Jml_beli
Int

    create table barang (nama_field tipe_data(size),...dst);

5   Isi tabel masing masing dengan isian berikut :
   Barang :

kd_barang
nm_barang
harga
111
Beras
5000
112
Terigu
3500
113
Minyak Goreng
9500

  Pelanggan :

kd_pelanggan
nm_pelanggan
alamat
telp
1109
Miftah
Jl. Rambutan
0210001515
1208
Lean
Jl. Belimbing
0215646446
1310
Faisal
Jl. Pepaya
0813215454

  Transaksi :

no_transaksi
kd_barang
kd_pelanggan
Jml_beli
0001
111
1109
10
0002
112
1208
5
0003
113
1310
40

    insert into nama_tabel values ("isi kolom"); // pisahkan dengan koma tiap insert satu baris

6.   Buat Query dengan tampilan seperti berikut :




 7.   Ketentuan Query :
       - jml_bayar  = harga x jml_beli
       - diskon       = Jika jml_beli lebih dari 2, maka mendapat diskon sebesar 20 % dari jml_bayar. selain nol
       - total          = jml-bayar - diskon

Ok sampe dengan soal ini pasti siapa pun yang sudah ahli alam query mastering SQL rada mikir agak lama..he..apa lagi saya..huh..bener pisan lemot he..he..! tapi jangan hawatir karena dengan kita semangat dan tenang pasti gampang kok..he..he! Yang anda perlukan adalah : bagaimana anda berimajinasi dengan apa yanag anda suka suatu contoh : tabel di atas adalah pohon maka field atau kolomya adalah daunya dengan logika tidak ada daun kalau gak ada pohon betul ?nah soal tampilan di atas sama .
Kita mulai dengan pemetaan tabel yang ada di soal query :


Field
Tabel
No_transaksi
Transaksi
Kd_pelanggan
Transaksi
Nm_barang
Pelanggan
Kd_barang
Transaksi
Nm_barang
Barang
Harga
Barang
Jml_beli
Transaksi
Jml_bayar
Expresi
Diskon
Expresi
total
Expresi

nah..tabel di atas  kolom field itu kita ibaratkan daun dan kolom tabel kita ibaratkan pohonnya. sehingga untuk menampilkan dalam sintax SQL didapat : tabel.field nah dalam tabel ini ada 3 sumber tabel yang diikat dengan namanya relasi. tabel pertama Transaksi, kedua Pelangan, dan ketiga tabel Barang.

Kita Visualisasilan Hubungan ketiga tabel tersebut :


Nah dengan melihat visual di atas maka kita dapat menuliskan sintax seperti berikut ini yang akan tampil seperti soal nomor 6. Selamat belajar inilah perintah select untuk menampilkan suatu hasil database dengan fungsi rumus untuk tidak memusingkan sengaja saya ganti baris agar tidak bingum membaanya namun dalam console SQL harus di sambung.

select  
transaksi.no_transaksi, 
transaksi.kd_pelanggan, 
pelanggan.nm_pelanggan,
transaksi.kd_barang,
barang.nm_barang, 
barang.harga,
transaksi.jml_beli,
barang.harga*transaksi.jml_beli as jml_bayar,
if(transaksi.jml_beli>2,0.2*(barang.harga*transaksi.jml_beli),0) as diskon,(barang.harga*tranansaksi.jml_beli),0) as total 
from pelanggan inner join (barang inner join transaksi on barang.kd_barang=transaksi.kd_barang)
on pelanggan.kd_pelanggan=transaksi.kd_pelanggan;