Coding Penjualan Helm

Posted by Unknown on 04.30 in Coding Penjualan, HTML

Sub AKTIF()
Kode.Enabled = True
Nama.Enabled = True
Jenis.Enabled = True
S.Value = True
M.Value = True
L.Value = True
Harga.Enabled = True
Jumlah.Enabled = True
JumlahBayar.Enabled = True
PPN.Enabled = True
Total.Enabled = True
UangBayar.Enabled = True
UangKembali.Enabled = True
End Sub

Sub NONAKTIF()
Kode.Enabled = False
Nama.Enabled = False
S.Value = False
M.Value = False
L.Value = False
Harga.Enabled = False
Jumlah.Enabled = False
JumlahBayar.Enabled = False
PPN.Enabled = False
Total.Enabled = False
UangBayar.Enabled = False
UangKembali.Enabled = False
End Sub
Sub BERSIH()
Kode.Text = ""
Nama.Text = ""
Jenis.Enabled = True
S.Value = False
M.Value = False
L.Value = False
Harga.Text = ""
Jumlah.Text = ""
JumlahBayar.Text = ""
PPN.Text = ""
Total.Text = ""
UangBayar.Text = ""
UangKembali.Text = ""
End Sub

Private Sub Form_Load()
Kode.AddItem "N"
Kode.AddItem "I"
End Sub
Private Sub Input_Click()
AKTIF
BERSIH
End Sub

Private Sub Jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
JumlahBayar.Text = Val(Jumlah.Text) * Val(Harga.Text)
PPN.Text = 0.1 * Val(JumlahBayar.Text)
Total.Text = Val(JumlahBayar.Text) + Val(PPN.Text)
End If
End Sub
Private Sub Keluar_Click()
p = MsgBox("Yakin Mau Keluar???", vbQuestion + vbYesNo, "INFORMASI")
If p = vbYes Then
End If
End
End Sub

Private Sub Kode_Click()
If Kode.Text = "N" Then
Nama.Text = "NHK"
Else
Nama.Text = "INK"
End If
End Sub

Private Sub L_Click()
If Nama.Text = "NHK" Then
If Jenis.Text = "FULL FACE" Then
Harga.Text = 370000
Else
Harga.Text = 270000
End If
Else
Nama.Text = "INK"
If Jenis.Text = "HALF FACE" Then
Harga.Text = 420000
Else
Harga.Text = 320000
End If
End If
End Sub

Private Sub M_Click()
If Nama.Text = "NHK" Then
If Jenis.Text = "FULL FACE" Then
Harga.Text = 360000
Else
Harga.Text = 260000
End If
Else
Nama.Text = "INK"
If Jenis.Text = "HALF FACE" Then
Harga.Text = 410000
Else
Harga.Text = 310000
End If
End If
End Sub
Private Sub S_Click()
If Nama.Text = "NHK" Then
If Jenis.Text = "FULL FACE" Then
Harga.Text = 350000
Else
Harga.Text = 250000
End If
Else
Nama.Text = "INK"
If Jenis.Text = "HALF FACE" Then
Harga.Text = 400000
Else
Harga.Text = 300000
End If
End If
End Sub

Private Sub UangBayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
UangKembali.Text = Val(UangBayar.Text) - Val(JumlahBayar.Text)

End If
End Sub

Oh ya guys,
jangan lupa textBox, CommanButton, ComboBox, Dan Option Button pada properties Name di ganti yaaaaa..
thanks :)

Contoh Desain Web Sederhana Menggunakan HTML.

Posted by Unknown on 15.40 in HTML

Postingan saya kali ini terinspirasi dari tugas yang numpuk tadi. coba otak-atik sana-sini, jadilah hasilnya seperti dibawah ini. Sesuai ma judul diatas " Sederhana" jadi hasilnya pun sederhana. Dan saya yakin sobat" sekalian juga bisa membuat seperti ini atau bahkan lebih bagus dari ini. Tapi gak papa lah yaa.. ?

Disini saya akan mengulas tentang Contoh Web Sederhana Menggunakan Html yang mana disini saya mengambil sampel tentang " blog " khususnya Blog saya sendiri. dan sobat bisa meng edit" htmlnya dan pastinya tidak harus seperti ini. Yodahlah gak usah berpanjang lebar lagi, karena Panjang kali Lebar Persegi Panjang namanya.( hahaa.. gak nyambung! ). Ok lah sob disini saya akan memberikan scriptnya dalam bentuk Html beserta hasil / SS nya.

Contoh HTML Sederhana

Posted by Unknown on 15.24 in HTML

Belajar html tentunya tidah sulit, karena banyak program yang dapat menghasilkan dokumen dalam format html. Misal saja menggunakan notepad aplikasi bawaan windows.

Disini saya akan membagi contoh sederhana script html:

<html>

<head>

<title> Latihan HTML </title>

<head>

<body>

<h1> Belajar Website </h1>

<h2><b>HURUF TEBAL</b></h2>

<p><i>Huruf Miring</i><br><u>Garis Bawah</u> </p>

<h3>Daftar:</h3>

<p>Contoh Script HTML yang sederhana semoga dapat membantu anda</p>

</body>

</html>

MATERI HTML

Posted by Unknown on 15.11 in HTML

Pengertian HTML(Hyper Text Markup Languange)

HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web, menampilkan berbagai informasi di dalam sebuah Penjelajah web Internet dan formating hypertext sederhana yang ditulis kedalam berkas format ASCII agar dapat menghasilkan tampilan wujud yang terintegerasi. Dengan kata lain, berkas yang dibuat dalam perangkat lunak pengolah kata dan disimpan kedalam format ASCII normal sehingga menjadi home page dengan perintah-perintah HTML. Bermula dari sebuah bahasa yang sebelumnya banyak digunakan di dunia penerbitan dan percetakan yang disebut dengan SGML (Standard Generalized Markup Language), HTML adalah sebuah standar yang digunakan secara luas untuk menampilkan halaman web. HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C). HTML dibuat oleh kolaborasi Caillau TIM dengan Berners-lee robert ketika mereka bekerja di CERN pada tahun 1989 (CERN adalah lembaga penelitian fisika energi tinggi di Jenewa).

MATERI TENTANG INTERNET LENGKAP

Posted by Unknown on 15.49 in Internet

BAB I

PENGENALAN INTERNET

2.1 Pengertian internet

Internet (interconnection networking) dapat diartikan sebagai jaringan komputer luas dan besar yang mendunia, yaitu menghubungkan pemakai komputer dari suatu negara ke negara lain di seluruh dunia, dimana di dalamnya terdapat berbagai sumber daya informasi dari mulai yang statis hingga yang dinamis dan interaktif.

Secara umum ada banyak manfaat yang dapat diperoleh apabila seseorang mempunyai akses internet. Kita bisa menjelajah ke negara lain (melalui dunia maya tentunya) tanpa harus pergi kesana. Kita juga bisa berkomunikasi, bertransaksi (bisnis) melalui internet. Dan masih banyak lagi manfaat yang kita dapat jika kita berada di dalam dunia maya ini.

Dunia Internet

Coding Penjualan Helm

Contoh Desain Web Sederhana Menggunakan HTML.

Contoh HTML Sederhana

MATERI HTML

MATERI TENTANG INTERNET LENGKAP

Labels

Blog Archive

Mengenai Saya

Arsip Blog