This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Selasa, 04 Juni 2013

! Tutorial Membuat Password dengan Visual Basic 6

Visual Basic 6 memang sudah ketinggalan jaman mungkin dibandingkan sekarang dengan Visual Basic Net yang sudah sampai tahun 2010. Walaupun begitu peminat VB6 ini masih banyak, terutama untuk mahasiswa yang sedang mengerjakan tugas akhir, karena bahasanya mudah untuk dipelajari dan softwarenya ringan. Pada beberapa tutorial berikutnya pun saya akan membuat aplikasi VB6 ini untuk akuisisi data, absen, ethernet, server client, dsb. Nah, sebelum lebih jauh mempelajarinya untuk para pemula saya beri tutorial dasar pengenalan VB6 ini dengan membuat password.
Sekarang buka software VB6, pilih Start --> All Programs -->  Microsoft Visual Basic 6.0 --> Microsoft Visual Basic 6, kemudian pilih Standard EXE:
 
dan tampil form utama VB6 seperti ini:

Letakkan satu CommanButton, satu Label, dan satu TextBox pada Form1 diatas:
                                   
Lalu susun seperti gambar berikut:
Klik pada Form bagian mana saja, kemudian pada Properties pilih Backcolor, misalnya warna hitam, dan pilih Caption isi tulisan dengan Password, yang berarti mengganti tulisan Form1 pada bagian atas form.
Agar ukuran form tidak dapat diubah, pada BorderStyle pilih 1-Fixed Single.
Klik pada Label1 dan beri tulisan pada Properties Caption isi dengan "Masukkan Password", pilih Alignment --> Center, kemudian untuk mengganti tulisan pilih Font, dan warna tulisan Fore Color, agar background mengikuti warna background Form maka pada BackStyle pilih 0-Transparent.
Klik pada TextBox1 dan pada Properties (Name) diganti dengan pass, yang berarti mengganti nama TextBox1, dan pada PasswordChar isi dengan tanda bintang atau *, yang berarti jika diketikkan tulisan pada TextBox akan berubah menjadi karakter *.
Klik pada CommandButton1, dan pada Properties Caption isi dengan OK.
Sehingga Form1 tadi menjadi seperti ini tampilannya:
Pilih File --> Save Project As, dan simpan di folder yang diinginkan, misalnya diberi nama Password.
Kemudian pada bagian Project pilih View Code atau klik pada Button OK:
Dan tuliskan listing program sebagai berikut:
Private Sub ok_Click()
   If pass.Text = "latihan" Then
   'Jika Textbox pass diisi dengan kata "Latihan" maka
        End
        'Akhiri Program
    Else
    'Jika Bukan
        MsgBox "Passwordnya salah oi!!!", vbInformation
        'Tampilkan pesan kesalahan
        End If
End Sub

Kemudian simpan dan compile program dengan pilih File --> Make password.exe:
Jika program dijalankan dan diketikkan password maka tampilannya seperti ini:
Jika password yang dimasukkan salah maka akan muncul peringatan sbb:

* Semoga bermanfaat..

! Tutorial Membuat Efek Tampilan Teks 3D Pada Form


 Untuk pembuatan tip ini hasil didapatkan adalah adanya efek 3D pada teks di dalam area dorm. berikut adalah gambar hasil uji coba aplikasi dan contoh penulisan listing programmnya.


Ini listing programnya :)


Private Sub Form_Load()
Me.FontBold = True
Me.FontName = "Comic Sans MS"
Me.BackColor = vbBlue
End Sub

Private Sub Form_Paint()
Me.CurrentX = 80
Me.CurrentY = 80
Me.FontSize = 24
Me.ForeColor = vbWhite
Print "SURGA IT"
Me.CurrentX = 40
Me.CurrentY = 40
Me.FontSize = 24
Me.ForeColor = vbBlack
Print "
SURGA IT"
Me.CurrentX = 20
Me.CurrentY = 20
Me.FontSize = 24
Me.ForeColor = vbRed
Print "
SURGA IT"
End Sub



Pada hasil aplikasi jadi di atas, Anda bisa mengubah tampilan/settingan fontnya sesuai yg anda inginkan, dan warna warna nya pun dapat di ubah sebagai efek 3D sesuai pilihan anda :) Let's Try It

! Tutorial Membuat Animasi Bola Bergerak-Gerak Di Visual Basic 6.0

Pada tutor ini, Anda akan membuat suatu aplikasi contoh pembuatan aplikasi animasi sederhana. dalam hal ini anda akan membuat bola yang bergerak-gerak baik itu ke atas, ke samping atau ke bawah. Untuk lebih jelasnya, ikuti langkah-langkah pembuatannya sebagai berikut:

1. Buatlah aplikasi baru kemudian desain form tersebut dengan menambahkan dua buah CommandButton,
    sebuah Timer dan lima buah Image.


2. Sempurkan desain form dengan menambahkan gambar pada kelima kontrol image tersebut, misalnya
    gambar bola basket yg terdapat pada direktori anda. jika pada direktori anda sama sekali tidak ada
    gambar
    yg menyerupai bola, anda dapat membuatnya terlebih dahulu dengan menggunakan MSPaint milik
    Windows.
    Berikut adalah hasil akhir desain form tersebut.


3. Ketikkan listing programnya bro seperti ini :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
Form1.BackColor = vbWhite
Command1.Caption = "Start"
Command2.Caption = "Stop"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
    Image1.Visible = False
    Image2.Visible = True
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image2.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = True
    Image4.Visible = False
    Image5.Visible = False
ElseIf Image3.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = True
    Image5.Visible = False
ElseIf Image4.Visible = True Then
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = True
ElseIf Image5.Visible = True Then
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
    Image4.Visible = False
    Image5.Visible = False
End If
End Sub







4. Jalankan aplikasi tersebut dan klik pada tombol Start dan lihat hasilnya. untuk proses pengembalian
    aplikasi tersebut, cukup klik  Stop.