skrip untuk halaman index.html adalah :
<HTML>
<HEAD>
<TITLE>Program Sistem Informasi Sekolah</TITLE>
</HEAD>
<FRAMESET ROWS="180,*" border=1>
<FRAME SRC="judul.html" SCROLLING=NO NORESIZE>
<FRAMESET COLS="200,*">
<FRAME SRC="menu.html" NORESIZE>
<FRAME SRC="prakata.html" NAME="FRAME-3">
</FRAMESET>
</FRAMESET>
</HTML>
skrip untuk halaman judul.html adalah :
<html>
<head>
<title>
Program
</title>
</head>
<body BGcolor=#CCCCCC>
<br>
<center><font size=6 color=blue><b>PROGRAM SISTEM INFORMASI SEKOLAH<b></font></center>
<br>
<center><font size=5 color=blue><b>SMA NEGERI KEPANJEN<b></font></center>
<br>
<center><font size=5 color=red><b>( Skrip untuk Entry dan Lihat Data )<b></font></center>
<br>
</body>
</html>
skrip untuk halaman menu.html adalah :
<html>
<head>
<title>
</title>
</head>
<body bgcolor=#cccccc>
<font face="Comic Sans MS">
<br>
DAFTAR MENU
<br>
<br>
<A HREF="profile.html" TARGET="FRAME-3">Profile Sekolah</A><br>
Sekilas SMA<br>
Data Siswa<br>
<A HREF="entrysiswa.php" TARGET="FRAME-3">Entry Data Siswa</A><br>
<A HREF="lihatsiswa.php" TARGET="FRAME-3">Lihat Data Siswa</A><br>
Data Guru<br>
Saran Prasarana<br>
Kurikulum<br>
Humas<br>
<A HREF="bukutamu.php" TARGET="FRAME-3">Mengisi Buku Tamu</A><br>
<A HREF="lihat.php" TARGET="FRAME-3">Melihat Buku Tamu</A><br>
</font>
</body>
</html>
Rabu, 25 Februari 2009
SIS ( Entry & View Data Siswa)
Senin, 23 Februari 2009
VB Chapter 3 Calculator
Source : www.planetsourcecode.com
Program/skrip dapat dilihat di selengkapnya.
Untuk properties dari masing-masing objek seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9
Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya seperti ini (anda sisipkan di general) :
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
Rabu, 18 Februari 2009
Soal Pemrograman Web 1
1. Tag HTML untuk membuat link adalah:
A. < a href=”URL/nama file”> </a>
B. < link=”URL/nama file”> </link>
C. < a link=”URL/nama file”> </a>
D. < href=”URL/nama file”> </href>
2. HTML singkatan dari:
A. High Text Multi Language
B. Hyper Text Markup Language
C. Hyper Text Multi Languange
D. High Text Markup Language
3. CSS singkatan dari:
A. Cascading Sensitive Sheet
B. Cascading Style Sheet
C. Case Sensitive Sheet
D. Case Style Sheet
4. Properti yang berguna untuk mengatur warna bingkai tabel adalah:
A. border-style
B. color-border
C. border-color
D. table-color
5. Suatu bentuk hubungan interaktif dimana client dapat mengirimkan masukan ke server, dan server mengolah masukan tersebut kemudian dikembalikan kepada client, adalah konsep dari
A. CGI
B. Internet
C. HTML
D. Javascript
6. Perl adalah singkatan dari:
A. Practical Extraction and Reporting Language
B. Practical Emulation and Reporting Language
C. Principal Extraction and Reporting Language
D. Principal Emulation and Reporting Language
7. Tag HTML yang menandakan kita menggunakan Javascript adalah
A. < script language=”javascript”> </script>
B. < javascript> </javascript>
C. < script=”javascript”> </script>
D. < language=”javascript”> </language>
8. Apa guna function dalam Javascript
A. memanggil script Java
B. menentukan jenis bahasa yang dipakai
C. elemen yang harus ada pada Javascript
D. menyatukan beberapa perintah
9. Tag yang digunakan untuk ganti baris
A. < a>
B. < b>
C. < p>
D. < br>
10. Tag HTML untuk menjalankan program Javascript yang disimpan dalam bentuk file adalah
A. < script language=”file.js”> </script>
B. < script=”file.js”> </script>
C. < script src=”file.js”> </script>
D. < script> “file.js” </script>
11. Tag yang digunakan untuk membuat paragraf adalah
A. < p>
B. < b>
C. < pr>
D. < br>
12. Pasangan tag <STYLE> dan </STYLE> digunakan untuk
A. Membuat link
B. Membuat paragraf
C. Mendefinisikan style sheet
D. Memberi komentar dalam HTML
13. Bahasa pemrograman yang ditempatkan/ditempelkan pada HTML dan akan diproses oleh web client adalah
A. Javascript
B. ASP
C. PHP
D. ASP .Net
14. Tag HTML untuk menampilkan gambar adalah
A. < src img=”file.jpg”>
B. < scr img=”file.jpg”>
C. < img scr=”file.jpg”>
D. < img src=”file.jpg”>
15. Untuk membuat judul tabel digunakan tag
A. < table>
B. < td>
C. < th>
D. < tr>
Rabu, 11 Februari 2009
Membuat Buku Tamu dengan PHP dan MySQL
buat tabel : bukutamu
field tabel : nama varchar 30, pesan text, tanggal date.
File php yang harus dibuat adalah :
bukutamu.php
Skripnya bukutamu.php nya :
<html>
<head>
<title>Halaman Buku tamu</title>
</head>
<body>
Buku tamu - <a href="lihat.php">lihat isi buku tamu</a><br />
<br>
<hr>
Isilah buku tamu kami<br>
<br>
<br>
<form id="form1? name="form1? method="post" action="isi.php">
nama
<input type="text" name="nama" id="nama" />
<br>
<br>
pesan
<textarea name="pesan" id="pesan" cols="45? rows="5?></textarea>
<br>
<br>
<hr>
<input type="submit" name="Submit" id="Submit" value="Submit" />
</form>
</body>
</html>
isi.php
<html>
<head>
<title>Input Data dari Form ke MySQL</title>
</head>
<body>
<?php
$nama = $_POST['nama'];
$pesan = $_POST['pesan'];
$conn = mysql_connect("localhost","root","");
if (!$conn) {
echo "Could not connect to db";
exit(1);
}
$db = mysql_select_db("latihan",$conn);
$sqlText = "insert into bukutamu(nama, pesan,tanggal)
values('$nama','$pesan',NOW(''))";
mysql_query($sqlText);
?>
Buku tamu - <a href=lihat.php>lihat isi buku tamu</a><br />
</body>
</html>
lihat.php
skrip lihat.php adalah :
<html>
<head>
<title>Daftar Data yang ada di MySQL</title>
</head>
<body bgcolor="#000000">
<a href=bukutamu.php>Isi Buku Tamu</a><br />
<font color="#FFFFFF" size="3">Isi buku tamu<br />
<br />
<?php
$conn = mysql_connect("localhost","root","");
if (!$conn) {
echo "Could not connect to db";
exit(1);
}
$db = mysql_select_db("latihan",$conn);
$sqlText = "select * from bukutamu";
$result = mysql_query($sqlText);
while($row=mysql_fetch_object($result))
{
?>
<strong>Nama</strong>: <?php echo $row->nama;?><br />
<strong>Pesan</strong>: <?php echo $row->pesan;?><br />
<br />
<?php } ?>
<marquee>
---
</marquee>
</font> <font color="#FFFFFF">
<marquee>
</marquee>
</font>
<marquee>
<font color="#FF0000" size="3">AYO KAMU BISA BIKIN PROGRAM PAKE PHP
running text</font>----
</marquee>
</body>
</html>
Senin, 09 Februari 2009
Kamis, 05 Februari 2009
Belajar VB chapter 1
Private Sub Command1_Click()
Label5.Caption = "Luas Segi3 nya adalah"
Text4 = Val(Text1.Text) * Val(Text2.Text) * 0.5
End Sub
Private Sub Command2_Click()
Label5.Caption = "Volumenya adalah"
Text4 = 4 / 3 * Val(Text3.Text) ^ 3 * 3.14
End Sub