contoh Aplikasi Sederhana Pengolahan Citra dengan VB.Net

Masih tentang pengolahan citra nih :). Berikut contoh program aplikasi untuk melakukanpengolahan citra :
1. Citra Grayscale
2. Citra Biner
3. Citra Rotate 180 derajat
4. Citra Negatif
5. Citra Brightness
Program juga dilengkapi dengan menu Open dan Save citra yang akan dan telah di olah.
Berikut design aplikasi sederhana pengolahan citra menggunakan VB Net
Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net
Tambahkan komponen menustrip (pada toolbox Menus & Toolbar), OpenFileDialog ( pada toolbox Dialog) dan SaveFileDialog (pada toolbox Dialog)
OpenFileDialog  name dirubah menjadi OFD
SaveFileDialog  name dirubah menjadi SFD
Isi menu
Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net
Listing program pengolahan citra menggunakan VB Net

Public Class Form1

Dim gambar As Bitmap

Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesOpenCitraToolStripMenuItem.Click

OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"

OFD.ShowDialog()

If OFD.FileName = "" Then Exit Sub

PIC1.Image = Image.FromFile(OFD.FileName)

gambar = New Bitmap(PIC1.Image)

End Sub

Private Sub SaveCitraToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesSaveCitraToolStripMenuItem.Click

SFD.Filter = "JPG|*.Jpg|BMP|*.bmp"

SFD.ShowDialog()

If SFD.FileName = "" Then Exit Sub

If SFD.FilterIndex = 1 Then

gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

End If

If SFD.FilterIndex = 2 Then

gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

End If

End Sub

Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesGrayscaleToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim Rt, vM, vH, vB As Double

With gambar

For Pb = 0 To .Height - 1

For Pc = 0 To .Width - 1

vM = .GetPixel(Pc, Pb).R

vH = .GetPixel(Pc, Pb).G

vB = .GetPixel(Pc, Pb).B

Rt = (vM + vH + vB) / 3

.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))

Next

Pic2.Image = gambar

Pic2.Refresh()

Next

End With

End Sub

Private Sub NegatifToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesNegatifToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim vM, vH, vB As Double

With gambar

For Pb = 0 To .Height - 1

For Pc = 0 To .Width - 1

vM = 255 - .GetPixel(Pc, Pb).R

vH = 255 - .GetPixel(Pc, Pb).G

vB = 255 - .GetPixel(Pc, Pb).B

If vM <= 0 Then vM = 0

If vB <= 0 Then vB = 0

If vH <= 0 Then vH = 0

.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = gambar

Pic2.Refresh()

Next

End With

End Sub

Private Sub BrigtnessToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesBrigtnessToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim vM, vH, vB As Double

With gambar

For Pb = 0 To .Height - 1

For Pc = 0 To .Width - 1

vM = .GetPixel(Pc, Pb).R + 5

vH = .GetPixel(Pc, Pb).G + 5

vB = .GetPixel(Pc, Pb).B + 5

If vM > 255 Then vM = 255

If vB > 255 Then vB = 255

If vH > 255 Then vH = 255

.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = gambar

Pic2.Refresh()

Next

End With

End Sub

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

gambar = New Bitmap(Pic1.Image)

End Sub

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

End

End Sub

Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim rata, vM, vH, vB As Double

With gambar

For Pb = 0 To .Height - 1

For Pc = 0 To .Width - 1

vM = .GetPixel(Pc, Pb).R

vH = .GetPixel(Pc, Pb).G

vB = .GetPixel(Pc, Pb).B

rata = (vM + vH + vB) / 3

If (rata < 128) Then

vM = 0

vH = 0

vB = 0

Else

vM = 255

vH = 255

vB = 255

End If

.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = gambar

Pic2.Refresh()

Next

End With

End Sub

Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click

Dim Pb, Pc As Integer

Dim vM, vH, vB As Double

Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)

With gambar

For Pb = .Height - 1 To 0 Step -1

For Pc = .Width - 1 To 0 Step -1

vM = .GetPixel(Pc, Pb).R

vH = .GetPixel(Pc, Pb).G

vB = .GetPixel(Pc, Pb).B

gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))

Next

Pic2.Image = gambar3

Pic2.Refresh()

Next

End With

gambar = gambar3

End Sub

End Class

Hasil program
Citra Biner
Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net
Citra Negatif
Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net
Citra Rotate 180 derajat
Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net
Demikianlah Aplikasi Sederhana Pengolahan Citra Menggunakan VB Net

contoh program penjualan dengan delphi 7

kali ini semut junior akan memberikan contoh program delphi yang di pelajari di kuliah hari ini dan itu untuk ujian tengah semester dari pada data ilang mendingan saya share ke temen teman agar bisa belajar bersama-sama nah langsung saja ini dia gambar programnya dan source codenya maaf cuma bisa ngasih source code karena jika saya kasih udah jadi maka kalian hanya akan diam tidak berkembang.. Smile

contoh program delphi 7

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  if ComboBox1.ItemIndex = 0 then

  begin

  Lnama.Caption := 'Genteng Multiroof';

  Lharga.Caption := '50000';

  end;

   if ComboBox1.ItemIndex = 1 then

  begin

  Lnama.Caption := 'Gypsum Standar';

  Lharga.Caption := '45000';

  end;

   if ComboBox1.ItemIndex = 2 then

  begin

  Lnama.Caption := 'Gypsum WaterProof';

  Lharga.Caption := '85000';

  end;

   if ComboBox1.ItemIndex = 3 then

  begin

  Lnama.Caption := 'Baja Ringan';

  Lharga.Caption := '175000';

  end;

end;

procedure TForm1.NewClick(Sender: TObject);

begin

  ComboBox1.Text := 'Pilih';

  Lnama.Caption := '-';

  Lharga.Caption :='-';

  Lbeli.Caption :='0';

  Lsubtotal.Caption := '-';

  Ldiskon.Caption := '-';

  Ltotal.Caption := '-';

  Lbonus.Caption := '-';

  Lkupon.Caption := '-';

  Memo1.Clear;

  Memo1.Lines.Append('semutjunior.blogspot');

  Memo1.Lines.Append('');

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

  close;

end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

begin

  Lbeli.Caption := IntToStr(UpDown1.Position);

end;

procedure TForm1.ProsesClick(Sender: TObject);

var harga, beli :integer;

     subtotal, diskon, total, kupon : real;

     bonus : string;

begin

  harga := StrToInt(Lharga.Caption);

  beli := UpDown1.Position;

  subtotal := harga*beli;

//diskon


  case beli of

  0..15 : diskon := 5/100*subtotal;

  16..25 : diskon := 15/100*subtotal;

  end;

  total := subtotal-diskon;

//bonus


  if (ComboBox1.ItemIndex = 3) and (StrToInt(Lbeli.Caption) >30) then

  begin

  Lbonus.Caption := '1 kaleng cat tembok 15 L';

  end

  else

  Lbonus.Caption := '-';

//kupon


  if total > 100000 then

  Lkupon.Caption := '1 kupon'

  else

  Lkupon.Caption := '-';

//untuk menampilkan


  Lsubtotal.Caption := FloatToStrF(subtotal,ffCurrency, 12,0);

  Ldiskon.Caption := FloatToStrF(diskon,ffCurrency, 12,0);

  Ltotal.Caption := FloatToStrF(total,ffCurrency, 12,0);

  //menampilkan ke memo


  Memo1.Clear;

  Memo1.Lines.Append('semutjunior.blogspot');

  Memo1.Lines.Append('');

  Memo1.Lines.Append('nama ='+Lnama.Caption);

  Memo1.Lines.Append('harga ='+Lharga.Caption);

  Memo1.Lines.Append('beli ='+Lbeli.Caption);

  Memo1.Lines.Append('subtotal ='+Lsubtotal.Caption);

  Memo1.Lines.Append('diskon ='+Ldiskon.Caption);

  Memo1.Lines.Append('total ='+Ltotal.Caption);

  Memo1.Lines.Append('bonus ='+Lbonus.Caption);

  Memo1.Lines.Append('kupon ='+Lkupon.Caption);

end;

end.

contoh program Penjualan dengan Php, Jquery Ajax

Assalamualaikum,Wr.Wb

Kali ini saya akan mencoba membuat sebuah form Transaksi Penjualan dengan menggunakan PHP dan Jquery Ajax.

jadi intinya disini kita hanya akan membahas pada bagian transaksi penjualannya saja, akan kita buat untuk form barang dan form transaksi penjualannya. . . :D [ KHUSUS UNTUK PEMULA SAJA ] hehehe ..

Pertama – tama kita buat dahulu database dan tabel nya ( saya anggap anda sudah paham cara membuat database dan table ). pada Artikel ini saya membuat 4 tabel dengan spesifikasi sebagai berikut :

  1. Tblbarang, tabel ini berfungsi untuk menyimpan data – data barang yang kita sediakan.
  2. Tblsementara, tabel ini berfungsi untuk menyimpan sementra data – data transaksi pembelian kita, atau anda juga bisa menggunakan Temporary Table. Disini saya menggunakan tabel bayangan hanya untuk mempermudah saja. :D
  3. Penjualan, tabel ini berfungsi untuk menyimpan segala aktivitas penjualan pada program ini
  4. DetailPenjualan, tabel ini berfungsi untuk menyimpan detail penjualan yang telah kita lakukan pada transaksi penjualan.

Langsung yah, bikin tabelnya dan berikut field2 dari masing – masing tabel

  1. Tblbarang

1

  1. Tblsementara

1

Nb : Untuk Tabel sementara jangan gunakan Primary key

  1. Tpenjualan

1

  1. detailpenjualan

1

Nb : Untuk Tabel detailpenjualan jangan gunakan Primary key

Setelah semua tabel dibuat, sekarang kita mulai pada pengkodingan. Sebelumnya disini saya menggunakan Jquery dan Twitter Bootstrap untuk mendukung aplikasi yang akan kita buat :

  1. Download Jquery http://jquery.com/
  2. Download Twitter Bootstrap http://twitter.github.com/bootstrap/

Setelah itu Buatlah file – file berikut :

  • Koneksi.php : untuk koneksi ke database
  • barang.php : untuk mengelola form input barang
  • transaksi.php : untuk mengelola form transaksi penjualan
  • proses.php : untuk memproses form barang
  • pk.php : untuk memproses transaksi penjualan
  • index.php : untuk menggabungkan semua file kita
  • Jquery
  • Bootstrap.css
  • Style.css

Saat semua kebutuhan siap, sekarang kita mulai coding :

1. koneksi.php

<?php
$srvr=”localhost”; //SESUAIKAN DENGAN WEBSERVER ANDA
$db=”penjualan”; //SESUAIKAN DENGAN WEBSERVER ANDA
$usr=”root”; //SESUAIKAN DENGAN WEBSERVER ANDA
$pwd=”";//SESUAIKAN DENGAN WEBSERVER ANDA

mysql_connect($srvr,$usr,$pwd);
mysql_select_db($db);
?>

2. barang.php

<!DOCTYPE html>
<html>
<head>
<title>Form Barang</title>
<script src=”js/jquery.js”></script>
<script>
//mengidentifikasikan variabel yang kita gunakan
var kode;
var nama;
var beli;
var jual;
var stok;
$(function(){
$(“#kode”).load(“proses.php”,”op=kode”);
$(“#barang”).load(“proses.php”,”op=barang”);

//jika ada perubahan di kode barang
$(“#kode”).change(function(){
kode=$(“#kode”).val();

//tampilkan status loading dan animasinya
$(“#status”).html(“loading. . .”);
$(“#loading”).show();

//lakukan pengiriman data
$.ajax({
url:”proses.php”,
data:”op=ambildata&kode=”+kode,
cache:false,
success:function(msg){
data=msg.split(“|”);

//masukan isi data ke masing – masing field
$(“#nama”).val(data[0]);
$(“#beli”).val(data[1]);
$(“#jual”).val(data[2]);
$(“#stok”).val(data[3]);

//hilangkan status animasi dan loading
$(“#status”).html(“”);
$(“#loading”).hide();
}
});
});

//cek kode barang yang sudah ada
$(“#kode2″).change(function(){
var kd=$(“#kode2″).val();

$.ajax({
url:”proses.php”,
data:”op=cek&kd=”+kd,
success:function(data){
if(data==0){
$(“#pesan”).html(‘Kode Barang Bisa digunakan’);
$(“#kode2″).css(‘border’,’3px #090 solid’);
}else{
$(“#pesan”).html(‘Kode Barang sudah ada’);
$(“#kode2″).css(‘border’,’3px #c33 solid’);
}
}
});
});

//ketika tombol update di klik
$(“#update”).click(function(){
//cek apakah kode barang kosong atau tidak
kode=$(“#kode”).val();
if(kode==”Kode Barang”){
alert(“Pilih Kode barang dulu”);
exit();
}
nama=$(“#nama”).val();
beli=$(“#beli”).val();
jual=$(“#jual”).val();
stok=$(“#stok”).val();

//tampilkan status update
$(“#status”).html(‘sedang diupdate. . .’);
$(“#loading”).show();

$.ajax({
url:”proses.php”,
data:”op=update&kode=”+kode+”&nama=”+nama+”&beli=”+beli+”&jual=”+jual+”&stok=”+stok,
cache:false,
success:function(msg){
if(msg==’Sukses’){
$(“#status”).html(‘Update Berhasil. . .’);
}else{
$(“#status”).html(‘ERROR. . .’)
}
$(“#loading”).hide();
$(“#nama”).val(“”);
$(“#jual”).val(“”);
$(“#beli”).val(“”);
$(“#stok”).val(“”);
$(“#barang”).load(“proses.php”,”op=barang”);
$(“#kode”).load(“proses.php”,”op=kode”);
}
});
});

//ketika tombol hapus diklik
$(“#hapus”).click(function(){
kode=$(“#kode”).val();
if(kode==”Kode Barang”){
alert(“Kode barang belim dipilih”);
exit();
}
$(“#status”).html(‘Sedang Dihapus. . .’);
$(“#loading”).show();

$.ajax({
url:”proses.php”,
data:”op=delete&kode=”+kode,
cache:false,
success:function(msg){
if(msg==”sukses”){
$(“#status”).html(‘Berhasil Dihapus. . .’);
}else{
$(“#status”).html(‘ERROR. . .’);
}
$(“#nama”).val(“”);
$(“#jual”).val(“”);
$(“#beli”).val(“”);
$(“#stok”).val(“”);
$(“#barang”).load(“proses.php”,”op=barang”);
$(“#kode”).load(“proses.php”,”op=kode”);

}
});
});

//ketika tombol simpan diklik
$(“#simpan”).click(function(){
kode=$(“#kode2″).val();
if(kode==”"){
alert(“Kode Barang Harus diisi”);
exit();
}
nama=$(“#nama”).val();
beli=$(“#beli”).val();
jual=$(“#jual”).val();
stok=$(“#stok”).val();

$(“#status”).html(“sedang diproses. . .”);
$(“#loading”).show();

$.ajax({
url:”proses.php”,
data:”op=simpan&kode=”+kode+”&nama=”+nama+”&beli=”+beli+”&jual=”+jual+”&stok=”+stok,
cache:false,
success:function(msg){
if(msg==”sukses”){
$(“#status”).html(“Berhasil disimpan. . .”);
}else{
$(“#status”).html(“ERROR. . .”);
}
$(“#loading”).hide();
$(“#nama”).val(“”);
$(“#jual”).val(“”);
$(“#beli”).val(“”);
$(“#stok”).val(“”);
$(“#kode2″).val(“”);
}
});
});
});
</script>
</head>
<body>
<?php
$p=isset($_GET['act'])?$_GET['act']:null;
switch($p){
default:
echo’
<legend>Data Barang</legend>
<label>Kode Barang</label>
<select id=”kode”></select>
<input type=”text” id=”nama” placeholder=”Nama Barang”>
<input type=”text” id=”beli” placeholder=”Harga Beli”>
<input type=”text” id=”jual” placeholder=”Harga Jual”>
<input type=”text” id=”stok” placeholder=”Stok”>
<button id=”update”>Update</button>
<button id=”hapus”>Hapus</button>
<span id=”status”></span>
<table id=”barang”>

</table>’;
break;
case “tambah”:
echo’<legend>Tambah Data Barang</legend>
<label>Kode Barang</label>
<input type=”text” id=”kode2″> <span id=”pesan”></span>
<label>Nama Barang</label>
<input type=”text” id=”nama” >
<label>Harga Beli</label>
<input type=”text” id=”beli” >
<label>Harga Jual</label>
<input type=”text” id=”jual” >
<label>Stok</label>
<input type=”text” id=”stok”>
<label></label>
<button id=”simpan”>Simpan</button>
<a href=”?page=barang”>Kembali</a>
<div id=”status”></div>’;
break;
}
?>
</body>
</html>

3. Proses.php

<?php
include “db/koneksi.php”;
$data=mysql_query(“select * from tblbarang”);
$op=isset($_GET['op'])?$_GET['op']:null;

if($op==’kode’){
echo”<option>Kode Barang</option>”;
while($r=mysql_fetch_array($data)){
echo “<option value=’$r[kode]‘>$r[kode]</option>”;
}
}elseif($op==’barang’){
echo’<thead>
<tr>
<Td colspan=”5″><a href=”?page=barang&act=tambah”>Tambah Barang</a></td>
</tr>
<tr>
<td>Kode Barang</td>
<td>Nama Barang</td>
<td>Harga Beli</td>
<td>Harga Jual</td>
<td>Stok</td>
</tr>
</thead>’;
while($b=mysql_fetch_array($data)){
echo”<tr>
<td>$b[kode]</td>
<td>$b[nama]</td>
<td>$b[hrg_beli]</td>
<td>$b[hrg_jual]</td>
<td>$b[stok]</td>
</tr>”;
}
}elseif($op==’ambildata’){
$kode=$_GET['kode'];
$dt=mysql_query(“select * from tblbarang where kode=’$kode’”);
$d=mysql_fetch_array($dt);
echo $d['nama'].”|”.$d['hrg_beli'].”|”.$d['hrg_jual'].”|”.$d['stok'];
}elseif($op==’cek’){
$kd=$_GET['kd'];
$sql=mysql_query(“select * from tblbarang where kode=’$kd’”);
$cek=mysql_num_rows($sql);
echo $cek;
}elseif($op==’update’){
$kode=$_GET['kode'];
$nama=htmlspecialchars($_GET['nama']);
$beli=htmlspecialchars($_GET['beli']);
$jual=htmlspecialchars($_GET['jual']);
$stok=htmlspecialchars($_GET['stok']);

$update=mysql_query(“update tblbarang set nama=’$nama’,
hrg_beli=’$beli’,
hrg_jual=’$jual’,
stok=’$stok’
where kode=’$kode’”);
if($update){
echo “Sukses”;
}else{
echo “ERROR. . .”;
}
}elseif($op==’delete’){
$kode=$_GET['kode'];
$del=mysql_query(“delete from tblbarang where kode=’$kode’”);
if($del){
echo “sukses”;
}else{
echo “ERROR”;
}
}elseif($op==’simpan’){
$kode=$_GET['kode'];
$nama=htmlspecialchars($_GET['nama']);
$jual=htmlspecialchars($_GET['jual']);
$beli=htmlspecialchars($_GET['beli']);
$stok=htmlspecialchars($_GET['stok']);

$tambah=mysql_query(“insert into tblbarang (kode,nama,hrg_beli,hrg_jual,stok)
values (‘$kode’,'$nama’,'$beli’,'$jual’,'$stok’)”);
if($tambah){
echo “sukses”;
}else{
echo “error”;
}
}
?>

4. Transaksi.php

<!DOCTYPE html>
<html>
<head>
<title>Transaki Penjualan</title>
<link rel=”stylesheet” href=”css/bootstrap.css”>
<script src=”js/jquery.js”></script>
<script src=”js/jquery.ui.datepicker.js”></script>
<script>
//mendeksripsikan variabel yang akan digunakan
var nota;
var tanggal;
var kode;
var nama;
var harga;
var jumlah;
var stok;
$(function(){
//meload file pk dengan operator ambil barang dimana nantinya
//isinya akan masuk di combo box
$(“#kode”).load(“pk.php”,”op=ambilbarang”);

//meload isi tabel
$(“#barang”).load(“pk.php”,”op=barang”);

//mengkosongkan input text dengan masing2 id berikut
$(“#nama”).val(“”);
$(“#harga”).val(“”);
$(“#jumlah”).val(“”);
$(“#stok”).val(“”);

//jika ada perubahan di kode barang
$(“#kode”).change(function(){
kode=$(“#kode”).val();

//tampilkan status loading dan animasinya
$(“#status”).html(“loading. . .”);
$(“#loading”).show();

//lakukan pengiriman data
$.ajax({
url:”proses.php”,
data:”op=ambildata&kode=”+kode,
cache:false,
success:function(msg){
data=msg.split(“|”);

//masukan isi data ke masing – masing field
$(“#nama”).val(data[0]);
$(“#harga”).val(data[1]);
$(“#stok”).val(data[3]);
$(“#jumlah”).focus();
//hilangkan status animasi dan loading
$(“#status”).html(“”);
$(“#loading”).hide();
}
});
});

//jika tombol tambah di klik
$(“#tambah”).click(function(){
kode=$(“#kode”).val();
stok=$(“#stok”).val();
jumlah=$(“#jumlah”).val();
if(kode==”Kode Barang”){
alert(“Kode Barang Harus diisi”);
exit();
}else if(jumlah > stok){
alert(“Stok tidak terpenuhi”);
$(“#jumlah”).focus();
exit();
}else if(jumlah < 1){
alert(“Jumlah beli tidak boleh 0″);
$(“#jumlah”).focus();
exit();
}
nama=$(“#nama”).val();
harga=$(“#harga”).val();

$(“#status”).html(“sedang diproses. . .”);
$(“#loading”).show();

$.ajax({
url:”pk.php”,
data:”op=tambah&kode=”+kode+”&nama=”+nama+”&harga=”+harga+”&jumlah=”+jumlah,
cache:false,
success:function(msg){
if(msg==”sukses”){
$(“#status”).html(“Berhasil disimpan. . .”);
}else{
$(“#status”).html(“ERROR. . .”);
}
$(“#loading”).hide();
$(“#nama”).val(“”);
$(“#harga”).val(“”);
$(“#jumlah”).val(“”);
$(“#stok”).val(“”);
$(“#kode”).load(“pk.php”,”op=ambilbarang”);
$(“#barang”).load(“pk.php”,”op=barang”);
}
});
});

//jika tombol proses diklik
$(“#proses”).click(function(){
nota=$(“#nota”).val();
tanggal=$(“#tanggal”).val();

$.ajax({
url:”pk.php”,
data:”op=proses&nota=”+nota+”&tanggal=”+tanggal,
cache:false,
success:function(msg){
if(msg==’sukses’){
$(“#status”).html(‘Transaksi Pembelian berhasil’);
alert(‘Transaksi Berhasil’);
exit();
}else{
$(“#status”).html(‘Transaksi Gagal’);
alert(‘Transaksi Gagal’);
exit();
}
$(“#kode”).load(“pk.php”,”op=ambilbarang”);
$(“#barang”).load(“pk.php”,”op=barang”);
$(“#loading”).hide();
$(“#nama”).val(“”);
$(“#harga”).val(“”);
$(“#jumlah”).val(“”);
$(“#stok”).val(“”);
}
})
})
});
</script>
</head>
<body>
<div>
<?php
include “db/koneksi.php”;
$p=isset($_GET['act'])?$_GET['act']:null;
switch($p){
default:
echo “<table class=’table table-bordered’>
<tr>
<td colspan=’3′><a href=’?page=penjualan&act=tambah’ class=’btn btn-primary’>Input Transaksi</a></td>
</tr>
<tr>
<td>No.Nota</td>
<td>Tanggal</td>
<td>Jumlah</td>
<td>Tools</td>
</tr>”;
$query=mysql_query(“select * from penjualan”);
while($r=mysql_fetch_array($query)){
echo “<tr>
<td><a href=’?page=penjualan&act=detail&nota=$r[nonota]‘>$r[nonota]</a></td>
<td>$r[tanggal]</td>
<td>$r[total]</td>
<td><a href=’?page=penjualan&act=detail&nota=$r[nonota]‘>Cetak Nota</a></td>
</tr>”;
}
echo”</table>”;

break;
case “tambah”:
$tgl=date(‘Y-m-d’);
//untuk autonumber di nota
$auto=mysql_query(“select * from penjualan order by nonota desc limit 1″);
$no=mysql_fetch_array($auto);
$angka=$no['nonota']+1;
echo “<div class=’navbar-form pull-right’>
No. Nota : <input type=’text’ id=’nota’ value=’$angka’ readonly >
<input type=’text’ id=’tanggal’ value=’$tgl’ readonly>
</div>”;

echo’<legend>Transaksi Penjualan</legend>
<label>Kode Barang</label>
<select id=”kode”></select>
<input type=”text” id=”nama” placeholder=”Nama Barang” readonly>
<input type=”text” id=”harga” placeholder=”Harga” readonly>
<input type=”text” id=”stok” placeholder=”stok” readonly>
<input type=”text” id=”jumlah” placeholder=”Jumlah Beli”>
<button id=”tambah”>Tambah</button>

<span id=”status”></span>
<table id=”barang”>

</table>
<div>
<button id=”proses”>Proses</button>
</div>’;
break;
case “detail”:
echo “<legend>Nota Penjualan</legend>”;
$nota=$_GET['nota'];
$query=mysql_query(“select penjualan.nonota,detailpenjualan.kode,tblbarang.nama,
detailpenjualan.harga,detailpenjualan.jumlah,detailpenjualan.subtotal
from detailpenjualan,penjualan,tblbarang
where penjualan.nonota=detailpenjualan.nonota and tblbarang.kode=detailpenjualan.kode
and detailpenjualan.nonota=’$nota’”);
$nomor=mysql_fetch_array(mysql_query(“select * from penjualan where nonota=’$nota’”));
echo “<div class=’navbar-form pull-right’>
Nota : <input type=’text’ value=’$nomor[nonota]‘ disabled>
<input type=’text’ value=’$nomor[tanggal]‘ disabled>
</div>”;
echo “<table class=’table table-hover’>
<thead>
<tr>
<td>Kode Barang</td>
<td>Nama</td>
<td>Harga</td>
<td>Jumlah</td>
<td>Subtotal</td>
</tr>
</thead>”;
while($r=mysql_fetch_row($query)){
echo “<tr>
<td>$r[1]</td>
<td>$r[2]</td>
<td>$r[3]</td>
<td>$r[4]</td>
<td>$r[5]</td>
</tr>”;
}
echo “<tr>
<td colspan=’4′><h4 align=’right’>Total</h4></td>
<td colspan=’5′><h4>$nomor[total]</h4></td>
</tr>
</table>”;
break;
}
?>
</div>
</body>
</html>

5. pk.php

<?php
include “db/koneksi.php”;
$op=isset($_GET['op'])?$_GET['op']:null;
if($op==’ambilbarang’){
$data=mysql_query(“select * from tblbarang”);
echo”<option>Kode Barang</option>”;
while($r=mysql_fetch_array($data)){
echo “<option value=’$r[kode]‘>$r[kode]</option>”;
}
}elseif($op==’ambildata’){
$kode=$_GET['kode'];
$dt=mysql_query(“select * from tblbarang where kode=’$kode’”);
$d=mysql_fetch_array($dt);
echo $d['nama'].”|”.$d['hrg_jual'].”|”.$d['stok'];
}elseif($op==’barang’){
$brg=mysql_query(“select * from tblsementara”);
echo “<thead>
<tr>
<td>Kode Barang</td>
<td>Nama</td>
<td>Harga</td>
<td>Jumlah Beli</td>
<td>Subtotal</td>
<td>Tools</td>
</tr>
</thead>”;
$total=mysql_fetch_array(mysql_query(“select sum(subtotal) as total from tblsementara”));
while($r=mysql_fetch_array($brg)){
echo “<tr>
<td>$r[kode]</td>
<td>$r[nama]</td>
<td>$r[harga]</td>
<td><input type=’text’ name=’jum’ value=’$r[jumlah]‘ class=’span2′></td>
<td>$r[subtotal]</td>
<td><a href=’pk.php?op=hapus&kode=$r[kode]‘ id=’hapus’>Hapus</a></td>
</tr>”;
}
echo “<tr>
<td colspan=’3′>Total</td>
<td colspan=’4′>$total[total]</td>
</tr>”;
}elseif($op==’tambah’){
$kode=$_GET['kode'];
$nama=$_GET['nama'];
$harga=$_GET['harga'];
$jumlah=$_GET['jumlah'];
$subtotal=$harga*$jumlah;

$tambah=mysql_query(“INSERT into tblsementara (kode,nama,harga,jumlah,subtotal)
values (‘$kode’,'$nama’,'$harga’,'$jumlah’,'$subtotal’)”);

if($tambah){
echo “sukses”;
}else{
echo “ERROR”;
}
}elseif($op==’hapus’){
$kode=$_GET['kode'];
$del=mysql_query(“delete from tblsementara where kode=’$kode’”);
if($del){
echo “<script>window.location=’index.php?page=penjualan&act=tambah’;</script>”;
}else{
echo “<script>alert(‘Hapus Data Berhasil’);
window.location=’index.php?page=penjualan&act=tambah’;</script>”;
}
}elseif($op==’proses’){
$nota=$_GET['nota'];
$tanggal=$_GET['tanggal'];
$to=mysql_fetch_array(mysql_query(“select sum(subtotal) as total from tblsementara”));
$tot=$to['total'];
$simpan=mysql_query(“insert into penjualan(nonota,tanggal,total)
values (‘$nota’,'$tanggal’,'$tot’)”);
if($simpan){
$query=mysql_query(“select * from tblsementara”);
while($r=mysql_fetch_row($query)){
mysql_query(“insert into detailpenjualan(nonota,kode,harga,jumlah,subtotal)
values(‘$nota’,'$r[0]‘,’$r[2]‘,’$r[3]‘,’$r[4]‘)”);
mysql_query(“update tblbarang set stok=stok-’$r[3]‘
where kode=’$r[0]‘”);
}
//hapus seluruh isi tabel sementara
mysql_query(“truncate table tblsementara”);
echo “sukses”;
}else{
echo “ERROR”;
}
}
?>

5. Index.php

<!doctype html>
<html>
<head>
<title>Aplikasi Penjualan</title>
<link rel=”stylesheet” href=”css/style.css”>
<link rel=”stylesheet” href=”css/bootstrap.css”>
</head>
<body>
<div id=”container”>
<header>
<h1><a href=”
https://www.facebook.com/groups/commit.stmiktasik/”> Communitas Mahasiswa IT</a></h1>
</header>
<!–menu –>
<nav>
<ul>
<li><a href=”index.php”>Master</a>
<ul>
<li><a href=”?page=barang”>Barang</a></li>
</ul>
</li>
<li><a href=”#”>Transaksi</a>
<ul>
<li><a href=”?page=penjualan”>Penjualan</a></li>
</ul>
</li>
</ul>
</nav>
<br>
<div>
<?php
include “db/koneksi.php”;
$p=isset($_GET['page'])?$_GET['page']:null;
switch($p){
default:

break;
case “barang”:
include “barang.php”;
break;
case “penjualan”:
include “transaksi.php”;
break;
}
?>
</div>
</body>
</html>

Tampilan Program :

1.  Data Barang

1

2. Tambah Data barang

1

3. Data Transaksi Penjualan

14. Input Transaksi Penjualan

Untitled

5. Nota Penjualan

1

Mohon maaf jika dalam penjelasannya kurang mengerti atau mudeng hehe..

Jika ingin source code nya dapat di download di bawah sini !

download

Contoh script gabungan php html css dan javascript

Di posting kali ini kita akan pelajari cara menuliskan script PHP di dokumen HTML atau Javascript, ada beberapa cara dalam menuliskan script PHP tersebut. Yang pertama adalah menuliskan script PHP diantara dokumen HTML, contohnya sbb:

image

Cara berikutnya adalah menyimpan script dokumen HTML ke dalam variabel PHP, kemudian tampilkan menggunakan script PHP ‘echo’ atau ‘print’

image

Kedua cara diatas bisa juga digunakan untuk menggabungkan antara PHP-javascript atau PHP-CSS

image

Semoga bermanfaat semuanya ..

Remote Control Computer Through IRC with VB Script

Selama ini sudah banyak aplikasi yang dibuat untuk melakukan kontrol komputer melalui nternet, salah satu contoh program yang terkenal adalah GoToMyPC (http://www.gotomypc.com).Program ini dibuat dengan tujuan agar seseorang dapat melakukan pekerjaan secara remote jarak jauh), tetapi karena server yang digunakan adalah servernya GoToMyPc maka program ini tidaklah gratis, sama halnya dengan aplikasi lainnya. Bagaimana kalau kita membuat aplikasi sendiri dengan menentukan server secara sendiri?, tentunya kita mempunyai banyak pilihan untuk menentukan server yang gratis.
Bagi Anda yang sering melakukan aktifitas chatting, mungkin aplikasi mIRC, XChat, BitchX , dan beberapa IRC client lainnya sudah sangat familiar dengan anda, baik itu yang berjalan di windows ataupun yang berjalan di UNIX-side, ya... memang aplikasi tersebut merupakan aplikasi yang sering digunakan sebagai IRC Client. IRC atau Internet Relay Chat adalah sebuah aplikasi yang ditulis oleh Jarkko Oikarinen pada tahun 1998 di Finlandia. IRC adalah sebuah aplikasi "system chat multi-user", jadi seseorang dapat melakukan komunikasi secara text dengan orang lain dimanapun orang tersebut berada dalam sebuah server yang sama. Ada banyak server yang sering digunakan seperti irc.freenode.net, atau irc.dal.net, dan lain sebagainya. Server-server tersebut dapat Anda gunakan secara gratis, dan sebagai aplikasi clientnya Anda bisa mendownload nya dari banyak website.
Mungkin Anda berpikir apa hubungannya antara IRC denganmengontrol komputer? Ada hubungannya, seperti yang tersebut di atas, bahwa IRC adalah sarana komunikasi berbasis text. Bagaimana kalau text yang kita terima malah di kerjakan bukan hanya ditampilkan?. Secara mudahnya begini, jadi sebagai contoh saya mengirimkan text "!msg Hello Word" kepada salah
satu user IRC dengan nick "DelaVega", maka akan sampai kepada yang punya nick "DelaVega" tersebut text yang berisikan kalimat "!msg Hello Word", text yang sampai itu tidak diproses secara lanjut atau hanya ditampilkan ke layar seperti biasanya. Dengan pemrograman kita dapat membuat text "!msg Hello Word" menjadi sebuah perintah agar komputer yang kita kirimkan pesan tersebut menampilkan sebuah kotak pesan yang bertuliskan "Hello Word", dengan syarat program kita harus dapat melakukan hubungan ke server sehingga kita dapat mengirimkan pesan kepada komputer tersebut. Disini saya akan memberikan sepenggal kode program menggunakan bahasa pemrograman Visual Basic 6.0.
Untuk melakukan komunikasi data ke server IRC kita membutuhkan salah satu komponen socket pada Visual Basic, yakni "Microsoft Winsock Control 6 (SP4)". Tambahkan komponen tersebut ke dalam project Anda dengan cara klik menu utama Project-Components, akan tampil sebuah jendela yang berisikan daftar komponen yang tersedia. Kemudian pilih "Microsoft Winsock Control 6 (SP4)" dan klik tombol OK. Berikut kode pemrograman yang ditambahkan:
Kode di bawah ini digunakan untuk melakukan koneksi ke server IRC matrix.de.eu.dal.net dengan port 7000
Private Sub cmdConnect_Click()
Winsock1.Connect "matrix.de.eu.dal.net", 7000
End Sub
Kode di bawah ini digunakan untuk mengirimkan data informasi komputer ke server dan kemudian
join ke channel #channel
========================================================================================
Private Sub Winsock1_Connect()
Winsock1.SendData "USER ZiOn@troya.comAlamat e-mail ini dilindungi dari spambot, anda harus memampukan JavaScript untuk melihatnya " & _
Winsock1.LocalHostName & " " & _
Winsock1.RemoteHost & " :celly" & vbCrLf
Winsock1.SendData "NICK " & Winsock1.LocalHostName & IP & vbCrLf
Winsock1.SendData "JOIN #channel" & vbCrLf
End Sub
========================================================================================
Kode di bawah ini digunakan untuk menerima data dari server dan melakukan penyaringan data.
Apabila pada data yang diterima terdapat text perintah maka diproses dan dikerjakan
========================================================================================
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next ' Apabila ada error lanjutkan ke baris berikutnya
Dim strData As String ' Deklarasi variabel strData bertipe String
Dim Posisi As Integer ' Deklarasi variabel Posisi bertipe Integer
Dim Pesan As String
Dim Exec As String
Dim i As String
Winsock1.GetData strData, vbString ' Ambil data dan disimpan ke variabel strData
If Mid(strData, 1, 10) = ":necrose" Then ' Jika data dikirimkan oleh nick necrose maka
i = Split(strData, ":")
Pesan = Replace(i(2), vbCrLf, "")
Posisi = InStr(Pesan, " ")
Exec = Mid(Pesan, Posisi + 1)
Pesan = UCase(Mid(Pesan, 1, Posisi - 1))
If Pesan = "!MSG" Then ' Jika data terdapat kata !MSG maka
MsgBox Exec, vbInformation, "System Administrator" ' Tampilkan kotak pesan dengan tulisan variabel Exec
End If
End If
End Sub
========================================================================================
Dengan sedikit kode yang ada di atas dapat Anda kembangkan menjadi sebuah aplikasi yang benar-benar dapat mengontrol komputer.

Program formulir angsuran biaya dengan turbo pascal

Di sini saya membagi tautan bagaimana membuat program aplikasi formulir angsuran biaya, saya membuat nya dengan bahasa pascal, langsung saja kita bahas …

pertama buka turbo pascal nya atau tpw 1.5,, kemudian tuliskan listing code di bawah ini..

program angsuran_biaya;
uses wincrt;
var no, tot, bayar, sisa,tanggal, bln, thn : longint;
      nm, tempat, jur :  char;

begin

writeln('      FORMULIR ANGSURAN BIAYA');
writeln;
write('No                    : ');readln(no);
write('Nama                  : ');readln(nm);
write('Tempat, Tanggal Lahir : ');readln(tempat);

gotoxy(35,5);read(tanggal);
if tanggal > 30 then
begin
write('tanggal yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(38,5);read(bln);
if bln > 12 then
begin
write('bulan yang anda masukkan salah!');
readkey; donewincrt;
end;

gotoxy(41,5);read(thn);
if thn > 1996 then
begin
write('tahun yang anda masukkan salah!');
readkey; donewincrt;
end;

write('Jurusan               : ');readln(jur);
write('Total Biaya           : Rp.');readln(tot);
write('Bayar                 : Rp.');readln(bayar);
writeln('====================================');
sisa:=bayar-tot;
write('Sisa Pembayaran       : Rp.',sisa);
                       
end.

Dan ini hasil layout dari program di atas..

pascal1

pascal eror

aplikasi penjumlahan dengan bahasa rakitan “assembly”

Disini saya akan membagikan postingan tentang membuat sebuah aplikasi penjumlahan dengan bahasa rakitan atau lebih dikenal dengan bahasa Assembly, mungkin dari sahabat semua sudah tidak asing lagi dengan aplikasi seperti ini, langsung saja kita bahas bersama sama ..

Untuk operasi penjumlahan di bahasa rakitan atau assembly kita bisa menggunakan perintah ADD. Pada opearasi penjumlahan ini secara umum strukturnya adalah ADD AX,BX dimana nilai AX = AX+BX. Atau bisa di katakan jika hasil penjumlahan AX dan BX akan di simpan di register AX. Contoh di atas adalah penjumlahan 16 bit untuk 8 bit bisa di tulis dengan struktur seperti ini ADD AL,BL dimana hasil penjumlahan AL (8 bit) dan BL (8 bit) akan di simpan di register AL.

Contoh program penjumlahan dua buah bilangan

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
;                             Program: coba.asm                              ;
;                             Oleh: Eko Yunianto                              ;
;                      Fungsi : Operasi Penjumlahan                ;
;=================================;

.MODEL SMALL
.CODE
ORG 100h
MULAI :
JMP PROSES
a DW 62                                                                   ; data a sebagai Angka 1
b DW 25                                                                   ; data b sebagai Angka 2
c DW 2                                                                      ; data c sebagai komparasi
Kal01 DB ‘A = $’                                                    ; statement 1
Kal02 DB ‘B = $’                                                    ; statement 2
Ent DB 13,10,’$’                                                    ; funsi 13,10 untuk enter
Kal03 DB ‘Hasil Penjumlahan A+B = $’      ; statement 3

PROSES:
MOV AH,09                                 ; Buka service cetak karakter
MOV DX,OFFSET Kal01          ; Ambil alamat offset Kal02
INT 21h                                         ; Cetak perkarakter sampai tanda $
MOV AX, a                                   ; AX = a
JMP TAMPIL                              ; Loncat ke label tampil
SATU :
MOV AH,09                                ; Buka service cetak karakter
MOV DX,OFFSET Ent               ; Ambil alamat offset Ent
INT 21h                                         ; Cetak perkarakter sampai tanda $
MOV DX,OFFSET Kal02          ; Ambil alamat offset Kal02
INT 21h                                         ; Cetak perkarakter sampai tanda $
MOV AX, b                                   ; AX = b
JMP TAMPIL                              ; Lompat ke label TAMPIL
DUA :
MOV AH,09                                ; Buka service cetak karakter
MOV DX,OFFSET Ent              ; Ambil alamat offset Ent
INT 21h                                        ; Cetak perkarakter sampai tanda $
MOV DX,OFFSET Kal03          ; Ambil alamat offset Kal03
INT 21h                                         ; Cetak perkarakter sampai tanda $
MOV AX, a                                   ; AX = a
ADD AX, b                                     ; AX = AX + b
TAMPIL :
DEC c                                               ; Kurangi sate data di c
MOV BX,10                                   ; BL = penyebut = 10 (desimal)
XOR CX,CX                                    ; CX = 0
ULANG :
XOR DX,DX                                   ; Cegah sisa bagi menjadi pembilang !
DIV BX                                           ; Bagi angka yg akan dicetak dengan 10
PUSH DX                                       ; Simpan sisa bagi dalam stack
INC CX                                           ; CX ditambah 1
CMP AX,0                                     ; Apakah hasil bagi sudah habis ?
JNE ULANG                                  ; Jika belum, ulangi lagi !
CETAK :
POP DX                                           ; Ambil 1 angka yang disimpan
ADD DL,’0′                                     ; Ubah angka tersebut dalam kode ASCII
MOV AH,02                                  ;
INT 21h                                          ; Cetak angka tersebut
LOOP CETAK                                ; ulangi

CMP c,1h                                        ; Membandingkan nilai c dengan 1h
JE SATU                                         ; Loncat ke labelSATU jika nilai c = 1h
JB DUA                                           ; Loncat ke label DUA jika nilai c < 1h
INT 20h                                         ; Interupt 20h untuk menghentikan program
END MULAI

Demikian yang bisa saya sampaikan, semoga postingan kali ini bermanfaat bagi sahabat semua Smile

Cara membuat form login, logout, daftar dengan php mysql

Disini saya akan membagi postingan bagaimana cara membuat sebuah form login, daftar, dan logout dengan PHP MySQL, mungkin sahabat semua ada yang sudah tidak asing lagi dengan bahasan ini, yuk langsung saja kita simak bersama sama ..

Terlebih dahulu buatlah database, dalam contoh ini saya menggunakan phpMyAdmin.

  • Buat database dengan nama latihan”.
    O3uAaAW8Bxxg73nrDTJBXHhm1iGOcegZwsRe87-yPjo=w523-h132-no
  • Buat tabel dengan nama “user” dan isikan 3 untuk jumlah kolom yang akan dibuat.
    zDhlQYpkIDKGuK0UNTUOEd3HmhkVsvRnFFUN92VykCc=w520-h255-no
  • Kemudian isikan ke 3 kolom yang telah dibuat tadi seperti berikut :
    SggZSFh9al1znIoOL0LZsD3J3X1foRQefaKFplkgnc4=w1043-h421-no

  • Jika sudah silahkan tekan tombol save untuk menyimpan field yang telah kita isikan.

Apabila langkah diatas telah dilalui berati database telah selesai dibuat dan siap digunakan. Langkah berikutnya adalah membuat form dan proses PHP ke database MySQL.

Disini diperlukan beberapa file yang harus dibuat.

  1. koneksi.php
  2. index.php
  3. daftar.php
  4. prosesdaftar.php
  5. login.php
  6. proseslogin.php
  7. logout.php

Sebelum ke pembuatan form daftar dan login saya minta untuk membuat file koneksi.phpuntuk menghubungkan ke database, dengan kode dibawah ini.

<?php
$host = "
localhost";
$user = "root";
$pass = "";
$db = "latihan";
$konek = mysql_connect($host, $user, $pass) or die ('Koneksi Gagal! ');
mysql_select_db($db);
?>

Pertama buatlah file dengan nama index.php dimana file ini akan ditampilkan ketika login sukses, isikan dengan kode dibawah :

<?php
session_start();
if(!isset($_SESSION['username'])) {
header('location:login.php'); }
else { $username = $_SESSION['username']; }
require_once("koneksi.php");

$query = mysql_query("SELECT * FROM user WHERE username = '$username'");
$hasil = mysql_fetch_array($query);
?>
<html>
<head>
<title>Halaman Sukses Login</title>
</head>
<body>
<center>
<?php
echo "<h2>Selamat Datang, $username </h2>";
?>
<a href="logout.php"><b>Logout</a>
</center>
</body>
</html>

Buatlah file dengan nama daftar.php dan isikan dengan code dibawah ini.

<?php
session_start();
if(isset($_SESSION['username'])) {
header('location:index.php'); }
?>
<html>
<head>
<title>Form Pendaftaran</title>
</head>
<body>
<center>
<form action="prosesdaftar.php" method="post">
<table>
<tr><td colspan="2" align="center"><h1>Daftar Baru</h1></td></tr>
<tr><td>Username</td><td> : <input type="text" name="username"></td></tr>
<tr><td>Password</td><td> : <input type="password" name="password"></td></tr>
<tr><td colspan="2" align="right"><input type="submit" value="Daftar"> <input type="reset" value="Batal"></td></tr>
<tr><td colspan="2" align="center">Sudah Punya akun ? <a href="login.php"><b>Login</b></a></td></tr>
</table>
</form>
</center>
</body>
</html>

Sekarang buat file prosesdaftar.php untuk melakukan proses yang diminta pada file daftar.php.

<?php
require_once("koneksi.php");
$username = $_POST['username'];
$pass = $_POST['password'];
$cekuser = mysql_query("SELECT * FROM user WHERE username = '$username'");
if(mysql_num_rows($cekuser) <> 0) {
echo "Username Sudah Terdaftar!<br/>";
echo "<a href='daftar.php'>&amp;amp;laquo; Back</a>";
} else {
if(!$username || !$pass) {
echo "Masih ada data yang kosong!<br/>";
echo "<a href='daftar.php'>&amp;amp;laquo; Back</a>";
} else {
$simpan = mysql_query("INSERT INTO user(username, password) VALUES('$username','$pass')");
if($simpan) {
echo "Pendaftaran Sukses, Silahkan <a href='login.php'>Login</a>";
} else {
echo "Proses Gagal!";
}
}
}
?>

Selanjutnya adalah membuat file login.php dengan kode dibawah.

<?php
session_start();
if(isset($_SESSION['username'])) {
header('location:index.php'); }
require_once("koneksi.php");
?>
<html>
<head>
<title>Form Login</title>
</head>
<body>
<center>
<form action="proseslogin.php" method="post">
<tr><td colspan="2" align="center"><h1>Masuk</h1></td></tr>
<table>
<tr><td>Username</td><td> : <input type="text" name="username"></td></tr>
<tr><td>Password</td><td> : <input type="password" name="password"></td></tr>
<tr><td colspan="2" align="right"><input type="submit" value="Login"> <input type="reset" value="Batal"></td></tr>
<tr><td colspan="2" align="center">Belum Punya akun ? <a href="daftar.php"><b>Daftar</b></a></td></tr>
</table>
</form>
</center>
</body>
</html&gt
;

Agar file login dapat berjalan buatlah file proseslogin.php dengan kode dibawah.

<?php
session_start();
require_once("koneksi.php");
$username = $_POST['username'];
$pass = $_POST['password'];
$cekuser = mysql_query("SELECT * FROM user WHERE username = '$username'");
$jumlah = mysql_num_rows($cekuser);
$hasil = mysql_fetch_array($cekuser);
if($jumlah == 0) {
echo "Username Belum Terdaftar!<br/>";
echo "<a href='login.php'>&amp;amp;laquo; Back</a>";
} else {
if($pass <> $hasil['password']) {
echo "Password Salah!<br/>";
echo "<a href='login.php'>&amp;amp;laquo; Back</a>";
} else {
$_SESSION['username'] = $hasil['username'];
header('location:index.php');
}
}
?>

Dan yang terakhir adalah membuat file logout.php untuk menghapus session yang telah digunakan, isi dengan kode dibawah.

<?php
session_start();
unset($_SESSION['username']);
?>
<center>
<h2>Anda telah berhasil logout..</h2>
Silahkan klik <b>disini</b> untuk login kembali
</center>

Demikian yang bisa sampaikan tentang postingan kali ini, semoga bermanfaat bagi sahabat semua Smile