Minggu, 29 Maret 2009
posted by beach...i'm coming!!!!!!! but love....you are bullshit @ 20.57   0 comments
Kamis, 26 Maret 2009
posted by beach...i'm coming!!!!!!! but love....you are bullshit @ 20.17   0 comments
Kamis, 19 Maret 2009

Type=Exe
Form=SimpleSnake.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="."
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1
posted by beach...i'm coming!!!!!!! but love....you are bullshit @ 20.47   0 comments
Jumat, 13 Maret 2009

Option Explicit

Dim days As Long '<-Stores the number of days elapsed from 1/1/1900 to current month and year
Dim i As Integer

Private Sub cmdGenerate_Click()
On Error GoTo Error_handle 'On error, goto to end of function
days = 0
For i = 0 To 34
  Label1(i).Caption = "" 'Clear all the labels
Next i

For i = 1900 To txtYear.Text - 1
  If i Mod 4 = 0 Then 'If leap year then count 366 days
  days = days + 366
  Else 'else 365 days
  days = days + 365
  End If
Next i

For i = 1 To txtMonth.Text - 1
  If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then 'For January,March,May....,December count 31 days
  days = days + 31
  ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then 'For April,June,September,November count 30 days
  days = days + 30
  ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then 'If month is February and year is leap year count 29 days
  days = days + 29
  Else 'If month is February and year is not a leap year, count 28 days
  days = days + 28
  End If
 Next i

  If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then
  show_calender 31 'Show calender with 31 days
  ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then
  show_calender 30 'Show calender with 30 days
  ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then
  show_calender 29 'Show calender with 29 days
  Else
  show_calender 28 'Show calender with 28 days
  End If
Error_handle:
End Sub

Private Function show_calender(n As Integer) '//<- n stores the number of days to display
Dim i, k As Integer
k = days Mod 7 'Divide days with 7, the remainder give the current day
For i = 1 To n
  Label1(k).Caption = i 'Display the number in calender format
  k = k + 1
  If k = 35 Then k = 0
Next i
End Function
posted by beach...i'm coming!!!!!!! but love....you are bullshit @ 02.56   0 comments
Jumat, 06 Maret 2009
tegakah cinta mempermainkan perasaanku???

Cinta sebuah kata yang bisa jadi misterius.

Kehadirannya dapat mengubah kehidupan dan prilaku seseorang dalam sekejab mata, hanya dalam hitungan detik... cinta membuat tangis dan tawa seolah tak ada bedanya.

Yang lebih parah, si biang keladi yang namanya cinta ini pun bisa membuat hidup mati seseorang terlihat sama dan gak ada bedanya ... cinta memang sengaja diciptakan oleh Tuhan kepada manusia sebagai anugerah terindah untuk membuat hidup mereka lebih berwarna, tidak monoton dan dinamis. Terkadang cinta bisa membuat seseorang gelap mata, mampu melakukan apapun meski hal itu tidak boleh ia lakukan.

Namun, bagaimana kalau cinta datang dan pergi seenaknya?

Bisakah kita menerimanya? Biasanya dalam keadaan apapun, kita cenderung siap ketika ciinta datang ... walaupun datangnya juga tak pernah kita sangka sebelumnya. Tapi giliran cinta tersebut pergi, dengan pamit atau tidaknya, kebayakan dari kita cenderung tidak pernah siap untuk menerimanya ... yang tersisa malah sakit, menangis, dan akhirnya timbul kebencian serta menutup diri.

Hal ini tidak boleh dibiarkan berlarut-larut karena yang rugi diri kita sendiri, dan yang lebih gilanya .. ternyata untuk mendapatkan cinta dari orang tercinta sama susahnya dengan melupakan cinta itu sendiri !.

Karena satu dan lain hal, sering kali kita putus cinta dengan orang yang kita cintai, muncul amarah, sakit hati, atau dendam terhadapnya.

Fatalnya lagi situasi tersebut membuat kita terjebak dan tidak lagi mampu membedakan setiap keadaan yang ada !. Akibatnya secara tidak sadar, kenangan tentangnya membuat kita memukul rata semua orang dengan persepsi buruk yang pernah kita dapat darinya.

Kenangan indah dengan kekasih yang dulu pasti tetap ada dan memang sulit dilupakan begitu saja, semua itu sangat wajar. Tetapi menjadi tidak wajar jika masih menyimpan harapan untuk kembali kepelukannya,....sebaiknya..........?

posted by beach...i'm coming!!!!!!! but love....you are bullshit @ 05.01   0 comments
About Me
Name :
Web URL :
Message :
:) :( :D :p :(( :)) :x
Foto Saya
Nama:
Lokasi: malang, jawa timur, Indonesia
Archives
Archives
Sidebar Section
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. Aenean viverra malesuada libero. Fusce ac quam.
Sidebar Section

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Duis ligula lorem, consequat eget, tristique nec, auctor quis, purus. Vivamus ut sem. Fusce aliquam nunc vitae purus. Aenean viverra malesuada libero. Fusce ac quam.

Links
Free Blogger Templates