Parameter Lain dalam Menuliskan Source Code di Blog

Selain posting terdahulu ada beberapa konfigurasi parameter lainnya yang dapat di jadikan pilihan ketika menampilkan source code.

1. autolinks (true/false): membuat link URL pada source code. Default true.
2. collapse (true/false): jika true, maka source code akan disembunyikan (collapse) dan akan ditampilkan (expand) setelah diklik. Default false.
3. firstline (nomor): mengubah penomoran awal source code. Default nomor 1.
4. gutter (true/false): jika false, akan menyembunyikan penomoran source code. Default true.
5. highlight (nomor yang dipisahkan dengan koma): memilih baris source codeyang akan disorot. Contoh: 3,12,20.
6. htmlscript (true/false): jika true, maka kode HTML/XML akan disorot seperti ketika menuliskan kode PHP di dalam HTML. Default false.
7. light (true/false): jika true, akan menyembunyikan gutter dan toolbar. Default false.
8. padlinenumbers (true/false/integer): true untuk mengatur penomoran padding secara otomatis. False untuk penomoran padding tidak ada. Dan integer untuk pengaturan yang spesifik penomoran padding.
9. toolbar (true/false): false untuk menyembunyikan toolbar yang akan muncul ketika di hover pada kanan atas source code. Default true.
10. wraplines (true/false): jika false, menyebabkan baris kode memanjang ke samping (horizontal).

Contoh :

[sourcecode language=”vb” collapse=”true”]

Private Sub cmdSimpan_Click()
Dim msql, noiNd, namaSis, BlnBayar, Jumlah, SPP, LaiN As String
Dim jumlah1 As Double
Dim rs1 As New ADODB.Recordset

If txtnotA.Text <> "" Then
 cnn.BeginTrans
 msql = "select * from tbbayardetail where Nota='" & txtnotA.Text & "'"

 Set rs = cnn.Execute(msql)

 If Not rs.EOF Then
 rs.MoveFirst
 Do While Not rs.EOF
 noiNd = rs.Fields("NIS")
 namaSis = rs.Fields("NamaSiswa")
 BlnBayar = rs.Fields("Bulan")
 SPP = rs.Fields("BesarSPP")
 LaiN = rs.Fields("BiayaLain")
 Jumlah = rs.Fields("Jumlah")

 msql = "select * from tbcatbayar where NIS='" & noiNd & "'"

 Set rs1 = cnn.Execute(msql)

 If rs1.EOF Then

 msql = "insert into tbcatbayar(NIS,NamaSiswa,Bulan," & _
 "BesarSPP,BiayaLain,SubTotal)" & _
 "values('" & noiNd & "', '" & namaSis & "', " & _
 "'" & BlnBayar & "', " & Val(SPP) & ", " & _
 "" & Val(LaiN) & ", " & Val(Jumlah) & ")"

 cnn.Execute (msql)
 Else
 msql = "Update tbcatbayar set " & _
 "Bulan='" & BlnBayar & "'," & _
 "BesarSPP='" & Val(SPP) & "', " & _
 "BiayaLain='" & Val(LaiN) & "', " & _
 "SubTotal='" & Val(Jumlah) & "' where NIS='" & noiNd & "'"

 cnn.Execute (msql)

 End If

 rs1.Close

 If Not rs.EOF Then
 rs.MoveNext
 End If
 Loop
 End If

 rs.Close

 Rem + record
 msql = "insert into tbbayar(Nota,Tanggal,NIP,Nama,Bagian,Penyetor,SubTotal)" & _
 "values('" & txtnotA.Text & "', '" & DTP1.Value & "'," & _
 "'" & txtNIP.Text & "', '" & txtNamaPetugas.Text & "'," & _
 "'" & txtBagian.Text & "', '" & txtPembayaR.Text & "', " & _
 "" & Val(mseSubTotaL.Text) & ")"

 cnn.Execute (msql)

 txtPembayaR.Enabled = False
txtnotA.Enabled = False
txtNIP.Enabled = False
txtNamaPetugas.Enabled = False
txtBagian.Enabled = False
txtNIS.Enabled = False
txtNamaSiswa.Enabled = False
CboKelas.Enabled = False
CBOPembayaran.Enabled = False
mseBesarSPP.Enabled = False
mseBiayaLain.Enabled = False
txtProdI.Enabled = False
mseSubTotaL.Enabled = False

cmdSimpan.Enabled = False
cmdBataL.Enabled = False
cmdTambah.Enabled = True
cmdcetaK.Enabled = True

cnn.CommitTrans
End If

End Sub

Tinggal klik yang di atas.