CORETAN YANG MUNGKIN PENTING

CARA MEMBUAT CALKULATOR DENGAN VISUAL BASIC 6.0

2010-08-28T01:37:00.014-06:00

1. Buka Microsoft visual basic 6.0

2. Pada jendela new projek pilih STANDAR EXE

3. buat sebuah form beri nama kalkulatordi dalam form tambahkan beberapa objek (textbox,comandButton,label,timer)

4. dengan menggunakan tool-tool yang ada di samping rancang seperti ini

5. klik view -> code terus masukan script ini (tanpa tanda kutip)

“Option Explicit

Private operand1 As Double, operand2 As Double

Private operator As String, memoryVal As Double

Private clearDisplay As Boolean, appVer As String

Private Declare Function ShellAbout Lib "shell32.dll" Alias _

"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _

ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Private Sub divide_Click()

operand1 = Val(display.Caption)

operator = "/"

display.Caption = vbNullString

End Sub

Private Sub equalto_Click()

Dim result As Double

On Error GoTo eh:

operand2 = Val(display.Caption)

If operator = "+" Then result = operand1 + operand2

If operator = "-" Then result = operand1 - operand2

If operator = "*" Then result = operand1 * operand2

If operator = "/" And operand2 <> 0 Then result = operand1 / operand2

If operator = "^" Then result = operand1 ^ operand2

display.Caption = result

clearDisplay = True

Exit Sub

eh:

Call MsgBox(Err.Description, , Err.Source)

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case Chr$(KeyAscii)

Case Is = "0": Number_Click (0)

Case Is = "1": Number_Click (1)

Case Is = "2": Number_Click (2)

Case Is = "3": Number_Click (3)

Case Is = "4": Number_Click (4)

Case Is = "5": Number_Click (5)

Case Is = "6": Number_Click (6)

Case Is = "7": Number_Click (7)

Case Is = "8": Number_Click (8)

Case Is = "9": Number_Click (9)

Case Is = "+": plus_Click

Case Is = "-": minus_Click

Case Is = "*": multiply_Click

Case Is = "/": divide_Click

Case Is = ".":

Case Else

If KeyAscii = vbKeyReturn Then

equalto_Click

ElseIf KeyAscii = vbKeyEscape Then

'correctEntry_Click

ElseIf KeyAscii = vbKeyBack Then

'back_Click

End If

End Select

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Format(Now, "Mmm dd,yyyy hh:mm:ss ampm")

End Sub

Private Sub minus_Click()

operand1 = Val(display.Caption)

operator = "-"

display.Caption = vbNullString

End Sub

Private Sub multiply_Click()

operand1 = Val(display.Caption)

operator = "*"

display.Caption = vbNullString

End Sub

Private Sub Number_Click(Index As Integer)

If clearDisplay Then

display.Caption = vbNullString

clearDisplay = False

End If

display.Caption = display.Caption + Number(Index).Caption

End Sub

Private Sub plus_Click()

operand1 = Val(display.Caption)

operator = "+"

display.Caption = vbNullString

End Sub

”

6. klik file->make kalkulator exe

7. selamat mencoba

MEMBUAT GAMBAR BACKROUND PADA DEKSTOP FOLDER ATU FLASHDISK

2010-08-27T10:54:00.004-06:00

supaya Flashdisk yang kita punya gak ketuker dengan punya teman, kita siasati dengan memberikan background di flashdisk yang kita miliki, tidak perlu pakai software kita hanya butuh notepad untuk membuat file “desktop.ini” dan sebuah gambar untuk dijadikan background nantinya caranya :

1. buka notepad dan tuliskan

[ExtShellFolderViews] {BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC} [{BE098140-A513-11D0-A3A4-00C04FD706EC}] Attributes=1 IconArea_Image=(isi sesuai gambar yang kamu pilih jangan lupa extensinya dicantumin misl .jpg/.png dll) IconArea_Text=0x000FF0 [.ShellClassInfo] ConfirmFileOp=0

2. simpan file tersebut di flashdiskmu dengan nama “desktop.ini” jangan lupa gambar yang akan kamu buat background juga harus dah ada di flashdiskmu 3. setelah selesai blok kedua file tersebut =>klik kanan => hide

Kalau nggak pengen ribet Download saja softwarenya disini , tinggal di extract di folder yang ingin ubah gambar backgroundnya. 4. selamat mencoba

putrabaja movieplayer

2010-08-27T10:44:00.005-06:00

Putrabaja movieplayer adalah software yang dibuat dengan menggunakan visualbasic 6.0. software pemutar video ini bisa memainkan beberapa ekstensi video yaitu .avi;.asf;.mpg;.mpeg;.dat;.mp4;.3gp;.wmv .flv dll. Software buatan seorang tukang loper ES ini walapun masih dalam tahap pengembangan tapi patut di coba, untuk dapat mengunduhnya silahkan klik disini.

MEMBUAT SHORTCUT SHUTDOWN DAN RESTART

2009-03-09T16:23:00.005-06:00

MEMBUAT SHORTCUT SHUTDOWN kadang mematikan komputer disaat hang atau crash sangat sulit, nach..., sekarang kita buat link untuk shutdown,untuk memudahkan mematikannya, caranya sebagai berikut : 1. klik diarea kosong dekstop 2. klik New 3. klik shortcut 4. ktik -s -t 00 5. ok MEMBUAT SHORTCUT RESTART Untuk memebuat shortcut restart langkah - langkah yang digunakan tidk jauh beda dengan memebuat shotcut shutdown, cuman yang membedakan dilangkah no. 4 ktik (-r -t 00)