Showing posts with label pemrograman. Show all posts
Showing posts with label pemrograman. Show all posts

Saturday, 29 November 2014

Script Latihan VB6 - Galau Gadai

Setelah obrak-abrik file-file lama akhirnya gue nemuin arsip script latihan VB zaman kuliah. untuk lebih jelasnya langsung aja deh cekidot...


Selamat mencoba...

Friday, 5 April 2013

Script Latihan VB Pertemuan 3 (Percabangan)

Tampilan form


Private Sub cjabatan_Click()
If cjabatan.Text = "Direktur" Then
txtgapok.Text = 3500000
ElseIf cjabatan.Text = "Manager" Then
txtgapok.Text = 2500000
Else
txtgapok.Text = 1500000
End If
End Sub

Private Sub cmbbersih_Click()
txtgaber.Text = "0"
txtgapok.Text = "0"
txtnama.Text = ""
txtnip.Text = ""
txttunjangan.Text = "0"
cjabatan.Text = "--Pilih--"
cjk.Text = "--Pilih--"
optbelum.Value = False
optmenikah.Value = False
End Sub

Private Sub cmbhitung_Click()
txtgaber = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub

Private Sub cmbkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
cjk.AddItem "Laki-Laki"
cjk.AddItem "Perempuan"
cjabatan.AddItem "Direktur"
cjabatan.AddItem "Manager"
cjabatan.AddItem "Supervisior"
optbelum.Value = False
optmenikah.Value = False
End Sub

Private Sub optbelum_Click()
If optbelum.Value = True Then
txttunjangan.Text = Val(txtgapok.Text) * 0.1
Else
txttunjangan.Text = 0
End If
End Sub

Private Sub optmenikah_Click()
If optmenikah.Value = True Then
txttunjangan = Val(txtgapok.Text) * 0.15
Else
txttunjangan.Text = 0
End If
End Sub


Form Latihan Pertemuann 3 VB1 (Percabangan)


Tampilan form

Private Sub cmbbaru_Click()
cmbjenis.Text = "--Pilih--"
txtharga.Text = ""
txtjumbel.Text = ""
txttotal.Text = ""
txtubay.Text = ""
txtukem.Text = ""
optl.Value = False
optm.Value = False
opts.Value = False
End Sub

Private Sub cmbkeluar_Click()
z = MsgBox("Are you sure want to exit?", vbQuestion + vbOKCancel, "Keluar")
If z = vbOK Then
End
End If
End Sub

Private Sub Form_Load()
cmbjenis.AddItem "KAOS"
cmbjenis.AddItem "CELANA"
End Sub

Private Sub opts_Click()
If cmbjenis.Text = "KAOS" Then
txtharga.Text = 35000
Else
txtharga.Text = 50000
End If
End Sub
Private Sub optm_Click()
If cmbjenis.Text = "KAOS" Then
txtharga.Text = 40000
Else
txtharga.Text = 55000
End If
End Sub
Private Sub optl_Click()
If cmbjenis.Text = "KAOS" Then
txtharga.Text = 45000
Else
txtharga.Text = 60000
End If
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(txtharga.Text) * Val(txtjumbel.Text)
txtubay.SetFocus
End If
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtukem = Val(txtubay.Text) - Val(txttotal.Text)
cmbbaru.SetFocus
End If
End Sub

Wednesday, 27 March 2013

Slide Pertemuan 2 WP.II (SOX)

Buat temen-temen BSI Bogor yang belajar Web Programming II (dreamwaver) dengan akronm dosen SOX, bisa mendownload materi pertemuan 2 disini.

Di dalam slide tersebut menjelaskan tentang cara membuat form input pemesanan tiket kereta api, kemudian setelah form input di proses akan tampil data pemesanannya, dimana pada tampilan tersebut dapat di edit dan di hapus.

Ini merupakan lanjutan dari WP 1, kalo di WP 1 sudah bisa, yang ini pasti lebih gampang. Good luck!

Buat temen-temen yang masih bingung, bisa lihat contoh script nya disini. Catatan: untuk script update belum sempurna. Tapi untuk script hapus insya allah sudah done, silahkan sadap...

Friday, 14 December 2012

Script Latihan WP Data Handphone

Buat temen-temen BSI, ini ada script latihan Web Programming I.
Sebelumnya kalian buat dulu sebuah folder dengan nama "barang" di direktori C:\xampp\htdocs, bagi yang menggunakan web server xampp.

Kemudian buat folder "gambarhp" di didalam folder "barang" tadi (fungsi folder untuk menyimpan gambar yang diinput.

Persiapan berikutnya adalah dengan membuat database menggunakan phpmyadmin.
Buat database dengan nama: barang.
Buat tabel dengan nama: handphone
struktur tabel:
kdbarang varchar(6) primary key
nmbarang varchar(20)
gambar varchar(100)

Kemudian buatlah script-script di bawah ini:
Script: tambah.php









<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
       <title>Jual Beli HP</title>
</head>
<body>
<form action="simpan.php" method=post enctype="multipart/form-data">
<table border=1>
<tr><td colspan=3 align=center>Input Data Handphone</td></tr>
  <tr>
    <td>Kode Barang</td>
    <td>:</td>
    <td><input type=text name=tkd></td>
  </tr>
  <tr>
    <td>Nama Barang</td>
    <td>:</td>
    <td><input type=text name=tnm></td>
  </tr>
  <tr>
    <td>Gambar</td>
    <td>:</td>
    <td><input type=file name=tgb></td>
  </tr>
  <tr>
    <td colspan=3 align=center><input type=submit value=SIMPAN><input type=reset value=BATAL></td>
  </tr>
</table>
</form>
</body>
</html>

Script koneksi.php


<?php
$koneksi=mysql_connect("localhost","root","")or die(mysql_error());

if($koneksi)
{
    mysql_select_db("barang")or die(mysql_error());
}
else
{
    echo"<script>alert('KONEKSI GAGAL');
    </script>";
}
?>

Script simpan.php


<?php
include "koneksi.php";
$folder=$_FILES['tgb']['tmp_name'];
$gambar=$_FILES['tgb']['name'];
$kd=$_POST['tkd'];
$nm=$_POST['tnm'];
$simpan=mysql_query("insert into handphone values('$kd', '$nm', '$gambar')" )
        or die(mysql_error());
move_uploaded_file($folder,"gambarhp/$gambar");
if($simpan)
{
    include "tampil.php";
    echo"<script>alert('DATA BERHASIL DISIMPAN');</script>";
}
else
{
    echo"<script>alert('DATA GAGAL DISIMPAN');</script>";
}
?>

Script tampil.php


















<!doctype html public "-//W3C//DTD HTML 4.0 //EN">
<html>
<head>
       <title>Data Handphone</title>
</head>
<body>
<table border=1 align=center>
  <tr><td colspan=3 align=center>Tampil Data Handphone</td></tr>
  <tr>
    <td align=center>Kode Barang</td>
    <td align=center>Nama Barang</td>
    <td align=center>Gambar</td>
  </tr>
<?php
include "koneksi.php";
$tampil=mysql_query("select*from handphone")or die(mysql_error());
while($hp=mysql_fetch_array($tampil))
{
    echo"
    <tr>
      <td>$hp[0]</td>
      <td>$hp[1]</td>
      <td><img src='gambarhp/$hp[2]' width=80px height=50px></td>
    </tr>
";}
?>
<tr>
  <td colspan=3 align=center><a href=tambah.php><input type=submit value=KEMBALI></a></td>
</tr>
</table>
</body>
</html>