;;;

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..

Coffee Tiwus

0 komentar

Kopi.. Kopi adalah minuman yang sangat menghangatkan di waktu suka maupun duka.
Kopi.. Kopi bisa menjadi teman yang selalu setia yang selalu membawa kenyamanan ketika bersamanya.
Kopi.. Kopi enak ketika disantap hangat-hangat tapi resikonya akan cepat habis, agar tidak cepat habis kopi diminum sedikit-sedikit tapi akan menjadi dingin..

Kopi Tiwus.. 'Walau tak ada yang sempurna, hidup ini indah begini adanya'.
Seorang pemuda yang tergila-gila dengan kopi, hingga dia menjadi sukses dengan membuat segala jenis kopi dan sangat disukai oleh semua orang.. Tapi manusia, tidak akan ada rasa puasnya.. Pada suatu ketika, seseorang menghampiri dia, "kopi anda masih tidak ada apa-apanya dengan rasa kopi yang ada di sebuah desa" katanya.. Sontak dia merasa marah dan kesal.. Singkat cerita, pergilah dia dan menemui sang pembuat kopi terhebat yang dibilang seseorang itu.. Hanya seorang laki-laki yang sudah tua yang menjual kopi ini dan harganya, terserah anda menilai kopi ini setelah meminumnya.. Segeralah dia meminum kopi tersebut "Srupp".. terdengar dari mulutnya.. Dan dia tersadar, kopi ini hanyalah sebuah kopi.. Setiap hirupan kopi akan terasa lebih nikmat jika kita membayangkan sesuatu yang terkesan dalam hidup.
#Filosofi Kopi #Dee

Cara Menghitung Luas Dan Keliling Lingkaran dalam VB 6

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!!!

Cara Membuat FORM Menjadi Tembus Pandang dalam VB 6

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..

Cara Membuat Form Login Sederhana dalam VB 6

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… 

Cara Membuat LABEL/TULISAN Berpindah-pindah dalam VB 6

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”

Cara Membuat LABEL/TULISAN Berjalan-Jalan dalam VB 6

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..

 

Coffee Tiwus © 2011 Design by Putro Sapno Pamungkas