Nah itulah cara pembuatan form menggunakan html. semoga bermanfaat./** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
Struktur program jika hanya menggunakan 1(satu) kondisi
if (kondisi){
$aksi;
}
Bentuk struktur program jika menggunakan 2(dua) kondisi
if (kondisi){
$aksi jika kondisi terpenuhi:
}
else {
$aksi jika kondisi tidak terpenuhi;
}
Bentuk struktur program jika menggunakan 2(Dua) kondisi atau lebih
if (kondisi1){
$Aksi1 Jika kondisi1 terpenuhi;
}
else if (kondisi2){
$aksi2 jika kondisi1 terpenuhi;
}
else {
$Aksi3 jika kondisi2 tidak terpenuhi;
}
Sebagai contoh dalam bentuk PHP, saya akan mencoba membuat perintah if,else dan else if menggunakan lebih dari 2 konsisi dalam bentuk sederhana.
$nama="Fajar";
$nmbrg="Tsyu Paseo";
$jumbel=9;
$harga=5000;
$total=$harga*$jumbel;
if ($total > 50000){
$bonus="Pensil";
}
else if ($total>26000){
$bonus="Penghapus";
}
else {
$bonus="GA DAPAT APA-APA";
}
print"
";
print("Nama Kasir = $nama
");
print("Nama Barang = $nmbrg
");
print("Harga = $harga
");
print("Jumlah Beli = $jumbel
");
print("Total Beli = $total
");
print("Bonus = $bonus");
?>
Jika dijalankan maka hasilnya, jika pembelian lebih dari 50rb maka akan mendapatkan bonus pensi,dan jika pembelian kurang dari 26rb maka akan mendapatkan bonus penghapus, dan jika kurang dari 26rb maka hasilnya tidak akan mendapatkan bonus.
Mungkin itu saja yang bisa saya tuliskan tentang perintah if,else dan else if dalam PHP,dan silahkan tinggalkan komentar untuk koreksi jika ada kesalahan dalam penulisan contoh PHP.
Semoga bermanfaat.
/** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
| Nama | |
| URL | |
| Pesan | |
dan untuk kode php seperti ini :
$nama=$_GET['nama'];
$url=$_GET['url'];
$pesan=$_GET['pesan'];echo"Nama Anda : $nama
";
echo"URL Anda : $url
";
echo"Pesan Anda : $pesan";
?>
lhat urlnya pada web browser
yang menggunakan method post urlnya : http://localhost/latihan/lihat.php
dan jika menggunaka method get urlnya : http://localhost/latihan/hasilget.php?nama=Fajar345&url=http%3A%2F%2Ffajar345.com%2F&pesan=Pesan+dikirim..!!&kirim=KIRIM
Jadi kesimpulannya jika ingin membuat menu login menggunakan php sebaiknya menggunakan method POT karna apa yang yang kita kita input data login di dalam form semuanya akan ditampilkan oleh url.,,
Semoga bermanfaan/** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
Setelah itu tambahkan Skin label pada form vbKemudian tambah kan kode berikut pada form loadSkin1.LoadSkin App.Path + "\galaxy.skn": Galaxy.skn adalah nama dari skin yang terdapat pada C:\Program Files\ActiveSkin 4.3\Skins, sobat bisa ganti dengan jenis skin yang lain seperti green,mac,media dll.: copy paste skin yang ada di C:\Program Files\ActiveSkin 4.3\Skins pada folder tempat sobat menyimpan project vb.: ganti semua komponent label dengan komponen Skin label.Sampai disini tips untuk mempercatik tampilan vb, semoga bermanfaat. /** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892"; MEMBUAT FORM HTML
Kode html untuk form diatas seprti ini :
| Nama | |
| URL | |
| Pesan | |
Dan autput yang dihasilkan seperi ini :
Untuk kodenya seperti ini :
$nama=$_POST['nama'];
$url=$_POST['url'];
$pesan=$_POST['pesan'];echo"Nama Anda : $nama
";
echo"URL Anda : $url
";
echo"Pesan Anda : $pesan";
?>
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case (Me.ComboBox1.Text)
Case ("Paket 1")
Me.TextBox1.Text = "Rendang"
Me.TextBox2.Text = "Teh Manis"
Me.TextBox3.Text = "11000"
Case ("Paket 2")
Me.TextBox1.Text = "Ayam Goreng"
Me.TextBox2.Text = "Juice jeruk"
Me.TextBox3.Text = "15000"
Case ("Paket 3")
Me.TextBox1.Text = "Nasi Goreng"
Me.TextBox2.Text = "Es Teh"
Me.TextBox3.Text = "8000"
Case Else
Me.TextBox1.Text = "Nasi Bakar"
Me.TextBox2.Text = "Kopi"
Me.TextBox3.Text = "17000"
End Select
End Sub
Dan jika sobat ingin menggunakan perintah if caranya adalah seperti berikut :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Paket 1" Then
Me.TextBox1.Text = "Rendang"
Me.TextBox2.Text = "Teh Manis"
Me.TextBox3.Text = "110000"
ElseIf ComboBox1.Text = "Paket 2" Then
Me.TextBox1.Text = "Ayam Goreng"
Me.TextBox2.Text = "Juice Jeurk"
Me.TextBox3.Text = "150000"
ElseIf ComboBox1.Text = "Paket 3" Then
Me.TextBox1.Text = "Nasi Goreng"
Me.TextBox2.Text = "Es Teh"
Me.TextBox3.Text = "80000"
Else
Me.TextBox1.Text = "Nasi Bakar"
Me.TextBox2.Text = "Kopi"
Me.TextBox3.Text = "170000"
End If
End Sub
Sekarang sobat tinggal pilih mau menggunakan Case atau IF, selamat mecoba dan semoga bermanfaat./** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
Pertama-tama sobat buat dulu databasenya dengan menggunakan xampp jika belum punya softwere xampp nya silahkan download Disini untuk mengkoneksikannya dengan menggunakan ODBC connector yang bisa di download disini jika sudah membuat database kemudian koneksikan dengan menggukan odbc connector yang tadi sudah sobat dowload cara untuk mengkoneksikannya bisa dilihat disini kemudian buat form dengan menggunakan standar exe. silahkan sobat kreasikan sendiri formnya dan untuk perintah save sobat buat kode seperti ini
Private Sub cmdsave_Click()
Dim simpan as string
simpan="insert info nama-tabel-database() values('" & Text1.Text & "','"& Text2.Text &",'" & Text3.Text & "','"& Text4.Text &",'" & Text5.Text & "','"& Text6.Text &",'" & Text7.Text & "')"
Set Rsname=dbado.Execute(Simpan,adCmdText)
end sub
Mungkin itu saja perintah simpan yang postingkan hari ini semoga bermanfaat, mohon maaf jika kurang lengkap.
untuk perintah-perintah lainnya mungkin nanti saya akan coba postingkan lagi../** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
Private Sub Form_Load()
Label1.FontSize = 20
Label1 = "Selamat Datang Di fajar345.com"
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)
If (Label1.Left + Label1.Width) <= 0 Then
Label1.Left = Me.Width
End If
Label1.Left = Label1.Left - 100
End Sub
Setelah itu simpan project tersebut kemudian coba sbat runing maka hasilnya akan seperti ini :
Catatan
Ubah interval Timer menjadi 100label1.fontsize untuk ukuran huruflabel1="Text yang akan dimuculkan"label1.forecolor untuk warna text dan angka 250 untuk kecepatan kelap-keliplabel1.left=label1.left-100 untuk kecepatan berjalan textmungkin itu saja cara membuat text berjalan vb 6.0 yang saya bisa bagikan. Untuk Selanjutnya silahkan sobat coba kembangkan lagi..
Semoga bermanfaat.../** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
simpan dengan nama inputtamu.html di folder htdocs xampp
untuk output nya ketikan kode berikut :
$nama=$_POST['nama'];
$email=$_POST['email'];
$url=$_POST['url'];
$pesan=$_POST['pesan'];
$simpan="insert into tamu values ('$nama','$email','$url','$pesan')";
mysql_query("$simpan");
echo"
";
echo"Nama : $nama
";
echo"E-mail : $email
";
echo"URL : $url
";
echo"Pesan : $pesan
";?>
simpan dengan nama tamu.php ./** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.habsen.Enabled = False
Me.htugas.Enabled = False
Me.huts.Enabled = False
Me.huas.Enabled = False
Me.Tabsen.Focus()
End Sub
Private Sub Tabsen_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tabsen.TextChanged
Me.habsen.Text = 0.1 * Val(Me.Tabsen.Text)
End Sub
Private Sub Ttugas_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ttugas.TextChanged
Me.htugas.Text = 0.2 * Val(Me.Ttugas.Text)
End Sub
Private Sub Tuts_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tuts.TextChanged
Me.huts.Text = 0.3 * Val(Me.Tuts.Text)
End Sub
Private Sub Tuas_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tuas.TextChanged
Me.huas.Text = 0.4 * Val(Me.Tuas.Text)
End Sub
Private Sub Bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhitung.Click
'source code untuk menghitung total nilai
Me.Ttotal.Text = Val(Me.habsen.Text) + Val(Me.htugas.Text) + Val(Me.huts.Text) + Val(Me.huas.Text)
'perintah percabangan untuk mengetahui hasil Grade
If Me.Ttotal.Text >= 80 And Me.Ttotal.Text <= 100 Then
Me.Tgrade.Text = "A"
ElseIf Me.Ttotal.Text >= 69 And Me.Ttotal.Text <= 79 Then
Me.Tgrade.Text = "B"
ElseIf Me.Ttotal.Text >= 56 And Me.Ttotal.Text <= 68 Then
Me.Tgrade.Text = "C"
ElseIf Me.Ttotal.Text >= 40 And Me.Ttotal.Text <= 55 Then
Me.Tgrade.Text = "D"
Else
Me.Tgrade.Text = "E"
End If
'source code untuk keterangan lulus
If Me.Tgrade.Text = "A" Or Me.Tgrade.Text = "B" Or Me.Tgrade.Text = "C" Then
Me.Tket.Text = "LULUS"
Else
Me.Tket.Text = "GAGAL"
End If
End Sub
Private Sub Bulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bulang.Click
Me.Tabsen.Text = ""
Me.Ttugas.Text = ""
Me.Tuts.Text = ""
Me.Tuas.Text = ""
Me.habsen.Text = ""
Me.htugas.Text = ""
Me.huts.Text = ""
Me.huas.Text = ""
Me.Ttotal.Text = ""
Me.Tgrade.Text = ""
Me.Tket.Text = ""
End Sub
Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
Dim p As String
p = MsgBox("Keluar Aplikasi??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If p = vbYes Then
Me.Close()
End If
End Sub
Itulah contoh membuat percabangan if else dan else if menggunakan VB.Net semoga bermanfaat./** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";
TuneUp Utilities secara otomatis menjalankan tugas-tugas pemeliharaan Komputer/Laptop Anda, membuat Anda mengetahui setiap masalah dan menawarkan solusi sederhana. Hal ini menjamin kinerja selalu yang terbaik. Sebuah komputer yang lambat dan berantakan adalah masa lalu untuk Anda. Anda juga dapat menggunakan TuneUp Utilities untuk menyesuaikan tampilan sistem Windows.
Your browser does not support iframes.
Berikut 2 keunggulan yang dimiliki oleh website penyedia layanan penyadap SMS dan telepon yaitu Bloove :
