Saat ini saya ingin berbagi cerita pengalam hidup saya saat di Belitang. Memang suatu kebahagian bila kita suka dan mau mengenang masa-masa kecil kita dahulu.Teman-teman yang masih polos, tertawa bergembira bersama.Saat kecil mungkin kita pernah bermain-main lumpur atau apalah, mandi di kali (karena Belitang dahulu bener2 desa dan penuh dengan persawahan ha..ha…), walau kini lebih maju dari dahulu dengan adanya karet, kelapa sawit dll.

Tulisan ini sebenarnya saya tulis karena rindu dengan teman2 waktu Alumni SMAN 1 Belitang OKU Timur, yg sekarang entah ada dimana.mungkin masih di Belitang atau diluar. Saya berharap dengan majunya Teknologi terlebih Internet, dapat membuat setiap teman2 saya yg lain dapat bertemu dan berbincang2 walau sekedar melalui Email, chatting, atau suatu komunitas.

Ok. mungkin cukup disini dulu, maaf kalau ceritanya tidak lengkap dan terkesan terburu-buru, karena saya harus mengerjakan job2 saya yg dateline.
Jika ada teman2 yang ingin menghubungi saya, silahkan email ke irwansaputra_ws@yahoo.com. atau melalui YM.

Oh ya, saya teringat dengan teman2 Alumni SMAN 1 Belitang, seperti Amin (Depok), Ujang (Martapura), Hendri (Bogor), Yono (Palembang), karena saat ini hanya itu saja teman2 yg masih saling berhubungan.

Salam Irwan Saputra.

Dim PosSpc As Integer

Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1))

PosSpc = InStr(MyString, ” “)

While PosSpc <> 0

Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1))

PosSpc = InStr(PosSpc + 1, MyString, ” “)

Wend

FirstUCaseWord = MyString

End Function

FirstOfMonth = DateSerial(Year(xDate), Month(xDate), 1)

End Function

EndOfMonth = DateSerial(Year(xDate), Month(xDate) + 1, 0)

End Function

EndOfWeek = xDate – Weekday(xDate) + 7

End Function

‘— Letakkan di module

Public Declare Function GetUserNameA Lib “advapi32.dll” _

(ByVal lpBuffer As String, nSize As Long) As Long

‘— Akhir Letakkan di module

Public Function GetUserName() As String

Dim UserName As String * 255

Call GetUserNameA(UserName, 255)

GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) – 1)

End Function

Private Sub Form_Load()

MsgBox GetUserName

End Sub

Public Function GetWinScrResolution() As String

Dim intWidth As Integer

Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX

intHeight = Screen.Height \ Screen.TwipsPerPixelY

GetWinScrResolution = Str$(intWidth) + ” x” + Str$(intHeight)

End Function

Private Sub Form_Load()

MsgBox GetWinScrResolution

End Sub

‘— Letakkan di module

Declare Function GetSystemDirectory Lib “kernel32″ Alias “GetSystemDirectoryA” _

(ByVal lpBuffer As String, ByVal nSize As Long) As Long

‘— Akhir Letakkan di module

Public Function GetSysDir() As String

Dim boolRetVal As Boolean, lpBuffer As String, nSize As Long

lpBuffer = Space(255): nSize = 254

boolRetVal = GetSystemDirectory(lpBuffer, nSize)

GetSysDir = StripNullTerminator(lpBuffer)

End Function

Function StripNullTerminator(lpBuffer As String) As String

Dim I As Integer

For I = 1 To 255

If Asc(Mid(lpBuffer, I, 1)) = 0 Then

lpBuffer = Left(lpBuffer, I – 1)

Exit For

End If

Next I

StripNullTerminator = lpBuffer

End Function

Private Sub Form_Load()

MsgBox GetSysDir

End Sub

‘— Letakkan di module

Public Declare Function GetComputerName Lib “kernel32″ Alias “GetComputerNameA” (ByVal lpBuffer As String, nSize As Long) As Long

‘— Akhir Letakkan di module

Public Function GetMyComputerName() As String

Dim Bufstr$, sComputerName$

Bufstr = Space$(50)

If GetComputerName(Bufstr, 50) > 0 Then

sComputerName = Bufstr

sComputerName = RTrim(sComputerName)

sComputerName = StrStripTerminator(sComputerName)

Else

sComputerName = “”

End If

GetMyComputerName = sComputerName

End Function

Function StrStripTerminator(ByVal AString As String) As String

Dim intZeroPos As Integer

intZeroPos = InStr(AString, Chr$(0))

If intZeroPos > 0 Then

StrStripTerminator = Left$(AString, intZeroPos – 1)

Else

StrStripTerminator = AString

End If

End Function

Private Sub Form_Load()

MsgBox GetMyComputerName

End Sub