Kalkulator sederhana dengan HTML & PHP

Langkah 1 : buat file dengan nama kalkulator.php

berikut scriptnya :
<form action="proses.php" method="post">
<table>
<tr>
<h3>Program Kalkulator</h3>
<td>Bilangan 1 = </td>
<td><input type=”text” name=”bil1″ /></td>
</tr>
<tr>
<td>Bilangan 2 = </td>
<td><input type=”text” name=”bil2″ /></td>
</tr>
<tr>
<td colspan=”2″ align=”center”>
<input type=”submit” name=”tambah” value=” + “/>
<input type=”submit” name=”kurang” value=” – “/>
<input type=”submit” name=”kali” value=” * “/>
<input type=”submit” name=”bagi” value=” / “/>
</td>
</tr>
</table>
</form>

Contoh input, edit, update, hapus gambar dengan PHP

Langkah 1

Koneksi.php //berguna untuk koneksi ke database

<?php

$host="localhost";

$user="root";

$pass=""; //dikosongkan

$db="database";  //gamti dengan database anda

$koneksi=mysql_connect("$host","$user","$pass");

mysql_select_db("$db",$koneksi) or die ("gagal koneksi ");

?>

Membuat Koneksi PHP dengan database MySql  dengan mudah

<?php 
$host="localhost"; 
$username="username"; 
$password="password"; 
$database="buku"; 
$connect=mysql_connect($host,$username,$password); 
mysql_select_db($database,$connect); 
?>

username dan password adalah username dan password database MySql. simpan kode diatas dengan nama koneksi.php

Program Konversi Waktu

Program Konversi_Waktu1;
Uses WinCrt;
var j,m,d,dm,sisa,sisa1:integer;
begin
Writeln('Program Konversi Waktu 1');
Writeln('========================');
Writeln;

Program Konversi Waktu pada pascal

Program Konversi_Waktu;
Uses Wincrt;
Var j,m,d,h:integer;
begin
Writeln('Program Konversi Waktu');
Writeln('======================');
Writeln;
Write('Masukkan Jumlah Jam : ');readln(j);
Write('Masukkan Jumlah Menit : ');readln(m);
Write('Masukkan Jumlah Detik : ');readln(d);
Writeln;
h:=(j*3600)+(m*60)+d;
Writeln('Jadi Hasil Konversi : ',h,' Detik');
end.

Program Konversi Suhu pada pascal

Program Konversi_Suhu;
Uses WinCrt;
var f,c:real;
begin
Writeln('Program Konversi Fareinheit Ke Celcius');
Writeln('======================================');
Writeln;
Write('Masukan Suhu dalam Farenheit: ');readln(f);
c:=5/9*(f-32);
Writeln;
Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end.

Program Menghitung Jarak pada pascal

Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.