Membuat Huruf Kapital Tiap Kata di VB6

Assalamualaikum pengunjung muslihpedia kali ini saya akan membahas mengenai cara membuat huruf kapital tiap kata di visual basic 6. Fungsi ini merupakan salah satu fungsi yang sangat berguna bila kita ingin menginputkan nama seseorang.langkah-langkahnya:

Buat desai formnya seperti berikut:

Masukan sintak berikut pada Form_Load:

Private Sub Form_Load()
    Text1.Text = "kapital tiap kata"
    Text1.Text = Text1.Text + " visual basic."
    Text2.Text = CapAllWords(Text1.Text)
End Sub

Dan masukan pula fungsi berikut:

Function CapAllWords(ByVal MyString As String) As String
    Dim PosSpc As Integer
    Mid(MyString, 1, 1) = UCase(Mid(MyString, 1, 1))
    PosSpc = InStr(MyString, " ")
    While PosSpc <> 0
        Mid(MyString, PosSpc + 1, 1) = UCase(Mid(MyString, PosSpc + 1, 1))
        PosSpc = InStr(PosSpc + 1, MyString, " ")
    Wend
    CapAllWords = MyString
End Function

Kemudian jalankan programnya:

Sekian dulu tutorialnya, semoga bermanfaat.

Cara Konversi Angka Ke Jam, Menit dan Detik Di VB6

Berikut ini cara melakukan konversi dari angka ke dalam Jam Menit dan Detik pada Visual Basic:

- Buat Desain Formnya seperti gambar dibawah:

- Masukan Sintak berikut pada Text1 event LostFocus:

Private Sub Text1_LostFocus()
Dim Isec As Integer
    Isec = Val(Text1.Text)
    BreakSec = Str$(Int(Isec / 60)) & " minutes " & Str$(Isec Mod 60) & " seconds "
    Text2.Text = BreakSec
End Sub

- Kemudian jalankan

Selamat anda berhasil mengkonversi dari angka menjadi format Jam Menit dan Detik.

Sekian tutorial singkat ini semoga bermanfaat.

Cara Buat Form Login dengan Visual Basic

Assalamualaikum Pengunjung Muslihpedia kali ini saya akan sedikit Membahas tentang bagaimana membuat form login dengan Visual Basic. Tanpa banyak basa-basi langusung saja :

Buka Microsoft Visual Basic lalu pilih Standard EXE, Save dulu Projectnya

Pada Menu Klik Add-Ins > Visual data manager

Pilih File > New > Microsoft Acces > Version 7.0 MDB. beri nama misalkan : Data , dan simpan di direktori tempat menyimpan project tadi. Klik kanan pada Database window pilih New Table

Beri nama Tabel dengan nama Tbl_login dan Klik Add Field dengan properti field :

Name	Type	Size
Username	Text	10
Password	Text	5

Kemudian Add Index lalu isi sesuai dengan gambar dibawah

kemudian Klik OK dan Build Table

kini Tabel Login Sudah tersedia. untuk coba silahkan isi tabel dengan double klik pada tabel misalkan :

username : admin

Password : 123

kembali lagi ke form yang tadi dan buatkkan desainnya seperti pada gambar dibawah ini

kemudian klik Project > References dan centang Microsoft DAO 3.51 Object Library lalu klik Ok

Lalu Ketikan Sintaks Ini

Dim data As Database
Dim rlogin As Recordset

Private Sub Command1_Click()
On Error GoTo PESAN

With rlogin
    .Seek "=", Text1
    If Not .NoMatch And !Password = Text2 Then
        MsgBox "SELAMAT DATANG", vbInformation, "INFORMASI"
        Exit Sub
    Else
        MsgBox "DATA TIDAK DIKENALI!", vbCritical, "Warning"
    End If
End With

PESAN:
    MsgBox "DATA TIDAK DIKENALI!", vbCritical, "INFORMASI"
    Me.Text1.Text = ""
    Me.Text2.Text = ""
    Me.Text1.SetFocus
    Exit Sub
End Sub

Private Sub Command2_Click()
keluar = MsgBox("Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "KONFIRMASI")
If keluar = vbYes Then
    End
Else
    Me.Text1.SetFocus
End If

End Sub

Private Sub Form_Activate()
Set data = OpenDatabase(App.Path & "\DATA.mdb")
Set rlogin = data.OpenRecordset("TBL_LOGIN")
rlogin.Index = "idx_login"
Me.Text1.SetFocus
End Sub

Program setelah dijalankan

Untuk download File nya klik Disini

Terimakasih Semoga Bermanfaat

Cara Buat Kalkulator Sederhana Di Visual Basic 6

Assalamualaikum Wr.Wb Pada postingan kali ini saya akan membahas sedikit tentang bagaimana membuat kalkulator sederhana menggunhakan VB6, Kalkulatornya memang tidak Sebagus yang ada di windows hehe, langsung saja :

Buka VB6 nya dan buat desain seperti di bawah dengan komponen-komponen :

Komponen	Properti	Pengaturan
Form	Caption	Kalkulator Sederhana
Label1	Caption	Bilangan Pertama
Label2	Caption	Bilangan Kedua
Label3	Caption	Hasil
Text1	Text	(Kosongkan)
	Name	Bil1
Text2	Text	(Kosongkan)
	Name	Bil2
Text3	Text	(Kosongkan)
	Name	Hasil
	Enable	False
Command1	Caption	+
Command2	Caption	-
Command3	Caption	X
Command2	Caption	/
Command5	Caption	C

Desain Form :

Koding program :

Sintaks Untuk Command Tambah

Private Sub Command1_Click()
Me.hasil.Text = Val(Me.bil1.Text) + Val(Me.bil2.Text)
End Sub

Sintaks Untuk Command Kurang

Private Sub Command2_Click()
Me.hasil.Text = Val(Me.bil1.Text) - Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Kali

Private Sub Command3_Click()
Me.hasil.Text = Val(Me.bil1.Text) * Val(Me.bil2.Text)
End Sub

Sintaks untuk Command Bagi. Agak panjang karena tidak bisa dibagi dengan 0 (nol).

Private Sub Command4_Click()

If Val(Me.bil2.Text) = 0 Then
MsgBox "Bilangan Tidak Bisa di bagi 0", vbOKOnly + vbCritical, "Erorr"
Call Command5_Click
Else
Me.hasil.Text = Val(Me.bil1.Text) / Val(Me.bil2.Text)
End If

End Sub

Sintaks untuk mengosongkan TextBox

Private Sub Command5_Click()
Me.bil1.Text = ""
Me.bil2.Text = ""
Me.hasil.Text = ""
Me.bil1.SetFocus

End Sub

Sintaks Pada bil1 & bil2 agar bisa di isi dengan angka saja

Private Sub bil1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Private Sub bil2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
    And KeyAscii <= Asc("9") & Chr(13) _
    Or KeyAscii = vbKeyBack _
    Or KeyAscii = vbKeyDelete) Then
    Beep
   
    KeyAscii = 0
End If

End Sub

Tampilan Setelah Dijalankan:

Untuk Downlaod Sourde Codenya Klik Disini

Sekian Tutorial dari saya. Semoga bermanfaat