Konsep Dan Cara Kerja PHP

Konsep atau cara kerja HTML itu sangat sederhana, yaitu berawal dari client yang memanggil berdasarkan URL (Uniform Resource Locator) melalui browser, kemudian browser mendapat alamat dari web server, yang nantinya akan memberikan segala informasi yang dibutuhkan web browser. Web browser yang sudah mendapat informasi segera melakukan proses penterjemahan kode HTML dan menampilkannya ke layar pemakai.

Konsep HTML

Hampir sama denga konsep kerja HTML, konsep kerja PHP
hanya perlu penterjemahan khusus untuk kode-kode PHP yang nantinya akan diterjemahkan oleh mesin PHP ke kode HTML terlebih dahulu sebelum diterjemahkan browser untuk ditampilkan di layar klien. Untuk lebih jelasnya lihat skema yang ada untuk membandingkan konsep kerja HTML dengan PHP.

konsep PHP

PHP dan DATABASE
Salah satu kelebihan yang ada pada PHP yaitu mampu berkomunikasi dengan database yang beraneka ragam. Maka, PHP bisa menampilkan isi database dengan dinamis dan mudah diimplementasikan, sehingga membuat PHP disebut sangat cocok untuk membuat web yang paling dinamis.
Sampai saat ini, PHP sudah dapat berkomunikasi dengan berbagai macam database dengan kelengkapan yang berbeda-beda, diantaranya :

• MySQL
• MSQL
• Oracle
• Inges
• Ms Access
• InterBase
• DBM
• Informix
• FilePro (Personix, Inc)
• Sybase, dan
• PostgreSQL.

Itu tadi sedikit penjelasan tentang konsep kerja PHP dan hubungan PHP dengan Database, semoga bermanfaat bagi semuanya.

Tugas Praktek VB

Tugas Praktek VB 2 kita yang terakhir..
"Display Daftar Mata Kuliah"
.klik disini

Membuat Tabel Menggunakan DGV pada Visual Basic

Kodingnya kawan…

Imports System.IO

Imports System.IO.File

Public Class Form2

    Const PATH As String = "D:\supplier.txt"

    Const TEMP As String = "D:\temp.txt"

    Dim kode, nama, alamat, telepon As String

    Dim reader As StreamReader

    Dim writer As StreamWriter

    Dim r As BinaryReader

    Sub tampil()

        Me.dgvTampil.Rows.Clear()

        reader = File.OpenText(PATH)

        Dim i As Integer = 0

        While Not reader.EndOfStream

            Me.dgvTampil.Rows.Add()

            With Me.dgvTampil.Rows(i)

                .Cells(0).Value = reader.ReadLine

                .Cells(1).Value = reader.ReadLine

                .Cells(2).Value = reader.ReadLine

                .Cells(3).Value = reader.ReadLine

            End With

            i += 1

        End While

        reader.Close()

    End Sub

    Sub bersih()

        Me.txtTelepon.Clear()

        Me.txtAlamat.Clear()

        Me.txtNama.Clear()

        Me.txtKode.Clear()

        Me.txtKode.Focus()

    End Sub

    Function periksaSupplier(ByVal kodeCari As String) As Boolean

        reader = File.OpenText(PATH)

        While Not reader.EndOfStream

            If kodeCari.ToUpper = reader.ReadLine.ToString.ToUpper Then

                reader.Close()

                Return True

            End If

        End While

        reader.Close()

        Return False

    End Function

    Function koleksiSupplier(ByVal kodeCari As String) As ArrayList

        Dim supp As New ArrayList

        reader = File.OpenText(PATH)

        While Not reader.EndOfStream

            kode = reader.ReadLine

            nama = reader.ReadLine

            alamat = reader.ReadLine

            telepon = reader.ReadLine

            If kodeCari.ToUpper = kode.ToUpper Then

                supp.Add(nama)

                supp.Add(alamat)

                supp.Add(telepon)

                reader.Close()

                Return supp

            End If

        End While

        reader.Close()

        Return Nothing

    End Function

    Function periksaInput(ByVal kodeInput As String, ByVal namaInput As String, ByVal alamatInput As String, ByVal teleponInput As String) As Boolean

        If kodeInput.Trim.Length = 0 Then

            MsgBox("Kode harus diisi")

            Return False

        ElseIf namaInput.Trim.Length = 0 Then

            MsgBox("Nama harus diisi")

            Return False

        ElseIf alamatInput.Trim.Length = 0 Then

            MsgBox("Alamat harus diisi")

            Return False

        ElseIf teleponInput.Trim.Length = 0 Then

            MsgBox("Telepon harus diisi")

            Return False

        End If

        Return True

    End Function

    Sub rename(ByVal oldName As String, ByVal newName As String)

        File.Delete(newName)

        File.Copy(oldName, newName)

        File.Delete(oldName)

    End Sub

    Sub tambah()

        If periksaSupplier(Me.txtKode.Text) = True Then

            MsgBox("Supplier sudah ada")

            Exit Sub

        End If

        If periksaInput(Me.txtKode.Text, Me.txtNama.Text, Me.txtAlamat.Text, Me.txtTelepon.Text) = False Then

            Exit Sub

        End If

        writer = File.AppendText(PATH)

        writer.WriteLine(Me.txtKode.Text)

        writer.WriteLine(Me.txtNama.Text)

        writer.WriteLine(Me.txtAlamat.Text)

        writer.WriteLine(Me.txtTelepon.Text)

        writer.Close()

        End Sub

    Sub ubah()

        If periksaSupplier(Me.txtKode.Text) = False Then

            MsgBox("Supplier belum ada")

            Exit Sub

        End If

        If periksaInput(Me.txtKode.Text, Me.txtNama.Text, Me.txtAlamat.Text, Me.txtTelepon.Text) = False Then

            Exit Sub

        End If

        reader = File.OpenText(PATH)

        writer = File.AppendText(TEMP)

        While Not reader.EndOfStream

            kode = reader.ReadLine

            nama = reader.ReadLine

            alamat = reader.ReadLine

            telepon = reader.ReadLine

            If kode.ToUpper = Me.txtKode.Text.ToUpper Then

                writer.WriteLine(Me.txtKode.Text)

                writer.WriteLine(Me.txtNama.Text)

                writer.WriteLine(Me.txtAlamat.Text)

                writer.WriteLine(Me.txtTelepon.Text)

            Else

                writer.WriteLine(kode)

                writer.WriteLine(nama)

                writer.WriteLine(alamat)

Coding Visual Basic Bagan Tempat Duduk Pesawat Terbang

Public Class Tempat duduk pesawat terbang

Dim item As Integer

Public baris As Integer, bangku, kodebangku As Char

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

LstTempatDuduk.Items.Add(" A B C" & vbTab & "D E F")

For Me.item = 1 To 15

LstTempatDuduk.Items.Add("" & Space(4) & "." & Space(4) & "." & Space(4) & "." & Space(14) & "." & Space(4) & "." & Space(4) & ".")

Next

lblterisi.Text = "0"

lblkosong.Text = "90"

lblreg.Text = "0"

lblrdkal.Text = "0"

lblveg.Text = "0"

End Sub

Private Sub LstTempatDuduk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstTempatDuduk.Click

If LstTempatDuduk.SelectedIndex = 0 Then

TxtBaris.Clear()

TxtA.Clear()

TxtC.Clear()

TxtD.Clear()

TxtE.Clear()

TxtF.Clear()

Exit Sub

End If

baris = LstTempatDuduk.SelectedIndex.ToString

TxtBaris.Text = baris

TxtA.Text = GetChar(LstTempatDuduk.SelectedItem, 5)

TxtB.Text = GetChar(LstTempatDuduk.SelectedItem, 10)

TxtC.Text = GetChar(LstTempatDuduk.SelectedItem, 15)

TxtD.Text = GetChar(LstTempatDuduk.SelectedItem, 30)

TxtE.Text = GetChar(LstTempatDuduk.SelectedItem, 35)

TxtF.Text = GetChar(LstTempatDuduk.SelectedItem, 40)

End Sub

Private Sub TxtA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtA.Click

If TxtA.Text = "" Then Exit Sub

bangku = "A"

kodebangku = TxtA.Text

Form2.Show()

End Sub

Private Sub TxtB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtB.Click

If TxtB.Text = "" Then Exit Sub

bangku = "B"

kodebangku = TxtB.Text

Form2.Show()

End Sub

Private Sub TxtC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtC.Click

If TxtC.Text = "" Then Exit Sub

bangku = "C"

kodebangku = TxtC.Text

Form2.Show()

End Sub

Private Sub TxtD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtD.Click

If TxtD.Text = "" Then Exit Sub

bangku = "D"

kodebangku = TxtD.Text

Form2.Show()

End Sub

Private Sub TxtE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtE.Click

If TxtE.Text = "" Then Exit Sub

bangku = "E"

kodebangku = TxtE.Text

Form2.Show()

End Sub

Private Sub TxtF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtF.Click

If TxtF.Text = "" Then Exit Sub

bangku = "F"

kodebangku = TxtF.Text

Form2.Show()

End Sub

End Class

Public Class Form2

Dim bkntmptduduk, baris As Integer

Dim brstmptduduk As String

Dim terisi, jlhR, jlhL, jlhV As Integer

Dim kosong As Integer = 0

Sub hitung()

Dim no As Integer, huruf As Char, bangku As String

With Form1

For Me.baris = 1 To 15

.LstTempatDuduk.SetSelected(baris, True)

bangku = .LstTempatDuduk.SelectedItem

For no = 1 To 40

huruf = bangku.Substring(no - 1, 1)

Select Case huruf

Case "." : kosong += 1

Case "R" : jlhR += 1

Case "L" : jlhL += 1

Case "V" : jlhV += 1

End Select

Next

Next

.lblkosong.Text = kosong

.lblterisi.Text = 90 - kosong

.lblreg.Text = jlhR

.lblrdkal.Text = jlhL

.lblveg.Text = jlhV

.LstTempatDuduk.SetSelected(0, True)

End With

End Sub

Sub kosongkan()

With Form1

.TxtBaris.Clear()

.TxtA.Clear()

.TxtB.Clear()

.TxtC.Clear()

.TxtD.Clear()

.TxtE.Clear()

.TxtD.Clear()

.TxtF.Clear()

End With

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Posisi Tempat Duduk" & Space(4) & Form1.baris & Form1.bangku

Select Case Form1.bangku

Case "A" : bkntmptduduk = 5

Case "B" : bkntmptduduk = 10

Case "C" : bkntmptduduk = 15

Case "D" : bkntmptduduk = 30

Case "E" : bkntmptduduk = 35

Case "F" : bkntmptduduk = 40

End Select

Select Case Form1.kodebangku

Case "." : RdbBel.Checked = True

Case "R" : RdbReg.Checked = True

Case "L" : RdbRen.Checked = True

Case "V" : RdbVeg.Checked = True

End Select

End Sub

Private Sub RdbReg_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbReg.MouseClick

brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "R", bkntmptduduk, 1) & ""

Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)

Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)

Call kosongkan()

Me.Close()

Call hitung()

End Sub

Private Sub RdbBel_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbBel.MouseClick

brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, ".", bkntmptduduk, 1) & ""

Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)

Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)

Call kosongkan()

Me.Close()

Call hitung()

End Sub

Private Sub RdbRen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbRen.MouseClick

brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "L", bkntmptduduk, 1) & ""

Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)

Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)

Call kosongkan()

Me.Close()

Call hitung()

End Sub

Private Sub RdbVeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdbVeg.CheckedChanged

End Sub

Private Sub RdbVeg_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbVeg.MouseClick

brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "V", bkntmptduduk, 1) & ""

Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)

Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)

Call kosongkan()

Me.Close()

Call hitung()

End Sub

End Class

Coding Visual Basic Find and replace

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Me.CheckBox1.Checked = True Then

            Me.TxtInput.Text = Replace(Me.TxtInput.Text, Me.TxtPencarian.Text, Me.TxtSubtitusi.Text, 1, -1, CompareMethod.Binary)

        Else

            Me.TxtInput.Text = Replace(Me.TxtInput.Text, Me.TxtPencarian.Text, Me.TxtPencarian.Text, 1, -1, CompareMethod.Text)

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim tmp() As String = Me.TxtInput.Text.Split("")

        If Me.CheckBox1.Checked = True Then

            Me.TxtFrekuensi.Text = Filter(tmp, Me.TxtPencarian.Text, True, CompareMethod.Binary).Length

        Else

            Me.TxtFrekuensi.Text = Filter(tmp, Me.TxtPencarian.Text, True, CompareMethod.Text).Length

        End If

    End Sub

End Class

Coding Visual Basic Menghitung Faktorial

Public Class Hitung_Faktorial
    Dim nilai As Long
    Dim faktorial As Long

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        nilai = TxtBilangan.text
        If nilai <= 0 Or nilai = 1 Then
            LblFaktorial.Text = 1
        ElseIf nilai > 1 Then
            For Me.faktorial = nilai - 1 To 1 Step -1
                nilai = nilai * faktorial
            Next faktorial
            LblFaktorial.Text = nilai
        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        TxtBilangan.Clear()
        LblFaktorial.Text = ""
        TxtBilangan.Focus()

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Coding Visual Basic Menghitung Gaji Pegawai

Public Class Hitung_Gaji

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        If Me.RadA.Checked = True Then
            If TxtLamaKerja.Text < 6 Then
                LblBonus.Text = Val(TxtGaji.Text) * 0.05
            End If
            If Me.RadA.Checked = True Then
                If TxtLamaKerja.Text > 5 And TxtLamaKerja.Text <= 10 Then
                    LblBonus.Text = Val(TxtGaji.Text) * 0.1
                End If
                If Me.RadA.Checked = True Then
                    If TxtLamaKerja.Text > 10 And TxtLamaKerja.Text <= 15 Then
                        LblBonus.Text = Val(TxtGaji.Text) * 0.15
                    End If
                    If Me.RadA.Checked = True Then
                        If TxtLamaKerja.Text > 15 And TxtLamaKerja.Text <= 20 Then
                            LblBonus.Text = Val(TxtGaji.Text) * 0.2
                        End If
                        If Me.RadA.Checked = True Then
                            If TxtLamaKerja.Text > 20 And TxtLamaKerja.Text <= 25 Then
                                LblBonus.Text = Val(TxtGaji.Text) * 0.25
                            End If
                            If Me.RadA.Checked = True Then
                                If TxtLamaKerja.Text > 25 Then
                                    LblBonus.Text = Val(TxtGaji.Text) * 0.3
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        If Me.RadB.Checked = True Then
            If TxtLamaKerja.Text < 6 Then
                LblBonus.Text = Val(TxtGaji.Text) * 0.1
            End If
            If Me.RadB.Checked = True Then
                If TxtLamaKerja.Text > 5 And TxtLamaKerja.Text <= 10 Then
                    LblBonus.Text = Val(TxtGaji.Text) * 0.15
                End If
                If Me.RadB.Checked = True Then
                    If TxtLamaKerja.Text > 10 And TxtLamaKerja.Text <= 15 Then
                        LblBonus.Text = Val(TxtGaji.Text) * 0.2
                    End If
                    If Me.RadB.Checked = True Then
                        If TxtLamaKerja.Text > 15 And TxtLamaKerja.Text <= 20 Then
                            LblBonus.Text = Val(TxtGaji.Text) * 0.25
                        End If
                        If Me.RadB.Checked = True Then
                            If TxtLamaKerja.Text > 20 And TxtLamaKerja.Text <= 25 Then
                                LblBonus.Text = Val(TxtGaji.Text) * 0.3
                            End If
                            If Me.RadB.Checked = True Then
                                If TxtLamaKerja.Text > 25 Then
                                    LblBonus.Text = Val(TxtGaji.Text) * 0.35
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        LblTotalGaji.Text = Val(TxtGaji.Text) + Val(LblBonus.Text)

    End Sub

    Private Sub BtnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKosong.Click
        TxtGaji.Clear()
        TxtLamaKerja.Clear()
        LblBonus.Text = ""
        LblTotalGaji.Text = ""
        Me.RadA.Checked = False
        Me.RadB.Checked = False
        TxtGaji.Focus()

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End