Mengubah Background Dan Font dengan Visual Basic 6.0

Selamat siang semuanya, kali ini untuk materi selanjutnya adalah membuat sebuah program dengan menggunakan Visual basic, kali ini saya akan memberikan satu contoh program sederhana yang dapat mengubah background, font style serta font color. berikut saya tampilkan hasil output dari contoh program yang saya buat.

contoh diatas adalah output yang sudah di eksekusi, sangat sederhana bukan??( maaf sedikit ada coret-coretan D: ) nah berikutnya saya akan mulai mengajarkan pada kalian langkah-langkah yang harus dilakukan untuk membuat program seperti di atas.

• untuk proses yang ke 1 seperti yang dapat kalian lihat saya memberikan beberapa urutan angka dari 1 s/d 4 , untuk langkah yg pertama buatlah sebuah textbox (ukuran dapat di sesuaikan dengan selera masing-masing).

• untuk proses yg ke-2 adalah mengubah warna background menjadi dengan warna yg kita inginkan. buatlah sebuah frame terlebih dahulu untuk menempatkan beberapa optionButton. buatlah 2 buah Optionbutton di dalam frame tersebut. untuk pemberian sebuah judul yang tertera seperti gambar di atas kalian tinggal membuka properties dari setiap objek yg ada, kemudian akan tampil di sebelah kanan layar sebuah list properties , pilihlah bagian caption lalu ubahlah dengan nama yang anda inginkan.apabila sudah anda selesaikan pilihlah salah satu optionButton yang anda inginkan. pada contoh di atas saya memilih warna biru sehingga background yg ada pada form berubah menjadi warna biru, berikut adalah coding yang di butuhkan untuk mengubah warna background tersebut menjadi warna biru :

                       Form1.BackColor = vbBlue
                   
                      kata vbBlue tersebut adalah sebuah key untuk mengubah warna dari background tersebut, apabila anda menggantinya dengan nama vbYellow,green atau red maka secara otomatis background anda akan berubah sesuai dengan coding yang anda masukan tadi.

•   untuk proses yang ke 3 sama halnya dengan proses yang ke 2 anda hanya perlu merubah isi dari objek yang ingin anda isi dengan coding tertentu. untuk merubah warna text yang ada pada textbox pada nomer 1 tersebut anda hanya perlu memberikan intruksi coding berikut ini.

                      Text1.ForeColor = vbGreen

seperti yang anda lihat diatas text yg berisi "nama saya david" berubah menjadi warna biru apabila anda memilih green dan itu akan berubah menjadi warna kuning apabila anda mengganti vbgreen  menjadi vbyellow.

•  untuk proses yang ke 4 memang sedikit lebih sulit di bandingkan dengan proses yang sebelumnya, terutama untuk pengkodingan nya itu sendiri. pada contoh di atas saya tidak menggunakan optionButton melainkan menggunakan checkBox . sama halnya dengan proses yang kedua dan ketiga anda hanya perlu menambahkan sebuah frame untuk meletakan checkBox di dalamnya dan perbedaan nya hanya terletak pada coding yang akan menghasilkan output seperti gambar di atas. pada textbox diatas tampilan huruf berubah menjadi italic/miring serta memiliki underline di bawanya. berikut adalah coding untuk membentuk tulisan yang ada pada textbox menjadi miring/italic dan memiliki underline :

Italic :
Else
If Check2.Value = 0 Then
Text1.FontItalic = False
End If
End If


underline :
If Check2.Value = 1 Then
Text1.FontUnderline = True
Else
If Check1.Value = 0 Then
Text1.FontUnderline = False
End If
End If
If Check1.Value = 1 Then
Text1.FontItalic = True

Read More

Cara membuat animasi text seperti diketik di visual basic 6.0

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik

      Pertama buka visual basic 6.0
      Pilih standar.exe

      Masukan 3 buah komponen berikut

      Label

    Timer dgn property è enabled = false, interval = 300

    Command buton dgn property è caption = mainkan

     Masukkan listing berikut

Private Sub Command1_Click()

If Command1.Caption = "mainkan" Then

    Timer1.Enabled = True

    Command1.Caption = "Stop"

Else

    Timer1.Enabled = False

    Command1.Caption = "mainkan"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "S"

End Sub

Private Sub Timer1_Timer()

Select Case Label1

    Case "S"

    Label1.Caption = "UP"

    Case "UP"

    Label1.Caption = "RI"

    Case "RI"

    Label1.Caption = "AN"

    Case "AN"

    Label1.Caption = "TO"

    Case "TO"

    Label1.Caption = "SUPRIANT"

    Case "SUPRIANT"

    Label1.Caption = "SUPRIANTO"

    Case "SUPRIANTO"

    Label1.Caption = "S"

   

End Select

End Sub

 

Read More

Cara Membuat Form Login Password Dengan VB 6.0

Sebelum ke pokok pembahasan saya akan menjelaskan sedikit tentang Visual Basic 6.0, Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman Visual Basic, dikembangkan oleh Microsoft sejak 1991, yang kemudian terus dirilis sesuai dengan tuntutan perkembanganya yang hingga kini muncullah Visual Basic versi 6.0 merupakan produk rilis di akhir tahun 1998.

Langsung saja kita ke cara membuat Form Login Password Dengan VB 6.0

Langkah - Langkah :
1. Buat project baru dengan  memilih Standart EXE pada New Project.
2. Isikan pada objek form tersebut beberapa objek seperti yang terlihat pada gambar dibawah ini :

3. Atur properti dari masing - masing objek diatas seperti tabel dibawah ini :

Nama Objek	Properti	Nilai
Label1	Name Caption Font	Label1 User Name Font : Comic Sans MS Font Style : Bold Size : 12
Label2	Name Caption Font	Label1 Password Font : Comic Sans MS Font Style : Bold Size : 12
Text1	Name Text	Text1 Tulisan Text 1 di hapus
Text2	Name Text PasswordChar	Text2 Tulisan Text2 di hapus *
Command1	Name	Command1

4. jika mau tambahkan kode untuk mentransparantkan form biar lebih keren lagi.

5.  Jika isi username adalah LABKOM dan password adalah siswa, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) "Selamat Datang di Lab Komputer"

6. Jika username / passwordnya salah, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) " Password Anda Salah, Silahkan Coba Lagi.!"

7. Setelah memasukan username lalu ingin memasukan lagi di password, biasanya kita menekan mouse/ tombol tab, sekarang buatlah dengan menggunakan tombol enter.

Saatnya ngoprek - ngoprek Codingan:

Option Explicit

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private Const MF_REMOVE = &H1000&

Private Sub Command1_Click()

If Me.Text1.Text = "LABKOM" And Me.Text2.Text = "siswa" Then

MsgBox ("Selamat datang di Lab Komputer"), , "Benar "

Else

MsgBox ("Password Anda Salah, Silahkan Coba Lagi !"), , "Salah"

Exit Sub

End If

End Sub

Private Sub Form_Load()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)

Me.Text1.Text = ""

Me.Text2.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Command1.SetFocus

End If

End Sub

Read More