Thursday, November 24, 2005

Function mula

Imports System.Diagnostics

Public Class Blog1

Inherits Blogger.Windows.Page


Declare Function BlajaProgramming Lib "akal32.dll" Alias "akalA" _
(ByVal buahFikiran As Long, ByVal masa As String,) As Long

Private Sub Blog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim hari_ini As String
Dim B As diriku.Insan_biasa
Dim V AS myGirl.Insan_biasa
Dim ada_masa As Boolean
Dim tulis_blog As Boolean
Dim con As OdbcConnection
Dim sqlstr As String

B = New diriku.Insan_biasa
V = New myGirl.Insan_biasa

con = New OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=ofisku;PORT=1234;DATABASE=otakku; USER=aku;PASSWORD=sayangBini;OPTION=3;")

If ada_masa= True And hari_ini = Today then

tulis_blog = true

sqlstr = "UPDATE Blog SET Msg = '" & kejadian_harini & "' where subject1= '"B "' And subject2 = '" & V '" "

MessageBox.Show( "Hi all, To Understand this post, u'll need at least basic knowledge of programming.. ahaha.. saje nyusahkan korang...")

else

tulis_blog = false

End if
End sub

6 comments:

masviona said...

hahah..nilerrr..dier my B..hr2 coding2...xder mende alah lain..ni kang klu dpt ank nnti..klu xterror gak programming ni aku xtau ler nk kata apa...nasib baik masa study dulu lom start couple lg...klu tak..sure bertimbun2 love letter guna bhs c++...anyway V dh trima kan 1 love letter guna bhs c++..dr sorg umat tu...kengkononnyerr secret admire aku ler....heheh..b dh baca kan surat tu...ahaskss

prebetsabu said...

mmm..dah baca dah yg tu.. siap wat koding OpenGL lagi..

tp.... org kata tukang taip koding ni tak romantik... betul ke V? ahaksssssss

malam ni ayam maduuuuuuuuuuuuu.. horayyy

DarkWan said...

Heheh. Saje datang melawat ..

Anonymous said...

hahhahaha...betul la ko nas.. mcm tu pun blh dlm bentuk coding lg... tabik spring

prebetsabu said...

ahahhaa... kembang lak aku ni kang...

stonemasterfadli said...

idung kembang takper...jgn kembang mende laen plak hehe