Pengertian HTML 5 Beserta Contohnya
Selasa, 11 April 2017
Minggu, 19 Februari 2017
Program Kalkulator Lengkap Dengan Visual Basic 6.0
Langsung aja ya .., kali ini saya akan membagikan cara membuat tampilan kalkulator pada program visual basic seperti pada gambar 1 dan penampakan pada saat dijalankan pada gambar 2.
Gambar 1.
Gambar 2.
Untuk rumus kalkulator hampir sama dengan yang kalkulator sederhana hanya
dipersingkat dalam satu prosedure saja agar mudah dalam mengatasi memori
penyimpanan dan errornya.
Kurang lebih code-nya seperti ini :
Private
Sub cmdOP_Click(Index As Integer)
|
On Error
GoTo CheckIfOverFlowErr
|
If
bWasError Then
|
Beep
|
Exit Sub
|
End If
|
If bOp =
True And bEqual = False Then
|
nOp
= Index 'Remember the last operatore
|
Exit
Sub 'And..Exit sub
|
ElseIf bEqual = True And bOp = True Then
|
If nOp = 1 Or nOp = 2 Then
|
nLastNum = 0
|
Else
|
nLastNum = 1
|
End If
|
End If
|
If nOp = 0
Then
|
nResult = CDbl(lblOutput.Caption)
|
End If
|
Select
Case nOp
|
Case 1 '+
|
nResult = nResult + nLastNum
|
Case 2 '-
|
nResult = nResult - nLastNum
|
Case 3 '*
|
nResult = nResult * nLastNum
|
Case 4 '/
|
If nLastNum = 0 Then
|
lblOutput.Caption = "Cannot divide by zero."
|
bWasError = True
|
Exit Sub
|
Else
|
nResult = nResult / nLastNum
|
End If
|
End Select
|
nOp =
Index
|
bOp = True
|
bEqual =
False
|
lblOutput.Caption
= nResult
|
If
Left$(lblOutput.Caption, 1) = "." Then
|
lblOutput.Caption = "0" & nResult
|
End If
|
btnFocusEqual.SetFocus
|
Exit Sub
|
CheckIfOverFlowErr:
|
If
Err.Number = 6 Then
|
lblOutput.Caption = "Value is over max calculation limit."
|
bWasError = True
|
End If
|
End Sub
|
Lebih lengkapnya silahkan di download di link dibawah....
Selasa, 10 Januari 2017
VidioPad Vidio Editor, Editing Mudah, Dan Ringan
VideoPad Video Editor adalah utilitas pengeditan video gratis yang menawarkan beragam utilitas edit profesional dengan cara yang sederhana dan mudah.
Anda bisa menambahkan berbagai tipe media: video, audio dan
gambar. Kemudian berkas akan dibagi-bagi menjadi banyak lini waktu, baik
sekuensial maupun paralel (yang terakhir hanya untuk audio). Nantinya Anda
dapat menciptakan kreasi Anda sendiri.
Kamis, 05 Januari 2017
Cara membuat layout halaman login facebook dengan HTML dan CSS
Senin, 21 November 2016
Menggunakan Sistem Oprasi Apple inc. Di Perangkat Non Apple
Baiklah kali ini saya akan berbagi cara menggunakan sisitem oprasi Apple inc, diperangkat non apple dengan Hackintosh Yosemite Zone Version | 4.94 GB / 5.1 GB
Ok Sebelumnya saya akan jelaskan sedikit tentang OS X Yosemite, OS X Yosemite adalah sistem operasi terbaru dari perusahaan Apple Inc. yang dirilis pada tahun 2014. Pada dasarnya, OS X Yosemite hanya digunakan untuk perangkat Apple seperti Macbook Air, Macbook Pro dan sejenisnya. Tapi, seperti yang kita tahu, harga perangkat-perangkat tersebut bisa mencapai belasan juta rupiah.