Side Code

Randomize Number

2010-08-30T07:53:00.001-07:00

The application is very simple when we create with .Net 2008, because on .net there a class for randomizer a number. Pseudo-random numbers are chosen with equal probability from a finite set of numbers. The chosen numbers are not completely random because a definite mathematical algorithm is used to select them, but they are sufficiently random for practical purposes. The current implementation of the Random class is based on Donald E. Knuth’s subtractive random number generator algorithm.

The random number generation starts from a seed value. If the same seed is used repeatedly, the same series of numbers is generated. One way to produce different sequences is to make the seed value time-dependent, thereby producing a different series with each new instance of Random. By default, the parameterless constructor of the Random class uses the system clock to generate its seed value, while its parameterized constructor can take an Int32 value based on the number of ticks in the current time.

The completeys source code you can download via this http://reliez.net/2010/08/15/password-generator/

Sending Fax from your application

2010-08-07T00:30:00.001-07:00

On windows Server 2003 have capabilities act as fax server. so many client can be sending the document with fax service via this server. but on windows XP professional also have fax service like on server 2003 but not richeest functional like on server 2003. on windows XP You must active this service via add and remove windows component on control panel.
Like on microsoft office , The app have feature for sending document via email or fax service. on this post we can add that capabilities into .net project. The project use windows xp proffesional for replace windows 2003 server.

Before started this project we must make sure fax service installed on Computer. because the project need component from that service. on the work sheet visual studio 2008 add the reference FAXCOMEXlib.dll into project. The source code like below

Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
With cd
.ShowDialog()
TextBox5.Text = cd.FileName
End With
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TextBox1.Text = My.Computer.Name.ToString
End Sub
Private Sub sending()
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objSender As FAXCOMEXLib.FaxSender
Dim jobid As Int32
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Please input server name and destination number !", MsgBoxStyle.Critical, "Faxing")
Exit Sub
End If
Try
objFaxServer.Connect("")
objFaxDocument.Body = TextBox5.Text
objFaxDocument.DocumentName = "Reliez "
objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
objFaxDocument.Recipients.Add(TextBox2.Text, TextBox3.Text)
objFaxDocument.Sender.Company = "Reliez "
objFaxDocument.Sender.StreetAddress = "Http:" & "//" & "reliez.net"
objFaxDocument.Sender.SaveDefaultSender()
objFaxDocument.ConnectedSubmit(objFaxServer)
System.Threading.Thread.Sleep(5000)
objFaxServer.Disconnect()
Me.Close()
Catch ex As Exception
MsgBox(ex.ToString)
'MsgBox("Fail to Send Document !", MsgBoxStyle.Critical, "Fax")
End Try
End Sub
End Class

Download complete source code click this link

Tag Technorati: {grup-tag}Fax,Vb.Net

Send Email from VB.NET 2008

2010-02-28T03:05:00.000-08:00

Sometimes when we open a application there a a simple menu for sending feedback about the application. actually ist to simple to add capabilty mail sending on application , especialy when we write the app on VB.net. i have implements this capabilty into my lastest project on reliez document management System.

the document which store on database can be share with other via mail or faxing. on this post itry to share how to send mail with vb.net. the code for sending mail like below :

Dim mail As New MailMessage()
mail.From = New MailAddress(TextBox2.Text)
mail.To.Add(TextBox3.Text)

mail.Subject = TextBox4.Text
mail.Body = TextBox6.Text

mail.Priority = MailPriority.High

Dim att As New System.Net.Mail.Attachment(TextBox5.Text.Trim())
mail.Attachments.Add(att)

Dim smtp As New SmtpClient(TextBox1.Text)
If CheckBox1.Checked = True Then
smtp.Credentials = New System.Net.NetworkCredential(TextBox7.Text, TextBox8.Text)
End If

Me.Cursor = Cursors.AppStarting

Try
smtp.Send(mail)
MsgBox("Message successfull send to user.", MsgBoxStyle.Information, "Send Email")
Me.Cursor = Cursors.Arrow
mail.Dispose()
GC.Collect()
Me.Close()

Catch ex As Exception

mail.Dispose()
GC.Collect()
Me.Cursor = Cursors.Arrow
MsgBox(ex.Message, MsgBoxStyle.Critical, "Mail Error")
End Try

for sample code you can download via this link.

Show MS Office on Form VB.60

2010-02-13T02:43:00.000-08:00

With DSO Framer Active-X from microsoft we can add, show or edit ms office document direct via form on Visual basic 6.0. sometimes when create a project , we need interact with the from ms office like ms word or excel spreadsheet and show the data into form application for simplicity. at last project i use a browser for show data like ms word . but after found DSO Framer we can edit or add ms document direct from vb 6.0 form.
the active-x and sample project you can obtain via this link

Scan Image with WIA (windows image Acquisition) on VB.NET 2008 and VB 6.0

2010-01-17T06:48:00.000-08:00

Wia or windows Image Acquisiton is Library from microsoft for acquiring digital image from imaging device such as Scanner, Web cam, Video Camcorder and Etc. the latest version of WIA is WIA ver 2.0. to get this SDK you direct download Via microsoft or via Reliez.net.
on this project i try scan image from USB scanner and load the picture box with image result from scanner.
The project using microsoft visual studio 2008. before we started make code for wia, we must register wiaaut.dll from SDK with Regsvr32 wiaaut.dll. after that make reference on workspace with microsoft windows image acqusition library V.20.
For more detail you can download the sample project via this link reliez.net

and for SDK with this link,

Same Project but write with visual basic 6.0 you can visit this link : http://reliez.net/2010/01/24/windows-image-acquisition-on-vb-6-0/

Connect Mysql with VB.Net 2008

2010-01-09T21:41:00.001-08:00

On my Previous post we discussed Mysql and VB.60. now in this post we try to connected vb net 2008 with my sql server. same as like on VB 6.0, before we start coding for my sql we must installed mysql connecter for .net, you can download Mysql Connector for .net via reliez.net.

after installed the connector on project workspace, we must add reference to mysql.data. on this project same as like previous post for accesing database with.net , i used a class for accesing and give command to database, but in this project the connection for accesing database with connection string for mysql. the syntax code for connection class like below :

Imports MySql.Data.MySqlClient

Public Class mydb
Private mycon As New MySqlConnection("server=localhost;user id=root; database=cdcol; pooling=false;Connection Timeout=5")

Private mytable As DataTable

Public Sub New()

mycon.Open()
mytable = New DataTable

End Sub

Public Function QueryDatabase(ByVal Query As String) As DataTable
Try
Dim objDataSet As New DataSet
Dim objDataTable As New DataTable

Dim objDataAdapter As New MySqlDataAdapter(Query, mycon)

objDataAdapter.Fill(objDataSet, "DefaultTable")
objDataTable = objDataSet.Tables("DefaultTable")

mycon.Close()

Return objDataTable

Catch ex As Exception
MessageBox.Show(ex.Message, "DB ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return mytable
End Try
End Function

Public Sub DatabaseCommand(ByVal CommandString As String)
Try
Dim objInsert As New MySqlCommand

objInsert.CommandText = CommandString
objInsert.Connection = mycon
objInsert.Connection.Open()
objInsert.ExecuteNonQuery()
mycon.Close()

Catch ex As Exception
MessageBox.Show(ex.Message, "DB ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

for navigate data record from table you can see on sample project. you can download in here . for database i use database cdcoll. this default database on my sql when you intall sql with XAMPP from http://nat32.com/xampp.

Connect to MySql with VB 6.0

2009-11-15T03:28:00.001-08:00

before started make connection from vb 6.0 to mysql we must installed MYSQL-Connector-ODBC in your computer . you can find the mysql-odbc connector on mysql or you can download via http://reliez.net/download. after you installed you will find mysql driver on odbc data source. on this project will used DSN connection, and we must create dsn with the name cdcol. there another way for connection without dsn.

Code for connection with DSN like below;

Public Dbado As ADODB.Connection
Set Dbado = New ADODB.Connection
Dbado.Open "Dsn=cdcol"

for connection without DSN like below

Public Conn As New ADODB.Connection

private sub create_con
Dim ConnString As String

Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String

db_name = "databaseku" 'db name
db_server = "localhost" 'address your mysql server
db_port = "3306" 'default port is 3306
db_user = "root" 'user name
db_pass = "password" 'password for mysql

ConnString ="DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name &

";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"

With Conn
.ConnectionString = ConnString
.Open
End With
Exit Sub

download sample project via this link

Screen Resolution

2009-11-06T09:12:00.000-08:00

This just simple code to know what resolution currently used at the monitor. sometimes we need resize the resolution for exactly form at current resolution , here the code

Private Sub Form_Load()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
Text1.Text = ResWidth & "x" & ResHeight
End Sub

Paralel Port With Net 2005

2009-09-24T09:22:00.000-07:00

On previous posting i have write a project for visual basic 6.0 for parallel port using driver link. Now on the VB 2005 I try accessing parallel port using Inpout32.ddl from www.logix4u.net. This ddl is free so far the application not for commercial use. You can download inpout32.dll direct from logix4u, but on the test project I attach too for your download.

Before started, we must put or copy the inpout32.ddl into windows system 32. After that we add a module, and add the code below into module.

Option Explicit On

Module inpout

Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)

End Module

Add the form with radio button and button like below :
Ussualy on the PC only have one paralel port and the hexa address for this port is H378, but some PC have 2 paralal port , so the radio button give chance for PC with 2 paralel port to choice which Paralel will be used.

Another is 8 button to represent the data port on paralel port. So if press S0, the Data D0 should be ON and more for another Button. the meaning of value at LPT is status value on paralel port and for input value is the data value to sending paralel port.

For testing program you can create simple electronic circuit with LED (light emmiting diode) which connected into every data pin on paralel. The drawing of circuit like picture below. the resistor value at circuit is 470 OHM.

For source Code you can download in here.

Animation Character with MS Agent

2009-09-12T09:40:00.000-07:00

That nice if the application have animation for showing help or showing animation for notification for the user for
replace message box on visual basic. on visual basic we can add animation with speech on the program using microsoft
agent.

like on microsoft office 2000 or higher we will found character to show for help or search.microsoft agent have 4 character animations, Merlin, Peedy, Genie and Robby. each character should install first (
you can download in http://www.microsoft.com/products/msagent/main.aspx) , Some characters also shipped with
Microsoft Office up to version 2003 as the Office Assistants and with Windows XP as search assistants.For create app with ms agent character we must install MS-Agent first ( you can download here ), after that on
project component you can add MS-Agent Control into your project. another that you shuold install Microsoft
Text-to-Speech Engine , so the animation can speak by your define. you can download
sample about ms agent in here.

Insert Picture into DB on VB 6.0

2009-08-15T07:08:00.000-07:00

this code i write last years ago on a project atendance system on a company . the requirement should store a picture of employee on a table on database. after browse for many hours, finaly i found how to store graphic or picture into a database. the project use a Microsoft SQL Server , but in this sample used microsoft access for database.

Field for picture on the table should set data type to OLE Object , and code on vb use ADODb Stream for store picture on database.

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open

for complete sample you can download via this link

DB Connection on VB.NET with

2009-07-22T01:25:00.000-07:00

herewith is sample for connection database with oledb. the sample using microsoft access and for connection i using a class. the syntax for connection like below :

Imports System.Data.OleDb

Public Class dbcon
#Region "Variable Declerations"
Private objConnection As OleDbConnection
Private objDataTable As DataTable
#End Region

#Region "Constructors"

Public Sub New()
Dim dbpath As String = Application.StartupPath & "\test.mdb "
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & dbpath & "'; Jet OLEDB:database password=")
objDataTable = New DataTable
End Sub
#End Region

#Region "Methods"
Public Function QueryDatabase(ByVal Query As String) As DataTable
Try
Dim objDataSet As New DataSet
Dim objDataTable As New DataTable

Dim objDataAdapter As New OleDbDataAdapter(Query, objConnection)

objDataAdapter.Fill(objDataSet, "DefaultTable")
objDataTable = objDataSet.Tables("DefaultTable")

objConnection.Close()

Return objDataTable

Catch ex As Exception
Return objDataTable
MessageBox.Show(ex.Message, "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function

Public Sub DatabaseCommand(ByVal CommandString As String)
Try
Dim objInsert As New OleDbCommand

objInsert.CommandText = CommandString
objInsert.Connection = objConnection
objInsert.Connection.Open()
objInsert.ExecuteNonQuery()
objConnection.Close()

Catch ex As Exception
MessageBox.Show(ex.Message, "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
#End Region

End Class

The complete sample you can download in this link

MS Excell for Reporting On VB 6.0

2009-06-21T21:16:00.000-07:00

Create Report with Ms excell is alternative way for reporting on Visual Basic 6.0, maybe that is the simple way to create report, we just make reference on project with microsoft data access 2.5 or higher. the code like below;

Public vExcel As Excel.Application

Public Sub pOpenExcel()
Set vExcel = Nothing
Screen.MousePointer = vbHourglass

Set vExcel = CreateObject("Excel.Application")
Screen.MousePointer = vbDefault
End Sub

Private Sub Command1_Click()
Dim nb As Integer, startRow As Integer
Dim rsprint As ADODB.Recordset

recordset_conn rsprint, "select * from books"
If rsprint.RecordCount = 0 Then Exit Sub

Call pOpenExcel
vExcel.Workbooks.Add (App.Path & "\report.xlt")
vExcel.WindowState = xlMaximized
vExcel.Visible = True
startRow = 6

With vExcel.ActiveSheet

While Not rsprint.EOF
nb = nb + 1
'.cells(startRow + nb, 1).Value = nb
.Cells(startRow + nb, 1).Value = rsprint.Fields("title")
.Cells(startRow + nb, 2).Value = rsprint.Fields("author first name")
.Cells(startRow + nb, 3).Value = rsprint.Fields("category")
.Cells(startRow + nb, 4).Value = rsprint.Fields("price")
rsprint.MoveNext
Wend

End With

End Sub

For Complete Code you can download in here

Sending Fax with Vb 60

2009-05-20T18:43:00.000-07:00

based in this project maybe we can create a Fax Server for Office or we can just add litle this code to your app to gave function for sending FAX message. the program tested on windows XP proffesional, because on on xp proffesional there a FAX service.

For activate FAX service we can add component FAX service from control-panel/Add-remove windows component or from autorun disc windows XP proffesional which there a option for add windows component. after you successed activate Fax service on your computer, you can set your fax like name sender, phone number, modem type and etc. if it all ok, you will find fax icon on your printer and faxs folder.

dont forget to make reference the project with Faxcomm type library or Fax control library. the litle bit code for sending, you can see at below:

Dim oFaxServer As FAXCOMLib.FaxServer
Set oFaxServer = New FAXCOMLib.FaxServer
Dim oFaxDoc As FAXCOMLib.FaxDoc
oFaxServer.Connect nameComputer
oFaxServer.ServerCoverpage = 0
Set oFaxDoc = oFaxServer.CreateDocument(Text6.Text)

With oFaxDoc
.FaxNumber = Text2.Text
.DisplayName = nameComputer
.SenderName = Text4.Text
Dim lngSend As Long
lngSend = .Send
End With
Set oFaxDoc = Nothing
oFaxServer.Disconnect
Set oFaxServer = Nothing

for complete code you can download at here .

Media Player With VB 6.0

2009-03-29T01:15:00.001-07:00

MSDXM is component active-x from microsoft for windows media player. with this active-x we can create a program multimedia player. on this project my friend create a small program with VB 6.0 and Msdxm. this program for a souvenir for every guest when he decided to married.

the program burn to the cd and have autorun, the skin using they photgraph. i think thats is ver nice souvenir. if you want source code and active-x, you can download here or here

X-Riverside Down

2009-03-11T08:28:00.000-07:00

Hmm.. it bad news for me try to access x-riverside, it seem always be down and cannot be reached. Hmm .. i must decide new hosting for replace x-riverside.co.cc. but that is need time. sorry for this uncomfortable, hope in shortest time, i will have new hosting for x-riverside.

Serial Port with VB .NET 2005

2009-02-27T19:31:00.000-08:00

Herewith simple sample to write serial code on microsoft visual basic net 2005. the serial write on a class, sercomm.vb. this sample code, based on my old test app which write on VB 6.0.
serial port routine i put on a class. there some problem when firt time, the error "thread call safe!", always raise, every message on serial port try to show on text box on form. to avoid this i use delegate methode.

Complete sample code can be download at here .

NDC+ Mini Host Simulator with VB 6.0 Winsock

2009-02-12T00:36:00.000-08:00

Trully I made this application is use for testing the another friend who create a ATM Monitoring Alert System. The NDC+ Mini Host simulator have 2 Server Socket for ATM connection and 1 client socket to connect ATM monitoring Alert System.
The system work is, every mini host receive error or warning status from ATM machine in solicited or unsolicited, the mini host will pass that error message into client socket for ATM monitoring alert system for processing to get real information about error and delivered SMS or email notification to user or person in charge to handle ATM.
The NDC+ mini host simulator have function command or Load/Send Configuration Data into ATM machine, send Inservice command, Send Out Of Service Command, Get Hardware Fitness and get counter info. You can connect direct into the ATM Machine for test that command, but you cannot do transaction. Because I limited that function. The other the ATM simulator I have add to this project so you can send NDC+ solicited and unsolicited without using the Real ATM machine.

You can get this application in here , the application need VB 6.0 runtime files

Snip Network Traffic with Socket VB 6.0

2009-01-23T21:59:00.000-08:00

This project started when i try to capture every trafic on ether card on a pc for some purpose jobs. finally i found on the net article how to sniff data traffic on ether card, with this article i modified the code to suitable my project.
The active-x Kancut, have feature to snap infomation traffic from ether card, such as protocol name, destination address and port number, source address and port, data traffic, and time to live.
The sample code and Kancut active-x i put on here you free to download this application, just need register to enable download. in this sample you will find the ppacket, which the function to print packet to format hexa and asc. hope this sample will help you for your project .

Socket with VB.NET

2009-01-13T14:55:00.000-08:00

Herewith is a sample write a socket with visual basic.NET 2005, the application is chat with multi user. the socket in VB 6.0 and Visual basic .NET have big diffrent. On .NET we can write socket with thread technique.

In .NET system class library includes a namespace for working with TCP Sockets, the system.net.sockets namespace. The server application, consist 1 form, and two classes. the socket using TCP listener and code for listener is like below ;

Try
SListener = New TcpListener(Net.IPAddress.Any, SwitchPort)
SListener.Start()
Me.IsServerStarted = True

Do Until IsServerStarted = False
'Thread.Sleep(50)
Dim XClient As New RSockClient(SListener.AcceptSocket)

AddHandler XClient.Connected, AddressOf OnConnected
AddHandler XClient.Disconnected, AddressOf OnDisconnected
AddHandler XClient.LineReceived, AddressOf OnIncoming
AddHandler XClient.LineSend, AddressOf OnSend
SID.Add(XClient.ID, XClient)
RaiseEvent ServerStatus("Connection Accepted From = " & XClient.ID)
RaiseEvent Connected(XClient.ID)

Loop

Catch ex As Exception
RaiseEvent ServerStatus(ex.Message)
End Try

on .Net if we use thread and want access to the form! like textbox or label, we cannot access directly. the error will be raised and say the thread is not safe. from MSDN if found how to handle error like this. we must use delegate method to avoid non thread safe. you can see at my code sample which i put on here , any comment is welcome.

Capture video and picture with webcam on VB

2009-01-10T01:33:00.001-08:00

Do you see the application of enrolment for Driver licence or Passport ?, yes the application have capable to capture the registrant via webcam, before produce a card o driver licence or passport book. On Visual basic we can create application similar like that using ezvideo from Ray Mercer.The active-x is create based from VFWDK and VFW API for Windows. With this active-x we can capture the picture or record the video.

Before started the write code, we must have installed the webcam and ezvideo active-x. To installed ezvideo active-x, just copy file ezvidc60.ocx to the windows\system32\. After all ok you can started with put the ezvideo to your form. For start capture picture, you can add command button ot anything what you like and put the code like below ;

Call ezVidCap1.SaveDIB(FileName)

Filename is the target for saving the result of picture, for comfortable, you can add common dialog to put your file to locate which drive you want store the file.

With CD1
.FileName = ""
.Filter = "Bitmap files (*.bmp)*.bmp"
.ShowSave
End With
Call ezVidCap1.SaveDIB(CD1.FileName)

Another feature in ezvideo is you can record the video. the size and compression of video you choose via ezvideo. The sample program and ezvideo active-x I put on here , you free to download, but you must register first to able download

Control Paralel Port Via SMS

2009-01-04T05:23:00.000-08:00

Herewith is another project on visual basic 6.0, the main function this project is to control relay or switch which connected via parallel port and command for activate the relay or switch via Short messaging service .

Sometimes we want remote the peripheral using SMS from faraway location. Start with that, I try utilize my old pc and old nokia to implement this project. the work system on this project is, the first we must have database for store phone number which this database is for verification. If a number try send a sms to pc. The program will search sender number on database. If exist , the program will continue to parsing the content of message. If message is recognize and match with the list of command on system , the system will execute the message for active the parallel port.
The list of command we must defined first. For example , the command “ON _0”, the meaning this command is for activate parallel port for data line number “0”. On parallel port we only have 8 data line.
You have to think the value you give to the program as a binary number. Every bit of the binary number control one output bit. The following table describes the relation of the bits, parallel port output pins and the value of those bits.

Pin 2 3 4 5 6 7 8 9
Bit D0 D1 D2 D3 D4 D5 D6 D7
Value 1 2 4 8 16 32 64 128

For example if you want to set pins 2 and 3 to logic 1 (led on) then you have to output value 1+2=3. If you want to set on pins 3,5 and 6 then you need to output value 2+8+16=26. In this way you can calculate the value for any bit combination you want to output.
For SMS, the program using mfbus15.ocx for handle old nokia. The connection using serial port. Because using the old phone with the low speed The process for retrieve and sending data between phone and PC need a liltle long time. For the solutions we use the time counter to cheking message. Every 30 second program will be cheking the message to the phone.
Some electronic circuit for interface parallel port needed to peripheral in this project. or you can create simple tet device with LED, like picture below.

The project write using Visual basic 6.0, and use MS Access database for store phone number and message queue. Some active-x from another resource using in this project, Like ax-form extender for form resize, Mfbus15.ocx for accesing nokia phone for sms, and DriverLINX Port I/O Driver for Win95 and WinNT from Scientific Software Tools, Inc. all that active-x is freeware and free to use.
All active-x and code I put on here download section side code and free to download but need registration first .

Send and Receive SMS on VB with Mobile FBUS ActiveX

2009-01-01T05:42:00.000-08:00

One way to develop application on visual basic with capable send receive Short message service is using Mobile FBUS Active X. The Mobile FBUS ActiveX Control is a Visual Basic ActiveX control for use in Visual Basic 5.0 and above projects. The Mobile FBUS active-x connected to the serial port on PC through a FBUS cable.

The Mobile FBUS works with Nokia GSM phones with Nokia 51xx/61xx and 3210 models. The feature of mobile FBUS active-x is Free, Send SMS messages, manipulate operator logos, use monitoring, access phonebook and more.

To Connecting program and phone device we just define which serial port to be used. And after that we just add line code to connecting. For example we use com1 for connecting ;

MobileFBUSControl1.Connect “COM1”

No Need mscomm to handle serial port, and never worry about PDU (protocol data unit) for messaging for sending and receive message. For sending Message there a two optional type of message. The first is normal sending and other is Flash, when we use sending with flash message optional , the message will immediately show in main display of the telephone without user confirmation

For installation , you can download Mobile FBUS Active x from here . You need register for download, after that you can download that active-x. The file download Consist 3 main file . gjfbus15.dll ,MFBUS15.ocx,MFBUS15.oca, put all file under \SYSTEM (NT users to \SYSTEM32): The control is shown as "Mobile FBUS control v1.5" in the Visual Basic components list. At the zip file you can find sample program with Mobile FBUS active-X.

I think is easy and very hepfull using Mobile FBUS active-x on my project, but disadvantage this active x is the speed very slow. Maybe, because the mobile FBUS active-x only supported old nokia phone so the active-x running to slow and sometimes can cause the PC to hang. For that case I try put sequence for cheking and sending message in long timer.

Simple Programing Socket on Visual Basic 6.0

2008-12-14T14:42:00.000-08:00

Sometimes we need write program on vb which the program is have capable to connect to the other pc via TCP-IP, such a program chat, billing system on internet café or other. On Visual Basic 6.0, we can write program like that with winsock component, which the default component for visual basic for socket implementation.
On socket programming, there a two type for socket, the first is server socket and the other is Client socket. The server socket is used for server application and accept connection from a client. And the client socket is is used for program who want connect to the server.
For the server socket the most parameter is Port Number , so if the client want connect to the server must connect to that port number.
Is easy when write a socket server on visual basic, the first is add the winsock component to your form. And activate this socket just like this :
server(0).LocalPort = “5000”
server(0).Listen
with the code your winsock will be listen on your local IP and the port Number is 5000. you can test this socket or not, using command from console NETSTAT –an. If on your IP have port 5000 is listen, the meaning the socket is succefull open.
And for the client, you must set parameter for Server IP and Port Number want to be connected. The code like below.
client.Connect 127.0.0.1, 5000
The meaning this code is your application will be connected to IP 127.0.0.1 on port number 5000.
Simple sample for this socket I put on here , is easy to understand from this sample.

Serial Port On Visual Basic 6.0

2008-12-07T22:16:00.000-08:00

Maybe ? now Serial port is not to Popular like 5 years ago, Now USB replace for this port. All computer now equipped with USB port on Motherboard, Serial port go to legacy. Many device and peripheral using USB for standard connection to the PC. But not all device using USB, some modem and device still using Serial Port, commonly for device on ATM or on machinery.

On Visual basic 6.0 , Serial Port handled by MSCOMM component. It’so easy to access serial port on visual basic. when you starting a program with serial comm., just drag and drop mscomm component to your project. On mscomm now you must set parameter for this mscomm, such baud rate, port number, handshake and other.
After you have set parameter for mscomm, now you can open this mscomm with this command:
Mscomm1.portopen = true
Now you can send the message or command to your device , for commonly if the device is modem ,you can test connection between serial port and modem, with command ATE1, if reply from modem is OK, the meaning connection between Serial and modem is OK.

When I was college I write a simple program using serial port to make connection between 2 computer using serial and laser transceiver. You can have this sample by download onhere

the diagram and loopback test connection you can use this drawing.

Reliez

2008-12-06T19:32:00.000-08:00

Relliez is a ATM-C (atm-controller) Simulator. Developed with Microsoft Visual Basic 6.0 and MS SQL Server for database. Relliez written for testing and develop ATM application with TCP-IP protocol, because on Reliez have many profile configuration for most bank on Indonesian.
Relliez can handle connection until 20 connections of ATM, and on Relliez Built in with Card Management Simulator and profile management configurator. For TCP-IP communication Relliez have four header type for Cheking the message.
The feature of Reliez 1.0
• Handle Connetion until 20 ATM, which each ATM used own port number, so one atm using one socket on reliez side.
• TCP-IP Communication with 4 type of Header.
• Support NDC and DDC emulation.
• Profile Management, each ATM connected have own profile, so we can set-up the machine can be different with the other terminal on same time.
• Built in with card management simulator
• Built in with Security module simulator, with DES encryption.
• ATM Monitoring, every status and error will displayed on status terminal.
• Customize configuration for each ATM.
• TCP-IP line Comm Monitoring
• Data Traffic Console, for easy to showing the data between ATM And relliez.
• Transaction traffic console.

Reliez WebCam Journal.

2008-12-06T19:26:00.000-08:00

Every ATM must be equipped with journal printer, which the function of device is to record every transaction and every activity on ATM. For example, when we open the door and brandkast, journal will write this activity on journal including day and time.
On a transaction, journal will write this transaction regarding the command from ATM controller for this transaction. For example a journal record the transaction like below.
936DF9F8
RELIEZ AUTOCASH
ATM02101
25/01/06 12:11:53
ATM SUNSET MALL
NO REF. : 870
BALANCE INQUIRY
ACC NO.:0214030438
BALANCE : $. 450,000
THANK YOU
FOR USING RELIEZ AUTOCASH
From that journal we know on 25/01/06 somebody with account 0214030438 have made balance inquiry transaction, but we don’t know somebody that a realy cardholder or not.

Beside that I try write small program, which this program capable to capture face of customer via webcam installed on atm and the result of picture integrated with Journal Data, Like Below;

The program very small and wite with MS Visual Basic 6.0. The camera can using Standard Webcam which connected to USB Port on computer on ATM. The Application installed together with ATM application on same computer. Because the Reliez Webcam ATM is very small this not to disturb ATM Apllication on running system. When the application active, just running on task-bar.
This is very quick and cheap solution for bank to get rich information from they ATM journal.