Wednesday, April 7, 2010

Kode Kerangka Untuk Template Blogspot 

<html>
<head>
<title>Skeleton of a 2 Column Blogger Template</title>
<style type='text/css'>
body
{
 font-family:Arial;
}
#outer-wrapper
{
 width: 682px;
 border: 1px dotted;
 background: #dddddd;
 margin:0px auto 0;
 padding:10px;
}
#header-wrapper
{
 width:660px;
 height: 100px;
 border: 1px dotted;
 background: #fefe99;
 margin-bottom: 10px;
 padding:10px;
}
#content-wrapper
{
 width: 660px;
 height: 280px;
 border: 1px dotted;
 background: #fefe99;
 margin-bottom: 10px;
 padding:10px;
}
#main-wrapper
{
 width: 410px;
 height: 200px;
 border: 1px dotted;
 background: #a0cffd;
 float: left;
}
#sidebar-wrapper
{
 width: 220px;
 height: 250px;
 border: 1px dotted;
 background: #a0cffd;
 float: right;
}
#footer-wrapper
{
 width: 660px;
 height: 50px;
 border: 1px dotted;
 background: #fefe99;
 padding:10px;
}
</style>
</head>
<body>
<div id='outer-wrapper'>
  <div id='header-wrapper'>
   <p>Header</p>
   </div>
  <div id='content-wrapper'>
   <div id='main-wrapper'>
    <p>Main</p>
   </div>
   <div id='sidebar-wrapper'>
    <p>Side Bar</p>
   </div>
   </div>
  <div id='footer-wrapper'>
   <p>Footer</p>
  </div> 
</div>
</body>
</html>
READ MORE - Kode Kerangka Untuk Template Blogspot
Posted by at

Sunday, April 4, 2010

VB6 Code - Apakah SoundCard Ada?

Di bawah ini merupakan fungsi VB6 untuk mengetahui apakah komputer memiliki souncard atau tidak. 
Option Explicit

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Public Function IsExistSoundCard() As Boolean
    Dim I As Integer
    I = waveOutGetNumDevs()
    IsExistSoundCard = (I > 0)
End Function
Contoh penggunaan fungsi memeriksa keberadaan sound card pada komputer 
Private Sub Command1_Click()
    MsgBox IsExistSoundCard
End Sub
READ MORE - VB6 Code - Apakah SoundCard Ada?
Posted by at
Labels:

VB6 Code - Membuat Kata Secara Acak (Random)

Di bawah ini merupakan fungsi VB6 code untuk membuat sebuah kata secara acak.
Option Explicit

Public Function RandomString(Optional Max As Integer = 5) As String

 Dim sAlpha As String
 Dim iLoop As Integer
 Dim iRandNum As Integer
 Dim sMatch As String
 Dim str As String
 sAlpha = "abcdefghijklmnopqrstuvwxyz"

 Randomize

 For iLoop = 1 To Max
     iRandNum = Int((26 - 1 + 1) * Rnd + 1)
     sMatch = Mid(sAlpha, iRandNum, 1)
     str = str & sMatch
 Next iLoop

 RandomString = str

End Function
Contoh penggunaan fungsi menampilkan kata secara acak
Private Sub Command1_Click()
 MsgBox RandomString 10
End Sub
READ MORE - VB6 Code - Membuat Kata Secara Acak (Random)
Posted by at
Labels:

VB6 Code - Fungsi Untuk Menjadikan Blank Layar Komputer

Di bawah ini merupakan fungsi VB6 untuk mematikan layar monitor.
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Public Function TurnOnMonitor(hwnd As Long, bFlag As Boolean) As Boolean
  If bFlag Then
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
  Else
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
  End If
End Function
Contoh penggunaan kode di atas:
Option Explicit

Private Sub Command1_Click()
  TurnOnMonitor Me.hwnd, False
End Sub
READ MORE - VB6 Code - Fungsi Untuk Menjadikan Blank Layar Komputer
Posted by at
Labels:
Subscribe to: Posts ( Atom )