VB Egg - VB Classic, VB.NET & VBx site

VB.NET : Convert A Sentence Into Camel Case Format

noreply@blogger.com (Fluffy) — Wed, 30 Sep 2009 11:05:00 +0000

Converting a sentence into CamelCase format in Microsoft VB.NET & ASP.NET

Microsoft VB.NET, ASP.NET and C#.NET lacks the function to allow programmers to convert a string, or even a whole sentence into Camel Case format. Therefore, i have written a microsoft .net functions to do just that. This comes very handy especially in converting a list of names into Camel Case format, or converting a string of addresses and many other applications. You name it. If you do not know what a Camel Case format look like, see the example below:

For instance, we are going to convert the following files into Camel Case format.

Dim Sentence1 As String = "is john smith working in microsoft?"
Dim Sentence2 As String = "michael t. ashby is a GREAT programmer. he is young."
Dim Output1, Output2 As String

Output1 = CCase(Sentence1)
Output2 = CCase(Sentence2)

The converted output will be
Output1 : "Is John Smith Working In Microsoft?"
Output2 : "Michael T. Ashby Is A Great Programmer. He Is Young."

Simply copy and paste the following codes below into your microsoft vb.net, asp.net programming code and you can use it right away.

Public Function CCase(ByVal iString As String) As String
'This function converts a string into "Camel Case" format

Dim oString As String = "" 'initialise output string
Dim iLength As Integer = Len(iString) 'the length of input string
Dim P As Integer = 1 'set pointer to start at character 1
Dim iChar As String 'individual stripped character
Dim UpperFlag As Boolean 'flag to mark upper case is required or not

iString = LCase(iString) 'convert to lower case string
While P <= iLength ' while not end of the string (pointer)
iChar = Mid(iString, P, 1) 'strip each character out of the string one by one
If P = 1 Then 'first character
UpperFlag = True 'change first character to upper case
End If
If iChar = " " Or iChar = "-" Then 'blank field encountered.
UpperFlag = True 'raise the flag to mark the next character as upper case
Else 'non-blank field encountered
If UpperFlag = True Then 'if the flag is raised
iChar = UCase$(iChar) 'change the character to uppercase
UpperFlag = False 'undo raising the flag
End If
End If
oString &= iChar 'reassemble characters back into a string as output
P += 1 'next pointer
End While

Return (oString) 'return the reassembled output string
End Function

VB.NET : Absolute Value (ABS)

noreply@blogger.com (Fluffy) — Thu, 23 Apr 2009 12:10:00 +0000

Applying Absolute Value In VB.NET with ABS

VB.NET allows the conversion of figures (both positive and negative) into absolute figures easily. You can use the Mathematical Function as shown below

Math.ABS

For example, to change a figure value of -34167 into absolute figures, we can apply the codes as follows :

Dim myValue as Integer

myValue = Math.ABS(-34167)

MsgBox(myValue) 'The output now becomes 34167

That illustrates the use of the in-built Math.Abs function in VB.NET

VB.NET : Sleep

noreply@blogger.com (Fluffy) — Fri, 03 Apr 2009 15:53:00 +0000

Putting application to sleep for a specified miliseconds in VB.NET

In VB.NET, you can make an application idle ( or sleep ) for a specified miliseconds. For example, in your programming code, you might want to let your program to be idle for 500 miliseconds after executing a certain functions and then execute the next function.
Apply the code below between functions:

System.Threading.Thread.Sleep(500)

Note : The number used is in miliseconds
* 1 sec = 1000ms

VB.NET : Access to SQL Server Compact Edition

noreply@blogger.com (Fluffy) — Tue, 17 Mar 2009 11:59:00 +0000

Accessing SQL Server Compact Edition Database using VB.NET

SQL Server Compact Edition, or simply SQL Server CE, allows a very convenient way of fetching data stored locally as cache. It is usually used in situations where commonly used data are stored locally and accessed directly instead of making queries to fetch the data again and again from the main database server. Accessing data stored locally can be many times faster compared to accessing data stored in the main database located somewhere on the network. Hence, by implementing and taking the full advantage of SQL Server CE, you can make your application runs faster.

Firstly, add the following reference at the top of your module programming code

Imports System.Data.SqlServerCe

Next, add the following as global variables so that you can call them anytime, anywhere in your code.

Friend SQLcommCE As SqlCeCommand 'SQL command
Friend daCE As SqlCeDataAdapter 'SQL adapter
Friend SQLConnCETempDB As SqlCeConnection 'SQL connection linking your local database

Then, add the following codes to establish the database connection to where your application loads when it runs. Data Source points to the path where your SQL Server CE database extension *.sdf is stored, and provides the password (if any) in the codes shown below.

SQLConnCETempDB = New SqlCeConnection("Data Source=C:\TempDB.sdf;Password='123'")
SQLConnCETempDB.Open()

Finally, in the programming code where you want to perform query to the database, you can simply use the codes shown as follows.

Dim SQLStm as String

SQLStm = "DELETE FROM LocalTable WHERE MYTABLE_ID = '123'"
SQLcommCE = New SqlCeCommand(SQLStm, SQLConnCETempDB) 'execute the query
SQLcommCE.ExecuteNonQuery()

That will delete the records with MYTABLE_ID = '123' in your LocalTable.
For INSERT INTO, UPDATE, DELETE or any other NonQuery database access, you can use

.ExecuteNonQuery

If you intend to query the table using the SELECT statement, you have to use the following code instead

.CommandType = CommandType.Text

See the example below:

Dim SQLStm as String
Dim ds as DataSet
Dim Rank, Name as String

SQLStm = "SELECT Rank, Name FROM LocalTable WHERE MYTABLE_ID = '123'"
SQLcommCE = New SqlCeCommand(SQLStm, SQLConnCETempDB) 'SQL query
SQLcommCE.CommandType = CommandType.Text

daCE = New SqlCeDataAdapter(SQLcommCE) 'Retrieve data from SQL Server CE
ds = New DataSet
daCE.Fill(ds) 'Populate dataset with retrieved data.

If ds.Tables(0).Rows.Count > 0 Then ' If record exists in LocalTable
Rank = ds.Tables(0).Rows(0).Item("Rank").ToString
Name = ds.Tables(0).Rows(0).Item("Name").ToString
Else 'record not exists in LocalTable
Rank = ""
Name = ""
End If

Now you can start implementing SQL Server CE in your applications

VB.NET : Mathematical Functions (Advanced)

noreply@blogger.com (Fluffy) — Sun, 15 Feb 2009 14:24:00 +0000

Using Advanced Mathematical Functions in VB.NET

More advanced mathematical functions in VB.NET utilizes the System.Math class. This class supports a wide variety of in-built functions such as :

Constants like E and Pi
Trigonometric functions like Sin, Cos & Tan
Logarithmic functions like Log & Log10
and other functions like Ceiling, Floor, Max, Min, Pow, Exp, Sqrt, Abs, Round etc.

The example below shows how some of these advanced mathematical functions are used.

Dim i, j, k as Integer

i = Math.Sqrt(25)
j = Math.Pow(2,5)
k = Math.Abs(-25)

Msgbox(i) '--- result has a value of 5
Msgbox(j) '--- result has a value of 32
Msgbox(k) '--- result has a value of 25

See also Simple Mathematical Functions

VB.NET : Mathematical Functions

noreply@blogger.com (Fluffy) — Thu, 12 Feb 2009 14:13:00 +0000

Mathematical Functions in VB.NET

VB.NET offers some very simple and useful mathematical functions for your programming needs; They include:

"+" Add
"-" Subtract
"*" Multiply
"/" Divide
"\" Integer Division
"^" Exponent

The code example below illustrates how these mathematical functions are performed in VB.NET.

Dim i, j, k as Integer

i = 2 * 3
j = 3 / 9
k = 2 ^ 3

Msgbox(i) '--- return a value of 6
Msgbox(j) '--- return a value of 3
Msgbox(k) '--- return a value of 8

Now you should have understood the simple mathematical functions in VB.NET.

See also Advanced Mathematical Functions

Microsoft Enterprise Servers

noreply@blogger.com (Fluffy) — Fri, 06 Feb 2009 13:05:00 +0000

Microsoft Enterprise Servers that can be incorporated in system development.

Microsoft SQL Server

Microsoft SQL Server include rich XML functionalites. It also enables the manipulating of XML data by using Transact-SQL (T-SQL). It has supports for Worldwide Web Consortium (W3C) and has a flexible and powerful web-based analysis feature. It provides a safe and secure way of accessing data in the SQL server over the web by using HTTP.

Microsoft BizTalk Server

Microsoft BizTalk Server provices enterprise application integration (EAI), business-to-business integration, and advanced BizTalk Ochestration Technology to build highly customized processes that can be implemented across applications, various platforms, and organizations over the Internet.

Microsoft Host Integration Server

Microsoft Host Integration Server is meant as a replacement for the SNA Server. It provides a solution to embrace the Internet, intranet, and client-server technologies through existing legacy system and infrastructure.

Microsoft Exchange Enterprise Server

Microsoft Exchange Enterprise Server is implemented as a powerful messaging and collaboration technology system with added various important features and provides commendable reliability, scalability and performance of its core infrastructure.

Microsoft Application Center

Microsoft Application Center provides a tool as a way of deploying and managing for the high-availability of Web applications.

Microsoft Internet Security and Acceleration Server

Microsoft Internet Security and Acceleration Server is a feature that provides secure, fast and manageable Internet connectivity. It is built upon Windows Server's security and directory for policy based security, acceleration and management of inter-networking. It can be integrated with an extensible, multi-layer enterprise firewall and a scalable high-performance Web cache.

Microsoft Commerce Server

Microsoft Commerce Server's main feature is to provide an application framework, sophisticated feedback mechanism and analytical capabilities for system integrations.

What is .NET platform?

noreply@blogger.com (Fluffy) — Wed, 04 Feb 2009 13:04:00 +0000

.NET platform is a technology that is specially designed to transform the Internet into a full-scale distributed computing platform, and also provides new ways to create applications from collections of Web Services. .NET platform is fully compatible and has support for a wide range of existing Internet infrastructures.

The main features of .NET platform are summarized as follows.

1. It is a language-independent with consistent programming model across applications.
2. Can be easily migrated from existing technologies and is fully compatible and interoperable between different technologies.
3. supports Internet's platform-neutral, standard-based technologies such as HTTP, XML and SOAP technologies

.NET Platform Technologies

noreply@blogger.com (Fluffy) — Mon, 02 Feb 2009 13:01:00 +0000

The technologies of .NET platform

.NET platform is useful and very important in Web application developments because it provides the Web application developers with specialized tools and technologies to build distributed Web applications with ease.

Basically, the .NET platform is made up of 4 core technologies, they are;
1. .NET framework
2. .NET Building Block Services,
3. .NET Enterprise Servers, and
4. Microsoft Visual Studio .NET

.NET Framework

The .NET framework is based on a new common language runtime. It is a runtime that is embedded in Visual Studio .NET and is language independent. That means, these common set of runtime services are used and shared by all .NET languages be it Microsoft Visual Basic, Visual C++ or other Microsoft programming languages. As such, an application developed in Visual Basic .NET does not need to distribute Visual Basic specific run-time libraries anymore. To simplify the application development further, all future Microsoft Windows will be equiped with these run-time libraries.

.NET Building Block Services

The .NET Building Block Services are distributed programmable services that are available whether online or offline. It is a building block service that can be used from any platform that supports SOAP technology such as identity, messaging, personalizations, calendar, search, notification and software delivery. It can be invoked through a stand-alone computer without Internet connection, provided a local server running inside a company, or accessed through the Internet.

.NET Enterprise Servers

The .NET Enterprise Servers are server features that provide enhanced scalability, reliability, management and integration within and across organizations.

Visual Studio .NET

Visual Studio .NET or VS.NET is a high level programming development environment for building applications to take advantage of the .NET Framework. It provides the seamless technologies and tools to easily develop, deploy and enhance web applications and services through highly secure, scalable and advanced technologies and features. In addition, it also enables the development of new generation Windows-based applications to become possible through ulitizing .NET framework features.

VB : LCase Function

noreply@blogger.com (Fluffy) — Thu, 29 Jan 2009 11:59:00 +0000

Using LCase Function in VB

LCase function is used to convert a string into lower case, therefore the name LCase. LCase can be used in your VB code as follows.

Dim myString As String '---Variable declaration

myString = "My house is on FIRE!" '--- initialize string data
myString = LCase(myString) '--- convert the string into lower case

MsgBox(myString) '--- result will become "my house is on fire!".

LCase converts all the upper case letters into lower case while lower case letters will remain intact.

See Also UCase Function

VB : UCase Function

noreply@blogger.com (Fluffy) — Thu, 29 Jan 2009 11:49:00 +0000

Using UCase Function in VB

UCase function is used to convert a string into UPPER CASE, hence the name UCase. UCase can be applied in your VB programming codes as follows.

Dim myString As String '---Variable declaration

myString = "My house is on FIRE!" '--- initialize string data
myString = UCase(myString) '--- convert the string into UPPER CASE

MsgBox(myString) '--- result is now "MY HOUSE IS ON FIRE"

UCase converts all the lower case letters into upper case while upper case letters will remain as it is.

See Also LCase Function

VB : InStr Function

noreply@blogger.com (Fluffy) — Wed, 28 Jan 2009 11:52:00 +0000

Using InStr Function in VB

InStr in VB.NET / VB6 is a very powerful method to search for the occurance of certain character or word in a string. You can use the InStr method in VB.NET / VB6 code as shown below. The result of using InStr will be in Integer form displaying the position that the string you find occurs at. myString is the string that you want to search against. FindString is the character or word you are finding in myString. OccurancePost is the position in which the finding is located.

OccurancePost = InStr(myString, FindString)

The simple example illustrated below shows how InStr method works in VB.

Dim OccurancePost As Integer '---Declare variables
Dim myString, FindString As String

myString = "Hello David! Welcome to the world" '--- the sentence
FindString = "David" '----- data to look for in the sentence

OccurancePost = Instr(myString, FindString) '--- InStr method

MsgBox(OccurancePost) '--- the result will be 7.

From the code above, we can see that the word David occurs at the 7th letter from the left (position 7) in the sentence. However, if the word that you intend to find does not appear in the sentence, InStr method will return a value of zero (0).

You can include the following code to cater for the case as below.

If OccurancePost = 0 Then
MsgBox("The word that you intend to look for cannot be found")
End If

That briefly explains how InStr works in VB.NET or VB6

VB.NET : Writing Multithreading Codes

noreply@blogger.com (Fluffy) — Tue, 27 Jan 2009 12:46:00 +0000

Writing Multithreading codes in VB.NET

Implementing multithreading to your application is in fact very easy and simple. We will go through the example below to understand how multithreading works. Firstly, before you do anything, you have to include the namespace below into your project. Add it at the top of your project module.

Imports System.Threading.Thread

Next, you will have to add a BackgroundWorker component from the toolbox into your project as show below.

Then, add the 4 controls as shown in the figure below into an empty form and name them as follows.

BtnMT, BtnNonMT, TextBox1, ProgressBar1

After that, add the following codes (Copy & Paste) into your project.

Public Sub StartBackgroundWorker()

If BackgroundWorker1.IsBusy = True Then
MsgBox("Process already running, please wait.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
Else
BackgroundWorker1.WorkerSupportsCancellation = True
BackgroundWorker1.RunWorkerAsync()
End If

End Sub

Protected Overridable Sub BackgroundWorkerJob_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False
RunCount()

End Sub

Private Sub BackgroundWorkerJob_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

Me.Text = "Process is running, Please Wait!"

End Sub

Protected Overridable Sub BackgroundWorkerJob_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

Me.Text = "Process Finished."

End Sub

Private Sub RunCount()

Dim i As Integer
For i = 1 To 100
Sleep(500)
TextBox1.text = i & "%"
ProgressBar1.Value = i
Next

End Sub

Finally, add this code behind BtnMT button

Me.StartBackgroundWorker()

and this code behind BtnNonMT button

RunCount()

Now, start the application and click on MT button. Notice the result in the diagram below. While the separate thread is running the lengthy process, the user interface shows the progress and the TextBox1 shows the percentages completed.

Now, lets re-run the application and click on Non MT button this time. Both the lengthy process and the user-interface will be running under the same thread. See the result in the diagram below. Notice that without multithreading, the application stops responding after a while with the message showing Form1(Not Responding). Worst still, the application simply forgot to show the percentage completed in the TextBox1. Now, the user will have a hard time to know exactly when the process is going to finish.

Hope this simple multithreading example that i have created above helps you understand and let you know the difference between multithreading and non-multithreading applications.

Back To MultiThreading in VB.NET

VB.NET : MultiThreading

noreply@blogger.com (Fluffy) — Tue, 27 Jan 2009 11:30:00 +0000

MultiThreading in VB.NET

VB.NET has a very great feature called MultiThreading (MT) which is not available in classic VB. In the past, MultiThreading is only available and limited within C++ programming language development environment. Now with this great feature becoming part of VB.NET, you should fully utilize this feature as it allows you to separate your applications into multiple parts (threads), each handling different tasks.

Advantages of MultiThreading

The main advantage of multithreading is that it allows your application to work on many tasks at the same time. Sometimes it is also known that the application runs faster with multithreading as the time for each of the tasks is divided by the CPU and executed concurrently, thus greatly minimizes idle CPU time.

Multithreading is mainly used in applications with lengthy processes which involves sophisticated calculations where the CPU is utilized intensively. Usually, this lengthy process is run on a separate thread from the graphical user interface as the user can still be able to work on this user interface while the lengthy process is running. Hence, the application will not look dead as the user interface is still responding to the user request.

What happens if there is no MultiThreading

Without multithreading where both the lengthy process and the user interface is running under the same thread, this is what will happen. As soon as the user clicks on the button in the user interface to start the lengthy process, the entire user interface freezes. After a while, a non-responding message for this process will occur in the title bar as well as in the task manager.
Although the application is actually still running and the not responding message might not be true entirely, the user has to wait until the lengthy process finishes before the user interface comes back to life again. This also prohibits the user from using a progressbar in the application as it will not work since the user interface is already freezed. The user might not know or will not have any hints on when the lengthy process will finish.

Click the link below to see how you can implement Multithreading into your project.

See MultiThreading VB.NET sample codes here

VB : Subs

noreply@blogger.com (Fluffy) — Mon, 26 Jan 2009 13:55:00 +0000

Writing Subs In VB

Sub procedures are basic programming blocks that are used to call another section of codes from virtually anywhere in the project. It allows code reuse without having to rewrite the codes again everytime that piece of codes need to be used. Unlike Functions procedures, Subs do not need to return a value to the caller. Everytime a Sub procedure is called from a line of code, The entire piece of code in the Sub will be executed until the end before proceeding to the next line of code.

The example below illustrates how a Sub Procedure works

Public Sub DisplayMessage()

MsgBox("Hello, You Called Me")

End Sub

To call the DisplayMessage Sub procedure created above, just include a line as follows in your programming codes.

DisplayMessage()

That explains how A Sub procedure works in Visual Basic.

VB : Fahrenheit To Celcius Converter Function

noreply@blogger.com (Fluffy) — Sun, 25 Jan 2009 13:32:00 +0000

Fahrenheit To Celcius Converter Function In VB

The VB codes below represents a Fahrenheit to Celcius converter function that you can use in your VB.NET or VB6 project.

Public Function FahrenheitToCelcius(ByVal Fahrenheit As Double) As Double

Dim Celcius As Double

Celcius = (Fahrenheit -32) * (5/9)

Return(Celcius)

End Function

Just copy the simple Fahrenheit To Celcius Converter Function above and paste it into your VB code to start converting.

See Also Celcius To Fahrenheit Converter

VB : Celcius To Fahrenheit Converter Function

noreply@blogger.com (Fluffy) — Sun, 25 Jan 2009 13:23:00 +0000

Celcius To Fahrenheit Converter Function In VB

The Visual Basic codes below represents a Celcius to Fahrenheit converter function that you can use in your VB.NET or VB6 project.

Public Function CelciusToFahrenheit(ByVal Celcius As Double) As Double

Dim Fahrenheit As Double

Fahrenheit = (Celcius * 9/5) +32

Return(Fahrenheit)

End Function

Copy and paste the simple Celcius To Fahrenheit Converter Function above into your Visual Basic code and start converting.

See Also Fahrenheit To Celcius Converter

VB : Functions

noreply@blogger.com (Fluffy) — Sun, 25 Jan 2009 04:18:00 +0000

Writing Functions in VB

Functions are very useful and convenient methods in programming. It is basically used to generate data by passing a data value into the function and then obtain a result from it. Like Sub procedure, a function is eclared with a Function keyword. See the example below on how to create a function.

Public Function Multiply(ByVal InputData As Double) As Double
Dim OutputData As Double
OutputData = InputData * 2
Return(OutputData)
End Function

As can be seen in the example above, The function is a 'Public' declaration type which means this function can be access from anywhere in the project. For instance, if this function is specifically created for access from within this module only, 'Private' type will be used instead. The next item Multiply is the name of this function. Further on, the ByVal InputData As Double section in the example above declares the input variable of this function. It is the entry point into the Function. The following As Double at the end of the function procedure is the declaration of the output data type, that is, the data that the function ultimately returns to the caller. Notice that inside the function, a Return() call exists and this is necessary as it is the exit point leading the way out the function.

Unlike Sub procedure which doesn't has an exit point, a function has at least an entry point and an exit point. If a function requires more than one input data, commas can be used to separate between the declaration of input data. See the second example illustrated below.

Public Function Multiply(ByVal InputData1 As Double, ByVal InputData2 As Double) As Double
Dim OutputData As Double
OutputData = InputData1 * InputData2
Return(OutputData)
End Function

To call the function above in your Visual Basic code, just add the following line as follows

TextBox1.Text = Multiply( 54 , 3 )

The value obtained in TextBox1.Text will be 162. Hence, that's how you can create functions in Visual Basic programming. It helps you better organize your programming code making it easier to read and best of all, Function can be reused again and again everywhere in your project.

See a function example on Fahrenheit To Celcius Converter
and also Celcius To Fahrenheit Converter

See Also Writing A Sub

VB : CDec Function

noreply@blogger.com (Fluffy) — Sat, 24 Jan 2009 07:03:00 +0000

Using CDec Function in VB

CDec is used to convert data into Decimal data type. The example below briefly illustrates how CDec function can be used in Visual Basic programming code.

Dim myData As Integer '--- Declare the variables
Dim Output As Decimal

myData = 79 '--- Initialize data value

Output = CDec((myData - 32) * (7 / 3) * (5 / 9)) '---Convert data into Decimal data type

MsgBox(Output) '-The output is 60.9259259259259

As can be seen in the above example illustration, there is technically no difference between conversion of the data into either Decimal data type or Double data type. The only difference that both the data type Decimal and Double is that Decimal has its value fixed at a base of 10 whereas Double is a floating point number base of 2. That is, they differs only in the precisions & ranges of the value.

See Also CType Function

VB : CType Manual Data Conversion

noreply@blogger.com (Fluffy) — Fri, 23 Jan 2009 13:51:00 +0000

Data Conversion in VB

To manually convert data in Visual basic, we can use the in-built function CType to perform the task. CType function is used to perform conversion of any value from one data type into another data type. However, if the value that you intend to convert into and the data type is outside of the value range allowed then an error might occur. The syntax for CType is show as follows

CType(Expression, NameOfDataType)

The NameOfDataType can be any expression that is valid within As clause in a Dim statement, name of any datatype, class, object structure or even interface. The example below shows how CType can be used in VB programming.

Dim myString As String '--- Variable Declaration
Dim myNumber As Integer

myString ="5469" '---Initialize string

myNumber = CType(myString, Integer) '--- convert string to integer

MsgBox(myNumber) '--- Result myNumber will be integer 5469

CType function is rather similar to the other functions used in VB6 like the ones listed below, These functions are used to convert data into the following data type as listed on the right side.

CBool - Boolean

CByte - Byte

CChar - Char

CDate - Date

CDbl - Double

CDec - Decimal

CInt - Integer

CLng - Long

CSng - Single

CStr - String

Hence, that shows how data conversion can be done manually by using CType functions.

VB : CStr Function

noreply@blogger.com (Fluffy) — Fri, 23 Jan 2009 04:10:00 +0000

Using CStr function in VB

CStr is a function that is used to convert data into the String data type. See the example below on how this CStr function can be used in Visual Basic programming.

Dim myData1 As Double '---Variable declaration
Dim myData2 As Boolean
Dim Output1, Output2 As String

myData1 = 5469.2641 '---Initialization of data
myData2 = False

Output1 = CStr(myData1) '--- convert data into String data type
Output2 = CStr(myData2)

MsgBox(Output1) '---Output is '5469.2641'
MsgBox(Output2) '---Output is 'False'

However, if a Date value is converted, the result will always be in short date format. Also note that if a Null value is being converted, a run-time error might occur. Hope that helps you understand how CStr function works and how you can apply it in your Visua Basic code.

See Also CType Function

VB : CLng Function

noreply@blogger.com (Fluffy) — Fri, 23 Jan 2009 03:50:00 +0000

Using CLng function in VB

CLng is a function that is used to convert data into Long data type. It is basically used to round figures with multiple decimal points. See the example shown below.

Dim myData1, myData2 As Double '---Variable declaration
Dim Output1, Output2 As Long

myData1 = 5469.61 '---Initialization of data
myData1 = 5469.48

Output1 = CLng(myData1) '--- convert data into Long data type
Output2 = CLng(myData2)

MsgBox(Output1) '---Output is 5470
MsgBox(Output2) '---Output is 5469

However, there is also one interesting thing to note that this CLng function rounds figures to the nearest even number, that is (0,2,4,6,8) if the fraction part of a multi-decimal point figure is exactly 0.5. See the second example below to properly illustrate this special feature.

Dim myData1, myData2 As Double '---Variable declaration
Dim Output1, Output2 As Long

myData1 = 5464.5 '---Initialization of data
myData1 = 5475.5

Output1 = CLng(myData1) '--- convert data into Long data type
Output2 = CLng(myData2)

MsgBox(Output1) '---Output is 5464
MsgBox(Output2) '---Output is 5476

Note that conversion of 5464.5 in Output1 becomes 5464 instead of 5465 because 5464 is the nearest even number whereas 5465 is an odd number. The same applies to Output2 as well. Therefore, that illustrates the concept of applying CLng function into your VB programming code.

See Also CType Function

VB : CInt Function

noreply@blogger.com (Fluffy) — Thu, 22 Jan 2009 03:38:00 +0000

Using CInt function in VB

CInt is a function that is used for converting data to Integer data type. It is normally used in circumstances where double-precision, single-precision, currency and other multi-decimal points figures occur. The simple example below shows how CInt can be applied in Visual Basic codes.

Dim myData As Double '-----Declaration of variable
Dim Output As Integer

myData= 5469.855 '----- Initialization of data

Output = CInt(myData) '----convert myData into Integer

MsgBox(Output) '----- output data is 5470

Hence, the result above shows the conversion from a Double data type into Integer Data type using CInt.

See Also CType Functions

VB : CSng Function

noreply@blogger.com (Fluffy) — Wed, 21 Jan 2009 15:29:00 +0000

Using CSng function in VB

CSng is a function that is used to convert a data to Single data type. Unlike CDbl which forces double-precision, CSng is only a single-precision data type. See the example shown below on how CSng works.

Dim MyData1, MyData2 As Double '--- Declares Variable
Dim Output1, Output2 As Single

MyData1 = 43.982865935 '--- Initialize data
MyData2 = 853719.4588613

Output1 = CSng(MyData1) '--- Convert MyData1 into Single data type
Output2 = CSng(MyData2) '--- Convert MyData1 into Single data type

MsgBox(Output1) '--- Output1 is 43.98286
MsgBox(Output2) '--- Output2 is 853719.4

As can be seen in the result above, only a fixed number of digits is shown in the output even though the original figures has more. Thus, that shows how CSng is applied in Visual Basic programming.

See Also CType Functions

VB : CDbl Function

noreply@blogger.com (Fluffy) — Wed, 21 Jan 2009 15:12:00 +0000

Using CDbl Function in VB

CDbl function is used to convert a data into Double data type. See the simple example illustrated below for a better understanding of this CDbl function. The example below converts a data stored in a textbox and convert it into Double data type.

Dim Output As Double '---- Declaring Variable

TextBox1.Text = "234.456784" '--- Initialize the figure as a string stored in a textbox

Output = CDbl(Val(TextBox1.Text) * 3.142 * 10/100) '- Run the formula of multiplying the figure with pi, and then multiply it again by 10%.

MsgBox(Output) '-- The output retrieved will be 73.6663215328

Hope you could now be able to know how you can use this CDbl function and apply in your VB codes.

See Also CType Functions