Cerita Saya saat Alumni SMA/SMU Negeri 1 Belitang OKU Timur

Salam hangat dan sejahtera.
Perkenalkan saya Irwan Saputra, walau saya lahir di Lampung tapi saya lebih lama besar dan tinggal di Belitang OKU Timur, tepatnya di BK X Jalan Kapasan.
Berikut daftar sekolah yang pernah saya ikuti :
1. SD Xaverius 15 Belitang
2. SMP Xaverius 1 Belitang
3. SMA Negeri 1 Belitang jurusan A1 (masuk thn 1993, lulus 1996)
dan saat lulus saya kuliah di STMIK Bunda Mulia Jakarta, yang sekarang berubah nama menjadi Universitas Bunda Mulia (UBM). Saat ini saya bekerja sebagai Programmer Database, Web Design dan Jasa Informasi teknologi, bidang ini saya sudah lakoni selama 7 tahun lebih dan sendiri.

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.

Menjadikan huruf awal menjadi huruf besar

Public Function FirstUCaseWord(ByVal MyString As String) As String

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

Nilai tanggal awal dari bulan

Public Function FirstOfMonth(ByVal xDate As Date) As Date

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

End Function

Nilai tanggal akhir dari satu bulan

Public Function EndOfMonth(ByVal xDate As Date) As Date

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

End Function

Nilai tanggal akhir dari satu minggu

Public Function EndOfWeek(ByVal xDate As Date) As Date

EndOfWeek = xDate – Weekday(xDate) + 7

End Function

Mendapatkan Nama user pada Operasi Windows

Mendapatkan Nama user pada Operasi Windows

‘— 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

Mendapatkan Nilai dari Resolusi Windows

Mendapatkan Nilai dari Resolusi Windows

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

Mendapatkan Posisi direktory system Windows

Fungsi untuk Mendapatkan Posisi direktory system Windows

‘— 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

Mendapatkan Nama Komputer

Fungsi Mendapatkan Nama Komputer

‘— 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

Menghapus File

Public Function FileDelete(ByVal strFile As String)
If CBool(Len(Dir$(strFile))) Then Call Kill(strFile)
End Function