SKIN FORM VB6.0

Bosan dengan tampilan VB6.0 ??
kalo gak ya lanjutkan bro ...

jika ingin mengubah tampilan formnya, Anda dapat mengikuti tutorial di bawah ini

Untuk download ActiveSkin4.0 silah klik di sini DOWNLOAD HERE

untuk contoh programnya bisa Anda dapatkan di sini DOWNLOAD HERE

Mencari Bintang dengan VB 6.0

Rancanglah Form sebagai berikut :

kemudian ketikkan kode di bawah ini :

Private Sub Command1_Click()
Dim KodeHari As Byte
Dim Hari$

KodeHari = Weekday(Text1)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
Text2 = Hari

Dim Tg, Bl As Byte
Dim Btg$
Tg = Day(Text1): Bl = Month(Text1)
If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES"
If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS"
If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI"
If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER"
If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = Then Btg = "LEO"
If (Tg >= 23 And Bl = Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO"
If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA"
If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO"
If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS"
If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN"
If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS"
If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"

Text3 = Btg
End Sub

memutar Suara, Musik dan Film dengan VB 6.0

untuk memutar Suara, Musik dan Film dengan langkah berikut :

Project > Components > Windows Media Player > OK

Rancanglah Form seperti berikut :

ketik pada jendela kode ( load )
---
Private Sub Form_Load()
WindowsMediaPlayer1.openPlayer "C:\xampp\Bondan - Bunga.mp3"
End Sub
---
kemudian Play

Contoh Program INPUT DATA - VB 6.0

Rancangan program Input Data

kode :

Private Sub Form_Load()
Combo1.AddItem "1", 0
Combo1.AddItem "2", 1
Combo1.AddItem "3", 2
End Sub

Private Sub Selesai_Click()
End
End Sub

Private Sub Batal_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Simpan_Click()
If Text1 = "" Or Text2 = "" Then GoTo kosong
Open "C:\Gaji.dat" For Append As #1
Write #1, Text1, Combo1.Text, Text2
Close #1
Text1 = ""
Combo1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
kosong:
Beep
If Text1 = "" Then Text1.SetFocus
If Text2 = "" Then Text2.SetFocus
End Sub

----
sebuah file dengan nama Gaji.Dat telah dibuat pada drive C

Contoh Penggunaan VAL - VB 6.0

Rancanglah Form seperti berikut :

ketiklah pada jendela code, seperti berikut :

MICROSOFT ViSUAL BASiC 6.0

Microsoft Visual Basic 6.0 merupakan salah satu bahasa pemrograman yang sama seperti Bahasa Pemrograman Basic, Pascal, C dan lain-lain. Namun, Pascal dan C ditujukan untuk sistem operasi MS-Dos, sedangkan Visual Basic untuk Sistem operasi Windows dan Internet.

Visual Basic 6.0 memiliki berbagai peralatan yang memudahkan untuk pembuatan suatu program. Oke! lanjut saja ke intinya.

Pengenalan VB 6.0

---

Jalankan aplikasi VB 6.0 Anda, selanjutnya akan keluar kotak dialog New Folder :

 

klik Open ( pastinya yang dipilih adalah Standard EXE ), maka Anda akan melihat jendela program Visual Basic 6.0