Belajar Web (Dasar-dasar HTML) Bagian 1

Kita sering mendengar sebuah singkatan HTML (bukan milist motor) yang merupakan salah satu bahasa pemograman web. HTML yang kepanjangannya Hypertext Markup Languange merupakan standar bahasa yang digunakan untuk menampilkan dokumen web.

Untuk membuat dokumen web yang bisa ditampilkan di web browser, perlu menuliskan kode-kode HTML baik secara langsung (menggunakan editor Notepad) maupun secara tidak langsung (menggunakan software editor seperti Adobe Dreamweaver). Penulisan kode-kode HTML biasa disebut TAG, merupakan kode khusus yang merupakan komponen fundamental pada dokumen web dan akan dikenali oleh browser.

Nama TAG ditulis di dalam tanda " < " dan " > " dan untuk TAG penutup tambahkan tanda " / ". TAG boleh ditulis dengan UPPERCASE ataupun LOWERCASE, dan selalu digunakan sepasang. Contoh :

Beberapa TAG memiliki atau mengandung banyak atribut didalamnya, contoh : . Pada contoh dapat dijelaskan "p" adalah nama TAG yang mengartikan paragraf, sedangkan "align" nama atribut dan isinya "center" merupakan value dari atribut.

Pada sebuah dokumen HTML mempunyai struktur dasar yaitu sebagai berikut :

• TAG Utama adalah HTML, HEAD, BODY
• TAG "HTML" berfungsi untuk menyatakan bahwa dokumen tersebut adalah dokumen HTML
• TAG "HEAD" berfungsi untuk memberikan informasi tentang dokumen HTML tersebut.
• TAG "BODY" berfungsi untuk menyimpan informasi atau data yang akan ditampilkan dalam dokumen HTML.

Struktur dasar HTML akan terlihat sebagai berikut :



Untuk melihat bagaimana hasil dokumen HTML, silahkan salin kode diatas kedalam file notepad. Kemudian save as file notepad tersebut dengan type HTML. Buka file yang sudah tersimpan dengan type HTML tersebut dari browser.

Connect CR 8.5 dengan VB 6

Postingan kali ini saya memberikan contoh coding koneksi Crystal Report 8.5 dengan Visual Basic 6.0, adapun contoh barisan coding sebagai berikut :

1. Private Sub cmdbuat_Click()
2. Dim saring As String
3. If DTPicker1.Value > DTPicker2.Value Then
4. MsgBox "Periode Salah", vbCritical, "Periode"
5. Else
6. saring = "{TrAbsensi.TglMasuk} >= #" & Format(DTPicker1.Value, "mm/dd/yyyy
   
7. 00:00:00") & "#" & _
8. "and {TrAbsensi.TglMasuk} <= #" & Format(DTPicker2.Value, "mm/dd/yyyy
9. 00:00:00") & "#"
10. 
    
11. CR.WindowTitle = "Laporan Absensi"
12. CR.ReportFileName = App.Path + "\Reports\LapAbsensi.rpt"
13. CR.Formulas(1) = "tgl1='" & Format(DTPicker1.Value, "dd/mm/yyyy") & "'"
14. CR.Formulas(2) = "tgl2='" & Format(DTPicker2.Value, "dd/mm/yyyy") & "'"
15. CR.Formulas(3) = "IDBAG='" & Combo2.Text & "'"
16. If Combo2.Text <> "Semua" Then
17. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.Nama} = '" &
    
18. Combo2.Text & "' and {MstKaryawan.IDbagian} = '" & Combo1.Text & "'")
19. Else
20. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.IDbagian} = '" &
    
21. Combo1.Text & "'")
22. End If
23. CR.Destination = crptToWindow
24. CR.WindowState = crptMaximized
25. CR.Action = 1
26. End If
27. End Sub