Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat Form Transparan dan Normal untuk mempercantik tampilan program yang kita buat. 

disini kita hanya membuat form dari program yang kita buat menjadi transparan, atau tembus pandang seperti gambar dibawah ini.

nah jika pada gambar 1 (satu) tampak form normal sedangkan pada gambar 2 (dua) tampak form transparan. Nah bagaimana membuat Form Transparan dan Normal mari kita ikuti tutorial di bawah ini
Buat Standard Exe

-     Lalu tambahkan 2 command

      Command1 beri caption Transparan

      Command2 beri caption Normal

Lalu masukan kode di bawah ini

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 Sub Command1_Click()

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)

End Sub

Private Sub Command2_Click()

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

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

End Sub

Selamat Mencoba

07.41

Halo Sobat Tutorial VB, Pada tutorial VB ( visual basic ) dasar untuk pemula kali ini kita akan mencoba membuat software atau program menghitung umur  dengan menggunakan VB 6.0 secara mudah dan cepat.

Ok Langsung saja kita mulai tanpa panjang lebar
kita memerlukan component tambahan DTPicker yang sebenarnya telah tersedia di Visual Basic walau secara default component ini belum tampak di deretan tool standarnya. silahkan aktifkan componennya dengan menekan Ctrl + T

Buat desain programnya seperti gambar dibawah ini.

Jika Sudah mendesain seperti gambar di atas masukan code di bawah ini

Private Sub Command1_Click()
    Dim jumlahhari As Integer
    Dim umur As Integer
    Dim hari As Integer

    jumlahhari = DateDiff("d", DTPicker1.Value, Date)
    umur = jumlahhari / 365
    hari = jumlahhari - (umur * 365)
    Text1.Text = umur 
End Sub

Private Sub Command2_Click() 
   End
End Sub

Jika Anda inginkan cara instant bisa download Projectnya Disini

Selamat Mencoba

05.52

Halo Sobat Tutorial VB,  Pada tutorial Visual Basic kali ini kita akan membuat kalkulator dengan VB 6.0 yang terdiri dari penjumlahan pengurangan dan pembagian. Tentunya konsep pembuatan atau logika program yang akan kita buat ini bisa diterapkan pada rumus matematika atau fisika, yang pada intinya kita harus mengetahui alur kerja secara manual dari sebuah rumus tersebut sehingga bisa diterjemahkan kedalam bahasa pemograman visual basic.

Desain sebuah form kalkulator sederhana yang akan kita buat seperti gambar berikut :

Buat 4 buah Label 

Label 1 dengan caption Kalkulator Sederhana

Label 2 dengan caption Bilangan1 :

Label 3 dengan caption Bilangan2 :

Label 4 dengan caption Hasil :

Buat 3 Buah TextBox

TextBox1 Untuk Bilangan1

TextBox2 Untuk Bilangan2

TextBox3 Untuk Hasil

Buat 5 Buah CommandButton

CommandButton1 dengan caption +

CommandButton2 dengan caption -

CommandButton3 dengan caption x

CommandButton4 dengan caption :

CommandButton5 dengan caption Cleaar

Jika Semua Desain form Selasai maka masukan kode di bawah ini
Code

Jika Tutorial VB Ingin silahkan download Projectnya Disini

Selamat Mencoba

04.07