menapilkan jam dan tanggal dengan vb 6.0

silahkan design form sobat dengan model seperti di bawah ini:dengan menggunakan 2 buah label kemudian setting fropertisnya baik pada font maupun backgroudnya.

kemudian ketiklah code di bawah ne//...

Private Sub Form_Load()
Label2.Caption = Date
Label1.Caption = Time

End Sub

sehingga tampilan pas di runya seperti ini.

selsesai..

silahkan berkarya lagi...semoga kita semua menjadi orang yg sukses..

membuat program menggunakan label,commond,frame,Check,Option1 dengan vb 6.0

langsung saja kawan kawan buat designya seperti ini..

dengan menambahkan 2 commond button,2 label dan 2 frame serta 2 option dan checkbook..
bila sudah di design seperti di atas langsung saja ketik kode di bawah ini:

Private Sub Command1_Click()
Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbRed

End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbGreen
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

sekian dulu dari saya selamat berkarya///.....

membuat kalkulator dengan vb 6.0

ass.wr wb,...salam sejahtra untuk kita semua para pecinta bloger...sudah lama saya tidak aktip di blog karna terlalu banyak kesibukan baik di kampus maupun di rumah jadinya blog terbengkalai tapi tak apalah yg penting hari ini saya ingin membagikan sedikit trik cara membuat kalkulator dengan vb 6.0 jadi langsung sja okey....

pertama tama:

1-kawan kawan persiapkan 3 buah label,3 buah textbook,dan 3 buah commont button...
   Gntilah=
   -text1=txtnilai1
   text2=txtnilai2
   text3=txthasil
  commond1=cmdhitung
  commond2=cmdhapus
 commond3=cmdkembali
2-untuk membuat keyfress yg gunnya agar kita bisa langsung memindahkan kusor ke nilai 2 caranya ganti saja pada samping kanan pojok atas click menjadi keyfress/...

3-kemuadina buatlah design di vbnya kira kira seperti di bawah ini..

3-kemudian ketikan kode ini atau copy/paste saja lah..

   Private Sub CMDHITUNG_Click()
TXTHASIL.Text = Val(TXTNILAI1.Text) + Val(TXTNILAI2.Text)
End Sub


Private Sub TXTNILAI1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNILAI2.SetFocus
End If
End Sub
Private Sub CMDHAPUS_Click()
TXTNILAI1.Text = ""
TXTNILAI2.Text = ""
TXTHASIL.Text = ""
TXTNILAI1.SetFocus

End Sub

 Private Sub CMDKEMBALI_Click()
Unload Me

End Sub

ket=
silahkan kawan kawan ganti operator aritmetikanya dengan yg lain
sekian dari saya dan silahkan kawan kawan kembangkan strusnya....

selamat berkarya...