...:: Ilman's Site ::...

Just My opinion

More About Me...

Seseorang yang mencoba meraih masa depan lebih baik di luar tanah kelahiran. Mencoba untuk menemukan jati diri yang sejati, berguna bagi sesama.

ABILITY

Web Programming :
  - PHP
  - ASP
  - ASP.NET
Database :
  - MySQL
  - SQL Server
  - Oracle

..

Museum Kereta Api Ambarawa

Liburan tahun baru temasuk liburan panjang, mulai dari 1 Januari 2009 sampai 4 Januari 2009. Inginya sih mudik ke rumah, tapi karena pad liburan natal sudah pulang aku putuskan untuk tidak mudik lagi. Itung-itung penghematan karena ada gejolak ekonomi. Aku tidak pulang juga karena ada tugas Java di Kampus, lumayan lah bisa memaksa aku untuk belajar java. He..3x. seperti biasa, liburan panjang adalah saatnya untuk liburan. Setelah kemaren di daerah Semarang, sekarang giliran kota ambarawa sebagai tujuan.
Kota ambarawa sendiri ditempuh dari Semarang tidak sampai 1 Jam bila jalanan lancar. Kota ini dahulu kala terkenal dengan medan pertempuran Pangeran Sudirman, maka tak heran bila di kota ini banyak peninggalan jaman penjajahan dahulu. Salah satu peninggalan yang tersisa adalah Museum Kereta Api Ambarawa. Dahulu kala Kota Ambarawa menjadi salah satu Statiun yang ada di Jawa Tengah.
Museum ini sendiri berada tidak jauh dari kota Ambarawa. Namun sayang di Musium ini menurut saya kurang mendapat perhatian dari Dinas Pariwisata. Hal tersebut tercermin pada pintu gerbang yang tidak terawat. Museum ini seharusnya bisa dilestarikan sehingga jumlah pengunjung menjadi bertambah. Untuk tiket masuknya cukup murah, hanya 3000 perak untuk dewasa dan 2000 untuk anak-anak. Di Museum ini terdapat peninggalan perangkat jaman Belanda dahulu. Diantaranya Telepon Jaman dahulu serta beberapa barang yang lain. Arsitektur bangunan ini sendiri juga merupakan design Jaman belanda, mengingatkanku pada “Lawang Sewu” di Semarang. Di depan, terdapat beberapa lokomotif penarik kereta Uap. Ini menjadi obyek yang sangat menarik untuk di Foto. Saya rasa obyek inilah yang membuat orang tertarik. Di dekat loko, terdapat spesifikas loko tersebut seperti Tahun pembuatan, Maksimum kecepatan dan namanya. Agak heran juga saya ketika ada rombongan Turis Mancanegara yang berkunjung ke sini. Mereka satu keluarga dengan 2 anak kecil-kecil yang lucu. Tak lama kemudian, dating lagi rombongan yang diantaranya ada turis Mancanegara juga. Mungkin karena liburan sehingga lumayan rame pengunjungnya.
Selain obyek di atas, ada juga yang ditunggu para pengunjung, yaitu kereta Uap. Kereta ini merupakan salah satu kereta uap tertua di dunia yang masih beroperasi . Karena hanya ada satu kereta dengan 2 gerbong mini, terpaksa nunggu kereta balik yaitu sekitar 45 menit. Untuk naik kereta ini, kita cukup merogoh kocek 10 ribu. Tiket sendiri ditarik saat di atas gerbong, sehingga untuk naik kita berebutan. Jalurnya adalah station tuntang balik lagi. Jarak kedua station ini sekitar 5-8 kilometer. Selama di perjalanan, kita bisa melihat indahnya gunung di daerah Boyolali dan magelang (Merbabu dan Merapi kalau tidak salah). Selain gunung, kita juga melihat keindahan “Rawa Pening” yang merupakan telaga di Ambarawa. Karena sedang ada proyek, keindahan “Rawa Pening” ini menjadi sedikit terkurangi. Selama di perjalanan, sepertinya kereta ini dipaksakan performasinya, kejar setoran mungkin karena di station masih banyak yang antri.
Cukup hemat dan asyik kan, silahkan mencoba…

Read More......

CALENDAR EVENT ASP.NET 2.0

Iseng - iseng posting coz udah lama tidak merasakan posting di blog.. :). Kali ini aku mencoba membuat calender yang fully html sih, script tentu saja aku download. Untuk sourcenya aku dapatkan di sini.

Sebenarnya ada banyak contoh yang bisa memanfaatkan component kalender di .NET 2.0, tapi sebagian besar pakai C#, karena aku kurang pengalaman di C#, maka aku pakai saja yang html (Looping untuk buat tabel), beserta connect programmingnya dengan VB.NET.Data event berasal dari database, kebetulan aku pakai Oracle. Untuk koneksi sendiri saya lebih suka ODBC dari Windows XP. Dari contoh, akan tampil semua bulan yang ada pada tahun ini, disini saya customize cuma untuk bulan sekarang. Setelah selesai, kita bikin Class dengan berikut ini. Dalam class ini akan mempunyai satu fungsi untuk mendapatkan Event pada hari tersebut, hari diambil dari parameter pada halaman utama. selain itu, class ini juga digunakan untuk memformat tanggal yang digunakan.




 


Imports Microsoft.VisualBasic

Imports System.Data.Odbc

Imports System.Data



Public Class EventsDAO

' member declaration

Private connString As String

Private dbConn As OdbcConnection



Public Sub New()

'connString =
System.Web.Configuration.WebConfigurationManager.ConnectionStrings("Conn").ToString()

connString = "DSN=DSNName;UID=userDSN;PWD=Password"

dbConn = New OdbcConnection(connString)

dbConn.Open()

End Sub



Public Sub CloseConnection()

dbConn.Close()

End Sub



Public Function GetEvent(ByVal currentDate As Integer, ByVal month As Integer,
ByVal year As Integer) As DataTable

'Dim cmd As OdbcCommand

Dim selectCmd As String

'Dim oAdapter As New OdbcDataReader

Dim ds As New DataSet



'selectCmd = "Select * From Events Where @date1 >= dateFrom and @date2 <= dateTo"

selectCmd = "Select * From CORP_NEWS WHERE TO_CHAR(TANGGAL,'DD/MM/YY')='" &
Right("0" & currentDate, 2) & "/" & Right("0" & month, 2) & "/" & Right("0" &
year, 2) & "' AND STAT='1' "

'response.write(selectCmd)

Dim da As New OdbcDataAdapter(selectCmd, dbConn)



'Dim paramDate1 As New OdbcParameter("@date1", ProperDateFormat(currentDate,
month, year))

'Dim paramDate2 As New OdbcParameter("@date2", ProperDateFormat(currentDate,
month, year))



'cmd.Parameters.Add(paramDate1)

'cmd.Parameters.Add(paramDate2)



'OdbcParameter.SelectCommand = cmd

da.Fill(ds)



Return ds.Tables(0)

End Function



Private Function ProperDateFormat(ByVal d As Integer, ByVal m As Integer, ByVal
y As Integer) As String

Try

Dim months() As String = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
"Aug", "Sep", "Oct", "Nov", "Dec"}

Return d.ToString() + "/" + months(m - 1) + "/" + y.ToString()

Catch ex As Exception

Return ""

End Try

End Function

End Class





Untuk CSS, saya masih pakai Originalnya, seperti ini :



 


/* Begin kalender */



.subHeader

{

text-transform: capitalize;

color: #6fa1d9;

font-family: Arial, Verdana;

font-weight: normal;

font-size: 1.1em;

background-color: #f5f5f5;

vertical-align: top;

text-align: right;

/* page-break-after: auto; */

}



.calendarFrame

{

border-right: #add8e6 thin solid;

border-top: #add8e6 thin solid;

border-left: #add8e6 thin solid;

border-bottom: #add8e6 thin solid;

}



.calendarMonthYear

{

font-size: 0.8em;

color: #ffffff;

font-family: Arial;

font-weight: bold;

background-color: #335ea8;

letter-spacing: 1px;

}



.calendarDay

{

font-size: 0.8em;

color: #ffffff;

font-family: Arial;

font-weight: bold;

background-color: #6fa1d9;

}



.hasEvent

{

font-size: 0.8em;

color: #ffffff;

font-family: Verdana, Arial;

background-position: center center;

background-image: url(event.gif);

background-repeat: no-repeat;

text-align: center;

width: 23px;

height: 25px;

cursor: pointer;

vertical-align: middle;

}



.hasNoEvent

{

font-size: 0.8em;

font-family: Verdana, Arial;

text-align: center;

width: 23px;

height: 25px;

}



/* End of Kalender */




Dan yang terakhir adalah Halaman utama untuk menampilkan Kalender, di Design, kita cukup tambahkan Label dengan id berikut .
dan untuk Behind Codenya adalah :



Imports System.Data.OleDb

Imports System.Data

Partial Class Calendar

Inherits System.Web.UI.Page



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load

If Not IsPostBack Then

Dim rightNow As DateTime = DateTime.Now

'Response.Write(rightNow.Month.ToString)

Dim bulan As Integer = rightNow.Month

'Response.Write(x)

' Generates report for current year

lblCalendar.Text = "<table width='300px'>"

Dim horizontalRepeat As Integer = 3 ' number of months in horizontal direction

Dim month As Integer



'ori For month = 1 To 12

For month = bulan To bulan

If (month Mod horizontalRepeat = 1) Then

lblCalendar.Text += "<tr valign='top'>"

End If



lblCalendar.Text += "<td>" + generateCalendar(month, 2008) + "</td>"



If (month Mod horizontalRepeat = 0) Then

lblCalendar.Text += "</tr>"

End If

Next



lblCalendar.Text += "</table>"

End If

End Sub

Private Function generateCalendar(ByVal month As Integer, ByVal year As Integer)
As String

' generates the calendar as per the booking status

Dim wholeCalendar(5, 6) As Integer

Dim weeks As Integer = 0

Dim day As String = ""

Dim tmpDate As DateTime

Dim myDate As Integer



For myDate = 1 To 31

Try

tmpDate = New DateTime(year, month, myDate)

If (day = "Saturday") Then

weeks += 1

End If

day = tmpDate.DayOfWeek.ToString()



If (day = "Sunday") Then

'If (wholeCalendar(weeks, 0) > 0) Then weeks += 1

wholeCalendar(weeks, 0) = myDate

ElseIf (day = "Monday") Then

'If (wholeCalendar(weeks, 1) > 0) Then weeks += 1

wholeCalendar(weeks, 1) = myDate

ElseIf (day = "Tuesday") Then

'If (wholeCalendar(weeks, 2) > 0) Then weeks += 1

wholeCalendar(weeks, 2) = myDate

ElseIf (day = "Wednesday") Then

'If (wholeCalendar(weeks, 3) > 0) Then weeks += 1

wholeCalendar(weeks, 3) = myDate

ElseIf (day = "Thursday") Then

'If (wholeCalendar(weeks, 4) > 0) Then weeks += 1

wholeCalendar(weeks, 4) = myDate

ElseIf (day = "Friday") Then

'If (wholeCalendar(weeks, 5) > 0) Then weeks += 1

wholeCalendar(weeks, 5) = myDate

ElseIf (day = "Saturday") Then

'If (wholeCalendar(weeks, 6) > 0) Then weeks += 1

wholeCalendar(weeks, 6) = myDate

End If

Catch ex As Exception

Exit For

End Try

Next



' Generates the HTML calendar

Dim htmlCalendar As String = ""

Dim objEventsDAO As New EventsDAO()

Dim dt As DataTable

Dim i As Integer, j As Integer



htmlCalendar += "<table class='calendarFrame' cellspacing=0>"

htmlCalendar += "<tr class='calendarMonthYear' style='text-align: center;'><td
colspan='7'>" + getMonthName(month) + " " + year.ToString() + "</td></tr>"

htmlCalendar += "<tr class='calendarDay' style='text-align: center;'>
<td>Sun</td> <td>Mon</td> <td>Tue</td> <td>Wed</td> <td>Thu</td> <td>Fri</td>
<td>Sat</td> </tr>"



For i = 0 To 5

htmlCalendar += "<tr>"



For j = 0 To 6

If wholeCalendar(i, j) > 0 Then

dt = objEventsDAO.GetEvent(wholeCalendar(i, j), month, year)

If (dt.Rows.Count > 0) Then

Dim toolTip As String = ""

'Dim toolTip As String = dt.Rows(0)("Judul").ToString() & dt.Rows.Count.ToString

'while dt.Rows.re

Dim baris As Integer = dt.Rows.Count

Dim satu As Integer = 1

While satu <= baris

toolTip = toolTip & " " & satu & ". " & dt.Rows(satu - 1)("Judul").ToString()

satu = satu + 1

End While

htmlCalendar += "<td class='hasEvent' title=""" + toolTip + """><a href=xxx.aspx?tgl="
& wholeCalendar(i, j) & "&bulan=" & month & "&tahun=" & year & ">" +
wholeCalendar(i, j).ToString() + "</a></td>"

Else

htmlCalendar += "<td class='hasNoEvent'>" + wholeCalendar(i, j).ToString() +
"</td>"

End If

Else

htmlCalendar += "<td class='hasNoEvent'>&nbsp;</td>"

End If

Next



htmlCalendar += "</tr>"

Next

htmlCalendar += "</table>"



' Close database connection

objEventsDAO.CloseConnection()



' returns the generated HTML calendar

Return htmlCalendar



End Function



Private Function getMonthName(ByVal month As Integer) As String

Dim months() As String = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
"Aug", "Sep", "Oct", "Nov", "Dec"}



Return months(month - 1)

End Function

End Class





Gimana, cukup mudah sebenarnya, silahkan mencoba.. :)



onMouseup="clearup()" onClick="return false" onMouseout="clearup()">Up | onMousedown="down()" onMouseup="cleardown()" onClick="return false"
onMouseout="cleardown()">Down
| Top | Bottom

Read More......

TROUBLE EM DI WIN 2003 SERVER

Ceritanya saya habis install Oracle 10g Release 2 di computer server. Mumpung ada server baru, saya buat experiment dulu saja..he…3x :-D . Awalnya proses install berjalan dengan lancar. Mulai dari setting SID,db, package dll. Setelah setting semuanya, database jalan dengan user dan tablspace default.

Tahap selanjutnya, saya mau buat tablespace dan user untuk tablespace tersebut. Lebih mudah, karena ini database 10g, maka saya pakai Enterprise Manager. Enterprise manager sendiri di Windows sudah langsung jalan, tidak seperti di linux. Namun saat aku browsing path buat menentukan tablespace, harus memasukkan username dan password host tersebut, sudah aku masukin dengan benar, namunmuncul error “get RemoteOperationException:ERROR: WRONG PASSWORD FOR USER”.
Setelah googling ternyata mudah sekali mengatasinya.
1.pilih control panel/administrative tools
a. klik on "local security policy"
b. klik on "local policies"
c. klik on "user rights assignments"
d. double klik on "log on as a batch job"
e. klik di "add" dan tambahkan user "normal username" atau "privileged username" yang akan digunakan di EM Manager..

2. Klik Preferences di EM.
a. klik Preferred Credentials (pada kiri)
b. dibawah "Target Type: Host" klik di "set credentials"
c. masukkan username yang telah didaftarkan ke field "normal username" dan "normal password"

3. Test koneksi
a. pada Set Credentials window, klik "Test"

Mudah kan, denger-denger di XP juga perlu didaftarkan usernya.

Terima kasih


Read More......

WATERBOOM SEMARANG "NUSANTARA"

Sabtu sebelum perayaan HUT RI ke-63 (16 Agustus 2008) saya gak ada kerjaan di rumah. Rencana mau mudik, namun tidak mungkin karena minggu tepat HUT RI ada acara di kantor. Meskipun acara puncak sudah diadakan hari jum’at, hari minggu hukumnya tetap wajib. Daripada nganggur di rumah tanpa tujuan, akhirnya aku putuskan untuk jalan-jalan saja.h3….3x. :D .

Rencana tujuan emang yang nyante2, udara jelas harus sejuk and bisa buat refreshing. Tersirat di pikiran mungkin jenis obyek wisata “AIR”. Coba googling dengan keyword “waterboom Semarang”, eh ternyata tidak ketemu. Jadi ingat dulu waktu ke jawa sekatul , aku lewat sebuah tempat pemancingan yang “katanya” ada waterboom’nya. Ya udah, aku putuskan untuk tujuannya adalah tempat tersebut.
Tempat ini dinamakan “Waterboom nusantara”, dari namanya kayaknya sih umum banget.. :). Di sini ada kolam pemancingan, kolam renang serta arena luncur ke kolam (entah ini bisa disebut waterboom atau bukan). Lokasi tempat ini ada di daerah Cangkiran, daerah sebelum Boja Semarang. Untuk ukuran udara, tempat ini tergolong sejuk karena berada di ketinggian yang lumayan. Selain itu tempat ini masih asri dengan dikelilingi sawah. Untuk biaya masuk “Free”. Sedang untuk tariff masuk kolam renang(“non minggu”) adalah rp. 7.500, 00 . lumayan murah broo…!!! Karena hari sabtu, tempat ini tidak terlalu ramai. Puas deh renang dengan main seluncur (kayak anak kecil aja..:). Sayang di temapt ini belum ada tempat outbond, namun setelah saya cermati, tempat ini belum 100% jadi, masih ada proyek pembangunan yang menurut perkiraan saya adalah tempat outbond. Tertarik?? Silahkan aja kunjungi tempat tersebut.. !!

Read More......

Add Module MySQL di IIS

Bila anda memakai server IIS dengan dual technology (tambah dengan PHP), maka anda perlu melakukan beberapa langkah untuk setting MySQL. Untuk running PHP di IIS, tentu sudah banyak artikel yang menjelaskannya. Berikut pengalaman saya setting dengan PHP 5.2.6 installer.
Setelah download PHP for Windows di sini, silahkan install dan lakukan regristrasi ISAPI PHP di IIS. Ternyata default file .dll buat database MySQL waktu installer tidak ada. Maka anda harus mengkopi file tersebut ke sebuah folder. File tersebut adalah php_mysql.dll.

Bila anda menginstall di C:\PHP untuk lebih mudahnya copy ke C:\PHP\ext\. setelah itu jangan lupa setting extension_dir = C:\PHP\ext\ di php.ini yang terloading PHP. Jangan lupa buang tanda “;” pada extension tersebut. Example “extension=php_mysql.dll”. Langkah berikutnya tinggal menambahkan library MySQL (libmysql.dll). Untuk lebih mudahnya biar kita tidak melakukan penambahan environtment, copy file tersebut ke C:\Windows\System32\.
Setelah semua proses, restart komputer dan module MySQL sudah ada pada php anda. Mungkin sepele bagi yang sudah banyak bermain di PHP mySQL. He…3x

Read More......

FINALLY..!!!!

Alhamdulillah kelar juga UAS semester empat ini. Sepertinya sih hasilnya kurang bagus, soalnya kurang persiapan. Namun, harus tetap optimis donk . Jeda liburan ini aku putuskan untuk tidak mengambil SP. Mau konsen ke Project kantor dulu, sekalian belajar Java. Btw, java udah lumayan bisa sih. Kemaren aku malah bantu-bantu temen kerjakan TA pake java.
Akhir-akhir ini anak-anak pada demam EURO 2008, aku juga sih. Makin banyak aja porsi untuk tidak memejamkan mata. Moga-moga cepet kelar and yang menang spanyol, biar bisa tidur nyenyak lagi. Btw Bravo Inter Milan yang sukses ambil Mr. JM. Sukses.

Chayoo..!!!!

Read More......

NASIB TERAKHIR...!!!!

Minggu-minggu ini memang jadi ajang pertaruhan terakhir tim-tim di Eropa. Nasib mereka semua banyak ditentukan partai terakhir. Lalu bagaimana nasib para idolaku di Liga Itali, Inggris dan Spanyol? Berikut ulasannya.

Di Lega calico, sejak dari dulu aku pegang Inter Milan, teringat kenangan buruk saat pertama suka bola tahun 1997, gelar scudetto Inter direbut oleh Juventus. Saat itu inter masih diperkuat Ronaldo, Djorkaeff, D. Simeone dan lain-lain. Mereka terjungkal di 2 pekan terakhir oleh Juventus. Memory 1997 terulang lagi di 2003, kali ini lebih tragis karena Inter harus rela duduk di peringkat 3 klasemen akhir. Tahun ini bayangan memory buruk kembali ada. Namun berkat 2 Gol “Ibracadabra”, Inter sukses merengkuh gelar Scudetto yang ke 16. Puas deh..!! Apalagi si Milan Cuma berhasil meraih tiket UEFA. Semoga tahun depan bisa dapat gelar UCL seperti MU tahun ini.

Di Premier League, MU sebagai kandidat utama juara dan tentu saja jagoanku masih tetap digdaya. Hampir selalu tertinggal arsenal sampai tengah musim, mereka menujukkan mempunyai mental “lebih” dari arsenal. Mungkin Arsenal masih butuh beberapa tahun agar para pemainnya mempunyai mental juara. Itupun kalau para pemain gak pada hengkang. Semoga si Helb jadi pindah ke Inter. He…3x Rival terberat MU ternyata datang dari Chelsea, bahkan mereka mesti memainkan laga terkhir untuk memastikan gelar. Di Inggris, MU masih yang terkuat.

Di Spayol, si Real Madris yang berhasil merengkuh gelar juara. Kalau yan gini bukan jagoanku. Aku masih tetap pegang Barcelona. Mengusung “fantastic Four” pada awal musim, barca menargetkan kembali UCL yang sebelumnya pernah mereka raih. Namun factor Ronnie yang menurutku menjadi boomerang. Dia suka mabok-mabokan dan pulang malam. Akibatnya pihak klub member “peringatan” yang tidak diindahkan. Well, tidak ada lagi pengumpan hebat karena Deco sering terhibat dengan cederanya. Btw semoga tahun depan bisa jadi Juara ya….



Read More......