Vb progressbar.

ahaha.. kali ini saya akan membuat progress bar.. udah tau belum progress bar itu apah??
itu lohh yang loading2 tea.. ahaha
ok pertama2 buka vb nya.. lalu pilih standar exe .
jika sudah, oyah karna di toolbox nya belum ada progress bar nya maka kita ambil di component yaitu microsoft windows common controls 6.0(sp6).
untuk ke component nya, tekan ajah ctrl+t atau di toolbox klik kanan lalu pilih component atau di bar atas pilih project lalu dibawah ada component ,klik !..
nah,, cari microsoft windows common controls 6.0(sp6).
atau seperti gambar dibawah ini..

nah.. centang microsoft windows commont controls 6.0 nya,apply lalu klik ok!..
jika sudah ,liat di toolbox maka akan bertambah tool2 lain nya..
klik 2 kali progres bar..
atau seperti gambar dibawah ini..

dan tambah kan command button 1..
lalu ganti nama commandbutton = "cmdgo" dan progressbarnya = "p" tanpa tanda kutip.
ahaha.. jika udah jangan lupa seret progressbarnya biar jadi panjang.. biar ga terlalu garing(kecepetan loading nya.. ehhehe) tapi jangan terlalu panjang juga.. ahahah
jika udah,tinggal ketik coding nya dibawah ini di command button cmdgo..

Private Sub cmdgo_Click()
Dim i As Integer
p.Min = 0
p.Max = 10000
For i = 1 To 10000
p.Value = i
Next
p.Value = 0
MsgBox "yeah.. sukses", vbInformation, "DOTCOMNET"
end sub
beres deh.. tinggal dijalanin !
hehehe
salam DOTCOMNET

bacalah selanjutnya......

VB login.. ehehe

ahaha,, sekarang mari kita bikin login.. tapi ga pake database,,hehehehe !
ntar deh..
yang kita butuhin,
-textbox2
-commandbutton2
-label2
ganti propetis nya seperti dibawah ini..
textbox1 = name : txtnama
textbox2 = name : txtpass
command1 = name : cmdlogin
= caption : LOGIN
command2 = name : cmdkeluar
= caption : Keluar
label1 = caption : Nama :
label2 = caption : password :
atau seperti gambar dibawah ini..

nah.. kalo bisa mending samain,, ehehhee
ok,sekarang tulis coding di cmd login..
seperti ini..

Private Sub cmdlogin_Click()
If txtnama.Text = "ichamganteng" And txtpass.Text = "123" Then
MsgBox "yeah.. anda login sebagai " & txtnama.Text + vbCrLf + "" + vbCrLf + "selamat datang " & txtnama.Text, vbInformation, "Selamat datang"
Else
MsgBox "maaf salah satu,salah semuanya.. ehehe" + vbCrLf + "silahkan coba lagi user " & txtnama.Text, vbInformation, "DOTCOMNET"
End If
End Sub
dan tulis kan coding di cmdkeluar,,
seperti ini..
Private Sub cmdkeluar_Click()
a = MsgBox("yakin lu mau keluar ?", vbYesNo + vbQuestion, "DOTCOMNET")
If a = vbYes Then
MsgBox "terima kasih telah memakai soft kami..", vbInformation, "DOTCOMNET"
End
ElseIf a = vbNo Then
MsgBox "asikk euyy,, ga jadi keluar ahahaha", vbInformation, "DOTCOMNET"
End If
End Sub
ok.. tinggal jalanin.. eheheh !
oyah misalkan pengen diganti nama ama pass nya.. ganti ajah di txtnama dan txtpass nya.
ehehehe!
SEKIAN..
salam dari DOTCOMNET.

bacalah selanjutnya......

Form vb menjadi membesar (pada saat di klik)

ahaha kali ini saya akan mosting command button maximize.. atau si form langsung gede.. hhehe
ok.. langsung saja..
pertama2 buat dulu command button 1..
lalu klik 2 kali command button tersebut. tinggal tuliskan syntax yang ada di bawah ini..
Form1.WindowState = 2
atau seperti gambar di bawah ini..



ahaha..
oyah.. jika no nya di ganti 1 maka akan me minimize.. dan normal nya adalah 0 ahaha
ok salam hangat dari MIGRAINT..

bacalah selanjutnya......

Tutorial visual basic VB6.0

ahaha.. postingan pertama euyy ! wkwkw :logatsunda
mari kita bikin kalkulator sederhana dengan vb6.0..
bagi yang sudah merasa jago.. di harapkan mending lewat ajah deh.. wahahha
oyah.. pertama buka vb nya dulu,pasti uda tau donk..
kalo GAU TAU :GUBRAKKEBANGETAN
ok,pertama klik windows lalu cari visualbasic.. ok !
kalo gatau juga.. cari pasti ada, kalo ga ada mungkin belum di instal vb nya.. wkwkwk
nah jika sudah.. vb nya di buka.. klik standar exe.
atau seperti gambar di bawah ini..

selanjutnya, kita bikin 4 command button dan teks box nya 2..
atau seperti gambar di bawah ini..

lanjut nya, tinggal mengisikan coding nya..
oyah untuk nama, biarkan sajah.. karna nanti jika sudah di coba pasti tau mana yang ditambah ato dikali dan sebagaina.. ahahah
oyah misalkan ga tau cara untuk memunculkan jendela code..
liat gambar di bawah ini.. ehehhe

nah,jika udah tinggal tuliskan coding dibawah ini di jendela code..

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Perkalian " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text * Text2.Text), vbInformation, "ichamganteng"
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Pembagian " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text / Text2.Text), vbInformation, "ichamganteng"
End If
End Sub



Private Sub Command3_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Penjumlahan " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Val(Text1.Text) + Val(Text2.Text)), vbInformation, "ichamganteng"
End If
End Sub

Private Sub Command4_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Pengurangan " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text - Text2.Text), vbInformation, "ichamganteng"


End If
End Sub

ahaha selesai.. deh,tinggal di pahami ! ahahaha :D :D :D
SALAM TEAM DCN

bacalah selanjutnya......