Visual Basic.NET ?

Read data via SQLdatasource

2012-01-26T18:35:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can read data via SQLDatasource without open or close connection from MSSQL Server .

If any question, please feel free to contact me y_turkeli@yahoo.com or

yenerturkeli@v-basic.net.

1-) We are creating a new ASP.NET Empty Web Site

2-) Add New Web Form to project

3-) We are designing this windows form in a similar way to the picture below

4-) We are writing this code

<html xmlns="http://www.w3.org/1999/xhtml">

<head runat="server">

<title></title>

<style type="text/css">

.style1

{

width: 100%;

}

.style2

{

width: 304px;

}

</style>

</head>

<body>

<form id="form1" runat="server">

<div>

<table class="style1">

<tr>

<td class="style2">

Personnel Number</td>

<td>

<asp:TextBox ID="pno_txt" runat="server"></asp:TextBox>

</td>

</tr>

<tr>

<td class="style2">

Full Name</td>

<td>

<asp:Label ID="fullname_lbl" runat="server"></asp:Label>

</td>

</tr>

<tr>

<td class="style2">

Gender</td>

<td>

<asp:Label ID="gender_lbl" runat="server"></asp:Label>

</td>

</tr>

<tr>

<td class="style2">

Age</td>

<td>

<asp:Label ID="age_lbl" runat="server"></asp:Label>

</td>

</tr>

<tr>

<td class="style2">

E-mail</td>

<td>

<asp:Label ID="email_lbl" runat="server"></asp:Label>

</td>

</tr>

<tr>

<td class="style2">

Postcode</td>

<td>

<asp:Label ID="postcode_lbl" runat="server"></asp:Label>

</td>

</tr>

<tr>

<td class="style2">

 </td>

<td>

<asp:Button ID="show_btn" runat="server" Text="Show Data" />

</td>

</tr>

</table>

<asp:SqlDataSource

id="SqlDataSource1"

runat="server"

ConnectionString="<%$ ConnectionStrings:conn_workers %>"

SelectCommand="SELECT [fullname], [age], [gender], [email], [city], [personel_id] , [postcode] FROM [workers] WHERE ([personel_id] = @pid)">

<SelectParameters>

<asp:ControlParameter ControlID="pno_txt" Name="pid" PropertyName="Text"

Type="String" />

</SelectParameters>

</asp:SqlDataSource>

</div>

</form>

</body>

</html>

Imports System.Data.Sql
Imports System.Data
Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub show_btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles show_btn.Click

Dim my_view As DataView = CType(SqlDataSource1.Select(DataSourceSelectArguments.Empty), DataView)
For Each my_row As DataRowView In my_view

fullname_lbl.Text = my_row("fullname").ToString()
age_lbl.Text = my_row("age").ToString()
gender_lbl.Text = my_row("gender").ToString()
email_lbl.Text = my_row("email").ToString()
postcode_lbl.Text = my_row("postcode").ToString()

Next
End Sub
End Class

5-) Lets run the application

Have a great day

Fill Dataset via SQL Server View

2012-01-13T23:51:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can fill dataset with MSSQL Server View.

If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project

2-) We are going to use this sample MSSQL Server view

3-) We are designing this windows form in a similar way to the picture below

4-) We are writing this code

Imports System.Data.SqlClient

Public Class Form1

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

Dim my_dbConnection As New SqlConnection

Dim my_Command As New SqlCommand

Dim my_adapter As New SqlDataAdapter(my_Command)

Dim my_dataset As New DataSet("Customers")

my_dbConnection.ConnectionString = "Data Source=csydneydb;Persist Security Info=True;User ID=cussydney;Password=password123"

my_Command.CommandText = "select id as ID,fullname As [Full Name],cardnumber as [Card Number ],money as Debt ,email as Email from my_view "

my_Command.Connection = my_dbConnection

my_adapter.Fill(my_dataset)

DataGridView1.DataSource = my_dataset.Tables(0)

End Sub

End Class

4-) Lets run the application

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Working with SQL Server View

2012-01-13T22:30:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can use MSSQL Server View to establish a relationship and working with data? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project

2-) Create a new view

3-) Add SQL Server Tables to establish a relationship between tables

4-) Save new view (my_view)

6-) Choose your view from database object screen

7-) Drag fields into the form

8-) Lets run application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Update Database via Dataset

2011-12-17T15:03:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can update database via dataset ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are going to use this access database (c:\microsoft\customer.mdb)

2-) We are creating a new Windows Application Project (dataset_update)

3-) We are designing this windows form in a similar way to the picture below

4-) We are writing this code

Imports System.Data.OleDb

Public Class Form1

Dim my_dbConnection As New OleDbConnection

Dim my_Command As New OleDbCommand

Dim my_adapter As New OleDbDataAdapter(my_Command)

Dim my_dataset As New DataSet("Customers")

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click

my_dbConnection.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\microsoft\customer.mdb"

my_Command.CommandText = "select * from customer "

my_Command.Connection = my_dbConnection

my_adapter.Fill(my_dataset)

customer_grid.DataSource = my_dataset.Tables(0)

End Sub

Private Sub update_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles update_btn.Click

Dim my_builder As OleDbCommandBuilder = _

New OleDbCommandBuilder(my_adapter)

my_builder.GetUpdateCommand()

my_adapter.Update(my_dataset)

End Sub

End Class

5-) Click Show Data button and modify some data.

6-) Lets check database table again.

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Working With Color Matrix

2011-12-05T20:19:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can work color matrix class with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

Several methods of the ImageAttributes class adjust image colors by using a color matrix.

1-) We are creating a new Windows Application Project (color_matrix)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Imports System.Drawing.Imaging

Public Class Form1

Private Sub PictureBox2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint

Dim my_image = PictureBox1.Image

Dim atrb As New ImageAttributes()

Dim wdt As Integer = my_image.Width

Dim hght As Integer = my_image.Height

Dim color_matrix As Single()() = { _

New Single() {HScrollBar1.Value, 0, 0, 0, 0}, _

New Single() {0, HScrollBar1.Value, 0, 0, 0}, _

New Single() {0, 0, HScrollBar1.Value, 0, 0}, _

New Single() {0, 0, 0, HScrollBar1.Value, 0}, _

New Single() {0, 0, 0, 0, 1}}

Dim colorMatrix As New ColorMatrix(color_matrix)

atrb.SetColorMatrix(colorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)

e.Graphics.DrawImage(my_image, _

New Rectangle(0, 0, wdt, hght), _

0, 0, wdt, hght, GraphicsUnit.Pixel, atrb)

End Sub

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

PictureBox2.Refresh()

End Sub

End Class

4-)Lets run the application

5-) Change scrollbar position.

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Get Scren Shot with VB.NET

2011-12-01T19:59:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can get screenshot with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (screen_shot)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Imports System.Drawing.Imaging

Public Class Form1

Private screen_image As Bitmap

Private Screen_shot As Graphics

Sub get_screen()

screen_image = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, PixelFormat.Format32bppArgb)

Screen_shot = Graphics.FromImage(screen_image)

Screen_shot.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)

Me.PictureBox1.Image = screen_image

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

get_screen()

End Sub

Private Sub stp_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stp_btn.Click

Timer1.Enabled = False

End Sub

Private Sub str_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles str_btn.Click

Timer1.Enabled = True

End Sub

End Class

4-) Lets run the application

Create ZIP File With VB.NET

2011-12-01T16:15:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can create ZIP file with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (zip_file)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Public Class Form1

Private Sub zip_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zip_btn.Click

Dim my_process As System.Diagnostics.Process = New System.Diagnostics.Process()

Dim file_name As String

Dim file_open As New OpenFileDialog

If file_open.ShowDialog = Windows.Forms.DialogResult.OK Then

file_name = file_open.FileName

End If

my_process.StartInfo.FileName = ("C:\Program Files\WinRAR\rar.exe")

my_process.StartInfo.Arguments = (" a -ms*.rar;*.zip;*.png;*.doc " & "C:\zip_files\test.rar " & file_name)

my_process.Start()

my_process.WaitForExit()

End Sub

End Class

4-) Lets run the application

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Memory Management with VB.NET

2011-11-23T18:33:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can see memory with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (memory_management)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Imports System

Public Class Form1

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click

TotPhys_txt.Text = FormatNumber(My.Computer.Info.TotalPhysicalMemory, 0)

TotVirt_txt.Text = FormatNumber(My.Computer.Info.TotalVirtualMemory, 0)

avirt_txt.Text = FormatNumber(My.Computer.Info.AvailableVirtualMemory, 0)

End Sub

End Class

4-) Lets run the application

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

3D effect with VB.NET

2011-11-21T18:34:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can 3D effect with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (3d_application)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Dim i As Integer

Private Sub Draw_3d(ByVal gr As Graphics, ByVal rect As Rectangle)

Dim pr As Pen

pr = New Pen(Color.Red)

gr.DrawRectangle(pr, rect)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

i = i + 1

Draw_3d(Me.CreateGraphics, New Rectangle(i, i, i + 50, i + 50))

End Sub

4-) Lets run the application

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Convert .doc file to .html with VB.NET

2011-11-16T01:29:00.000-08:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can convert .doc to html with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (using_word)

2-) Solution Explorer >> Add Referrence >> Select word component

3-) We are designing this windows form in a similar way to the picture below

4-) We are writing this code

Imports Microsoft.Office.Interop.Word

Public Class Form1

'create a word application

Dim word_ As New Application

'create a openfile dialog

Dim open_file As New OpenFileDialog

'create a word document

Dim word_doc As Document

Private Sub save_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_btn.Click

'define a save dialog

Dim save_file As New SaveFileDialog

'give its extension

save_file.Filter = "html files (*.html)|*.html"

'if ok click

If save_file.ShowDialog() = DialogResult.OK Then

'save as html

word_doc.SaveAs(save_file.FileName, Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatHTML)

'close

word_doc.Close(False)

End If

End Sub

Private Sub open_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open_btn.Click

'give its filter

open_file.Filter = "Word Document (*.doc)|*.doc| Files (*.rtf)|*.rtf"

'if ok click at opendialog

If open_file.ShowDialog() = DialogResult.OK Then

word_doc = word_.Documents.Open(open_file.FileName, False)

End If

End Sub

End Class

5-) Lets run the application

6-) Open a word document from your PC

7-) Save word document as .html

8-) Lets check the html file which was saved

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Terminate Process via VB.NET

2011-11-01T19:12:00.000-07:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can terminate process with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (terminate_process)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Imports System.Diagnostics
Public Class Form1
Private process_list As System.Diagnostics.Process
Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click
ListBox1.Items.Clear()

For Each process_list In System.Diagnostics.Process.GetProcesses()
ListBox1.Items.Add(process_list.ProcessName & " : " & process_list.Id.ToString())
Next

End Sub

Private Sub terminate_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles terminate_btn.Click

For Each process_list In System.Diagnostics.Process.GetProcesses()

Dim process_name() As String = _
ListBox1.SelectedItem.ToString().Split(":")

Dim p_name As String = process_name(0).Trim()
Dim p_number As Integer = Convert.ToInt32(process_name(1).Trim())

If process_list.ProcessName = p_name And process_list.Id = p_number Then
process_list.Kill()
End If

Next
End Sub
End Class

4-) Lets run the application

5-) Select a process and click terminate button

Have a great day

Moving Bouncing Ball with VB.NET

2011-10-31T17:22:00.000-07:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can make a moving ball with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (moving_ball)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Public Class Form1

Private Const MOV_BALL_W As Integer = 80
Private Const MOV_BALL_H As Integer = 80
Private x As Integer
Private y As Integer

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.Clear(Me.BackColor)
e.Graphics.FillEllipse(Brushes.Red, x, y, MOV_BALL_W, MOV_BALL_H)
e.Graphics.DrawEllipse(Pens.Black, x, y, MOV_BALL_W, MOV_BALL_H)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim rnd As New Random
x = rnd.Next(Me.Width - 80)
y = rnd.Next(Me.Height - 80)
Me.Invalidate()
End Sub
End Class

4-) Lets run the application

5-) Resize the form size

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Adobe Form Viewer with VB.NET

2011-10-17T17:02:00.000-07:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can can view PDF Form with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (pdf)

2-) Select adobe component

3-) We need to see adobe component on toolbox

4-) We are designing this windows form in a similar way to the picture below

5-) We are writing this code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'create a openfile dialog

Dim open_file As New OpenFileDialog

'give its filter

open_file.Filter = "PDF files (*.pdf)|*.pdf| Adobe files (*.pdf)|*.pdf"

'if ok click at opendialog

If open_file.ShowDialog() = DialogResult.OK Then

Me.AxAcroPDF1.LoadFile(open_file.FileName)

End If

6-) Lets run the application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Flash Player with VB.NET

2011-10-02T17:32:00.000-07:00

Hi Everybody,

I would like to explain one of faq within this essay , how we can can work Flash Player with VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (flash_player)

2-) Select flash component

3-)We need to see flash component on toolbox

4-)We are designing this windows form in a similar way to the picture below

5-) We are writing this code

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'create a openfile dialog
Dim open_file As New OpenFileDialog

'give its filter
open_file.Filter = "Flash files (*.swf)|*.swf| Flash files (*.swf)|*.swf"

'if ok click at opendialog
If open_file.ShowDialog() = DialogResult.OK Then

'load flash file
Me.AxShockwaveFlash1.LoadMovie(0, open_file.FileName)
End If

End Sub

6-) Lets run the application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Working with DataView

2011-08-29T06:36:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how we can can work DataView VB.NET windows application ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (data_view)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Create a DataTable
Dim my_datatable As New DataTable()

'dataview
Dim d_view As DataView = my_datatable.DefaultView

'Add an auto no column
my_datatable.Columns.Add("Customer_NO", GetType(Integer)) _
.AutoIncrement = True

'add column
my_datatable.Columns.Add("Name")
my_datatable.Columns.Add("Surname")

'add data
my_datatable.Rows.Add(Nothing, "Erica", "Teah")
my_datatable.Rows.Add(Nothing, "Soner", "Cinu")
my_datatable.Rows.Add(Nothing, "Namik", "Kemal")
my_datatable.Rows.Add(Nothing, "Jordan", "Islamov")
my_datatable.Rows.Add(Nothing, "Shane", "Boraci")

'set datasource
DataGridView1.DataSource = d_view

'give message
MsgBox("Excellent ", vbInformation, "Information")

Catch ex As Exception

'give message
MsgBox(ex.Message, vbCritical, "Information")

End Try

End Sub

4-) Lets run application and click button

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Working with StreamWriter

2011-08-19T22:14:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how we can can work StreamReader and Writer VB.NET windows application( codes ) ? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (streamwriter)

2-)We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Imports System.IO
Public Class Form1

Dim file_path As String = "c:\database\file.txt"

Private Sub save_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_btn.Click
Try

'create a streamwriter
Dim benim_dosyam As New StreamWriter(
New FileStream(file_path, FileMode.Append))

'write to the streamwriter
benim_dosyam.Write(id_txt.Text & ";")
benim_dosyam.Write(namesurname_txt.Text & ";")
benim_dosyam.Write(address_txt.Text)

'close
benim_dosyam.Close()

Catch ex As Exception

MsgBox("Error " & ex.Message, vbCritical, "Error Box")
End Try

End Sub
End Class

4-) Lets run application and click button

5-) Lets check the file

Have a lovely day

Yener Turkeli

yenerturkeli@v-basic.net

Working with DataGridview combobox

2011-08-05T21:27:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how we can can work datagridview combobox and its event with VB.NET windows application( codes ) ? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (datagridview)

2-)We are designing this windows form in a similar way to the picture below

3-) We are writing this code

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

'add datagrid view columns
DataGridView1.Columns.Add("Name", "Name")
DataGridView1.Columns.Add("Surname", "Surname")
DataGridView1.Columns.Add("Age", "Age")
DataGridView1.Columns.Add("Gender", "Gender")
DataGridView1.Columns.Add("Membership", "Membership")

'define new rom
Dim dataGridRow As New DataGridViewRow()

'define new cells
Dim name_txt As New DataGridViewTextBoxCell()
Dim surname_txt As New DataGridViewTextBoxCell()
Dim age_txt As New DataGridViewTextBoxCell()
Dim gender_cmb As New DataGridViewComboBoxCell()
Dim membership_cmb As New DataGridViewComboBoxCell()

'cells value
name_txt.Value = "Erica"
surname_txt.Value = "Lett"
age_txt.Value = 25

gender_cmb.Items.Add("Male")
gender_cmb.Items.Add("Female")
gender_cmb.Value = "Female"
membership_cmb.Items.Add("Standart")
membership_cmb.Items.Add("Silver")
membership_cmb.Items.Add("Gold")
membership_cmb.Items.Add("Platin")
membership_cmb.Value = "Gold"

'add row
dataGridRow.Cells.Add(name_txt)
dataGridRow.Cells.Add(surname_txt)
dataGridRow.Cells.Add(age_txt)
dataGridRow.Cells.Add(gender_cmb)
dataGridRow.Cells.Add(membership_cmb)

DataGridView1.Rows.Add(dataGridRow)

End Sub

Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
Dim cmb As ComboBox = CType(e.Control, ComboBox)

MsgBox(cmb.Items(cmb.SelectedIndex), vbInformation, "DataGridview Application")
End Sub

4-)Lets run application and click show data button

5-) Select all membership via combobox

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Store images in access database

2011-08-04T04:19:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how we can store images in a access table with VB.NET 2010 windows application? If any question, please feel free and contact with me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

sample access database

1-) We are creating a new Windows Application Project (image_saver)

2-) We are designing this windows form in a similar way to the picture bellow

3-) We are writing this code

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class Form1

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

Try

Dim file_open As New OpenFileDialog
'only jpg image
file_open.Filter = " Jpg Image(jpg)|*.jpg"

'show dialog
file_open.ShowDialog()

'show image
PictureBox1.Image = Image.FromFile(file_open.FileName)

' open selected file
Dim my_stream As New FileStream(file_open.FileName, FileMode.Open, FileAccess.Read, FileShare.Read)

'get bytes
Dim bytes_stream(my_stream.Length - 1) As Byte

'read file
my_stream.Read(bytes_stream, 0, bytes_stream.Length)

'connection string
Dim my_connection As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\customers.mdb"

'query string
Dim my_query As String = "INSERT INTO customer_images ( [image] ) " & _
"VALUES ( ? )"

'create a connection
Dim my_dbConnection As New OleDbConnection(my_connection)

'create a command
Dim my_Command As New OleDbCommand(my_query, my_dbConnection)

'add parameter
my_Command.Parameters.Add(
"image", OleDbType.Binary)

'add image
my_Command.Parameters("image").Value = bytes_stream

'open connection
my_Command.Connection.Open()

'execute command
Dim result = my_Command.ExecuteNonQuery()

'if success
If result = 1 Then

'give information
MsgBox("Your Image Saved Succesfully", vbInformation, "Information Box")
End If

Catch ex As Exception

'give error message
MsgBox(ex.Message, MsgBoxStyle.Critical, "Information Box")
End Try

End Sub

End Class

4-) Lets run application and click save button

5-) Lets check database

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Rotate Image with VB.NET

2011-07-30T20:10:00.001-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can rotate image which in Picturebox control with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (rotate_image)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Dim bmp As Bitmap

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

'create a graphics
Dim grp As Graphics

'create picturebox graphics
grp = PictureBox1.CreateGraphics

'rotate graphic
grp.RotateTransform(angle_txt.Text)

'drawimage start 0,0
grp.DrawImage(bmp, 0, 0)

grp.Dispose()

End Sub

Private Sub openimage_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openimage_btn.Click
'create a openfile dialog
Dim open_file As New OpenFileDialog

'give its filter
open_file.Filter = "JPEG files (*.jpg)|*.jpg|GIF files (*.gif)|*.gif|All files (*.*)|*.*"

'if ok click at opendialog
If open_file.ShowDialog() = DialogResult.OK Then

'set bmp image from file path
bmp = Image.FromFile(open_file.FileName)

'show image on picturebox
PictureBox1.Image = bmp
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'set picturebox size mode
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

4-) Lets run application and clicks open image and rotate buttons

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

SQLBulkCopy for performance with VB.NET

2011-07-25T17:55:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can use SqlBulkCopy for datatransfer with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

SqlBulkCopy has a excellent performance advantage over them. The SqlBulkCopy class can use to just write data in order to SQL Server tables. System.Data.SqlClient.SqlBulkCopy

1-) We are creating a new Windows Application Project (SQLBulkCopy)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this codes

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
Public Class Form1

Function fill_datatable() As DataTable

'create a datatable
Dim my_datatable As New DataTable

'create a connection string
Dim my_connection_string As String = "Server=153.19.29.202;User ID=admin;Password=69699696;Persist Security Info=False;Database=mysql_database;Connect Timeout=30"

'create mysqlconnection
Dim my_Connection As New MySqlConnection(my_connection_string)

' get data from mysql database table
Dim myCommand As New MySqlCommand("Select username,address,email From users", my_Connection)

' create a database mysqladapter
Dim myadapter As New MySqlDataAdapter

'assign mycommand
myadapter.SelectCommand = myCommand

'fill datatable via myadapter
myadapter.Fill(my_datatable)

Return my_datatable
End Function

Private Sub datatable_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datatable_btn.Click

'create connectionstring to sql server database
Dim my_connection_string As String = "Data Source=(local); Integrated Security=true; Initial Catalog=customers;"

'create connection
Dim my_Connection As New SqlConnection(my_connection_string)

'open connection
my_Connection.Open()

'create a sqlbulkcopy
Dim sql_bulkcopy As New SqlClient.SqlBulkCopy(my_connection_string)

'set destinationtable
sql_bulkcopy.DestinationTableName = "backup_Customers"

'set timeout
sql_bulkcopy.BulkCopyTimeout = 30

Try

'write all customers data to the table
sql_bulkcopy.WriteToServer(fill_datatable())

Catch ex As Exception

'show if any exception
MsgBox(ex.Message)

End Try

'Close
sql_bulkcopy.Close()

'give message
MsgBox("Data Transfered Successfully from Mysql Database Table to the MSQLServer database table", MsgBoxStyle.Information, "SQLBulkCopy")

End Sub

Private Sub datareader_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datareader_btn.Click
'create connectionstring to sql server database
Dim my_connection_string As String = "Data Source=(local); Integrated Security=true; Initial Catalog=customers;"

'create connection
Dim my_Connection As New SqlConnection(my_connection_string)

'open connection
my_Connection.Open()

'create a command and get all customers
Dim myCommand As New SqlCommand("Select * From customers", my_Connection)

' create a database reader
Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

'create a sqlbulkcopy
Dim sql_bulkcopy As New SqlClient.SqlBulkCopy(my_connection_string)

'set destinationtable
sql_bulkcopy.DestinationTableName = "backup_Customers"

Try

'write all customers data to table
sql_bulkcopy.WriteToServer(myReader)

Catch ex As Exception

'show if any exception
MsgBox(ex.Message)

End Try

'Close
sql_bulkcopy.Close()

' close the reader
myReader.Close()

' close the connection
my_Connection.Close()

'give message
MsgBox("Data Transfered Successfully from MSQLServer Database Table to the MSQLServer database table", MsgBoxStyle.Information, "SQLBulkCopy")

End Sub

End Class

4-) Lets run application

5-) Click button and see the result

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

MySQL Connection with VB.NET

2011-07-11T18:41:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can connect MYSQL database table with VB.NET 2010 Windows application ? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) Download Connector/Net (Connector/Net is a fully-managed ADO.NET driver for MySQL )

http://dev.mysql.com/downloads/connector/net/5.1.html

2-)Install application

3-)We are creating a new Windows Application Project (connect_mysql)

4-) Add Referrence

5-) We are designing this windows form in a similar way to the picture below

6-) We are writing this codes

Imports MySql.Data.MySqlClient

Public Class Form1

Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click
'create a connection string
Dim my_connection_string As String = "Server=153.19.29.202;User ID=admin;Password=69699696;Persist Security Info=False;Database=mysql_database;Connect Timeout=30"

'create mysqlconnection
Dim my_Connection As New MySqlConnection(my_connection_string)

'create a datatable
Dim my_datatable As New DataTable

' get data from mysql database table
Dim myCommand As New MySqlCommand("Select username,address,email From users", my_Connection)

' create a database mysqladapter
Dim myadapter As New MySqlDataAdapter

'assign mycommand
myadapter.SelectCommand = myCommand

'fill datatable via myadapter
myadapter.Fill(my_datatable)

'show data in gridview
DataGridView1.DataSource = my_datatable
End Sub
End Class

7-)Lets run application and click get data button

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Create Database Table with VB.NET

2011-07-02T20:56:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can create access database table with VB.NET 2010 Windows application code line? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-)We are creating a new Windows Application Project (database_table_create)

2-)We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

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

'connection string
Dim my_connection As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\customers.mdb"

'query string
Dim my_query As String = "CREATE TABLE new_database ( Customer_Number Counter," & _
"Customer_Name TEXT(50) NOT NULL , Customer_Surname TEXT(40))"

'create a connection
Dim my_dbConnection As New OleDbConnection(my_connection)

'create a command
Dim my_Command As New OleDbCommand(my_query, my_dbConnection)

'connection open
my_dbConnection.Open()

'command execute
my_Command.ExecuteNonQuery()

'close connection
my_dbConnection.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'connection string
Dim my_connection As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\customers.mdb"

'insert (query string)
Dim my_query As String = "insert into new_database ( Customer_Name, Customer_Surname )" & _
" values ( 'jen' , 'Lte')"

'create a connection
Dim my_dbConnection As New OleDbConnection(my_connection)

'create a command
Dim my_Command As New OleDbCommand(my_query, my_dbConnection)

'connection open
my_dbConnection.Open()

'command execute
my_Command.ExecuteNonQuery()

'close connection
my_dbConnection.Close()
End Sub
End Class

4-)Lets run application and firstly click database table create button secondly insert sample data button.

5-) Lets check access database table

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

CDrom Detect with VB.NET

2011-06-24T01:29:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can detect CDroom with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-)We are creating a new Windows Application Project (cdrom_detect)

2-)We are designing this windows form in a similar way to the picture below

3-) We are writing this code

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

Dim my_Drives() As IO.DriveInfo = IO.DriveInfo.GetDrives()

Dim driver_info As IO.DriveInfo

For Each driver_info In my_Drives

ListBox1.Items.Add(driver_info.Name)

If driver_info.DriveType = DriveType.CDRom Then
TextBox1.Text = driver_info.Name
End If

Next

End Sub

4-) Lets run application and click button

Working with Rich Text Format(Image)

2011-06-18T20:46:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can work RTF(Rich Text Format) files and images with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (richtextbox_codes)

2-)We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = RichTextBox1.Rtf
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Files (*.rtf) *.rtf"

Try
If open_file.ShowDialog() = DialogResult.OK Then

RichTextBox1.LoadFile(open_file.FileName)
RichTextBox1.Modified = True
Else
MsgBox("Please select a file", vbInformation, "RTF Application")

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "RTF Application")
End Try

End Sub

4-) We are creating a RTF file with Microsoft Word (image, text etc)

5-) Lets run the application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Working With Multithread Application

2011-06-01T17:57:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can work multithread with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

Why we use multithread?
Multithread applications are working without freezing while these application are processing. New Operation systems(Windows XP, Windows Vista, Windows 7, Windows 2003-2008 so on) allow a application in order to work one or more threads. There are a lot of advantages for working multithread application, In other words, multithread application are working paralel processing instead of serial processing. They dont need to wait main process response, they are working separately. It means there is no need to wait others process responses, they are working under different sessions .

1-) We are creating a new Windows Application Project (multi_thread)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Public Class Form1
Private i, y

Sub increase_i_number()
'go on i = 5000
Do Until i = 5000

' increase i
i = i + 2

'indicate label
thread1_lbl.Text = i

' refresh form
Me.Refresh()

Loop

End Sub

Sub increase_y_number()

'go on y = 5000
Do Until y = 5000

' increase y
y = y + 2

'indicate label
thread2_lbl.Text = y

' refresh form
Me.Refresh()
Loop

End Sub

Private Sub thread1_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles thread1_btn.Click

'give permission for cross thread
Me.CheckForIllegalCrossThreadCalls = False

'if thread check
If thread_rd1.Checked = True Then

' call sub form with this thread
Dim my_thread1 As New System.Threading.Thread( _
AddressOf increase_i_number)

'start thread
my_thread1.Start()

'if wthread checked call without thread
ElseIf wthread_rd1.Checked = True Then

'call sub form
increase_i_number()

End If
End Sub

Private Sub thread2_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles thread2_btn.Click

'if thread2 checked
If thread_rd2.Checked = True Then

'call sub form with thread
Dim my_thread2 As New System.Threading.Thread( _
AddressOf increase_y_number)

'thread start
my_thread2.Start()

'if without thread checked start without thread
ElseIf wthread_rd2.Checked = True Then

'call sub form directly
increase_y_number()
End If
End Sub

End Class

4-)Lets run application and start application multi thread and without multi thread

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Working with Excel Worksheet

2011-05-25T06:37:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can work excel worksheet with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (battery_check)

2-) Sample excel files(c:\customers.xls worksheet name:data)

3-) We are designing this windows form in a similar way to the picture below

4-) We are writing this code

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click

' Create connection
Dim my_connection_string As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\customers.xls; Extended Properties=""Excel 8.0;HDR=YES"""
Dim my_Connection As New OleDbConnection(my_connection_string)
my_Connection.Open()

' get data from worksheet.
Dim myCommand As New OleDbCommand("Select * From [data$]", my_Connection)

' create a database reader
Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

'get all datas
Do While myReader.Read

MsgBox("Customer Name: " & myReader(0), vbInformation, "Excel Worksheet")
Loop

' close the reader
myReader.Close()
' close the connection
my_Connection.Close()

End Sub
End Class

5-) Lets run application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Windows Remaining Battery with VB.NET

2011-05-21T05:50:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can see remaining battery with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

We are able to use System.Windows.Forms.SystemInformation class in order to get detail information about system. Lets see a sample with systeminformation class

1-) We are creating a new Windows Application Project (battery_check)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click
Dim system_information As System.Windows.Forms.SystemInformation
MsgBox((system_information.PowerStatus.BatteryLifePercent * 100) & " %", vbInformation, "Battery Check")

End Sub

4-) Lets run application and click button

5-) Lets check battery status on windows

Yener Turkeli
yenerturkeli@v-basic.net

Working with Environment Class

2011-05-16T04:55:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can see domainname, username, machine name etc with VB.NET 2010 console application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (environment_class)

2-)We are writing this code

Imports System.Security
Imports System.Security.Principal.WindowsIdentity

Module Module1

Sub Main()

'get domain name
Console.WriteLine("Domain Name: " & Environment.UserDomainName)

'get username
Console.WriteLine("UserName: " & Environment.UserName)

'get logical driver only first one
Console.WriteLine("First logical drives: " & Environment.GetLogicalDrives(0))

'get logical driver second one
Console.WriteLine("Second logical drives: " & Environment.GetLogicalDrives(1))

'get machine name
Console.WriteLine("Machine Name: " & Environment.MachineName)

'wait for user action
Console.ReadLine()

End Sub

End Module

3-) Lets run the application

Working with Registy (VB.NET)

2011-05-01T23:11:00.000-07:00

Hi Everybody,
I would like to explain most common question within this essay , how we can work Windows Registry Setting(Write, Read, Create ) with VB.NET 2010 console application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (registry_setting)

2-) We are writing this code

Imports Microsoft.Win32

Module Server

Sub Main()

'define registrykey
Dim my_reg As RegistryKey

'get your local registy value
my_reg = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\My_Application\\1.0", True)

'if registry key is not , create new one
If my_reg Is Nothing Then
my_reg = Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\My_Application\\1.0")

End If

If (Not my_reg Is Nothing) Then

'get value from registry
Console.WriteLine("My_Value: " & my_reg.GetValue("My_Value", 0))

my_reg.SetValue("My_Value", "First")

Console.WriteLine("My_Value: " & my_reg.GetValue("My_Value", 0))

my_reg.SetValue("My_Value", "Second")

Console.WriteLine("My_Value: " & my_reg.GetValue("My_Value", 0))

my_reg.Close()
End If

'wait for user action
Console.ReadLine()
End Sub

End Module

3-)Lets run the application

4-) Lets Check Regedit

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

XML import and Export

2011-04-22T06:10:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can import and export XML data by DataGridView? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-)We are creating a new Windows Application Project (xml_to_datagridview)

2-) We are designing this windows form in a similar way to the picture below

3-) We are writing this code

Imports System.Xml
Imports System.Data

Public Class Form1

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

'create a openfile dialog
Dim open_file As New OpenFileDialog

'give its filter
open_file.Filter = "Files (*.xml) | *.xml"

Try

'if ok click at opendialog
If open_file.ShowDialog() = DialogResult.OK Then

'define a xml reader
Dim xmlFile As XmlReader

'get xml data from the path
xmlFile = XmlReader.Create(open_file.FileName, New XmlReaderSettings())

'define a new dataset
Dim ds As New DataSet

'read xml data
ds.ReadXml(xmlFile)

'show xml data in datagridview
DataGridView1.DataSource = ds.Tables(0)

End If

Catch ex As Exception

'if any problem show error

Msgbox(ex.message)

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'define a save dialog
Dim save_file As New SaveFileDialog

'give its extension
save_file.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*"

'select xml
save_file.FilterIndex = 2

'create a datatable
Dim my_datatable As New DataTable

'if ok click
If save_file.ShowDialog() = DialogResult.OK Then

'get datagridview source to datatable
my_datatable = CType(DataGridView1.DataSource, DataTable)

'save datatable with xml format
my_datatable.WriteXml(save_file.FileName)

End If

End Sub
End Class

4-) sample xml file

5-) Lets run application and clicks save and open file buttons

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

STEGANOGRAPHY PROJECT

2011-04-20T19:34:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can hide data into the image with VB.NET Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

Information security, today the importance of the personal basis so much as the guarantee of the future of some communities and private business working in the units / institutions are very important . Cryptography is the practice and study of hiding information. In modern times cryptography is considered a branch of both mathematics and computer science and is affiliated closely with information theory, computer security and engineering.

This method is a new approach to Steganography which is the art and science of writing hidden messages in such a way that no-one, apart from the sender and intended recipient, suspects the existence of the message, a form of security through obscurity. We are using RGB codes and pixel for hide data inside the image.

1-) We can directly hide data inside the image

2-) This programme cannot change image quality .

3-) Data was hidden to image in just a short time without a problem.

4-) You can read data from hidden image whenever you want. This data is coming from hidden image.

You can contact me , if any question about the project.

Yener Turkeli
yenerturkeli@v-basic.net

Working with TCP IP Ports

2011-04-17T19:58:00.000-07:00

Hi Everybody,
I would like to explain most common question within this essay , how we can work TCP Port with VB.NET 2010 console application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (tcpip_port)

2-) We are writing this code

Imports System.Net.Sockets
Imports System.Text

Module Server

'define the port number
Const Port_num As Integer = 1024

Sub Main()

'write port listener to the screen
Console.WriteLine("Port Listener")

'create a tcplistiner
Dim port_Listener As New TcpListener(Port_num)

'write information the screen
Console.WriteLine("Starting to Port Listening...")

'start to listen to the port
port_Listener.Start()

Try

'accept the listener
Dim my_Client As TcpClient = port_Listener.AcceptTcpClient()

'give information to the screen
Console.WriteLine("Port Connection Accepted.")

'get stream
Dim net_s As NetworkStream = my_Client.GetStream()

Try

'define byte variable
Dim bytes(1024) As Byte

'get data
Dim bytesRead As Integer = net_s.Read(bytes, 0, bytes.Length)

'write data to the screen
Console.WriteLine(Encoding.ASCII.GetString(bytes, 0, bytesRead))

Catch e As Exception

'any problem show to the screen
Console.WriteLine(e.message)

End Try

'stop listener
port_Listener.Stop()

Catch
Console.WriteLine("Error")
Console.ReadLine()
End Try

End Sub

End Module

3-) Lets run the application ( give permission for the programme)

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

MSDos Commands with Console Application

2011-04-01T03:59:00.000-07:00

Hi Everybody,
I would like to explain most common question within this essay , how we can use MSDOS command with VB.NET 2010 console application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (command_line)

2-) We are writing this code

Sub Main()
'change background color
Console.BackgroundColor = ConsoleColor.Yellow

'change forecolor
Console.ForegroundColor = ConsoleColor.DarkBlue

Dim scommand As String

'command line
scommand = "move c:\test\*.* c:\test\test"

'write information to the screen
Console.WriteLine("Do you want to see command screen? Y or N")

'get user's preferrence
Dim s_view As String = Console.ReadLine

'if user prefer Y
If s_view = "Y" Then

'run command line and show command screen
Shell("cmd /c " & scommand, AppWinStyle.MaximizedFocus)

'if user prefer N
ElseIf s_view = "N" Then

'run command line and hide command screen
Shell("cmd /c " & scommand, AppWinStyle.Hide)
Else

Exit Sub
End If

Console.ReadLine()

End Sub

3-) Lets run application

4-) Check files from the directory

Measure Elapsed Time with VB.NET

2011-03-20T23:25:00.000-07:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can accurately measure elapsed time at current instance with VB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

We are using stopwatch System.Diagnostics.Stopwatch for using elapsed time. Lets have a look useful example for it.

1-)We are creating a new Windows Application Project (stopwatch)

2-)We are designing this windows form in a similar way to the picture below

3-) We are writing this code

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

'create a stopwatch
Dim my_swatch As New Stopwatch()

'start stopwatch for measuring time
my_swatch.Start()

'define a double
Dim i As Double

'loop until i = 100000
Do Until i = 100000

' i add 1
i = i + 1

' add listbox
ListBox1.Items.Add(i)

Loop

'show elapsed time after process completed
MsgBox(my_swatch.ElapsedMilliseconds)

End Sub

4-)Lets run application

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Serial Port Communication

2011-03-16T03:14:00.000-07:00

Hi Everybody,
I would like to explain most common question within this essay , how we can communicate serial port with VB.NET 2010 windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (serial_port)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click

'if port is open
If SerialPort1.IsOpen Then
SerialPort1.RtsEnable = False
SerialPort1.DtrEnable = False
SerialPort1.Close()

Application.DoEvents()

End If

'set port setting
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = 0
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.WriteTimeout = 2000

Try

'open port
SerialPort1.Open()

Catch ex As Exception

'give alert any problem
MsgBox(ex.Message)

End Try

If SerialPort1.IsOpen Then
SerialPort1.RtsEnable = True

End If

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

'define a string
Dim data_received As String

'get data from serial port
data_received = SerialPort1.ReadLine

'give an alert when data received
MsgBox(data_received)

End Sub

4-) Lets run application

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Working with Clipboard

2011-03-10T19:30:00.000-08:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can work screenshot withVB.NET 2010 Windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-)We are creating a new Windows Application Project (working_clipboard)

2-)We are designing this windows form in a similar way to the picture below

3-) We are writing this code

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

'send printSRC key to windows
SendKeys.Send("+({PRTSC})")

'wait in order to catch the clipboard
System.Threading.Thread.Sleep(100)

'screen_shot as dataobject
Dim screen_shot As IDataObject

'get data from clipboard
screen_shot = Clipboard.GetDataObject()

'define an image
Dim bmp_image As Bitmap

'if clipboard data present
If screen_shot.GetDataPresent(GetType(System.Drawing.Bitmap)) Then

'convert to image
bmp_image = CType(screen_shot.GetData(GetType(System.Drawing.Bitmap)), Bitmap)

'show image in picturebox
PictureBox1.Image = bmp_image
End If

End Sub

4-) Lets run the application

Programme can easily get screenshot . If you like you can run background process , windows service .

Yener Turkeli

yenerturkeli@v-basic.net

Folder Watcher with VB.NET 2010

2011-03-01T00:59:00.000-08:00

Hi Everybody,
I would like to explain most common question within this essay , how we can watch a folder with VB.NET 2010 windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (file_system_watcher)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
ListBox1.Items.Add("Modified: " & e.FullPath)
End Sub

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles folder_btn.Click

Try
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

'select folder
folder_txt.Text = FolderBrowserDialog1.SelectedPath
FileSystemWatcher1.Path = folder_txt.Text

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "File System Watcher")
End Try

End Sub

Private Sub FileSystemWatcher1_Created(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created

'if any file created add fullpath to the listbox
ListBox1.Items.Add("Created: " & e.FullPath)
End Sub

Private Sub FileSystemWatcher1_Deleted(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted

'if any file deleted add fullpath to the listbox
ListBox1.Items.Add("Deleted: " & e.FullPath)
End Sub

Private Sub FileSystemWatcher1_Renamed(ByVal sender As System.Object, ByVal e As System.IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed

'if any file renamed add path to the listbox
ListBox1.Items.Add("Renamed: " & e.FullPath)
End Sub

4-) Lets run application and select a folder

Yener Turkeli
yenerturkeli@v-basic.net

Get Running Process

2011-02-24T23:55:00.000-08:00

Hi Everybody,
I would like to discuss one of the most common FAQs regarding how we can point out running process with VB.NET 2010 Windows application? We can need to get information about running process which is related our main application.

If any question, please feel free and contact with me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-)We are creating a new Windows Application Project (process_information)

2-)We are designing this windows form in a similar way to the picture below

3-)We are writing this code

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

'define a process
Dim ProcessRuning() As Process
Try

'get process name
ProcessRuning = Process.GetProcessesByName(TextBox1.Text)

'if the process is running
If ProcessRuning.Length > 0 Then

'give message
MsgBox("Process Running")

'if process is not running
Else

'give message
MsgBox("Process Not Running")
End If

Catch ex As Exception

'give message
MsgBox(ex.Message)

End Try

End Sub

4-) Lets run the application

5-) Lets close process(winword-outlook etc) and lets run application and see the result

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

Chart Control(Databinding)

2011-02-16T23:50:00.000-08:00

Hi Everybody,
I would like to explain most common question within this essay , how we can use chart control and its databind properties with VB.NET 2010 windows application? If any question, please feel free and contact with me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (chart_data)

2-) We are designing this windows form in a similar way to bellowing picture

3-) We are designing acces database and entering some datas

4-)We are writing this code

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click

'Before delete series1
Chart1.Series.Clear()

'connection string
Dim my_connection As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\chart_data\customers.mdb"

'query string
Dim my_query As String = "SELECT customer_name, customer_bill FROM customer_information;"

'create a connection
Dim my_dbConnection As New OleDbConnection(my_connection)

'create a command
Dim my_Command As New OleDbCommand(my_query, my_dbConnection)

'open connection
my_Command.Connection.Open()

'create a reader and get data
Dim myReader As OleDbDataReader = my_Command.ExecuteReader(CommandBehavior.CloseConnection)

'bind data to chart
Chart1.DataBindTable(myReader, "customer_name")

'close reader
myReader.Close()

'close connection
my_dbConnection.Close()

End Sub
End Class

5-)Lets run application and click show chart button

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Mp3 Header Read with VB.NET

2011-02-01T07:02:00.000-08:00

Hi Everybody,
I would like to explain most common question within this essay , how we can read MP3 files header details with VB.NET 2010 windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (mp3_reader)

2-) We are designing this windows form in a similar way to bellowing picture

3-)We are writing this code

Private Sub select_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles select_btn.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Files (*.mp3) *.mp3"

Try
If open_file.ShowDialog() = DialogResult.OK Then

file_txt.Text = open_file.FileName
Else
MsgBox("Please select a file", vbInformation, "Mp3 Reader")

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Mp3 Reader")
End Try

End Sub

Private Sub read_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles read_btn.Click
Dim file_byte As Integer
Dim strTag As New String(" ", 3)
file_byte = FreeFile()
'Frame 0
Dim Title As New String(" ", 30)
' Frame 1
Dim Artist As New String(" ", 30)
'Frame 2
Dim Album As New String(" ", 30)

FileOpen(file_byte, file_txt.Text, OpenMode.Binary, _
OpenAccess.Read, OpenShare.Default)

FileGet(file_byte, strTag, LOF(file_byte) - 127, True)

Try

FileGet(file_byte, Title)
FileGet(file_byte, Artist)
FileGet(file_byte, Album)

MsgBox("This MP3 Album: " & Album, vbInformation, "VB.NET MP3 Reader")

MsgBox("This MP3 Title: " & Title, vbInformation, "VB.NET MP3 Reader")

MsgBox("This MP3 Artist: " & Artist, vbInformation, "VB.NET MP3 Reader")

Catch ex As Exception
MsgBox(ex.Message, "VB.NET MP3 Reader")
End Try

FileClose(file_byte)

End Sub

4-) Lets run application and select mp3 file

5-) Please click Read Button

Chart Control VB.NET 2010

2011-01-16T05:28:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I can use chart control with VB.NET windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (chart_control1)

2-) We are designing this windows form in a similar way to bellowing picture

3-) Series Collection(Student)

4-) We are writing this code

Private Sub chart_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chart_btn.Click

Chart1.Series("Student").Points.AddXY("Jon", 10)
Chart1.Series("Student").Points.AddXY("Jordan", 30)
Chart1.Series("Student").Points.AddXY("Yen", 40)
Chart1.Series("Student").Points.AddXY("Nick", 20)

Chart1.Series("Student").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Bar

End Sub

5-) Lets run application and click show button

6-) Change codes and run again

Private Sub chart_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chart_btn.Click

Chart1.Series("Student").Points.AddXY("Jon", 10)
Chart1.Series("Student").Points.AddXY("Jordan", 30)
Chart1.Series("Student").Points.AddXY("Yen", 40)
Chart1.Series("Student").Points.AddXY("Nick", 20)

Chart1.Series("Student").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie

End Sub

7-) For 3D and run again

Private Sub chart_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chart_btn.Click

Chart1.Series("Student").Points.AddXY("Jon", 10)
Chart1.Series("Student").Points.AddXY("Jordan", 30)
Chart1.Series("Student").Points.AddXY("Yen", 40)
Chart1.Series("Student").Points.AddXY("Nick", 20)

Chart1.Series("Student").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie

Chart1.Series("Student")("PieLabelStyle") = "Outside"

Chart1.ChartAreas("ChartArea1").Area3DStyle.Enable3D = True

End Sub

Working with Media Player with VB.NET

2011-01-01T04:57:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I can use Media Player Component with VB.NET windows application? If any question, please feel free and contact with me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (medua_player_component)

2-) Select Media Player component

3-) We are designing this windows form in a similar way to bellowing picture

4-)We are writing this code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start_btn.Click
Try
AxWindowsMediaPlayer1.URL = file_name_txt.Text
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "My Media Player")
End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stop_btn.Click
Try
AxWindowsMediaPlayer1.close()
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "My Media Player")
End Try

End Sub

Private Sub select_file_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles select_file_btn.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Files (*.*)| *.*"

Try
If open_file.ShowDialog() = DialogResult.OK Then

file_name_txt.Text = open_file.FileName
Else
MsgBox("Please select a file", vbInformation, "My Media Player")

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "My Media Player")
End Try

End Sub

5-) Lets run application and click start button

Sender Application VB.NET

2010-12-16T04:46:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I can use sender with VB.NET windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (sender_windows_application)

2-) We are designing this windows form in a similar way to bellowing picture

3-)We are writing this code

Private Sub show_alert_btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_alert_btn1.Click
Try
MsgBox(alert_txt.Text, vbInformation, "Sender Application")
Catch ex As Exception
MsgBox(ex.Message, "Sender Application")
End Try
End Sub

Private Sub show_alert_btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_alert_btn2.Click
show_alert_btn1_Click(sender, e)
End Sub

Private Sub show_alert_btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_alert_btn3.Click
show_alert_btn1_Click(sender, e)
End Sub

4-) Lets start application and click buttons

Print Document with VB.NET

2010-12-15T18:24:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I can use printpreview and printerdialog with VB.NET 2010 windows application? If any question, please feel free and contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (print_document)

2-) We are designing this windows form in a similar way to bellowing picture

3-)We are writing this code

Private Sub Print_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print_btn.Click
printDocument1.Print()
End Sub

Private Sub Print_preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print_preview.Click
printPreviewDialog1.Document = printDocument1
printPreviewDialog1.ShowDialog()
End Sub

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
Dim fnt_t As Font
fnt_t = TextBox1.Font
e.Graphics.DrawString(TextBox1.Text, fnt_t, New SolidBrush(Color.Black), 10, 10)

End Sub

Private Sub fnt_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fnt_btn.Click
Dim font_dialog As New FontDialog
If font_dialog.ShowDialog() = DialogResult.OK Then
TextBox1.Font = font_dialog.Font
End If
End Sub

4-) Lets start application and change font

5-) Click Printpreview button

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Perfect Style with VB.NET 2010

2010-11-15T18:13:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I change standart button style with paint events (VB.NET 2010 windows application)? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (perfect_styles)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub Button1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
Dim perfect_style As New System.Drawing.Drawing2D.GraphicsPath

perfect_style.AddEllipse(0, 0, 160, 50)
sender.region = New Region(perfect_style)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Hello Perfect Style", vbInformation, "Perfect Style")
End Sub

4-) Lets start application and click button

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Windows API with VB.NET 2010

2010-11-14T04:38:00.000-08:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I can shutdown and restrat Windows with VB.NET 2010 console application? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (restart_windows)

2-) We are writing this code

Sub Main()

Console.BackgroundColor = ConsoleColor.Blue
Console.Title = "Restart Windows With VB.NET"
Console.ForegroundColor = ConsoleColor.Red

Console.WriteLine("Do you want to restart or shutdown your computer?")
Console.WriteLine("Please press S by keyboard in order to shutdown ")
Console.WriteLine("Please press R by keyboard in order to restart ")

Dim preferrence As String
preferrence = Console.ReadLine()

If preferrence = "S" Then
System.Diagnostics.Process.Start("ShutDown", "/s")
ElseIf preferrence = "R" Then

System.Diagnostics.Process.Start("ShutDown", "/r")

Else

Console.WriteLine("Please press S or R ")

End If

Console.ReadLine()

3-) Lets start application

4-) Press R or S and see the result

RGB Color Combination with VB.NET 2010

2010-11-01T18:00:00.000-07:00

Hi Everybody,
I would like to explain one of FAQs within this essay , how can we see RGB color details with VB.NET 2010 windows application? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (rgb_color)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub apply_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles apply_btn.Click
'set rgb color
Try
'show rgb color combination on picturebox
PictureBox1.BackColor = Color.FromArgb(Val(red_txt.Text), Val(green_txt.Text), Val(blue_txt.Text))
Catch ex As Exception

'give message any exception
MsgBox(ex.Message)
End Try

End Sub

4-) Lets start application and click apply button

5-) Change RGB text values and click button again

Have a great day

Yener Turkeli
yenerturkeli@v-basic.net

Send Keys With VB.NET 2010

2010-10-10T08:04:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I send keys with VB.NET 2010 windows application? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (send_keys)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("notepad.exe", AppWinStyle.NormalFocus)
SendKeys.Send(text_txt.Text)

End Sub

4-) Lets start application

My PC Talk with sapi.spvoice

2010-10-02T18:40:00.000-07:00

Hi Everybody,
I would like to explain one of faq within this essay , how can I use SAPi with VB.NET 2010 windows application? If any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (my_pc_talk)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Dim my_pc_talk

Private Sub start_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start_btn.Click

my_pc_talk = CreateObject("sapi.spvoice")
my_pc_talk.volume = 40
my_pc_talk.rate = 2
my_pc_talk.speak(text1_txt.Text)
my_pc_talk.pause()
End Sub

Private Sub btn_resume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_resume.Click
my_pc_talk.resume()
my_pc_talk.speak(text2_txt.Text)
End Sub

4-) Lets start application

Have a great day

Get Computer Information

2010-09-15T09:58:00.000-07:00

Hi Everybody,

I would like to discuss one of the most FAQs regarding how we can see computer details with VB.NET 2010 console application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new console Application Project (ftp_upload)

2-) We are writing this code

Sub Main()
Console.WriteLine("VB.NET 2010 Computer Information")
Console.WriteLine("Computer Name: " & My.Computer.Name)
Console.WriteLine("Computer Time: " & My.Computer.Clock.LocalTime)
Console.WriteLine("Network is available: " & My.Computer.Network.IsAvailable)
Console.ReadLine()

End Sub

3-) Lets start application

FTP Wizard - VB.NET 2010

2010-09-14T07:33:00.000-07:00

Hi Everybody,

I would like to discuss one of the most FAQs regarding how we can upload files on FTP web sites with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (ftp_upload)

2-) We are designing this windows form in a similar way to the picture below

3-)We are writing this code

Private Sub select_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles select_btn.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Files *.*"

Try
If open_file.ShowDialog() = DialogResult.OK Then

file_name_txt.Text = open_file.FileName
Else
MsgBox("Please select a file", vbInformation, "FTP Wizard")

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "FTP Wizard")
End Try

End Sub

Public ReadOnly Property name_f(ByVal path As String) As String

Get

Dim i As Integer = path.LastIndexOf("\")

If i >= 0 And i < (path.Length - 1)

Then Return path.Substring(i + 1)

Else Return ""

End If

End Get

End Property

Private Sub upload_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload_btn.Click

Try Dim ftp_request As System.Net.FtpWebRequest = _ CType(System.Net.FtpWebRequest.Create("ftp://ftp.v-basic.net/httpdocs/vb_ftp_wizard/" & name_f(file_name_txt.Text)), System.Net.FtpWebRequest)

ftp_request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

ftp_request.Credentials = New System.Net.NetworkCredential("yenerturkeli", "h545454445") ftp_request.UseBinary = True

ftp_request.KeepAlive = False

ftp_request.Proxy = Nothing

Dim ftp_file() As Byte = System.IO.File.ReadAllBytes(file_name_txt.Text)

Dim f_stream As System.IO.Stream = ftp_request.GetRequestStream f_stream.Write(ftp_file, 0, ftp_file.Length)

f_stream.Close()

f_stream.Dispose()

MsgBox("Excellent File Published", vbInformation, "FTP Wizard")

Catch ex As Exception

MsgBox(ex.Message, vbCritical, "FTP Wizard")

End Try

End Sub

4-) Lets start application

5-) Lets check the FTP folder

Have a great day and enjoy with useful essay.

Yener Turkeli

Picture Get Pixel with VB.NET 2010

2010-09-01T01:34:00.000-07:00

Hi Everybody,

I would like to discuss one of the most FAQs regarding how we can see image's RGB values with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

What is RGB?
RGB(Red,Green,Blue) is a color model which provide in various ways to produce colors.

What is Pixel?
Pixel is a single point of image, in other words, the smallest addressable screen element in a image.

1-) We are creating a new Windows Application Project (picture_get_pixels)

2-) We are designing this windows form in a similar way to bellowing picture
(1 Picturebox, 2 textbox , 2 button)

3-) We are writing this code

Private Sub upld_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upld_btn.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Pictures Files| *.bmp;*.jpg;*.gif;*.wmf;*.tif;*.png"

Try
If open_file.ShowDialog() = DialogResult.OK Then

picture_bx.Image = Image.FromFile(open_file.FileName)

Else
MsgBox("Please select a picture", vbInformation, "Pictures Files")

End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Pictures Files")
End Try

End Sub

Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click
Try
Dim r_color As Color
Dim picture_b As New Bitmap(picture_bx.Image)

r_color = picture_b.GetPixel(x_txt.Text, y_txt.Text)

MsgBox("Red Value: " & r_color.R & " Green Value: " & r_color.G & " Blue Value " & r_color.B, vbInformation, "Pictures Files")

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

4-) Lets start application

VB.NET Directory Create and Check

2010-08-18T21:36:00.000-07:00

Hi Everybody,

I would like to discuss one of the most FAQs regarding how we can create a directory and check directory in local drive with VB.NET 2010 console application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (create_directory)

2-) We are writing this code

Imports System.IO

Module Module1

Sub Main()
Dim dir_path As String

Try
Console.BackgroundColor = ConsoleColor.Blue
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Please write directory path")
dir_path = Console.ReadLine

If Not Directory.Exists(dir_path) Then
Console.BackgroundColor = ConsoleColor.Green
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Directory will create at:" & dir_path)
Directory.CreateDirectory(dir_path)

Else
Console.BackgroundColor = ConsoleColor.Red
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Directory exist at:" & dir_path)

End If
Catch ex As Exception

End Try

Console.ReadLine()
End Sub

End Module

3-) Lets start program(F5)

If directory exist.

Have a great day

Yener Turkeli

y_turkeli@yahoo.com

Get Directory List VB.NET 2010

2010-08-10T20:37:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can see directory list on local driver with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (get_directories)

2-) We are writing this code

Sub Main()

Dim directory_path As String
Console.WriteLine("Please write directory name")
directory_path = Console.ReadLine

Console.WriteLine("All Directory List")

For Each dir_Folder As String In _
My.Computer.FileSystem.GetDirectories(directory_path)

Console.WriteLine(dir_Folder.ToString)

Next

Console.ReadLine()

End Sub

3-) Lets start program(F5)

Have a great day

Yener Turkeli

yenerturkeli@v-basic.net

is Internet Available?

2010-08-02T08:22:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can point out internet is available with VB.NET ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (internet_checker)

2-) We are writing this code

Function check_internet() As Boolean
Dim vb_url As New System.Uri("http://www.v-basic.net")
Dim vb_WebR As System.Net.WebRequest
vb_WebR = System.Net.WebRequest.Create(vb_url)
Dim vb_response As System.Net.WebResponse
Try

vb_response = vb_WebR.GetResponse
vb_response.Close()
vb_WebR = Nothing
Return True
Catch ex As Exception

vb_WebR = Nothing

Return False
End Try
End Function

Sub Main()
Console.WriteLine("Internet Connection is checking")
If check_internet() = True Then
Console.ForegroundColor = ConsoleColor.White
Console.BackgroundColor = ConsoleColor.Green
Console.WriteLine("Internet Connection is available")

Else
Console.WriteLine("Internet Connection is unavailable")
End If

Console.Read()
End Sub

3-) Lets start program(F5)

Have a great day

Use Colors with Console Application

2010-07-25T11:47:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can use colors with VB.NET Console application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Console Application Project (colored_console)

2-) We are writing this code

Sub Main()
Console.BackgroundColor = ConsoleColor.Blue
Console.ForegroundColor = ConsoleColor.Red

Console.WriteLine("Hi This is very useful example for us Background Color Blue")

Console.BackgroundColor = ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Blue

Console.WriteLine("Hi This is very useful example for us Background Color White")

Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White

Console.WriteLine("Hi This is very useful example for us Background Color Black")

Console.WriteLine("Have a great day")

Console.ReadLine()
End Sub

3-) Lets start application

VB.NET 2010 Email Sending

2010-07-22T06:08:00.000-07:00

Hi Everybody,
I would like to discuss one of the most FAQs regarding how we can send email with VB.NET 2010 Windows application ? If you have any questions, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

1-) We are creating a new Windows Application Project (VBNET2010_email)

2-) We are changing Form1 Text properties (Email Sending)

3-)We are designing this windows form in a similar way to the picture bellow

4-) We are writing this code

Private Smtp_Server As New SmtpClient()

Private Sub email_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email_send.Click
Try

Dim e_mail As New MailMessage()
Smtp_Server.Credentials = New Net.NetworkCredential("yener.turkeli@v-basic.net", "password")
Smtp_Server.Port = 25
Smtp_Server.Host = "mail.v-basic.net"
e_mail = New MailMessage()
e_mail.From = New MailAddress(from_txt.Text)
e_mail.To.Add(to_txt.Text)
e_mail.Subject = "VB.NET Email Sending"
e_mail.Body = text_txt.Text
Smtp_Server.Send(e_mail)

Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub

5-) Please click Send Email button in order to send email

6-) Lets Check Email Box

Have a great days

Yener Turkeli
yenerturkeli@v-basic.net

VB.NET SAP Integration

2010-07-13T05:04:00.000-07:00

Hi Everybody,
I would like to give some information about SAP R/3, ABAP , RFC and VB.NET SAP Integration. It is very important to establish connection between SAP and other systems. Hence, VB.NET is most important tool for integration(office, oracle, business object, mysql , mssql server etc).

If you have any question, please feel free to contact me y_turkeli@yahoo.com or yenerturkeli@v-basic.net.

What is SAP?

SAP R/3 is the name of the enterprise resource planning(ERP) software which have been developed by SAP AG. It is an enterprise-wide information system designed to coordinate all the resources, information, and activities needed to complete business processes such as order fulfillment or billing.

SAP architecture of R/3 on a three-tier client/server

Presentation Server(SAP GUI-Graphical User Interface)
Application Server
Database Server

What is ABAP?

ABAP (Advanced Business Application Programming) is a Advanced-level programming language developed by the SAP Company. Abap is similar to Cobol.

What is RFC?

SAP R/3 provide connection between SAP systems and non-sap systems. RFC(Remote Function Call) is the standart interface for communication between SAP Systems.

Sample RFC Function at SAP R/3

If you have any question, please feel free to contact me

I look forwad to hearing from you about your questions.

Yener Turkeli

yenerturkeli@v-basic.net