Micro Book

  Kali ini saya akan membagi pengetahuan kepada anda tentang bagaimana membuat Efek Star Screen From VB, Caranya seperti berikut: Pertama-tama, Buat project baru Tambahkan satu buah Komponen Timer.  Ubah Properties Form pada pilihan  BackColor  Menjadi warna Hitam. Klik 2 kali pada Form 1 lalu Hapus koding didalamnya dan Masukkan koding berikut : Dim X(100), Y(100), Z(100) As Integer Dim tmpX(100), tmpY(100), tmpZ(100) As Integer Dim K As Integer Dim Zoom As Integer Dim Speed As Integer     Private Sub Form_Activate()    Speed = -1    K = 2038   Zoom = 256   Timer1.Interval = 1         For i = 0 To 100       X(i) = Int(Rnd * 1024) - 512       Y(i) = Int(Rnd * 1024) - 512       Z(i) = Int(Rnd * 512) - 256   Next i End Sub Private Sub Timer1_Timer() for i = 0 To 100       Circle (tmpX(i), tmpY(i)), 5, BackColor       Z(i) = Z(i) + Speed       If Z(i) > 255 Then Z(i) = -255       If Z(i) < -255 Then Z(i) = 255       tmpZ(i) = Z(i) + Zoom       t

Kali ini saya akan membahas tentang bagaimana cara membuat From loading pada VB: Siapkan komponen tambahan seprti gambar tersebut, caranya > tekan ctrl + T >ceklist/centang Microsoft Windows Common Controls 6.0 Sisipkan Loading dan 1 buat timer kedalam form, hingga seperti gambar tersebut Setelah itu masukan perintahnya dibawah Private Sub Timer1_Timer() If ProgressBar1.Value >= 100 Then Unload Me Form2.Show Else ProgressBar1.Value = ProgressBar1.Value + 10 End If End Sub Nah itu dia langkahnya simpel kan ? Kemudian silahkan di coba di run, semoga bisa di mengerti dengan bahasa yang sederhana ini dan bisa bermanfaat buat semuanya

  Di kesempatan kali ini saya akan memberitahu anda tutorial membuat form transparan pada vb 6.0, langsung saja caranya sebagai berikut: buka vb standar exe tambahkan 2 command, masing-masing beri caption “Transparan” dan yang satu lagi “Normal Tambahkan koding berikut di Option Explicit: ‘============ 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 ‘----

Property procedure adalah procedure yang digunakan untuk membuat dan memanipulasi properties pada suatu class module. Beberapa ketentuan dalam membuat property procedure diantaranya adalah:     Property procedure dapat digunakan untuk membuat read-only properties terhadap form, standard module, dan class module.     Property procedure sebaiknya digunakan didalam procedure bertype Public. Ketika Anda membuat suatu property procedure, maka secara otomatis hal itu mengakibatkan terbentuknya property baru terhadap suatu object yang didefinisikan didalam module VBA. VBA mempunyai tiga macam property procedure, yaitu Property Let , Property Get , dan Property Set dimana penggunaan semua property tersebut diakhiri dengan statement End Property . Procedure Keterangan Property Let Procedure yang digunakan untuk memberi nilai terhadap suatu property nonobject. Property Set Procedure yang digunakan untuk memberi nilai terhadap suatu property object. Property Get

Pointer merupakan arah penunjuk,di Gunakan jika anda ingin memilih komponen kontrol yang sudah di pasang di form.       2.  Picture box             Merupakan tool untuk menampilkan gambar pada visual b asic       3.Label Merupakan tool untuk membuat teks seperti judul, dan sebagainya. Label tidak bisa di ubah-ubah oleh user .name standart adalah Lbl_nama label Frame Merupakan tool untuk membuat sebuah bingkai. CheckBox Merupakan tool untuk membuat kontrol pilihan, dimana kontrol ini terpilih jika di klik user. CheckBox dapat di pilih 1 atau lebih. ComboBox merupakan tool Untuk membuat kontrol kombinasi antara TextBox dengan ListBox. name standart adalah Cmb_nama combobox HScrollBar merupakan tool Untuk membuat Scrollbar secara horizontal. Timer Merupakan tool untuk mengontrol waktu. DirListBox Merupakan tool untuk menampilkan direktori atau folder . Shape Merupakan tool untuk membuat kotak, persegi panjang atau lingkaran. Image

A.Tampilan awal Program     B. Tampilan Pada Saat diklik Proses   C. Kode Programnya Public Class Form1     Private Function fstat( ByVal ParamArray args() As Object ) As Single ()         Dim hasil(3) As Single         Dim i As Integer         For i = 0 To UBound(args)             hasil(0) = hasil(0) + args(i)             If i = 0 Then                 hasil(1) = args(i)                 hasil(2) = args(i)                 hasil(3) = args(i)             End If             If hasil(1) < args(i) Then hasil(1) = args(i)             If hasil(2) > args(i) Then hasil(2) = args(i)              hasil(3) = hasil(0) / 10         Next i         Return hasil     End Function     Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click         Dim statistik As Single () = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)         TextBox1.Text = stati

Kali ini Ahma mau berbagi source code kalkulator sederhana dengan menggunakan Visual Basic atau lebeih keren di singkat VB. Source codenya sederhana bangett nich, kalau ada yang error atau nggak bisa jalan tolong ya di revisi sendiri. Atau kalau temen-temen ada hasil yang lain bolehlah di bagi di sini dengan meninggalkan komentar di bawah... Option Explicit Private Hasil As Double Private Const opNol = 0 Private Const opTambah = 1 Private Const opKurang = 2 Private Const opkali = 3 Private Const opBagi = 4 Private Operator As Integer Private NilaiBaru As Boolean //untuk menghapus karakter terakhir Private Sub Hapus() Dim txt As String Dim min_len As Interger txt = txtdisplay.Text If Left$(txt, 1) = "-" Then min_len = 2 Else min_len = 1 End If If Len(txt) > min_len Then txtdisplay.Text = Left$(txt, Len(txt) - 1) Else txtdisplay.Text = "0" End Sub Private Sub cmdaAngka_Click(Index As Integer) End Sub //hapus angka, hasil terakhir