Senin, 09 Juli 2012

Kalender dan Agenda dengan ASP.NET (Pemrograman ASP .NET)

Penulis pernah membahas tentang Membuat Aplikasi Web Calendar Menggunakan PHP. Anehnya beberapa bulan setelah program itu dibuat ada permintaan lain untuk membuat hal serupa tapi di web berbasis pemrograman ASP.NET.
Setelah browsing bagaimana cara memanggil (include) file di ASP dan berbagai penyesuaian ketika memporting aplikasi tersebut dari bahasa PHP ke ASP.NET, maka jadilah Aplikasi Web Calendar menggunakan ASP .NET berikut :

Langkah pertama buatlah file bernama calendar.aspx, kemudian tuliskan kode program berikut ini :



<% '@ Page Language="VB"%>
<%
Dim d = Now.Day
Dim m = Now.Month
Dim y = Now.Year
Dim nm = Now.ToString("MMMM")
Dim bln = System.Convert.ToString(Request.Params("bln"))
Dim thn = System.Convert.ToString(Request.Params("thn"))
If ((bln <> "") And (thn <> "")) Then
m = (New Date(thn, bln, 1)).Month
y = (New Date(thn, bln, 1)).Year
nm = (New Date(thn, bln, 1)).ToString("MMMM")
Else
bln = Now.Month
thn = Now.Year
End If
Dim mbef = m - 1
Dim maft = m + 1
Dim ybef = y
Dim yaft = y
If (mbef < 1) Then
mbef = 12
ybef = y - 1
End If
If (maft > 12) Then
maft = 1
yaft = y + 1
End If
Dim jmlkosong = (New Date(thn, bln, 1)).DayOfWeek
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td colspan="2"><div align="center" class="stylecal"><a href="?bln=<% Response.Write(m) %>&thn=<% Response.Write(y-1) %>">&lt;&lt;</a> <a href="?bln=<% Response.Write(mbef) %>&thn=<% Response.Write(ybef) %>">&lt;</a> </div></td>
<td colspan="3"><div align="center" class="stylecal"><% Response.Write(nm) %> <% Response.Write(y)%> </div></td>
<td colspan="2"><div align="center" class="stylecal"><a href="<% %>?bln=<% Response.Write(maft) %>&thn=<% Response.Write(yaft) %>">&gt;</a> <a href="?bln=<% Response.Write(m) %>&thn=<% Response.Write(y+1) %>">&gt;&gt;</a></div></td>
</tr>
<tr>
<td width="21"><div align="center" class="stylecal">Ming</div></td>
<td width="20"><div align="center" class="stylecal">Sen</div></td>
<td width="27"><div align="center" class="stylecal">Sel</div></td>
<td width="27"><div align="center" class="stylecal">Rab</div></td>
<td width="25"><div align="center" class="stylecal">Kam</div></td>
<td width="33"><div align="center" class="stylecal">Jum</div></td>
<td width="32"><div align="center" class="stylecal">Sab</div></td>
</tr>
<tr>
<%
Dim jmlhari = (New Date(thn, bln, 1)).DaysInMonth(thn, bln)
Dim ii As Integer
For ii = 1 To jmlkosong
Response.Write("<td>&nbsp;</td>")
Next
Dim kolom = jmlkosong
For ii = 1 To jmlhari
kolom = kolom + 1
Dim warna = "#000000"
If kolom = "1" Then warna = "#FF0000"
If ((ii = Now.Day) And (m = Now.Month) And (y = Now.Year)) Then
warna = "#0000FF"
End If
%>
<td onClick="" style=""><font color="<% Response.Write(warna) %>"><div align="center" class="stylecal"><% Response.Write(ii)%></div></font></td>
<%
if kolom="7" then
Response.Write("</tr><tr>")
kolom=0
end if
next
%>
</tr>
<tr>
<td colspan="7"><div align="center" class="stylecal"><a href="?bln=<% Response.Write(Now.Month) %>&thn=<% Response.Write(Now.Year) %>">Hari Ini</a> </div></td>
</tr>
</table>

Setelah itu pada halaman web utama yang akan menggunakan potongan program tersebut, panggillah filenya dengan cara :

<!--#include file="calendar.aspx"-->

Dengan sedikit modifikasi program ini siap disisipi aplikasi Agenda jika anda inginkan.

File selengkapnya dapat didownload disini. Setelah masuk Google Docs, klik File - Download

Semoga bisa bermanfaat