Pengumuman Pemenang pre-Kontes

Pengumuman Pemenang Kontes

Berdasarkan pertimbangan juri, dalam hal ini adalah mas yayat, maka dengan ini saya umumkan bahwa pemenang pre kontes untuk 2 komentator terbaik adalah :

1. Embun 777, silakan lihat komentarnya disini

2. Dangstar, silakan lihat komentarnya disini

Pemenang Hadiah undian :

Diundi dengan menggunakan aplikasi program undian sederhana yang saya buat sendiri, silakan lihat kodenya dibawah :

1. Marsudiyanto

2. Alwi

3. Tio

4. Alamendah

Masing-masing pemenang akan saya hubungi via email, juga saya akan tinggalkan komentar di blog masing-masing. Untuk program undiannya dapat anda lihat pada kode menggunakan vb6 dan mysql berikut :

Dim awal, i, penambahan, akhir As Integer
Dim cnMySql As New rdoConnection
Dim rdoQry  As New rdoQuery
Dim rdoRS   As rdoResultset

Private Sub Command1_Click()
awal = Right(CStr(TimeValue(Time)), 2)
akhir = Round(Rnd * Rnd * 50 * awal)
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = “uid=root;pwd=root;server=localhost;driver={MySQL ODBC 3.51 Driver};database=test;”
cnMySql.EstablishConnection

With rdoQry
.SQL = “SELECT distinct(`comment_author`), `comment_author_email`, `comment_author_url` FROM `wp_comments` where `comment_post_ID`=372 and `comment_approved`=’1′ and `comment_author` not like ‘%Kuliah%’ and `comment_author` not like ‘%arkasa%’ and `comment_author` not like ‘%dwi%’ and `comment_author` not like ‘%Learn%’ order by `comment_author`”
.RowsetSize = 1
Set .ActiveConnection = cnMySql
Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
rdoRS.MoveFirst
End Sub

Private Sub Timer1_Timer()
i = Round(Rnd * rdoRS.RowCount)
rdoRS.AbsolutePosition = i
Label1.Caption = rdoRS!comment_author
Label2.Caption = rdoRS!comment_author_email
Label3.Caption = rdoRS!comment_author_url
awal = awal + 1
If awal > akhir Then
Timer1.Enabled = False
End If
End Sub

Untuk penjelasan program akan saya buat postingan tersendiri.