Blog Tentang Informasi Tutorial Desain Web Dan Info Terkini

PEMROGRAMAN TERSTRUKTUR




Data base di form di klik general

Dim db As Database
Dim tb As Recordset

Di dalam comand

Private Sub Command1_Click()
tb.AddNew
tb!npm = Tnpm.Text
tb!nama_mhs = Tnama.Text
tb.Update
Tnpm.Text = ""
Tnama.Text = ""
Tnpm.SetFocus
Data1.Refresh

End Sub

Di dalam form
Private Sub Form_Load()
Set db = OpenDatabase("d:\vb\dbuka.mdb")
Set tb = db.OpenRecordset("mahasiswa")
End Sub


Cara membuat table

Add ins
File
New database
Ms acces versi 7

Simpan data base di folder
Simpan

Di dalam tampilan properties
Klik kanan
New table


Muncul tampilan struktur
Kasih nama

Add field
Name n n text ukuran di isi
Ok

Close

Add index

Klik di available fields
Sampai mncul di indexes field

Kasih nama

Ok
Close




Cara koneksi data base

Dalam properties : pilih DataBaseName
Pilih databasenya

Terus pilih recordsource : lalu pilih tablenya

Nested if

Didalam command

Private Sub Command1_Click()
If Val(Text1.Text) >= 60 Then
Text2.Text = " lulus"
Else
Text2.Text = "tidak lulus"
End If

If Val(Text1.Text) >= 80 And Val(Text1.Text) <= 100 Then
Text3.Text = "A"
Else
If Val(Text1.Text) >= 70 And Val(Text1.Text) <= 79 Then
Text3.Text = "B"
Else
If Val(Text1.Text) >= 60 And Val(Text1.Text) <= 69 Then
Text3.Text = "C"
Else
If Val(Text1.Text) >= 50 And Val(Text1.Text) <= 59 Then
Text3.Text = "D"
Else
If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 49 Then
Text3.Text = "E"

End If
End If
End If
End If
End If
End Sub


Klo langsung pengen keluar angka
Klik di dalam text 1
Lalu pilih change

Private Sub Text1_Change()
If Val(Text1.Text) >= 60 Then
Text2.Text = " lulus"
Else
Text2.Text = "tidak lulus"
End If

If Val(Text1.Text) >= 80 And Val(Text1.Text) <= 100 Then
Text3.Text = "A"
Else
If Val(Text1.Text) >= 70 And Val(Text1.Text) <= 79 Then
Text3.Text = "B"
Else
If Val(Text1.Text) >= 60 And Val(Text1.Text) <= 69 Then
Text3.Text = "C"
Else
If Val(Text1.Text) >= 50 And Val(Text1.Text) <= 59 Then
Text3.Text = "D"
Else
If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 49 Then
Text3.Text = "E"

End If
End If
End If
End If
End If

End Sub





WEB

External css
style sheet eksternal sangat ideal bila gaya akan diterapkan ke banyak halaman:
<link rel="stylesheet" type="text/css" href="test.css" />

Internal css
Style sheet internal harus digunakan ketika sebuah halaman web tunggal memiliki gaya yang unik dari sisa situs Anda.
<head>
<style type="text/css">
body {color: black; background-color: white;}
p {color: black;}
</ Style>
</ Head>

Inline css
Gaya inline harus digunakan bila gaya yang unik adalah untuk diterapkan pada kejadian tunggal elemen

<td style="color: white; background-color: black">
Teks Anda akan berada di daerah ini.
</ Td>

Mhs.php
<body>
<center>
<form name="fmhs" action="simpan.php" method="post">
<table>
<tr>
<td colspan="3">MAHASISWA</td></tr>
<br>
<tr><td>Npm</td><td>:</td><td><input type:"text" name="npm" ></td>
</tr>

<tr>
<td>NAMA</td><td>:</td><td><input type:"text" name="nama" ></td>
</tr>

<tr>
<td>Prodi</td><td>:</td><td><select name="prodi">
<option value="ti">TI</option>
<option value="mi">MI</option>
<option value="ka">KA</option>
<option value="si">SI</option>

</select>
</td>
</tr>

<tr>

<td><input type="button" value="Simpan" class="x" ></td>

</tr>
</table>
</form>
</center>
</body>

- Link Relatif
Digunakan jika membuat suatu link pada page anda ke page lain pada komputer yang sama.
Bila dua page berada pada direktori sama, anda dapat menuliskan nama file html seperti
berikut :
<A HREF = �page_2.html�> Next </A>

- Link Absolut
Digunaka apabila anda membuat link ke page web lain yang berada pada web site lain di
internet. Contoh:
<A HREF = �http://www.mangosoft.com�>Click here if you want to see my home page</A>

Internet adalah sebuah jaringan komputer globak, yang terdiri dengan web. dari jutaan komputer yang saling terhubung dengan menggunakan protokol yang sama untuk berbagi informasi secara bersama
Web atau lengkapnya www (world wide web) adalah sebuah koleksi keterhubungan dokumen-dokumen multimedia yang disimpan di internet dan diakses menggunakan protocol (http).


colspan
<table border="1">
<tr>
<th>Month</th>
<th>Savings</th>
</tr>

<tr>
<td>January</td>
<td>$100</td>
</tr>

<tr>
<td>February</td>
<td>$100</td>
</tr>

<tr>
<td colspan="2">Sum: $180</td>
</tr>

</table>
Rowspan

<table width="100%" border="1">

<tr>
<th>Month</th>
<th>Savings</th>
<th>Savings for holiday!</th>
</tr>


<tr>
<td>January</td>
<td>$100</td>
<td rowspan="2">$50</td>
</tr>

<tr>
<td>February</td>
<td>$80</td>
</tr>

</table>
Tag : MATA KULIAH
0 Komentar untuk "PEMROGRAMAN TERSTRUKTUR"

INFO NEWS UPDATE

loading...
Back To Top