Bikin Preloader di ASP.net pake Ajax

Well well…. Kadang user tuh suka gak sabaran ya nungguin loading di suatu web, secara aq juga begitu. Kalo lagi buka web dan dalam 5 detik masih proses pasti pada ngedumel. Kenapa nih web lemot banget…. Ya ya ya biar mreka tau kalo program kita lagi in progress alias masih ngelakuin suatu proses (proses ya bukan lemot), kita kasih tanda aja kalau lagi proses. Tanda lagi proses itu dikenal dengan nama Preloader. Mmmm klo di flash emang namanya preloader tapi kalo di visual studio apa ya namanya? Aq belum tau hehehe… Anggep aja sama lah ya

Gini nih cara bikinnya…

1. Siapin file kamu yg akan dikasih preloader dan tambahkan komponen UpdateProgress. Eh perlu diinget nih kawan, form page kita neh harus ajax enable ya dan harus ada komponen UpdatePanel sama ScriptManager dan UpdateProgress kita masukin dalem UpdatePanel. Kayak punyaq gini nih

Cek Validasi Email dan URL pake REGEX

Sebagai developer ada kalanya ketika membuat sebuah aplikasi, kita menemui hal dimana user menginput suatu isian yang harus sesuai dengan format yang telah ditentukan. Dalam pengecekan tersebut tidak cukup hanya dengan menggunakan client side checking seperti java script dan ajax MaskedEditExtender atau ajax ValidatorCalloutExtender sebab pengecekan tersebut tidak berfungsi ketika user mematikan java scipt pada browser. Oleh karena itu, kita juga harus melakukan pengecekan pada server side atau inside code. Kali ini saya akan membahas tentang pengecekan validasi alamat email dan URL menggunakan REGEX atau Regular Expression yang telah disediakan oleh Visual Studio. Berikut fungsi yang harus kita buat :

Code untuk cek validasi alamat email :

Public Class EmailValidation
 Public Function CekEmail(ByVal EmailAddress As String) As Boolean
 Dim rumus As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
 Dim EmailAddressMatch As Match = Regex.Match(EmailAddress, rumus)
 If EmailAddressMatch.Success = True Then
 CekEmail = True
 Else
 CekEmail = False
 End If
 Return CekEmail
 End Function
End Class

Export Crystal Report ke PDF dengan VB.Net

Seorang teman pernah bertanya kepada saya “Ada gak trik untuk output dokumen dari Crystal Report di ASP.Net”. Dan aku bilang aja mending crystal reportnya di export ke PDF. Langkahnya antara lain :

1. Siapkan file crystal report yg akan diexport dan sebuah halaman web dengan component Crystal Report Viewer, Cristal Report Source dan sabuah tombol.
2. Ketikkan Source Code berikut :

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim TargetFileName As String
 Dim fs As FileStream
 Dim FileSize As Long
 Dim oRD As New ReportDocument()
 Dim oExO As ExportOptions
 Dim oExDo As New DiskFileDestinationOptions()

 System.IO.Directory.CreateDirectory(Server.MapPath("Coba"))
 TargetFileName = Server.MapPath("coba/coba.pdf")

 oRD.Load(Server.MapPath("coba.rpt"))

 oExDo.DiskFileName = TargetFileName
 oExO = oRD.ExportOptions
 oExO.ExportDestinationType = ExportDestinationType.DiskFile
 oExO.ExportFormatType = ExportFormatType.PortableDocFormat
 oExO.DestinationOptions = oExDo
 oRD.Export()
 oRD.Close()

 Response.Clear()
 Response.Buffer = True
 Response.AddHeader("Content-Disposition", "attachment;filename=3DMyReport.pdf;")
 fs = New FileStream(TargetFileName, FileMode.Open)
 FileSize = fs.Length
 Dim bBuffer(CInt(FileSize)) As Byte
 fs.Read(bBuffer, 0, CInt(FileSize))
 fs.Close()

 Response.BinaryWrite(bBuffer)
 Response.Flush()
 Response.Close()
 End Sub

3. Tambahkan juga source berikut :

Imports System.IO
Imports System.Data
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Fungsi Cek Koma dengan VB.Net

Pelajaran pertama tentang bikin fungsi dari mas Hendra. Ini fungsi udah dibikin sekitar 6 bulan yg lalu baru pengen aq publish sekarang hehehe…

Okeh deh ini source code functionnya :

 Public Function cek_koma(ByVal stringku As String) As Boolean
 Dim panjang As Integer = 0
 Dim jumlah As Integer = 0
 Dim cetak1 As Boolean = True
 Dim cetak2 As Boolean = True
 Dim cetak3 As Boolean = False
 Dim cetak4 As Boolean = False
 Dim i As Integer = 0

 panjang = Len(stringku)

 If stringku(0) = "0" And stringku(1) <> "," Then
 cetak1 = False
 Else
 cetak1 = True
 End If

 For i = 0 To panjang - 1
 If stringku(0) = "," Then
 cetak2 = False
 Else
 cetak2 = True
 End If
 Next
 For i = 0 To panjang - 1
 If stringku(i) = "," Then
 jumlah += 1
 End If
 Next
 If jumlah < 2 Then
 cetak3 = True
 Else
 cetak3 = False
 End If
 If cetak1 = True And cetak2 = True And cetak3 = True Then
 cetak4 = True
 Else
 cetak4 = False
 End If
 Return cetak4
 End Function

Binary Integer Check pada VB.net

Dapet resep dari si “Oom Bule”, analis di kantor yg kebetulan kerja bareng sama aq. Algoritma ini sangat simpel namun banyak sekali manfaatnya. Saya baru mengaplikasikannya pada saat saya membangun suatu Security System. Konsepnya sangat simple, yaitu setiap item merupakan suatu nilai integer dari 2^n-1 dimana n merupakan item keberapa dari item yg kita tambahkan, seperti berikut :

2⁰ = 1

2¹ = 2

2² = 4

2³ = 16

2⁴ = 32

……

dst…..

Sebagai contoh akan kita aplikasikan sebagai value dari suatu check box list. Langkahnya adalah sebagai berikut :

1. Buatlah suatu halaman web dan tambahkan component checkbox list.

2. Tambahkan 5 item dengan masing-masing value 2^n-1 dimana n adalah item keberapa sehingga kita dapatkan item1 = 1, item2 = 2, item3 = 4 dan seterusnya serta satu buah textbox dan button.