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

Pengertian Array adalah sekumpulan elemen data yang memiliki tipe data yang sama (meskipun pada akhirnya tidak selalu demikian, seperti penjelasan berikutnya yang akan Anda temukan). Array mengijinkan Anda untuk mengaitkan sekumpulan variabel dengan nama yang sama dan menggunakan angka (index) untuk memisahkan antara elemen yang satu dengan yang lainnya.  Fungsi Array yaitu sebagai langkah efisiensi penggunaan memori pada komputer. selain itu juga memudahkan programmer dalam menyusun aplikasi yang berhubungan dengan banyak data terutama dalam masalah pencarian dan pengurutan data secara tepat.  Deklarasi Array Satu Dimensi Bentuk Umum :     Tipe_Var Nama_Var (Ukuran);      Deklarasi Array Multi Dimensi Merupakan array yang terdiri dari atas lebih dari dua atau lebih dimensi. biasanya digunakan untuk menangani tabel data, matriks dan objek dua dimensi lainnya.  Bentuk Umum :     Tipe_var Nama_Var(Ukuran1) (Ukuran2)... Contoh :          int iMatriks[2][

Sistem Digital adalah suatu sistem yang berfungsi untuk mengukur suatu nilai atau besaran yang bersifat tetap atau tidak teratur dalam bentuk diskrit berupa digit digit atau angka angka .Biasanya sebelum mempelajari lebih dalam tentang sistem digital  pertama pasti kita akan mempelajari yang namanya Sistem Bilangan ada 4 jenis sistem bilangan yaitu biner ,oktal ,desimal ,hexadesimal . Bilangan Biner adalah bilangan yang hanya punya basis 2 atau bilangan basis 2 ,yaitu 0 dan 1 Bilangan Oktal adalah bilangan yang hanya punya basis 8 atau bilangan basis 8 , yaitu 0,……,7 Bilangan Desimal adalah bilangan yang hanya punya basis 10 atau bilangan basis 10 ,yaitu 0,…….9 Bilangan Hexadesimal adalah bilangan yang hanya punya basis 16 atau bilangan basis 16 ,yaitu 0,……..9 ,A ,B ,C ,D ,E ,F (A=10 ,B=11 ,C=12 ,D=13 ,E=14 ,F=15) Konversi Bilangan  adalah mengubah suatu sistem bilangan menjadi sistem bilangan lain. Biner *Biner ke Oktal Caranya mudah ,kita hanya menyekatnya atau menge

Sebelum lanjut ke bahasan mikrokontroller dan pemrogamannya. perlu dipelajari tentang bilangan digital. Karena bilangan ini nantinya akan sering muncul pada dan akan sering digunakan. 1)     Bilangan decimal Ni bilangan desimal adalah bilangan basis 10. Dan yang sering kita pake tuuuuu, angka 0-9 dan kombinasinya. misalnya : 19, 45, 567.45 dan sebagainya. 2)     Bilangan biner Nah namanya saja BI jadi hannya ada 2 bilangan yaitu basis dua. Bilangan Biner hannya ada nilai 1 dan 0 saja.  Nah bilangan ini dan kombinasinya nanti yang sering dipake untuk belajar kita. misalnya :  11110001                          11100 a.     konversinya dari desimal ke biner dan biner ke desimal bilangan basis dua mudahnya setiap bilangan biner yang ada diasumsikan adalah 2 pangkat urutannya dikali binernya. Contohnya: Untuk urutan bilangan biner seperti KITA MEMBACA AL QURAN dari kiri. Dari contoh diatas ada 8 bit bilangan biner artinya ada 8 buah kombinasi bilangan bine

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