December 23, 2008

Microsoft TechNet Session @Uniba, Batam

Event Summary ini di ambil dari blog nya mas wely

Seperti yang disampaikan Pak Aprizon pada undangannya, hari Minggu kemarin, atas kerja sama antara Microsoft Indonesia, MUGI Batam, dan Universitas Batam (Universitas Batam), sukses mengadakan event TechNet. Ini merupakan event pertama yang dimotori oleh rekan2 MUGI Batam yang begitu antusiasnya. [Sepertinya gak mau kalah dengan teman2 MUGI pada kota lainnya ;)]
Bahkan demi kelancaran acara ini, rekan2 MUGI Batam dan rekan2 panitia Uniba mempersiapkan sampai jam 3 pagi .
Peserta yang hadir sekitar 160an orang dari 220an pendaftar. Sekitar 60% adalah dari mahasiswa dan pelajar, dan juga ada rekan2 dari company customer atau partner.



Acara dimulai dari Opening Speech dari Uniba.


Tentunya tidak lupa, Pak Aprizon selaku ketua MUGI Batam memberikan penjelasan singkat tentang berdirinya MUGI Batam serta aktifitas rekan2 atas terselenggarakannya acara ini.



Session pertama dimulai dari Migrasi dari Windows NT ke Windows 2003 yang dibawakan oleh Pak Rudy dan Pak Irawan.



Pada event tersebut, saya sendiri juga hadir. Tentunya teman2 tahu bahwa saya (Wely) adalah Developer Advisor, jadi tidak begitu familiar dgn mainan IT Pro. That's why pada session saya (Wely), saya bawakan Next Generation Web Application (.NET, ASP.NET 3.5, WPF, Silverlight, DeepZoom). Oleh karena audience kali ini bukanlah developer, maka kita harus "adjust" materi yang saya (Wely) bawakan sehingga dapat dimengerti.



Session ketiga kembali dibawakan oleh Pak Rudy, yang melanjutkan tahap Migrasi kedua yaitu Windows 2003 ke Windows 2008.



Session keempat dibawakan oleh Pak Atha tentang Zimbra. Pada session tersebut Pak Atha menekankan walaupun Zimbra adalah project open source, tetapi dapat berkolaborasi dengan baik dengan Active Directory di Windows. Bahkan pada session ini, peserta diundang untuk maju ke depan, untuk mencoba sendiri Zimbra.



After lunch, dimulai dari session bertema "penampakan" sesuai dgn apa yang Pak Aprizon sampaikan :). Bukan penampakan "makhluk halus", tetapi penampakan "perangkat halus / lunak masa depan", Windows 7. Ini adalah penampakan pertama kepada publik di Sumatera, dan kedua kali di Indonesia :). I am in charge dalam penampakan ini.


Session selanjutnya dibawakan oleh Pak Aprizon, yaitu Windows Vista Adoption.


Berikut adalah foto2 teman2 MUGI Batam, mahasiswa Uniba yang telah menjadi panitia.


After the session, we had a dinner together.
Thanks untuk teman2 MUGI Batam, teman2 mahasiswa Uniba, dan pihak2 lainnya yang ikut serta dalam mensukseskan acara ini.
My Comment : kalau dari saya seorang member baru di Mugi-Batam (panitia or ga pada acara kemaren ga tau dach ) Salut buat anak-anak Mugi Batam dan Mahasiswa/i Uniba yang ampe jam 3 pagi begadang untuk persiapan.. Ayooo temen-temen sharing trus ilmunya..bagi para developer batam jangan mau kalah, ayoo buat event juga yang dapat berguna bagi temen-temen yang lain..Kedepan mungkin bisa jadi pembicara nich.... :).... Ga ada yang keracunan gonggong kan habis makan di Batu Besar.... pokoke keren habis dachhhhhhhhhhhhhhhhh
Wassalam

December 17, 2008

Step By Step Menjadi Programmer Handal Dengan Vb.Net (17)



Pada artikel sebelumnya saya membahas bagaimana membuat chart pada form dengan menggunakan OWC 11. Dan jika pembaca semua sudah berhasil kini saatnya untuk menerusi ker artikel ini. Bagaimana kita membuat chart pada excel file dengan vb.net (mengeksport data dari table ke excel file dan membuat chart dengan data tersebut. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com So mari ikuti step-step dibawah ini.............
Untuk mendapatkan artikel selengkapnya dapat di download disini
Sedangkan untuk mendapatkan project (source code) dari artikel ini bisa didapatkan disini
Semoga bermanfaat..
Wassalam..

Format DataGridView

DataGridView merupakan control dari .Net 2.0, ini merupakan perkembangan dari DataGrid pada .Net 1.x. Sekarang dengan artikel ini kita akan membahas bagaimana memformat datagridview kita dengan metode run time (coding). Untuk melakukan format pada Datagridview kita menggunakan DatagridviewCellStyle. Kita dapat membuat style dengan
banyak DatagridViewStyle, untuk masing-masing baris, kolom dan cells. DatagridviewCellStyle mengambil seluruh format properties pada DatagridView.
Dibawah ini merupakan beberapa properties pada DatagridviewCellStyle :
Alignment
Untuk melakukan format text didalam cell
BackColor and ForeColor
Untuk color dari pada background cell dan warna text pada cell.
Font
Untuk format tulisan
Format
Bagaimana melakukan format string. Contoh melakukan format numeric atau datetime menjadi string.kita dapat menggunakan standard .Net format atau custom format.
NullText
Mengganti Null dengan Text
SelectionBackColor and SelectionForeColor
Mensetting background cell dan warna text jika cell di pilih
WrapMode
Menetapkan jika text adalah multi lines (jika tinggi row cukup untuk menampung) atau akan di potong. Sebagai default adalah wrap.
Dibawah ini adalah sintaks untuk melakukan format pada DatagridView
Dim Style As DataGridViewCellStyle = _ DataGridView1.Columns("CustomerID").DefaultCellStyleStyle.Font = New Font(DataGridView1.Font, FontStyle.Bold)Style.Alignment = DataGridViewContentAlignment.MiddleRightStyle.BackColor = Color.LightYellow
Style.ForeColor = Color.DarkRed

Di asumsikan kita sudah bisa memasukkan data ke dalam datagridview. Pada sintaks diatas, kita sedang melakukan format untuk kolom CustomerID. Hasil dari sintaks ini dapat dilihat pada gambar diatas. Dan untuk masing-masing kolom dapat kita ubah format nya.
Dan bagaimana menambah button pada DataGridView
Dim Details As New DataGridViewButtonColumn()
Details.Name = "Details"

Details.UseColumnTextForButtonValue = True
Details.Text = "Details..."

Details.HeaderText = ""

DataGridView1.Columns.Insert(DataGridView1.Columns.Count, Details)
Dari sintaks diatas dapat diliat kita membuat button dengan text “Details…”, dan tidak memiliki Header pada kolom nya.
Sedangkan untuk menampilkan value pada saat button di klik adalah sebagai berikut.
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

If DataGridView1.Columns(e.ColumnIndex).Name = "Details" Then
MessageBox.Show("Kamu mengklik " & _
DataGridView1.Rows(e.RowIndex).Cells("CustomerID").Value)
End If

End Sub
Dan bagaimana membuat Highlight pada cell, sebagai contoh bagaiman jika kita ingin membuat highlight untuk harga yang lebih dari 100, dengan nama kolom ada “Harga”. Berikut sintaks nya.
Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting


If DataGridView1.Columns(e.ColumnIndex).Name = "Harga" Then
If e.Value > 100 Then

e.CellStyle.ForeColor = Color.Red
e.CellStyle.BackColor = Color.Yellow
End If
End If

End Sub
Note : Artikel ini dapat berjalan pada .Net 2.0 keatas
Semoga dengan artikel ini dapat menambah wawasan kita semua.
Wassalam
Note : Artikel ini dapat berjalan pada .Net 2.0 keatas
Semoga dengan artikel ini dapat menambah wawasan kita semua.
Wassalam

December 16, 2008

Membuat Textbox menjadi auto complete


Biasanya ketika kita mengetikkan alamat URL pada address bar, maka pada address bar akan terlihat alamat-alamat URL yang mendekati dengan apa yang kita ketik. Lalu bagaimana jika auto complete tersebut di buat pada program kita . Artikel ini menggunakan Vb 2005 express.
Textbox dan Combobox adalah control yang mensupport untuk feature ini di .Net 2.0. Untuk menggunakan AutoComplete pertama adalah dengan mensetting property AutoCompleteMode, masing-masing adalah
Append
Mode ini memasukkan text secara otomatis kedalam control sebagaimana yang kita ketik.
Suggets
Text yang mirip dengan apa yang kita ketik akan muncul di bawah control (berbentuk seperti dropdownlist), jika ada yang cocok diantara text yang tampil, you can select it (tinggal pilih aja J)
SuggestAppend
Ini merupakan kombinasi dari 2 mode diatas (Append dan Suggest). List dari text yang mirip akan tampil dibawah control, namun yang paling cocok berada dalam control.

Setelah mengganti AutoComplete Mode pada properties, selanjutnya kita akan mengubah property AutoCompleteSource. Terdapat 7 value pada properties ini.
FileSystem
Menggunakan FileSystemDirectories (Hanya menampilkan direktori path)
HistoryList
Menampilkan URL dari Internet Explore history list
RecentlyUsedList
semua file yang terakhir di gunakan yang muncul pada start menu.
AllUrl
Seluruh URL pada internet explore, apakah diketik manual oleh user atau link dari web page
AllSystemSources
Full List dari URL dan file path
ListItems
Item yang terdapat pada Combobox.item. pilihan ini tidak tersedia untuk control textbox
CustomSource
Untuk mode ini kita harus menambahkan sendiri text pada properties AutoCompleteCustomSource.

Semoga bermanfaat..
Wassalam

December 12, 2008

Windows startup dengan Vb.Net

halooo rekan rekan milist yang saya cintai :)

Ada yang tau caranya agar applikasi yang kita buat bisa masuk ke startup windows?


Pertanyaan diatas dari salah satu anggota Milist dotnet@netindonesia.net
Emang sich sudah ada yang menjawab tapi pake bahasa inggris dan kalau ga salah C#, artikel kali ini akan membahas bagaimana membuat sintaks dengan Vb.Net untuk menjalankan program kita pada saat windows startup.
Sebelumnya pastikan kita sudah menginport win32 terlebih dahulu, seperti dibawah
Imports Microsoft.Win32
Berikut adalah sintaks untuk mengaktifkan program kita pada saat start up.

Dim AppName, AppPath As String
AppName = Application.ProductName'Nama aplikasi
AppPath = Application.StartupPath'Alamat (Path) aplikasi

Dim oReg As RegistryKey = Registry.CurrentUser
oReg=Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
oReg.SetValue(AppName, AppPath & "\" & AppName + ".exe")
oReg.Close()


Sedangkan untuk menonaktifkan adalah seperti sintaks dibawah ini

Dim oReg As RegistryKey = Registry.CurrentUser
oReg = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
oReg.DeleteValue(AppName)
oreg.Close()


Sedangkan untuk mengecek value startup pada registry apakah ada atau tidak adalah seperti dibawah ini

Dim AppName, AppPath As String
AppName = Application.ProductName
AppPath = Application.StartupPath

Dim oReg As RegistryKey = Registry.CurrentUser
oReg = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
If oReg.GetValue(AppName) Is Nothing Then
MenuItem6.Checked = False
Else
MenuItem6.Checked = True
End If


Untuk mengecek program kita sudah benar-benar akan aktif pada saat windows start up, bisa dilihat di Run>msconfig
Pada tab Startup, nama program dan path akan terlihat disana.
Note : Sintaks diatas merupakan untuk Current User, jika untuk seluruh user tinggal ubah Registry.CurrentUser menjadi Registry.LocalMachine

Wassalam

December 11, 2008

Menampilkan Data Dari Table Ke Dalam Listview


Sering kali kita menggunakan listview untuk menampilkan data yang kita miliki, dan sering nya data tersebut bukan dari table, melainkan hanya inputan dari textbox atau yang lainnya. Sedangkan untuk menampilkan data kita bisa menggunakan DataGrid/DataGridView. Maka dari itu artikel ini akan menjelaskan secara singkat bagaimana menampilkan data pada listview , mengaktifkan check box pada listview sampai dengan melakukan suatu proses simpan yang mana hanya dilakukan pada baris yang di pilih.
Tambahkan 1 buah listview pada form, lalu ubah properties listview seperti :
CheckBoxes : True
FullRowSelect : True
GridLines : True
View : Details Dan pada properties coloumns klik button … disamping (Collection), lalu Add 2 kolom masing bernama Machine ID, dan Machine Name. Dan klik OK.


Tampilan ListView setelah dilakukan perubahan adalah seperti dibawah ini :
Sedangkan source code untuk menampilkan data dari table ke list view adalah seperti dibawah ini.
Sub ViewData()
Dim i As Integer
Displaydata()
LstMachine.Items.Clear()
For i = 0 To (objDataTable.Rows.Count - 1)
With objDataTable.Rows(i)
Dim lSingleItem As ListViewItem
lSingleItem = LstMachine.Items.Add(.Item("MachineID").ToString)
lSingleItem.SubItems.Add(.Item("MachineName").ToString)
End With
Next i

End Sub
Dan sebelumnya buat dahulu coding untuk menampilkan data dan data tersebut disimpan kedalam Datatable (kalau di sintaks ini kita kasih nama objDataTable). Contoh sintaks nya seperti dibawah
Sub Displaydata()
Try

objDataTable.Clear()

strSQL = "SELECT T_Machine.MachineID,T_Machine.MachineName, " & _
" T_Product.ProductName, T_Machine.MachineDescription,T_Machine.AssetNo " & _
" FROM T_Machine INNER JOIN " & _
" T_Product ON T_Machine.ProductID = T_Product.ProductID " & _
" Where T_Machine.Deletion=0 order by T_Machine.MachineID Asc "

objCommand = New SqlCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New SqlDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "MDT_Machine")
MyConnection.close()
objDataTable = objDataSet.Tables("MDT_Machine")

Catch ex As Exception
MsgBox("Program error" _
& vbCrLf & Err.Description)
MyConnection.close()
End Try
End Sub

Untuk query tergantung pada kebutuhan. Setelah selesai sintaks diatas tinggal panggil aja Sub ViewData ke dalam Form Load.
Sedangkan untuk melakukan proses simpan pada baris yang dipilih adalah seperti dibawah ini.
For i = 0 To LstMachine.Items.Count - 1
If LstMachine.Items.Item(i).Checked = True Then 'Jika baris yang pilih, checkbox = true

'Buat proses simpan disini
End If
End If

Next i

Semoga bermanfaat.
Wassalam

December 9, 2008

Penginputan data dari DatagridView kedalam SQL Server 2000


Kojirosan: Mas, d vb.net kalo mao simpan hasil olahan datagridview ke database SQL2000 gimana ya? kalo utk textbox saya sudah bisa

Setelah ada pertanyaan seperti diatas, maka saya kepikiran untuk membuat simple artikel sehingga saya tidak perlu menjawab pertanyaan yang berulang-ulang.
Dari pertanyaan diatas, kita asumsikan bahwa si penanya sudah bisa menampilkan data pada DataGridView, yang menjadi pertanyaannya adalah bagaimana memasukkan data pada grid kedalam table. (Bener gitu kan Mas???).
Jika seperti itu hal yang harus kita pikirkan adalah mengambil data pada grid view untuk dijadikan value pada proses penginputan. Silahkan liat sintaks dibawah untuk memasukkan data pada grid kedalam textbox.
Try
Dim row As DataGridViewRow = DgView.Rows(e.RowIndex)
txtISBN.Text = row.Cells(0).Value
txtTitle.Text = row.Cells(1).Value
txtAuthors.Text = row.Cells(2).Value
txtPublisher.Text = row.Cells(3).Value
txtPrice.Text = row.Cells(4).Value
Catch ex As Exception
MsgBox(ex.Message)
Finally
MyConnection.close()
End Try
Note :Sintaks diatas berfungsi pada Vb 2005 keatas
Jika hal seperti ini sudah bisa kita lakukan maka sangat mudah sekali untuk melakukan penginputan kedalam table pada SQL server.
Setelah kita membuat Class (.vb) untuk melakukan proses penginputan (liat Step 13), maka jendela user interface hal yang perlu dilakukan adalah seperti berikut.
myConnectionLibrary.AccessTitleInsert(row.Cells(0).Value, row.Cells(1).Value, _
row.Cells(2).Value, row.Cells(3).Value, row.Cells(4).Value)

Dengan melakukan hal diatas kita maka kita telah berhasil melakukan penginputan dari DatgridView yang telah di olah.


Wassalam

Cara baik dalam melakukan penginputan data pada vb.net dengan Access sebagai DB

Jika para pembaca jeli dan teliti pada setiap artikel saya terlebih pada Step 1 yang melakukan pengolahan data dengan Access sebagai Database nya, pasti akan timbul pertanyaan pada saya atau mungkin diri sendiri, kenapa penulis artikel ini menggunakan fungsi Replace terlebih dahulu sebelum melakukan proses Insert dan Update seperti dibawah ini
myconnectionUsaha.AccessUsahaInsert(txtID.Text, Replace(txtNama.Text, "'", """"))
Fungsi Replace tersebut untuk mengantisipasi, jika user melakukan penginputan dengan memasukkan karakter “ ‘ “ (tanda petik), jika tidak ada fungsi Replace maka akan muncul error message seperti dibawah.


Kenapa bisa muncul error seperti ini, kalau di ingat lagi pada Class AccessUsaha.vb, kita menggunakan Sintaks seperti dibawah ini.
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String)

Dim myCmd As New OleDbCommand
Dim myconnection As New AccessData.DatabaseConnection
myCmd.CommandText = "Insert Into [TbUsaha]" _
& " (IDUsaha,NamaUsaha) Values (" _
& "'" & IDUsaha & "', '" & NamaUsaha & "') ;"
myCmd.Connection = myconnection.open
myCmd.ExecuteNonQuery()
myconnection.close()
End Function

Dan jika masukkan data dengan menggunakan (‘), lalu kita trace maka sintaks SQL nya akan seperti ini
myCmd.CommandText "Insert Into [TbUsaha] (IDUsaha,NamaUsaha) Values ('U06', 'Makan Sia'ng') ;" String
tanda petik tersebut telah membuat sintaks SQL menjadi tidak sempurna dan menimbulkan error.
Oleh karena itu penulis melakukan pengubahan data sebelum program melakukan proses simpan. Tapi apakah setelah dengan melakukan Replace dari satu tanda petik (‘) ke dua tanda petik (“) masalah sudah selesai, penulis rasa tidak. Karena data yang di inputkan user secara otomatis telah di ubah oleh program (berarti data tersebut sudah tidak valid lagi). Dan menurut penulis sintaks diatas tidak layak dipakai lagi dan sintaks yang benar adalah seperti dibawah ini :
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String)

Dim myconnection As New AccessData.DatabaseConnection

Dim SqlString As String = "Insert Into [TbUsaha] " _
& " (IDUsaha,NamaUsaha) Values (" _
& " ?,?);"

Dim myCmd As New OleDbCommand(SqlString)

myCmd.Connection = myconnection.open
myCmd.CommandType = CommandType.Text

myCmd.Parameters.Add("IDUsaha", IDUsaha)
myCmd.Parameters.Add("NamaUsaha", NamaUsaha)

myCmd.ExecuteNonQuery()
myconnection.close()

End Function

Dan jika menggunakan Vb 2005 sintaks nya seperti dibawah ini.
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String) As OleDbDataReader

Dim myconnection As New AccessData.DatabaseConnection

Dim SqlString As String = "Insert Into [TbUsaha] " _
& " (IDUsaha,NamaUsaha) Values (" _
& " ?,?);"

Dim myCmd As New OleDbCommand(SqlString)

myCmd.Connection = myconnection.open
myCmd.CommandType = CommandType.Text

myCmd.Parameters.AddWithValue("IDUsaha", IDUsaha)
myCmd.Parameters.AddWithValue("NamaUsaha", NamaUsaha)


Dim result As OleDbDataReader = myCmd.ExecuteReader(CommandBehavior.CloseConnection)
Return result
End Function

Semoga artikel ini bermanfaat dan membuat kita lebih baik dalam pemograman..

Wassalam

December 5, 2008

Step By Step Menjadi Programmer Handal Dengan Vb.Net (16)


Jika kita sering bekerja dengan MS excel tentu dalam hal yang membuat grapik sudah tidak ada masalah bagi kita karena sangat mudah di lakukan. Tapi bagaimana jika kita mau membuat grapik pada program kita (vb.net) dengan mengambil data dari database yang ada. Sangat-sangat banyak sekali third party program (component) yang menyediakan hal ini. Tapi untuk waktu seperti ini dolar lagi tinggi untuk beli sesuatu sangat sulit. (No purchase for IT), ya itulah yang di bilang ama bos J.. Tapi sebenarnya ada component yang jarang di gunakan, buku-bukunya nya pun susah dicari. Apakah nama nya? OWC = Office Web Components. Mudah-mudahan dengan artikel ini dapat membantu temen-temen yang mau belajar dalam membuat grapik pada aplikasi nya. Untuk mengetahui apa itu OCW silahkan klik link berikut http://en.wikipedia.org/wiki/Office_Web_Components . Untuk mendapatkan component ini kita harus melakukan beberapa langkah, silahkan ikuti pada link berikut http://support.microsoft.com/kb/823982 . Bagi yang buru-buru (males J ) bisa menggunakan file AxOWC11.dll, file disertakan pada folder bin berbentuk zip file didalam project. Artikel ini menggunakan Vb.Net 2003, dan juga sudah di implementasikan di Vb 2005 express. Dan project dari artikel ini tersedia pada http://junindar.blogspot.com/ So mari ikuti step-step dibawah ini.............
Untuk mendapatkan artikel ini selengkapnya dapat di download disini
Sedangkan untuk mendapatkan project dari artikel ini bisa di dapatkan disini

Semoga membantu..
Wassalam

December 4, 2008

OS Version dan System Directory

Bagaimanakah cara untuk menampilkan OS Version dan System Directory dengan Vb.Net, ikuti sintaks dibawah ini :

Label1.Text = ("OSVersion: " & System.Environment.OSVersion.ToString)

Label1.Text = ("SystemDirectory: " & System.Environment.SystemDirectory)

Wassalam