membuat kalkulator dengan VIBI

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Cara memasang lencana facebook kedalam blog anda

1.Login ke facebook anda dulu,lalu buka profil anda

2.Klik gambar bintang samping log aktifitas,kemudian klik tambahkan lencana ke situs anda

3.Kemudian klik buat lencana baru

4.Stelah itu sunting smuanya sesuai faforit anda kemudian simpan

5.Kemudian klik blogger

6.klik edit konten ,kemudian akan muncul kode HTML terus copy deh

7.masuk blog anda paste htmlnya ke HTML/JAVASRCIPT

SELAMAT MENCOBA

1. 
   

VISUAL BASIC deret,faktorial,dan lingkaran

deret
Private Sub Form_Activate()
i = 0
Do
i = i + 1
Print i * i;
Loop While i <= 5
End Sub
****************************************
faktorial
Private Sub Form_Activate()
i = 1
fact = 1
Do While i <= 5
    Print fact;
    i = i + 1
    fact = fact * i
Loop
End Sub
***************************************
lingkaran
Private Sub Form_Activate()
Dim luas, keliling, jari2
Const PI = 3.14
r = InputBox("masukkan jari-jari:")
k = 2 * PI * r
l = PI * r * r
Print "keliling:"; k
Print "luas:"; l
End Sub

VISUAL BASIC cara mengasihkan discount

Private Sub Form_Activate()
Dim kode(100), tema(100), jumlah(100), HargaPerSatuan(100), Discont(100), Dist(100), Dispros(100), Bayar1(100), Bayar2(100), i, n, m, TotalBayar

TotalBayar = 0

Form1.Print "============================================================================"
    Print
    Form1.Print Tab(5); "Kode";
    Form1.Print Tab(15); "Tema";
    Form1.Print Tab(35); "Jumlah";
    Form1.Print Tab(45); "Harga Per Satuan";
    Form1.Print Tab(70); "Discount";
    Form1.Print Tab(85); "Bayar";
    Print
    Form1.Print "============================================================================"
    Print

n = InputBox("Masukkan Jumlah Banyaknya Data ")
For m = 1 To n
    kode(i) = InputBox("Masukkan Kode (A-E)")
    jumlah(i) = InputBox("Masukkan Jumlah Yang Dibeli")
    HargaPerSatuan(i) = InputBox("Masukkan Harga Per Satuan")
   
    If kode(i) = "A" Then
        tema(i) = "Komputer"
    ElseIf kode(i) = "B" Then
        tema(i) = "Ekonomi"
    ElseIf kode(i) = "C" Then
        tema(i) = "Akuntansi"
    ElseIf kode(i) = "D" Then
        tema(i) = "Statistik"
    ElseIf kode(i) = "E" Then
        tema(i) = "Umum"
    End If
   
          
    If jumlah(i) <= 10 Then
        Dist(i) = "5%"
        Discont(i) = 0.05
       
    ElseIf jumlah(i) <= 20 Then
        Dist(i) = "10%"
        Discont(i) = 0.1
       
    ElseIf jumlah(i) <= 30 Then
        Dist(i) = "15%"
        Discont(i) = 0.15
       
    ElseIf jumlah(i) <= 40 Then
        Dist(i) = "20%"
        Discont(i) = 0.2
       
    ElseIf jumlah(i) > 40 Then
        Dist(i) = "25%"
        Discont(i) = 0.25
    End If
   
   
    Bayar1(i) = jumlah(i) * HargaPerSatuan(i)
    Dispros(i) = Bayar1(i) * Discont(i)
    Bayar2(i) = Bayar1(i) - Dispros(i)
    TotalBayar = TotalBayar + Bayar2(i)
   
    Form1.Print Tab(5); kode(i);
    Form1.Print Tab(15); tema(i);
    Form1.Print Tab(35); jumlah(i);
    Form1.Print Tab(45); Format(HargaPerSatuan(i), "Rp ###,###,###");
    Form1.Print Tab(70); Dist(i);
    Form1.Print Tab(85); Format(Bayar2(i), "Rp ###,###,###");
    Print
Next m
Form1.Print "-------------------------------------------------------------------------------------------------------------------------------------------------------"
Print
    Form1.Print Tab(85); "TotalBayar";
Print
Print
    Form1.Print Tab(85); Format(TotalBayar, "Rp ###,###,###");

End Sub

VISUAL BASIC deret

Private Sub Form_Activate()
Dim i, j, n, Min As Integer
Dim A(5) As Integer

A(1) = 5
A(2) = 3
A(3) = 1
A(4) = 7
A(5) = 9
Print "angka sebelum diurutkan"
For i = 1 To 5
    Print "angka ke "; i; "="; A(i)
Next i
n = 4
For i = 1 To n
    Min = i
For j = i + 1 To 5
    If A(Min) > A(j) Then
    Min = j
    End If
Next j
    temp = A(i)
    A(i) = A(Min)
    A(Min) = temp
Next i
Print
Print "angka setelah diurutkan"
For j = 1 To 5
    Print "angka ke"; j; "="; A(j)
Next j
End Sub

VISUAL BASIC operator toko

Private Sub Form_Activate()
    Dim barang(4), jumlah(4), Hargasatuan(4), harga(4), total
    total = 0
   For i = 1 To 4
       
        barang(i) = InputBox("masukkan nama barang ")
        jumlah(i) = InputBox("masukan jumlah barang")
        Hargasatuan(i) = InputBox("masukan harga satuan")
       
        harga(i) = Val(jumlah(i)) * Val(Hargasatuan(i))
      
        total = total + Val(harga(i))
        Print "nama barang   ="; barang(i)
        Print "jumlah barang ="; jumlah(i)
        Print "hargasatuan   ="; Hargasatuan(i)
        Print "harga         ="; harga(i)
        Print
    Next i
    Print "total ="; total

   
End Sub

VISUAL BASIC looping

6 Looping