Arti BOF dan EOF pada visual basic

Pengertian BOF dan EOF 
     Dengan menggunakan properti ini maka data dapat dimanipulasi dengan menggunakan mosuse, berpindah dari satu record yang satu ke record lainya dari record pertama ke record terahir.
a. EOF
End of File ini merupakan proses perpindahan data dari record pertama ke record terakhir. Untuk itu melakukan perpindahan EOF ini maka disediakan beberapa properti diantaranya:

• Metode MoveLast untuk menetapkan pointer pada record terakhir
• Flag dari metode ini adalah bernilai true atau false.
• Metode Addnew untuk menetapkan penambahan record baru

 b.BOF
Begin of file merupakan proses perpindahan data dari record terahir ke record pertama. Untuk melakukan perpindaha BOF ini maka disediakan beberapa properti diantaranya:

•  Metode MoveFirst untuk menetapkan pointer pada record pertama.
• Flag dari metode ini adalah bernilai true dan false.
  

 Penggunaan properti ini biasanya digunakan dalam pengolaha data yang ada didatabase, pengaksesan database dapat menggunakan OLEDB,ADO,DAO dan lain lain....

PERINTAH DASAR SQL

CREATE digunakan untuk membuat basis data maupun objek-objek basis data

• SELECT untuk menampilkan data
• INSERT untuk menambahkan data baru
• UPDATE untuk mengubah data yang sudah ada
• DELETE untuk menghapus data
• SUM untuk menghitung total nominal data
• COUNT untuk menghitung jumlah kemunculan data
• AVG untuk menghitung rata-rata sekelompok data
• MAX dan MIN untuk mendapatkan nilai maksimum/minimum dari sekelompok data.
• INSERT Untuk menyimpan data dalam tabel
• CREATE digunakan untuk membuat basis data maupun objek-objek basis data 

• DELETE Untuk menghapus data

• UPDATE Untuk mengubah data

   

   

Fungsi dari Option Explicit pada visual basic

fungsi option explicit untuk  mendeklarasikan semua variabel sebelum variabel tersebut digunakan. dengan option explicit akan sangat membantu programmer dalam mengurangi kesalahan dan mengetahui letak kesalahan atau debug.contoh keuntungan ketika kita menggunakan option explicit :

Private Sub CommandPesan_Click()
Dim PesanKu As String

Pesan = "Hello VB....." '<-- ada kata "Ku" yg kurang pada variabel
MsgBox PesanKu

End Sub

Ketika program di run maka MessageBox tidak akan menampilkan pesan sesuai pada coding tetapi menampilkan MessageBox kosong. Kemudian ketikan Option Expilicit di atas Private Sub CommandPesan_Click(). Setelah itu runing lagi programnya maka akan muncul pesan kesalahan “Variable not defined” yang berarti bahwa variabel tidak atau belum didefinisikan….ini adalah salah satu keuntungan menggunakan option Explicit programmer jadi mengetahui letak kesalahan.mungkin ketika coding belum rumit masih mudah mencari kesalahan namun ketika coding program sudah banyak dan rumit maka keuntungan dari option explicit sangat terasa.

ARTI SAHABAT SEJATI

Sahabat terbaik adalah orang yang sangat istimewa dalam hidup Anda. Mereka adalah orang-orang pertama yang Anda pikirkan ketika Anda membuat rencana. Mereka adalah orang-orang pertama yang Anda pergi ketika Anda membutuhkan seseorang untuk diajak bicara. Anda akan menelepon mereka hanya untuk berbicara tentang apa-apa, atau hal-hal yang paling penting dalam hidup Anda. Ketika Anda sedang sedih mereka akan mencoba mereka yang paling sulit untuk menghibur Anda. Mereka memberikan pelukan terbaik di dunia! Mereka adalah bahu untuk menangis, karena Anda tahu bahwa mereka benar-benar peduli tentang Anda. Dalam kebanyakan kasus mereka akan mengambil peluru untuk Anda, coz itu akan terlalu menyakitkan untuk menonton Anda terluka.

Hari Ini Aku Resign Kerja

   Baru ngrasain jadi pengangguran itu ternyata menyenangkan sekali....duit gak ada bensin motor kosong, rokok ngutang, ngopi pun minta kesana-sini.. Y Allah berilah hambamu ini kemudahan. nyari bisnis di internet otak gw gk mampu, nyobain jadi programer, apalagi. mau jualan, modal dari mana??? ngepet mungkin x y.....

NGEGALAUUU LAGIII DEEECCHHH........

 Berat memang ketika kita harus merelakan orang yang kita sayang buat orang lain...
Mungkin hampir setiap malam gak bisa tidur.. kadang aktivitaspun menjadi sangat menjenuhkan.
Hanya ada sedikit penggalan puisi buat orang yang sangat ku sayang.. 15 des





hal yang menyedihkan dalam hidup ini…
adalah
ketika kamu bertemu seseorang yang berarti bagimu,,
yang sangat kau cintai,,
yang kau sayangi,,,
hanya untuk menemukan bahwa pada akhirnya
menjadi tak berarti
dan kamu harus membiarkannya pergi……

MEMBUAT JAM ANALOG DENGAN VB NET

Introduction

Di sini, jam analog telah dibuat dengan perpustakaan kontrol VB.NET. Ini adalah kontrol jam yang memiliki hampir semua fungsionalitas bahwa jenis kontrol dapat memiliki, dan itu sepenuhnya dapat disesuaikan. Karena ini adalah perpustakaan kontrol, Anda dapat menggunakannya dalam C + +, C # proyek, J #, dan VB.NET dalam lingkungan. NET.

Saya membuat kontrol ini untuk membantu seseorang dalam VB Forum. Pada awalnya, itu adalah sebuah jam yang sangat sederhana, tapi kemudian menjadi agak maju setelah saya menambahkan banyak properti, peristiwa, dan fungsi yang membuat jam sangat fleksibel

.

Tambah Component

Untuk menggunakan kontrol, Anda hanya perlu menambahkannya ke dalam Toolbox VS.NET. Klik kanan di daerah Toolbox, dan pilih "Pilih Produk" item menu. Ini kemudian akan membuka "Pilih Item Toolbox" window. Anda pergi ke direktori yang berisi "AnalogClockLib.dll" file dan pilih, kemudian klik tombol OK. Ini akan menambah kontrol ke Toolbox.

Akhirnya, Anda drag dan drop kontrol ke formulir Anda. Juga, dalam rangka untuk melihat deskripsi dari sifat atau metode dalam Designer Kode, Anda harus menyalin "AnalogClockLib.xml" file ke dalam folder proyek anda.
Latar belakang
Kontrol jam adalah UserControl Windows. Hampir semua elemen dari jam telah dibangun (inti dari elemen) dengan tipe data GraphicsPath. Mereka berisi anggota Basis Path-variabel yang merupakan GraphicsPath elemen. Ini Base-Jalan yang digunakan berbeda untuk setiap elemen. Misalnya, penanda Base-Path merupakan GraphicsPath dibangun di 12 posisi jam dan dibandingkan diputar menggunakan objek Matrix. Karena itu diputar hanya sekali, tidak ada kebutuhan kedepan benda pembantu lainnya. Jam tangan ini memiliki variabel anggota dua GraphicsPath Jenis: Base-jalan dan Shift-jalan. The Base-Jalan tangan selalu diposisikan pada 12 jam o ', dan hanya dibentuk kembali jika bentuk elemen (lebar, panjang, atau gaya) yang dimodifikasi. Di sisi lain, Shift-Path adalah GrapicsPath sebenarnya tangan pada waktu tertentu. Pergeseran-Path adalah salinan diputar Base-jalan.Menggunakan Kode
Meskipun Anda dapat melakukan hampir semua hal dengan kontrol ini, saya akan menunjukkan Anda hanya bagaimana melukis jam tangan jam dengan PathGradientBrush a. Catatan, dalam mode ini, Anda bisa melukis elemen dengan sikat apapun.
Hal ini sangat bagus untuk melihat gradien jam tangan itu, jadi di sini adalah bagaimana Anda bisa melakukan itu. Pada dasarnya, Anda mengeset properti Brush dari tangan ke objek yang baru dibuat gradien kuas dalam acara cat tangan '.Collapse | Copy Kode
Private Sub Clock1_HourHandPainting (pengirim ByVal Sebagai Obyek, _
        E ByVal Sebagai AnalogClock.PaintEventArgs) Menangani Clock1.HourHandPainting
    "Pastikan grafis jalan jam tangan mengandung lebih dari 2 poin.
    Jika Me.Clock1.HourHand.Path.PointCount> 2 Lalu
        'Membuat gradien jam tangan
        Dim br Sebagai Drawing2D.PathGradientBrush Baru (Me.Clock1.HourHand.Path)
        br.CenterColor = Color.White
        br.SurroundColors = Warna Baru () {} Me.Clock1.HourHand.Color
        e.Brush = br
        br.Dispose ()
    End IfEnd Sub
Dalam beberapa situasi, Anda mungkin perlu mengatur waktu jam ke waktu mulai. Untuk hal ini, kita perlu melakukan sedikit perhitungan dan mengatur properti UtcOffset sesuai. Berikut ini adalah bagaimana kita bisa melakukan itu:Collapse | Copy Kode
Private Sub Form1_Load (ByVal sender Sebagai System.Object, _ByVal e Sebagai System.EventArgs) Menangani MyBase.Load
    Dim CDT Sebagai DateTime = CDate ("# 17:20:35 #") 'Beberapa waktu awal kustom untuk jam.
    Dim utcDt Sebagai DateTime = 'DateTime.UtcNow The datetime UTC saat ini."Hal ini diperlukan karena jam kerja internal dengan UTC datetime.
    Me.Clock1.UtcOffset = New TimeSpan (0, cdt.Hour - utcDt.Hour, _
                             cdt.Minute - utcDt.Minute, cdt.Second - utcDt.Second)End Sub
Kadang-kadang orang bertanya padaku mengapa jam adalah satu jam off setelah daylight savings atau bagaimana kita bisa yakin bahwa jam menunjukkan waktu yang tepat selalu. Nah, jika hal ini terjadi pada anda, maka Anda perlu memastikan bahwa UtcOffset jam adalah selalu akurat. Ini adalah bagaimana Anda bisa melakukannya:Collapse | Copy Kode
Private Sub Form1_Load (ByVal sender Sebagai System.Object, _ByVal e Sebagai System.EventArgs) Menangani MyBase.Load
    'Set UTC offset untuk sistem utc diimbangi ketika beban aplikasi
    Me.Clock1.UtcOffset = TimeZone.CurrentTimeZone.GetUtcOffset (DateTime.Now)End Sub
Private Sub Clock1_TimeChanged (ByVal pengirim Sebagai System.Object, _E ByVal Sebagai System.EventArgs) Menangani Clock1.TimeChanged
    'Set UTC offset untuk sistem utc mengimbangi setiap perubahan waktu jam waktu.
    'Jika properti memiliki nilai yang sama akan melakukan apa-apa.
    Me.Clock1.UtcOffset = TimeZone.CurrentTimeZone.GetUtcOffset (DateTime.Now)End Sub