Program 5 Penggunaan Font Color

Program 5 Penggunaan Font Color

berikut hasilnya

Program 4 Penggunaan Style di HTML

Program 4 Penggunaan Style di HTML
-----------------------------------------------

Nah temen-temen belajar pakai tag dan tag ya...

berikut hasilnya

Nah sekarang coba gimana caranya bikin tulisa AKU SUKSES bold+italic ya...

Program 3 Paragraf dan Baris Baru di HTML

Membuat Paragraf dan Baris Baru
berikut kombinasi tampilannya
WARNA BEBAS

berikut hasilnya

SELAMAT MENCOBA :)

NEXT PROGRAM 4

Program 2 Pemakaian Heading di HTML

Pemakain Heading...

Silakan dicoba... 

SELAMAT MENCOBA

NEXT PROGRAM 3

Program 1 Struktur Dasar HTML

Mudah banget,

1. Pilih editor nya pake Notepad / Notepad++

2. Simpan dengan nama bebas di folder bebas, dengan EKSTENSI ( .html)

3. Jalankan di peramban yang kamu punya... :)

tidak usah pake XAMPP dulu...karena belum butuh database :)

SELAMAT MENCOBA GENGS...

NEXT PROGRAM 2

Koding Muncul Data dari Database ke ComboBox / Panggil Data dari ComboBox

Koding Muncul Data di ComboBox / Panggil Data dari ComboBox
----------------------------------------------------------------------------------

 Sub panggilcombo()
        cmd = New OleDbCommand("select nama from kasir", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            If dr.HasRows Then
                ckasir.Items.Add(dr.Item("nama"))
            End If
        Loop
    End Sub

Koding UBAH / UPDATE pada vb.net access

Koding UBAH / UPDATE vb.net
Sebelumnya memang pernah nulis koding ubah, cari aja di
-----------------
sekarang kamu bisa cobain koding ini juga ya...

    Private Sub bubah_Click(sender As Object, e As EventArgs) Handles bubah.Click
        If tid.Text = "" Then
            MsgBox("ID BELUM DIISI", MsgBoxStyle.Information, "INFORMASI")
            Exit Sub
        End If
        cmd = New OleDbCommand("SELECT * from buku where idbuku = ' " & tid.Text & " ' ", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            Dim update As String = "update buku set judul ='" & tjudul.Text & "', penulis ='" & tpenulis.Text & "', penerbit ='" & tpenerbit.Text & " ' where idbuku = ' " & tid.Text & " ' "
            cmd = New OleDbCommand(update, conn)
            cmd.ExecuteNonQuery()
            Call tampil()
            Call kosong()
        End If
    End Sub