Cara Membuat Stop Watch Dengan VB

Buatlah Sebuah Form Seperti Pada Gambar.

Setelah Membuat Tampilan Seperti pada Gambar, Masukan Listing Program Berikut:
Option Explicit
Private Sub Command1_Click()
Select Case Command1.Caption
Case “Start”
Timer1.Enabled = True
Command1.Caption = “Stop”
Case “Stop”
Timer1.Enabled = False
Command1.Caption = “Start”
End Select
End Sub
Private Sub Timer1_Timer()
text1.Text = text1.Text + 1
End Sub
Private Sub text1_Change()
If text1.Text = “59″ Then
text1.Text = “00″
text2.Text = text2.Text + 1
End If
text1.Text = Format(text1.Text, “00″)
End Sub
Private Sub txt2_Change()
If text2.Text = “59″ Then
text2.Text = “00″
text3.Text = text3.Text + 1
End If
text2.Text = Format(text2.Text, “00″)
End Sub
Private Sub txt3_Change()
text3.Text = Format(text3.Text, “00″)
End Sub

Visual Basic

Menggabungkan Visual basic dengan Database MS acces

Lalu pada properties window pilih recordsource, lalu klik kotak ”…”. Maka akan muncul window property pages. Pada kolom command type ubah ke 2-adCmd table, dan pada table or stored procedure name ubah ke pegawai. Lalu klik OK

Lalu pindah k form2.

Klik ke text1, lalu pada properties window pilih data source ubah menjadi Data 1 dan pada data field  ubah sesuaikan dengan caption pada label di sebelah textnya. “NAMA” ulangi lagi pada text2 dan text3.

Lalu klik ke Data1. properties window pilih data base name. lalu klik kotak “…” lalu open pada file data base yang kita save tadi. Dan record sourcenya ubah menjadi pegawai.

kemudian pada form1 buat kodingan seperti ini...

kemudian pada form2 buat codingan seperti ini..

kemudian anda RUN maka akan tercipta output seperti ini..

dan ketika tombol next diclick maka akan tamapil output seperti ini...

Anda bisa menambahkan nama pada field field tersebut dengan mengklik tombol add

dan anda bisa menghapus nama pada field dengan tombol delete..

selamat mencoba semoga berhasil..

Selaku pribadi saya mohon maaf semua penjelasan saya dari awal sampai akhir tentu saja banyak kesalahan atau banyak penjelasan yang kurang dimengerti dan anda bisa mencari referensi melalui buku atau internet jika anda ingin lebih jelas lagi.

Visual Basic

Membuat Mesin Hitung BBM dengan VB

1.Buatlah sebuah program dengan menggunakan Control Structure dan pilih tipe data yang sesuai untuk merancang sebuah pompa BBM.

Dengan Ketentuan Sebagai berikut :

• Jika jenis BBM dipilih/diklik maka Harga/liter langsung muncul
• Hanya jumlah liter yang diinput, total liter dikeluarkan dan total bayar dihitung berdasarkan timer (setiap 10 mili detik dikeluarkan 1 liter)
• Jika tombol 'isi' diklik, maka tombol stop hidup, tombol 'isi' dan 'kosongkan' mati, progres bar berjalan sesuai dengan jumlah liter dan harga BBM yang dikeluarkan
• ScrolBar menunjukkan isi tangki, pertama sekali tangki dianggap penuh dan setiap kali pengeluaran dikurangi jumlah yang dikeluarkan
• Jika tombol 'stop' diklik, maka tombol 'isi' dan 'kosongkan' hidup.
• Jika tombol 'Kosongkan' diklik, maka reset pompa BBM ke awal, tombol 'isi' hidup, tombol 'stop' mati dan tombol 'kosongkan'[ mati.

a. gambar desain form 1 (sebelum dijalankan) :

Source Code :
Public Class Form3
    Structure BBM
        Public jumMinyakTanah As Single
        Public jumPremium As Single
        Public jumSolar As Single
        Public jumPertamax As Single
        Public jumAftur As Single
    End Structure

    Structure Harga
        Public hMinyakTanah As Single
        Public hPremium As Single
        Public hSolar As Single
        Public hPertamax As Single
        Public hAftur As Single
    End Structure

    Private b As BBM
    Private h As Harga

    Sub setDefaultTangki()
        b.jumMinyakTanah = 100
        b.jumPremium = 100
        b.jumSolar = 100
        b.jumPertamax = 100
        b.jumAftur = 100

        h.hMinyakTanah = 4800
        h.hPertamax = 7000
        h.hPremium = 4500
        h.hAftur = 2500
        h.hSolar = 5000
    End Sub

    'Deklarasi variable
    Dim maxScroll, minScroll, scrollValue, HargaLiter As Single
    Dim beliLiter, beliNominal As Single
    Dim radioStatus As String
    Dim nowKondisi As Single
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.setDefaultTangki()

        'Set Scroll
        Me.maxScroll = b.jumMinyakTanah
        Me.minScroll = 0

        'Set Max, min and value of Scrollbar
        Me.vsbTotLiter.Maximum = Me.maxScroll
        Me.vsbTotLiter.Minimum = Me.minScroll
        Me.vsbTotLiter.Value = 0
        'Set Harga Jual
        Me.txtHarga.Text = h.hMinyakTanah
        Me.radioStatus = "Minyak Tanah"

    End Sub


    Private Sub rdBBM_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdBBM1.CheckedChanged, rdBBM2.CheckedChanged, rdBBM3.CheckedChanged, rdBBM4.CheckedChanged, rdBBM5.CheckedChanged
        Dim obj As RadioButton
        For Each obj In Me.grbBBM.Controls
            If obj.Checked Then
                If obj.Text.Equals("Minyak Tanah") Then
                    Me.scrollValue = b.jumMinyakTanah
                    Me.HargaLiter = h.hMinyakTanah
                    Me.radioStatus = "Minyak Tanah"

                ElseIf obj.Text.Equals("Premium") Then
                    Me.scrollValue = b.jumPremium
                    Me.HargaLiter = h.hPremium
                    Me.radioStatus = "Premium"
                ElseIf obj.Text.Equals("Solar") Then
                    Me.scrollValue = b.jumSolar
                    Me.HargaLiter = h.hSolar
                    Me.radioStatus = "Solar"
                ElseIf obj.Text.Equals("Pertamax") Then
                    Me.scrollValue = b.jumPertamax
                    Me.HargaLiter = h.hPertamax
                    Me.radioStatus = "Pertamax"
                ElseIf obj.Text.Equals("Aftur") Then
                    Me.scrollValue = b.jumAftur
                    Me.HargaLiter = h.hAftur
                    Me.radioStatus = "Aftur"
                Else
                    Me.scrollValue = 100
                End If
            End If
        Next

        Me.maxScroll = Me.scrollValue
        Me.minScroll = 0

        nowKondisi = 100 - Me.maxScroll
        'Set Max, min and value of Scrollbar
        Me.vsbTotLiter.Maximum = Me.maxScroll
        Me.vsbTotLiter.Minimum = Me.minScroll
        Me.vsbTotLiter.Value = nowKondisi

        'Set Harga Jual
        Me.txtHarga.Text = Me.HargaLiter
    End Sub

    Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
        Me.prbIsi.Value = 0
        Me.beliLiter = Val(Me.txtIsiLiter.Text)
        Me.prbIsi.Maximum = Me.txtIsiLiter.Text
        If Me.txtIsiLiter.Text > Me.maxScroll And Not Me.txtIsiLiter.Text.Equals(Me.maxScroll) Then
            MsgBox("Maaf BBM Kosong.")
        Else
            Me.Timer1.Start()
        End If
        Me.btnIsi.Enabled = False
        Me.btnKosong.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.prbIsi.Value < Me.prbIsi.Maximum Then
            Me.prbIsi.PerformStep()
            Me.txtStatusLiter.Text = Me.prbIsi.Value
            Me.txtStatusHarga.Text = Me.prbIsi.Value * Me.txtHarga.Text
            Me.minScroll += 1
            Me.vsbTotLiter.Value = Me.minScroll
        Else
            Me.Timer1.Stop()
            If radioStatus.Equals("Minyak Tanah") Then
                b.jumMinyakTanah = b.jumMinyakTanah - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Premium") Then
                b.jumPremium = b.jumPremium - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Solar") Then
                b.jumSolar = b.jumSolar - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Pertamax") Then
                b.jumPertamax = b.jumPertamax - Me.txtIsiLiter.Text
            ElseIf radioStatus.Equals("Aftur") Then
                b.jumAftur = b.jumAftur - Me.txtIsiLiter.Text
            End If
        End If
        Me.maxScroll = Me.maxScroll - Me.minScroll
    End Sub

    Private Sub btnKosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKosong.Click
        Me.txtIsiLiter.Text = ""
        Me.txtStatusHarga.Text = ""
        Me.txtStatusLiter.Text = ""
        Me.prbIsi.Value = 0
        Me.btnIsi.Enabled = True
    End Sub
End Class


a. gambar desain form 1 (setelah dijalankan) :

Visual Basic

Membuat Loading Pada Form visual basic

Tanpa bertele-tele, berbelit-belit, dan tanpa yg lainnya saya akan menjelaskan cara membuat progress bar sederhana dengan VB6.

• Buka Visual Basic 6.0, setelah itu pilih form standar.exe
  
• Pada properties form, ganti captionnya menjadi, Progress Bar
• Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini :

• Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
• Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini :

• Setelah itu klik 2 kali pada Timer1
• Lalu, masukkan ini :

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If

End Sub

• Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
• Ganti intervalnya menjadi 100
• Kemudian coba compile dengan menekan tombol play.
• Jika berhasil tampilannya seperti ini:

Kalo bisa jalan /gak bisa jalan programnya, kasih komentar aja ke saya, ntar saya bales. Yang cm lihat2 kalo bs kasih jg comment ke saya. Makasih.

Visual Basic

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar disamping.




Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

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

Visual Basic

Input Data di Visual Basic

Ini adalah contoh program dari Visual Basic yang bersangkutan dengan bagaimana cara menampilkan hasil inputan data secara kebawah dan teratur. Dengan tampilan berurutan kebawah.

Saya membuat Program tersebut dengan menggunakan : 1. Menggunakan Label

2. Menggunakan Text

3. Menggunakan CommandButton

Setelah mengatur Interface (tampilan), maka masukan koding (kode) di tombol CommandButton yang di isi dengan nama OK.

koding (kode) teresebut adalah :

Private Sub Command1_Click()
Label4.Caption = “NAMA  : ” & Text1.Text & Chr(13) & “NPM    : ” & Text2.Text & Chr(13) & “KELAS : ” & Text3.Text
Label4.ForeColor = vbBlue
End Sub

Private Sub Command2_Click()
End
End Sub

Setelah memasukan koding (kode) tersebut, maka jalankan program tersebut dengan cara Play atau menekan tombol F5 yang ada di tombol Keyboard anda. Program tersebut akan menampilkan hasil warna biru, di karenakan saya memberi warna dengan perintah yang tertera di atas. Maka akan terlihat hasil seperti gambar di bawah ini.

Karena program tersebut menghasilkan hasil dalam bentuk (urutan) ke bawah, jadi saya menggunakan perintah chr (13). Agar hasilnya akan terlihat merata ke bawah.

Visual Basic