Membuat Kalkulator Sederhana Dengan PHP

Bosen mau ngapain sahabat, mau jalan kaki masih sakit karena jatuh dari sepeda motor pas pulang kuliah kemarin, akhirnya ku putusin untuk update blog ini sahabat. kali ini yang saya saya update adalah program php, program yang susah-susah gampang menurut saya, dikatakan susah karena bahasa pemograman yang dipakai dalam php adalah sensitif case, artinya bahasa pemograman yang satu itu kita harus lebih jeli sedikit melihat mana yang salah.

terlepas dari itu semua yang saya posting ini hanya php sederhana untuk sahabat blog habibinoor. ini adalah progam membuat kalkulator dengan php, saya berharap ini bermanfaat untuk sahabat blog habibinoor sekalian. langsung saja codingnya dibawah ini.

<!DOCTYPE html>
<html>
<head>
<title>Kalkultor Online</title>
<head>
<body>
<main><!-- kolom tengah-->
<article style="width:40%;float:left;margin:40px 30%;text-align:center">
  <h1>Kalkulator Online</h1>
  <form method="post" action="kalkulator.php">
<!--input angka dan pemilihan Operasi-->
<input type="text" size="1" name="x" id="x" />
<select name="hitung" id="hitung">
<option value="1">+</option>
<option value="2">-</option>
<option value="3">x</option>
<option value="4">/</option>
</select>
<input type="text" size="1" name="y" id="y"/>
<!-- Prosed-->
<input type="submit" name="submit" value="=" />&nbsp;&nbsp;
<?php
$x= "".$_POST['x'];
$y= "".$_POST['y'];

//operator matematika & proses
$hitung = "".$_POST['hitung'];
if ($hitung==1)
{
$hasil=$x+$y;
}
elseif ($hitung==2)
{
$hasil=$x-$y;
}
elseif ($hitung==3)
{
$hasil=$x*$y;
}
else
{
$hasil=$x/$y;
}

//menampulkan output
echo "$hasil";
?>
</form>
</article>
</main>
</body>
</html>


hasilnya sepeti dibawah ini


membuat Form Login Dengan VB 6.0

Lagi bingung mau posting apaan sahabat, padahal sudah lama enggak mosting di blog habibinoor eh sekali mau mosting enggak ada ide... jadi bingung.

Ku buka-buka lagi file yang ada di komputer ternyata yang kudapat Visual Basic 6.0 ah mungkin ini ajalah ku posting itu yang ku pikirkan sahabat.

Jadi ku buat satu program sederhana dengan bahasa pemograman VB 6.0, dan ku beri judul Form Login. semoga ini bermanfaat buat sahabat sekalian

ini Form Login
Ini Menu Utama Ketika Sudah Berhasil Login

Codingnya adalah sebagai berikut 

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub CmdLogin_Click()
If Text1 = "admin" And Text2 = "admin" Then
Form2.Show 'Perintah Menampilkan Form 2
Form1.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
MsgBox "Mohon Maaf User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub

Rumus Hambatan Pada Pascal

Kali ini rumus hambatan yang saya buat adalah berbeda dengan rangkaian pararel yang pernah saya buat sebelumnya. rumus ini saya buat atas permintaan kekasih saya yang sedang ujian. berikut ada coding programnya. untuk yang pake TPW (Turbo Pascal Windows) silahkan ganti " uses crt " menjadi " uses wincrt "

USES CRT;
VAR
R: ARRAY [1..100] OF INTEGER;
SP: ARRAY [0..100] OF REAL;
N,I,RK:INTEGER; RP,RTOT:REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN N : ');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('R[',I,']: ');READLN (R[I]);
END;
RK:=1;
FOR I:=1 TO N DO
BEGIN
RK:=RK*R[I];
END;
RP:=0;
FOR I:=1 TO N DO
BEGIN SP[I]:= RK/R[I];
RP:= RP+SP[I];
RTOT:=RK/RP;
END;
WRITE('R TOTAL ADALAH :', RTOT:8:3);
READKEY;
END.


outputya :



Rumus Rangkaian Listrik Pararel Pada Pascal For Windows

berbeda dari yang biasanya yang menggunakan pascal dari DOS kali ini saya membuat program Rumus Rangkaian Listrik Pararel Pada Pascal  persi Windows, berikut adalah programnya semoga bermanfaat dan untuk rekan-rekan yang menggunkan pascal versi DOS tak perlu cemas, karena hanya perlu merubah tulisan " uses wincrt" menjadi " uses crt " berikut adalah code programnya :

PROGRAM HAMBATAN_PARAREL;
USES WINCRT;
VAR
R :ARRAY[1..100] OF INTEGER;
N,I :BYTE;
RAWAL,RTOTAL : REAL;
BEGIN
CLRSCR;

WRITE ('BERAPA JUMLAH R YANG DIBUTUHKAN (MAKSIMUM 100):');READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITE ('MASUKKAN NILAI R',I,':'); READLN(R[I]);
END;
FOR I := 1 TO N DO
RAWAL := RAWAL + (1/R[I]);
RTOTAL := RAWAL;
WRITELN ('NILAI ANDA :',RTOTAL:8:2,'  Ohm');

READKEY;
END.


itu dulu dari saya semoga bermanfaat untuk semuanya.

Tips Untuk Anda Yang Ingin Memilih Universitas Swasta

Buat Rekan-rekan yang tak lulus setelah mencoba untuk masuk ke universitas negeri, namun daripada tidak kuliah mendingan masuk perguruan tinggi swasta, aku punya sedikit tips buat kalian agar tak salah pilih, mudah-mudah bermanfaat untuk semuanya, tipsnya sebagai berikut :

  1. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki adalah memiliki kreaditas B dan terakreditasi oleh Ban-PT
  2. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki sudah dikenal oleh masyarakat, terutama oleh beberapa perusahaan terkemuka
  3. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki memiliki sistem pengajaran yang baik, bagi orang-orang yang benar ingin menuntut ilmu
  4. Pastikan Perguruan Tinggi Swasta yang ingin kamu masukki mampu meluluskan kamu dengan IP rata-rata di atas 3.00 karena untuk bekerja kamu membutuhkan IP rata-rata di 3.00 untuk lulusan Swasta
  5. Jika kamu memiliki kenalan yang tidak lain adalah alumni lulusan Perguruan Tinggi Swasta yang ingin kamu masukki maka kamu harus bertanya tentang semua hal dengan akurat tentang Perguruan Tinggi Swasta.
sekian dulu tips dariku buat rekan-rekan sekalian semoga tipsnya bermanfaat. trims
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Habibi Noor Blog - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger