AndhieRamlan dot tk » Welcome

Selamat Datang

admin — Sun, 10 Jan 2010 02:57:14 +0000

wkwkwk…. akhirnya bisa juga nich membuat karya cipta yang tidak menggangu orang, tidak membuat orang curiga, marah, ngambek. ato yang laen.. pokoknya setiap pikiran negatif yang ada di pikiran kamu bakalan hilang ketika baca ne blog…. karena ini blog bukan sarana untuk memberontak untuk situasi yang tidak sesuai dengan hati nurani.. setidaknya saya menciptakan lahan inspirasi pikiran sekaligus mengakutalisasikan diri di cyber world. walaupun kedatangan saya sebagai blogger di dunia maya belum begitu di akui, tapi setidaknya apa yang saya tulis dalam blog ini berdasarkan sharing dari teman-teman dan berbagai sumber yang dapat di percaya. semoga apa yang telah saya berikan dan saya sajikan dalam blog ini dapat menjadi amal bagi kami dan narasumber khususnya dan bagi kita semua pada umumnya semoga mungkin hanya ini yang dapat saya berikan.. sebagai bukti bahwa saya sebagai seorang blogger juga ikut mendukung dan berpartisipasi dalam upaya mencerdaskan kehidupan bangsa kita ini Indonesia..

terima kasih…

Sleep With VB

admin — Thu, 14 Jan 2010 08:36:25 +0000

Option Explicit
Private Declare Sub Sleep Lib “kernel32? (ByVal dwMilliseconds As Long)

Private Sub Form_Click()
Me.Caption = “Sleeping”
Call Sleep(20000)
Me.Caption = “Awake”
End Sub

Private Sub Label1_Click()
Me.Caption = “Sleeping”
Call Sleep(20000)
Me.Caption = “Awake”
End Sub

All about LP

admin — Tue, 24 Aug 2010 05:31:42 +0000

Program Random Dengan VB

admin — Fri, 20 Aug 2010 06:27:36 +0000

Ini adalah post tentang bagaimana mengambil sebuah variabel acak dengan menggunakan bahasa program visual basic..

semoga dapat berguna

VB random char (Program pengacak Huruf)

Buat tombol Command1

Form :

Code:

Quote

Option Explicit

Private Sub Command1_Click()
Dim i As Integer

Dim Losen As String

For i = 1 To 20
If i Mod 2 > 0 Then
Losen = Losen & RandomChar(65, 90)
Else
Losen = Losen & RandomNum(0, 10)
End If

Next i
MsgBox Losen
End Sub

Module:

Option Explicit

Public Function RandomChar(Lower As Integer, High As Integer) As String

Randomize
RandomChar = Chr((High – Lower) * Rnd + Lower)

End Function

Public Function RandomNum(Lower As Integer, High As Integer) As Integer
Randomize
RandomNum = ((High – Lower) * Rnd + Lower \ 1)
End Function