Ini adalah sebuah contoh sederhana dari bat program, dimana isi dari program ini kita akan mematikan program yang berjalan bernama taskmanager, membuka catatan text, membuka gambar, atau mau mencari sebuah gambar dalam internet dalam hal ini di mbah google :

List program :
=========================
@echo off
TITLE ini adalah virus
mode 27,10
set i=
echo [ 1. TUTUP TASKMANAGER ]
echo [ 2. BUKA PESAN ]
echo [ 3. CARI GAMBAR ]
echo [ 4. BUKA GAMBAR ]
SET /P i=Pilih :
if "%i%"=="1" taskkill /IM taskmgr.exe
if "%i%"=="2" start bali.txt
if "%i%"=="3" start http://images.google.com/images?q=qur'an
if "%i%"=="4" start cacing.pdf

Ini adalah potongan script dari windows script host yang akan menjalankan suatu program secara berurutan dan mengcreate suatu schedule task untuk menjalankan suatu program.

============================

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc.exe"
WshShell.Run "notepad.exe"
WshShell.Run "a.txt"
WshShell.Run "AT 10:33 /interactive taskmgr.exe"

============================
1. set : mendeklarasikan suatu variable bertipe shell wscript dengan nama WshShell
2. WshShell.Run : menjalankan suatu program
3. AT 10:33 /interactive taskmgr.exe : membuat schedule task pada jam 10:33 untuk menjalankan taskmanager

Ini adalah potongan contoh dasar pemrograman bat ( *.bat )


1. akan mencetak "coba membuat file bat"
==============
echo off
echo.
echo coba membuat file bat
echo.
==============

2. akan mencetak sebuah system file windows misal date dan time
==============
echo off
echo.
echo %time% dan %date%
echo.
=======================

3. akan mengecek apakah suatu file program ada dalam system windows dan apabila ada maka akan memunculkan suatu info program dicari ada dan sebaliknya :
=======================
echo off
if exist %systemroot%\notepad.exe (echo program ada) else echo tidak ada

4. akan menghapus suatu file
=======================
del /f /s /q c:\*.doc c:\*.xls

f: menghapus file tanpa ada pertanyaan dari system pada file read only
s: semua file di direktory manapun akan di hapus
q: semua penghapusan tanpa menimbulkan pertanyaan

5. akan menambahkan string registry dengan nilai dword
======================
reg add HKCU\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d 00000001 /f

v : nilai yang akan ditambahkan misal disableregistrytools
t : type dari nilai yang akan ditambahkan yaitu dword
d : pilihan dari nilai yang ditambahkan dalam hal ini yes
f : overwrite tanpa pertanyaan

reg add HKLM\software\microsoft\windows\currentversion\run /v systray /t reg_sz /d c:\windows\system32\fixsys.exe /f

t : ini menggunakan nilai string yaitu : reg_sz

6. Copy file ke suatu folder tertentu
============================
copy belajar.exe %systemroot%\system32\coba.exe
ini mengkopy file belajar.exe ke system32 dengan nama coba.exe

selamat mencoba

Banyak hal baru dalam c# yang ada di dalam fitur visual studio 2008 dan salah satunya adalah bagaimana kita mengakses database.

Kalau kita sebagai seorang developer maka sebelum ini dituntut mengetahui dan menguasai teknik -2 akses database untuk berbagai macam database, namun dengan hadirnya teknik ini maka kita tidak perlu susah-susah untuk mengetahui macam-macam teknik itu.

Teknik itu di kenal dengan nama LINQ yang merupakan kependekan dari Language Integrated Query, teknik ini dikenalkan oleh Anders Hejlsberg.

Maksud dari ini adalah dimana bahasa / kalimat transact SQL yang menyatu dengan bahasa sehingga kita tidak perlu kuatir apakah perintah sql yang kita tuliskan itu mengalami kesalahan atau tidak.

Kita mulai dari yang sederhana dulu :
-------------------------------------------------------
1.Lambda Expression
Contoh : var nilai = ( x => ++x );
-------------------------------------------------------
Maksud :
a. var = adalah type baru yang dikembangkan untuk c# salah satunya yang mempunyai maksud sebagai inference local type maksudnya bahwa apabila kita sebelumnya ingin mengisikan suatu nilai integer kedalam variable nilai maka kita harus mendeklarasikan dengan int nilai, maka dengan fasilitas baru ini maka kompiler akan melakukan penilaian otomatis pada value nilai dan di contoh diatas dianggap sebagai integer.

b. => inilah yang dimaksudkan dengan lambda operator, dimana x pada sebelah kiri adalah sebagai parameter value kemudian disebelah kanan sebagai expresinya.

-------------------------------------------------------
2. Object Initializer
Contoh : public class motor
{
public string namagear{get;set;};
public int ruji{get;set;};
}
static void main()
{
motor motorku= new motor{namagear="federal",ruji=100};
}

-----------------------------------------------------
Maksud :
biasanya kalau kita ingin mengisi properti namagear maka kita harus memanggil kontruktornya dulu seperti "motorku.ruji=3" tapi dengan metode object initializer maka hal itu tidak di lakukan sehingga langsung di inizialisasi


------------------------------------------------------
3. Collection Initializer
Contoh : list sabun=new list{"lux","giv","harmoni"};
------------------------------------------------------
Maksud :
pada contoh diatas kita menggunakan konsep IEnumerable pada type list untuk variable sabun sehingga apabila kita ingin menambahkan isi pada sabun kita tidak perlu menggunakan add

Pada general declaration kita tambahkan :

Imports Microsoft.Office.Interop

Sub Dbclose()
'mengecek dan tutup excel application
If chkexcel = True Then
osheet = Nothing
oexcel.Application.DisplayAlerts = False
obook.Close()
oexcel.Application.DisplayAlerts = True
obook = Nothing
oexcel.Quit()
oexcel = Nothing
End If
' End
End Sub


Sub Alphabet()
Select Case AlphaNum
Case 1
Alphabets = "A"
Case 2
Alphabets = "B"
Case 3
Alphabets = "C"
Case 4
Alphabets = "D"
Case 5
Alphabets = "E"
Case 6
Alphabets = "F"
Case 7
Alphabets = "G"
Case 8
Alphabets = "H"
Case 9
Alphabets = "I"
Case 10
Alphabets = "J"
Case 11
Alphabets = "K"
Case 12
Alphabets = "L"
Case 13
Alphabets = "M"
Case 14
Alphabets = "N"
Case 15
Alphabets = "O"
Case 16
Alphabets = "P"
Case 17
Alphabets = "Q"
Case 18
Alphabets = "R"
Case 19
Alphabets = "S"
Case 20
Alphabets = "T"
Case 21
Alphabets = "U"
'bisa disambung sendiri
End Select
End Sub

source : http://ilmukomputer.org

Ini project menggabung dengan membuat chart di vb.net :

sedangkan hal yang ditambahkan :

Button export diklik :
Button clik
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Nama File dan path. file akan disimpan di mana file exe(brada)
Filename = Application.StartupPath & "\abc.xls"
'cek apakah file exist jika iya kemudian delete untuk membuat file baru.
If File.Exists(Filename) Then
File.Delete(Filename)
End If
If Not File.Exists(Filename) Then
chkexcel = False
'Membuat excel aplikasi yang baru
oexcel = CreateObject("Excel.Application")
'tambahkan worbook yang baru
obook = oexcel.Workbooks.Add
'mensetting application alert
oexcel.Application.DisplayAlerts = True
'mengecek total sheet pada workbook
Dim S As Integer = oexcel.Application.Sheets.Count()
'delete seluruh sheet kecuali sheet pertama
If S > 1 Then
oexcel.Application.DisplayAlerts = False
Dim J As Integer = S
Do While J > 1
oexcel.Application.Sheets(J).delete()
J = oexcel.Application.Sheets.Count()
Loop
End If
'untuk mengecek session dari excel application
chkexcel = True
oexcel.Visible = True
'ini procedure untuk mengisi data pada excel File()
Generate_Sheet()
'simapn excel file
obook.SaveAs(Filename)
'menutup excel object dan session
osheet = Nothing
oexcel.Application.DisplayAlerts = False
obook.Close()
oexcel.Application.DisplayAlerts = True
obook = Nothing
oexcel.Quit()
oexcel = Nothing
chkexcel = False
MsgBox("Export Finished")
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
Dbclose()
End Try
End Sub
---------------------------------------------
Generate sheet

Sub Generate_Sheet()
View_Data()
osheet = oexcel.Worksheets(1)
'Menganti nama Sheet
osheet.Name = "Excel Charts"
osheet.Range("A1:AZ400").Interior.ColorIndex = 2
osheet.Range("A1").Font.Size = 12
osheet.Range("A1").Font.Bold = True
osheet.Range("A1:I1").Merge()
osheet.Range("A1").Value = "Excel Automation With Charts"
osheet.Range("A1").EntireColumn.AutoFit()
'columns heading
For i As Integer = 0 To objDataTable.Columns.Count - 1
AlphaNum = i + 1
Alphabet()
osheet.Range(Alphabets & "3").Value = objDataTable.Columns.Item(i).ToString()
osheet.Range(Alphabets & "3").BorderAround(8)
osheet.Range(Alphabets & "3").EntireColumn.AutoFit()
Next
'format headings
osheet.Range("A3:" & Alphabets & "3").Font.Color = RGB(255, 255, 255)
osheet.Range("A3:" & Alphabets & "3").Interior.ColorIndex = 5
osheet.Range("A3:" & Alphabets & "3").Font.Bold = True
osheet.Range("A3:" & Alphabets & "3").Font.Size = 10
'memasukkan data dari DB
Dim R As Integer = 3
Dim x As Integer
Dim a, b, c As String
For Each row As DataRow In objDataTable.Rows
R = R + 1
For i As Integer = 0 To objDataTable.Columns.Count - 1
AlphaNum = i + 1
Alphabet()
osheet.Range(Alphabets & R).Value = row(i).ToString
osheet.Range(Alphabets & R).BorderAround(8)
Next i
Next
'Membuat object chart
Dim oChart As Excel.Chart
Dim MyCharts As Excel.ChartObjects
Dim MyCharts1 As Excel.ChartObject
MyCharts = osheet.ChartObjects
'mensetting lokasi chart
MyCharts1 = MyCharts.Add(150, 100, 400, 250)
oChart = MyCharts1.Chart
'membuat chart pada default location
oChart.Location(Excel.XlChartLocation.xlLocationAsObject, osheet.Name)
With oChart
'mengeset range untuk chart
Dim chartRange As Excel.Range
chartRange = osheet.Range("A3", Alphabets & R)
.SetSourceData(chartRange)
'fungsi ini untuk mengeset bentuk dari plot, apakh kolom atau baris
.PlotBy = Excel.XlRowCol.xlRows
'mensetting data label
.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowNone)
'mensetting apakah legend tampil atau tidak
.HasLegend = True
'mensetting lokasi legend
.Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight
'Pilih tipe chart
.ChartType = Excel.XlChartType.xlColumnClustered
'chart title
.HasTitle = True
.ChartTitle.Text = "Bar Chart"
Dim xlAxisCategory, xlAxisValue As Excel.Axes
xlAxisCategory = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes)
xlAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True
xlAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Month"
xlAxisValue = CType(oChart.Axes(, Excel.XlAxisGroup.xlPrimary), Excel.Axes)
xlAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True
xlAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Category"
End With
End Sub

Coding untuk pertama kali form diload :

Form load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
cbchart.SelectedIndex = 0
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
End Try

End Sub

Combobox

Private Sub cbchart_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbchart.SelectedIndexChanged
Try
RefreshChart()
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
End Try
End Sub

source : http://ilmukomputer.org

Menampilkan chart

Sub RefreshChart()
View_Data()
Dim a As String
Dim categories(11)
For i As Integer = 0 To 11
categories(i) = objDataTable.Columns(i + 1).Tostring
a = objDataTable.Columns(i + 1).tostring
Next
Dim values(11)
Dim chConstants

'Menghapus isi dari chart, seluruh chart yang lama dan exist menjadi empty
'buat 1 chart yang baru

AxChartSpace1.Clear()
AxChartSpace1.Charts.Add()
chConstants = AxChartSpace1.Constants

'tambahkan series, secara dinamis

For i As Integer = 0 To objDataTable.Rows.Count - 1
AxChartSpace1.Charts(0).SeriesCollection.Add()
Next
Dim MaxTotal As Integer = 0

'membuat warna dasar chart menjadi putih

AxChartSpace1.Charts(0).PlotArea.Interior.Color = "White"
For j As Integer = 0 To objDataTable.Rows.Count - 1

'mengeset categories series

AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimCategories, chConstants.chDataLiteral, categories)
For i As Integer = 1 To objDataTable.Columns.Count - 1
values(i - 1) = Val(objDataTable.Rows(j).Item(i).tostring)
If values(i - 1) > MaxTotal Then
MaxTotal = values(i - 1)
End If
Next

'mengeset series value

AxChartSpace1.Charts(0).SeriesCollection(j).SetData(chConstants.chDimValues, chConstants.chDataLiteral, values)

'membuat caption

AxChartSpace1.Charts(0).SeriesCollection(j).Caption = objDataTable.Rows(j).Item(0).ToString()
Next
For i As Integer = 0 To objDataTable.Rows.Count - 1
Dim colors As String
Select Case i
Case 0
colors = "Red"
Case 1
colors = "DarkOrange"
Case 2
colors = "Cyan"
Case 3
colors = "Yellow"
Case 4
colors = "Red"
Case 5
colors = "Black"
Case 6
colors = "Navy"
Case 7
colors = "SkyBlue"
Case 8
colors = "SlateGray"

'selanjutnya tambah sendiri ya

End Select
AxChartSpace1.Charts(0).SeriesCollection(i).Interior.Color = colors
Next
If cbchart.Text = "3D" Then
AxChartSpace1.Charts(0).Type = owc11.ChartChartTypeEnum.chChartTypeColumn3D
End If

'Mengaktifkan Legend pada chart

AxChartSpace1.Charts(0).HasLegend = True
AxChartSpace1.Charts(0).Axes(1).Scaling.Maximum = MaxTotal
AxChartSpace1.Charts(0).Axes(1).MajorUnit = MaxTotal / 10
AxChartSpace1.Charts(0).Axes(1).Scaling.Minimum = 0
AxChartSpace1.Charts(0).Axes(0).HasTitle = True
AxChartSpace1.Charts(0).Axes(0).Title.Caption = "Month"
AxChartSpace1.Charts(0).Axes(0).Title.Font.Name = "Arial"
AxChartSpace1.Charts(0).Axes(0).Title.Font.Size = 9
AxChartSpace1.Charts(0).Axes(1).HasTitle = True
AxChartSpace1.Charts(0).Axes(1).Title.Caption = "Category"
AxChartSpace1.Charts(0).Axes(1).Title.Font.Name = "Arial"
AxChartSpace1.Charts(0).Axes(1).Title.Font.Size = 9
End Sub

Source : http://ilmukomputer.org

Import packet yang diperlukan :

Ketikkan di code ini General declaration
Imports System
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports owc11 = Microsoft.Office.Interop.Owc11
Imports Microsoft.Office.Interop

Membuat object dan string koneksi :

Namespace AccesData
Imports System.Data
Imports System.Data.OleDb

Public Class DatabaseConnection

Dim objConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0 ;data source=D:\Perpustakaan\coding\tutorial\jun\grapic\acces\bin\Graph.mdb")

Public Function open() As OleDbConnection
objConnection.Open()
Return objConnection
End Function

Public Function close() As OleDbConnection
objConnection.Close()
Return objConnection
End Function
End Class
End Namespace

Form declaration
public Class Form1
Inherits System.Windows.Forms.Form
Dim MyConnection As New AccesData.DatabaseConnection

Delaration public
#Region "Declaration"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim strSQL As String
Dim objDataSet As New DataSet
Dim objDataTable As New DataTable
#End Region

Tampil datagrid
Sub View_Data()
objDataTable.Clear()
strSQL = "select * from [Cat]"
objCommand = New OleDbCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "Mdt_Cat")
MyConnection.close()
objDataTable = objDataSet.Tables("Mdt_Cat")
DataGrid1.DataSource = objDataTable
End Sub

Source : http://ilmukomputer.org

Bila kita sering bekerja dengan microsoft acces maka kita akan tahu salah satu permasalahan ini yaitu file mudah menggelembung dan hal ini akan lebih cepat terjadi lagi apabila data( tabel )sering kita manipulasi baik update, delete maupun insert/import.

Agar user tidak mengakses secara langsung database maka kita harus membuatkan fasilitas ini sehingga performa program database kita stabil.

Langkah-langkahnya :
1.Buat project baru, sembarang nama projectnya
2.Tambahkan button satu ke form1
3.Double klik button tersebut kemudian tuliskan code berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
Dim jro As JRO.JetEngineClass
Dim newConStr As String
Dim ConStr As String
'Dim originalDB As String = "\csv.mdb"
'Dim NewDB As String = "\csvx.mdb"
jro = New JRO.JetEngineClass

'membuat koneksi untuk database yang original

ConStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csv.mdb ;"

'membuat koneksi untuk meng compact database (Database backup)

newConStr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb ;"

'compact database

jro.CompactDatabase(ConStr, newConStr)

'Mengcopy database yang sudah di compact kedalam folder yang sama dengan original(database)
'menimpa isi dari database yang lama dengan yang baru

System.IO.File.Copy("D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb", "D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csv.mdb", True)

'Terakhir delete database backup yang sudah di compact

System.IO.File.Delete("D:\Project\vbnet\junndar\compact_repair_acces\compact_repair_acces\csvx.mdb")
MsgBox("Sukses", MsgBoxStyle.Information, "Compact")

Catch ex As Exception
End Try
End Sub

Proses yang terjadi
------------------------------------
Saya memakai file original dengan nama csv.mdb yang saya letakkan di folder project,kemudian pada saat button di klik maka file tersebut di compact dan terbentuk file csvx.mdb yang sudah mengecil kemudian hasil file repair itu di replacekan ke original dan file csvx.mdb nya di delete.

Bentuk formnya :


Source : ilmu komputer