J'blog: Tips

Rumus Percepatan menggunakan PHP Xampp

17.24

Kali ini saya akan membagikan cara membuat rumus percepatan menggunakan xampp

Pertama Buatlah sebuah folder dan berisi file .php pada htdocs yang ada di xampp, , lalu isikan skript seperti dibawah ini

File ini saya beri nama proses.php

<?php

$v1 = $_POST["v1"];

$v2 = $_POST["v2"];

$t1 = $_POST["t1"];

$t2 = $_POST["t2"];

$v = $v2 - $v1;

$t = $t2 - $t1;

$hasil = $v / $t;

if ($v > $v1)

{

print "Kendaraan Mengalami Percepatan $hasil m/s2";

}

elseif ($v = $v1)

{

print "Kendaraan TIDAK Mengalami Percepatan maupun Perlambatan";

}

else

{

print "Kendaraan Mengalami Perlambatan $hasil m/s2";

}

Setelah itu buat sebuah file lagi .html pada folder yang sama di htdocs sebelumnya. Isikan skript seperti dibawah ini

file ini saya beri nama index.html

<html>

<head><title>Percepatan/Perlambatan Kecepatan Kendaraan</title></head>

<body>

<table>

<tr>

<td>Kecepatan Awal</td>

<td>Kecepatan Akhir</td>

</tr>

<tr>

<td>Waktu Awal</td>

<td>Waktu Akhir</td>

</tr>

<tr>

</tr>

</table>

</form>

</body>

</html>

Hasilnya akan Seperti ini dan coba lakukan perhitungan sendiri :

Terimakasih Sudah Berkunjung Di Blog saya. jangan lupa sertakan Sumber jika anda Copas Karena itu adalah tata cara menjadi Blogger yang baik :))

Pengetahuan

Membuat Kalkulator Sin,Cos,Bin,Hex,Dec,Oct menggunakan Virtual Basic 2010

22.15

Hello sobat, kali ini saya akan berbagi intfo tentang cara membuat kalkulator sin , cos , biner , hexa , decimal , octal menggunakan virtual basic 2010.

Berikut adalah Script Yang Digunakan :

Public Class Form1

Dim kode As String

Dim angka1 As Integer

Dim angka2 As Integer

Dim hasil As Integer

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

btninput.Text = btninput.Text + "1"

End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

btninput.Text = btninput.Text + "2"

End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

btninput.Text = btninput.Text + "3"

End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click

btninput.Text = btninput.Text + "4"

End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click

btninput.Text = btninput.Text + "5"

End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click

btninput.Text = btninput.Text + "6"

End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click

btninput.Text = btninput.Text + "7"

End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click

btninput.Text = btninput.Text + "8"

End Sub

Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click

btninput.Text = btninput.Text + "9"

End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click

btninput.Text = btninput.Text + "0"

End Sub

Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click

kode = "-"

angka1 = Val(btninput.Text)

btninput.Text = " "

End Sub

Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click

kode = "+"

angka1 = Val(btninput.Text)

btninput.Text = " "

End Sub

Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click

kode = "X"

angka1 = Val(btninput.Text)

btninput.Text = " "

End Sub

Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

kode = "/"

angka1 = Val(btninput.Text)

btninput.Text = " "

End Sub

Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click

btninput.Text = " "

End Sub

Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click

angka2 = Val(btninput.Text)

Select Case kode

Case "-"

hasil = angka1 - angka2

Case "+"

hasil = angka1 + angka2

Case "X"

hasil = angka1 * angka2

Case "/"

hasil = angka1 / angka2

Case "X^Y"

hasil = angka1 ^ angka2

End Select

btninput.Text = Str(hasil)

End Sub

Private Sub sin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sin.Click

btninput.Text = Math.Sin(CSng(btninput.Text) * 3.1416 / 180)

End Sub

Private Sub cos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cos.Click

btninput.Text = Math.Cos(CSng(btninput.Text) * 3.1416 / 180)

End Sub

Private Sub pangkat2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat2.Click

Dim angka As Integer

angka = Val(btninput.Text)

kode = "X^2"

hasil = angka ^ 2

btninput.Text = Str(hasil)

End Sub

Private Sub pangkatx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkatx.Click

kode = "X^Y"

angka1 = Val(btninput.Text)

btninput.Text = " "

End Sub

Private Sub biner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biner.Click

Dim xhexa As String = Hex(Val(btninput.Text))

Dim xbin As String

Dim xbin2 As String

Dim xkata As String

Dim i As Integer

xbin2 = ""

For i = 1 To Len(xhexa)

xbin = ""

xkata = Mid(xhexa, i, 1)

Select Case UCase(xkata)

Case "0"

xbin = "0000"

Case "1"

xbin = "0001"

Case "2"

xbin = "0010"

Case "3"

xbin = "0011"

Case "4"

xbin = "0100"

Case "5"

xbin = "0101"

Case "6"

xbin = "0110"

Case "7"

xbin = "0111"

Case "8"

xbin = "1000"

Case "9"

xbin = "1001"

Case "A"

xbin = "1010"

Case "B"

xbin = "1011"

Case "C"

xbin = "1100"

Case "D"

xbin = "1101"

Case "E"

xbin = "1110"

Case "F"

xbin = "1111"

Case "h", "H"

xbin = ""

Case Else

xbin = ""

End Select

xbin2 = xbin2 + xbin

Next i

btninput.Text = xbin2

End Sub

Private Sub hexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hexa.Click

btninput.Text = Hex(Val(btninput.Text))

End Sub

Private Sub octal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles octal.Click

btninput.Text = Oct(Val(btninput.Text))

End Sub

Private Sub deci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deci.Click

btninput.Text = CDec(Val(btninput.Text))

End Sub

End Class

Dan Ini adalah Hasil Dari Skript Yang Digunakan Di atas :

Terimakasih Sudah Berkunjung Di Blog Saya. Jangan Lupa Sertakan Sumber jika anda Copas karena itu adalah tata cara menjadi Blogger yang baik :))

Pengetahuan

Membuat Kalkulator sederhana menggunakan perintah Select Case VB 2010

22.04

J'blog

Rumus Percepatan menggunakan PHP Xampp

Membuat Kalkulator Sin,Cos,Bin,Hex,Dec,Oct menggunakan Virtual Basic 2010

Membuat Kalkulator sederhana menggunakan perintah Select Case VB 2010

Labels

recent posts

Blog Archive

Popular Posts

Followers