Sarinah pagihari

safety redird Road to kantor dengan mio cw.mp4

Rumah ajaib

MENJUAL AQUA GELAS BEKAS

KAMI PENGEPUL SEJATI DI JAKARTA BARAT
KAMI MENYEDIAKAN AQUA GELAS BEKAS YANG SUDAH DIBERSIHKAN
TERIMA ORDER BESAR ATAUPUN KECIL MINIMAL 100KG
KHUSUS JABODETABEK ONGKOS KIRIM GRATIS

HARGA Rp.9000,-/KG NYA

STOK BARANG INSYA ALLAH BERLIMPAH

HUB : ADULYAJED 0857 1800 2185
EMAIL : ADULYAJED@YAHOO.COM

TERIMA KASIH

Memasukan menu help di VB.NET

Jangan berfikir kalau semua orang itu pasti dapat memakai dengan mudah program yang kamu buat . Karena tidak  semua user adalah orang yang sudah familiar dengan program2 semacam itu. Oleh karena itu penting untuk menyertakan manual book dan / menu help yang membahas cara langkah demi langkah menggunakan program(aplikasi) kamu secara maksimal.

Umumnya  menu help yang kita temui berupa file dengan ekstensi *.CHM tapi ada pula yang menggunakan *.pdf , *.doc ataupun *.html. Tujuannya sama yaitu memberi bantuan arahan/petunjuk/pedoman pemakaian program/aplikasi kepada user.

Kamu bisa membuat file *.CHM  contoh seperti :

Dengan menggunakan HelpNdoc versi gratisnya bisa di download DISINI*situs resmi cukup mudah penggunaanya.

Install kemudian buat lah menu help kemudian compile dengan pilih Tools >  Compile Project, piih tipe output yang ingin dihasilkan klik generate. Selesai tinggal link kan ke project program kamu.

 Untuk Link ke VB.NET :

Masukan file yang telah kamu buat sebagai file help ke folder Bin di project’a.

Buka project kamu pilih komponen yang jika kamu beri event akan memanggil file help

Gunakan Source code :

System.Windows.Forms.Help.ShowHelp(Me, "NamaFileHelp.chm",HelpNavigator.AssociateIndex)

// *.chm bisa diganti tergantung file yang kamu bikin

Untuk Link ke C#:

Gunakan source code

System.Diagnostics.Process.Start("MANUAL BOOK.pdf");

Mempermudah ADO.NET

Apakah Anda sering dibuat pusing bahkan repot dengan ADO.NET ? Mungkin yang baru mengenal tentang Database akan menjawab 'Ya', karena dipusingkan dengan istilah-istilah seperti 'DataAdapter, 'DataTable', 'DataRow, dll. Apalagi yang sudah pernah mengerjakan sebuah Aplikasi kompleks, yang kebanyakan akan mendeklarasikan beberpa variabel di tiap prosedurnya. Sebenarnya hanya dengan menambahkan sebuah Module, penggunaan ADO.NET dapat dipermudah, bahkan bisa lebih mudah dari ADO klasik yang biasa dikenal dalam VB 6.0 .

Buat sebuah Module dan ketikkan :

Public Function ConString() As String
ConString = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:/KTP.mdb")
End Function

Public Function SQLTable(ByVal Source As String) As DataTable
Try
Dim Adp As New OleDb.OleDbDataAdapter(Source, ConString)
Dim DT As New DataTable

Adp.Fill(DT)
SQLTable = DT
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
SQLTable = Nothing
End Try
End Function

Public Function ExecSQL(ByVal SQLCommand As String) As Boolean
Dim Con As New OleDb.OleDbConnection
Dim Cmd As New OleDb.OleDbCommand

Try
Con.ConnectionString = ConString()
Con.Open()

Cmd.CommandText = SQLCommand
Cmd.Connection = Con
Cmd.ExecuteNonQuery()

Con.Close()

ExecSQL = True
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
ExecSQL = False
If Con.State = ConnectionState.Open Then Con.Close()
End Try
End Function

Dapat dilihat Module tersebut memiliki 3 fungsi, antara lain :

1. Fungsi 'ConString', fungsi ini menentukan ConnectionString dari Database. Pastikan fungsi ini bernilai benar, karena fungsi ini menetukan kedua fungsi lainnya. Dari contoh diatas dapat dilihat bahwa Database-nya bertipe MS Access 2003 yang berlokasi di 'D:/KTP.mdb' .
2. Fungsi 'SQLTable', fungsi ini untuk mendefinisikan perintah SQL 'Select' yang biasanya digunakan untuk memilih atau menyeleksi data. Fungsi ini mengembalikan nilai bertipe DataTable, sehingga dapat mudah dikoneksikan dengan kontrol-kontrol.
3. Fungsi 'ExecSQL', fungsi digunakan untuk mengeksekusi perintah SQL 'Insert'(menambahkan), 'Update'(memperbarui), dan 'Delete'(menghapus). Fungsi ini mengembalikan nilai bertipe Boolean, dimana jika perintah SQL berhasil dilakukan maka bernilai True, tapi bila gagal akan bernilai False.

Contoh penggunaannya :

• Mengisi DataGrid.
  
  DataGridView1.DataSource = SQLTable("select * from tblOrang")
• Mengisi ComboBox atau ListBox dengan Field tertentu.
  
  Dim DR As DataRow
  For Each DR In SQLTable("select Nama from tblOrang").Rows
  ComboBox1.Items.Add(DR("Nama"))
  Next
• Mengisi beberapa TextBox.
  
  Dim DR As DataRow
  DR = SQLTable("select * from tblOrang").Rows(0)
  TextBox1.Text = DR("Nama")
  TextBox2.Text = DR("Alamat")
• Mengekekusi perintah 'Insert' untuk menambahkan data.
  
  ExecSQL("insert into tblOrang (ID, Nama, Alamat) values ('17','Joko','Lamongan')")

Label Berjalan vb.net

Kode ini akan menjalankan / menggerakkan kontrol Label secara horisontal (dari kanan ke kiri) dan vertikal (dari bawah ke atas). Buat Form baru dengan sebuah Label dan sebuah Timer (Enabled=True; Interval=20).


[ VB .NET ]
Untuk menggerakkan secara horisontal, ketikkan kode berikut di bagian 'Timer1_Tick'.

Label1.Left = Label1.Left - 2
If (Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ClientRectangle.Width) Then Label1.Left = Me.ClientRectangle.Width

Sedangkan secara vertikal, ketikkan kode berikut di bagian 'Timer1_Tick'.

Label1.Top = Label1.Top - 2
If (Label1.Top <= -(Label1.Height)) Or (Label1.Top >= Me.ClientRectangle.Height) Then Label1.Top = Me.ClientRectangle.Height