;;;

Bismillah untuk ini..

“Allah itu Tujuan kami… Rasulullah tauladan kami., Alquran Undang-Undang kami.. Jihad itu jalan hidup kami Mati di Jalan Allah Cita2 kami TerTinggi..”

IKHTIAR..

Bernilainya Ikhtiar bukan nampak dari hasil yang diraih. Melainkan dari proses yang benar dan dilakukan secara ikhlas berlandaskan ke Tauhidan kepada Allah Ta'ala.

Jadilah Seperti PENSIL..

Layaknya sebuah pensil ketika menulis, kamu jangan pernah lupa kalau ada tangan yang selalu membimbing langkah kamu dalam hidup ini. Kita menyebutnya Allah, Dia akan selalu membimbing kita menurut kehendakNya”.

HAI SAHABAT..

Kadang Suatu Perpisahan Disertai Dengan Tetesan Air Mata.. Tapi Ingatlah, Sahabat Sejati Tak Akan Melupakanmu, Meskipun Ku Tak Lagi Mengingat Namamu, Tapi Ku Akan Mengenang Masa Lalu Bersama Teman Terbaik Yaitu Dirimu.. :)

KECERDASAN..

Kecerdasan Bukanlah Sebuah Keistimewaan. Tapi Kecerdasan ialah Sebuah Karunia Yang Sangat Istimewa dari Allah Ta'ala.. Karna itu Janganlah Berbesar Kepala, Kapanpun, Dimanapun Dan Apapun Allah Bisa Mengambil Semuanya Termasuk Kecerdasan..

Tampilkan postingan dengan label materi visual basic 6. Tampilkan semua postingan
Tampilkan postingan dengan label materi visual basic 6. Tampilkan semua postingan

Cara Menghitung Luas Dan Keliling Lingkaran dalam VB 6

Diposting oleh Nocturno Jumat, 21 Oktober 2011 0 komentar


Langkah pertama buat form baru..
Pilih 3 Label ; Jari-jari, Luas Lingkaran, Keliling Lingkaran
Pilh 3 TextBox

Tulis ini Kedalam Listing ;

Private Sub Text1_Change()
Dim p, j, l, k As Single
p = 22 / 7
j = Val(Text1.Text)
k = 2 * p * j
l = p * j * j
Text3.Text = k
Text2.Text = l
End Sub

Mudah bukan dan sangat simple.. let the spirit!!!
Read more »

Label:

Cara Membuat FORM Menjadi Tembus Pandang dalam VB 6

Diposting oleh Nocturno Jumat, 14 Oktober 2011 0 komentar


Langkah pertama buat form baru..
Simple ajah

Tulis ini Kedalam Listing ;

‘harus paling atas
Option Explicit
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 crKey As Long, ByVal bAlpha As Byte, _
    ByVal dwFlags As Long) As Long

    Const WS_EX_LAYERED = &H80000
    Const GWL_EXSTYLE = (-20)
    Const LWA_ALPHA = &H2



Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub
'200 untuk menentukan seberapa tembus pandangnya.. (bebas, semakin kurang semakin asik)

Keren Bukan…
Selamat Mencoba..
Read more »

Label:

Cara Membuat Form Login Sederhana dalam VB 6

Diposting oleh Nocturno Jumat, 07 Oktober 2011 0 komentar


Langkah pertama buat form baru..
Pilih 3 Label ; AREA LOGIN, ID, PASSWORD
Pilh 2 TextBox
Dan 2 CommondButton ; LOGIN & EXIT

Tulis ini Kedalam Listing ;
Private Sub Command1_Click()
If Text1.Text = "putro" And Text2.Text = "pamungkas" Then
MsgBox "password anda benar !!"
Me.Hide
MenuUtama.Show (selanjutnya mw ke form mana)
Else
MsgBox "ID atau Password Anda Salah"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
 
Private Sub Command2_Click()
End
End Sub

‘saran menggunakan 2 Listing yg diatas dan dibawah utk di bisa juga di ENTER pada Keyboard
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "putro" And Text2.Text = "pamungkas" Then
MsgBox "password anda benar !!"
Me.Hide
MenuUtama.Show ‘(selanjutnya mw ke form mana)
Else
MsgBox "ID atau Password Anda Salah"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End Sub

Mainkan Imajinasi Anda.. Good LUCK… 

Read more »

Label:

Cara Membuat LABEL/TULISAN Berpindah-pindah dalam VB 6

Diposting oleh Nocturno Jumat, 30 September 2011 0 komentar


Bukan halnya katak saja yang bisa melompat-lompat.. Tulisanmu pun BISA..
Langkah pertama buat form baru..
Buat Label 4 (bebas) Dan Tulis
Label 1; AKU
 Label 2; SAYANG
Label 3; KAMU
Label 4; MISS..
Setelah itu Pilih Timer.. intervalnya 0

Tulis ini Kedalam Listing ;
Private Sub Form_Load()
Label1.Caption = "AKU"
Label1.Caption = ""
Label2.Caption = "SAYANG"
Label3.Caption = ""
Label4.Caption = ""
Timer1.Interval = 700
End Sub 
Private Sub Timer1_Timer()
If Label1.Caption = "AKU" Then
Label1.Caption = ""
Label2.Caption = "SAYANG"
Label3.Caption = ""
Label4.Caption = ""

Else If Label2.Caption = "SAYANG" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = "KAMU"
Label4.Caption = ""

Else If Label3.Caption = "KAMU" Then
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = "MISS"

Else If Label1.Caption = "MISS" Then
Label1.Caption = "AKU"
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
End If
End Sub

Semoga Berhasil..
“Teruslah Melompat Menuju Impianmu”

Read more »

Label:

Cara Membuat LABEL/TULISAN Berjalan-Jalan dalam VB 6

Diposting oleh Nocturno Jumat, 23 September 2011 0 komentar


Langkah pertama buat form baru..
Pilih Label Dan Tulis AKU SAYANG KAMU..
Setelah itu Pilih Timer.. atur intervalnya 100 (bebas, semakin dikit semakin asik)

Tulis ini Kedalam Listing ;
Private Sub Timer1_Timer()
If Label1.Left > Form1.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left + 200
End If
End Sub

Seru bukan.. AKU SAYANG KAMU will continue to run in your heart,,

hingga aku mati..
Yuk terus di perdalam..
Read more »

Label:
Langganan: Postingan (Atom)
 

Coffee Tiwus © 2011 Design by Putro Sapno Pamungkas