CodeGuru Forums - Visual Basic .NET http://forums.codeguru.com/ Microsoft Visual Basic .NET and related questions. en Thu, 23 May 2013 07:09:29 GMT vBulletin 60 http://forums.codeguru.com/images/misc/rss.png CodeGuru Forums - Visual Basic .NET http://forums.codeguru.com/ CRC calculation implementation HELL.. http://forums.codeguru.com/showthread.php?537231-CRC-calculation-implementation-HELL..&goto=newpost Thu, 23 May 2013 07:03:09 GMT >= 1; } return(n); } unsigned CRCof (const char *message, unsigned len) { unsigned i; unsigned crc; unsigned char k; crc = 0; for (i=0; i 0) Then Result = Result Xor &HC001 End If Next CRC = ToByteArray(Result) End Function Friend Function BitsSet(ByVal data As UInt32) As Byte BitsSet = 0 While data BitsSet += (data And 1) data >>= 1 End While End Function --------- Now no matter what i send to the device it always reply's with CRC error "GL!ER20A624" (the last 4 digits are the modules calculated CRC)... And if i send the module some Garbage i get a Invalid request "GL!ER2166E5".. now using my code i'm trying to replicate the CRC, with 0 luck .... What have i converted incorrectly ???? I just cant see it.....]]> So now i can comms with the device, however the CRC calculation does not work correctly... (I have 0 access to the Firmware) but the suppliers graciously gave us the CRC calculation in C++, which is as such
Code:
static unsigned BitsSet (unsigned char ch)
{
    unsigned n;
    n = 0;
    while (ch)
    {
        n += (ch & 1);
        ch >>= 1;
    }
    return(n);
}

unsigned CRCof (const char *message, unsigned len)
{
    unsigned i;
    unsigned crc;
    unsigned char k;
    crc = 0;
    for (i=0; i<len; i++)
    {
        k = (unsigned char)(message[i]) ^ crc;
        crc = (crc / 256) ^ (k*128) ^ (k*64);
        if ((BitsSet(k) & 1) != 0)
            crc ^= 0xC001;
        }
    return(crc);
}
Now my VB implementation
Code:
        Friend Function CRC(ByVal ParamArray Msg As Byte()) As Byte() 'CRC is 2 byte length
            Dim Result As UInt16 = 0
            Dim tmpB As Byte = 0
            Dim tmpint As Integer
            For tmpint = 0 To Msg.Length - 1
                tmpB = Msg(tmpint) Xor Result And &HFF
                Result = (Result \ 256) Xor (tmpB * 128) Xor (tmpB * 64)
                If ((BitsSet(tmpUint) And 1) <> 0) Then
                    Result = Result Xor &HC001
                End If
            Next
            CRC = ToByteArray(Result)
        End Function

        Friend Function BitsSet(ByVal data As UInt32) As Byte
            BitsSet = 0
            While data
                BitsSet += (data And 1)
                data >>= 1
            End While
        End Function
Now no matter what i send to the device it always reply's with CRC error "GL!ER20A624" (the last 4 digits are the modules calculated CRC)... And if i send the module some Garbage i get a Invalid request "GL!ER2166E5"..

now using my code i'm trying to replicate the CRC, with 0 luck ....

What have i converted incorrectly ???? I just cant see it..... ]]> Visual Basic .NET GremlinSA http://forums.codeguru.com/showthread.php?537231-CRC-calculation-implementation-HELL.. <![CDATA[[RESOLVED] Com Ports in a Service...]]> http://forums.codeguru.com/showthread.php?537211-RESOLVED-Com-Ports-in-a-Service...&goto=newpost Wed, 22 May 2013 10:48:06 GMT 1 Then _Modonline = True End If End If --------- And the related code in the class is Code: --------- Public Function SearchModules(ByRef Modules As List(Of ComVals.ModList)) As Boolean Dim AllPorts() As Byte ReDim AllPorts(0) Get_Port_List(AllPorts) If _Debug Then RaiseEvent DebugE("Port Scanning: " & AllPorts.Length) End If Locate_Module(AllPorts, Modules) End Function Private Sub Get_Port_List(ByRef Ports() As Byte) ' Get all available COM ports. Dim Tmp_L As Long ReDim Ports(0) For Each SPort As String In My.Computer.Ports.SerialPortNames Try ReDim Preserve Ports(Tmp_L) Ports(Tmp_L) = CByte(SPort.Substring(3)) Tmp_L += 1 Catch ex As Exception ReDim Preserve Ports(Tmp_L - 1) End Try Next End Sub Private Sub Locate_Module(ByVal Ports() As Byte, ByRef Modules As List(Of ComVals.ModList)) Dim TmpStr As String Dim TmpMod As ComVals.ModList Modules = New List(Of ComVals.ModList) For Each Comm In Ports If _Debug Then RaiseEvent DebugE("Com Port: " & Comm) End If ModComms = New ComObject(_Debug) ModComms.OPEN(Comm) If _Debug Then RaiseEvent DebugE("Checking Module on Com" & Comm) End If If ModComms.CheckModem() Then If _Debug Then RaiseEvent DebugE("Reply from Module") End If TmpStr = ModComms.GetID() TmpMod = New ComVals.ModList TmpMod.Name = TmpStr TmpMod.Port = Comm TmpMod.ID = Comm Modules.Add(TmpMod) End If ModComms.Close() ModComms = Nothing Next End Sub --------- Now you might notice that i then have a wrapped the Actual serialport with ComObject.. this was intentially done for Multiple Modules to work simultaneously, as needed.. the important ComObject code is Code: --------- Public Const cmd_Get_Ident As String = "SM?ID" Public Sub OPEN(ByVal Port As String) RaiseEvent DebugE("opening port:" & Port) Try Comms = New System.IO.Ports.SerialPort Comms.Encoding = System.Text.ASCIIEncoding.Default Comms.Handshake = IO.Ports.Handshake.None Comms.BaudRate = 9600 Comms.DataBits = 8 Comms.Parity = IO.Ports.Parity.None Comms.StopBits = IO.Ports.StopBits.One Comms.PortName = "COM" & Port Comms.ReceivedBytesThreshold = 1 Comms.Open() _Status = ComVals.StatusObj.Port_Open WDTimer = New System.Timers.Timer WDTimer.Enabled = False WDTimer.Interval = 500 WDTimer.AutoReset = True WDTimer.Enabled = True RaiseEvent DebugE("Port OPEN") Catch ex As Exception Comms = Nothing _Status = ComVals.StatusObj.Port_Error RaiseEvent DebugE("Port Error : " & ex.ToString) End Try End Sub Public Sub New(ByVal Debug As Boolean) _Debug = Debug _Progress = ComVals.ProgressObj.Offline _Nulls = "" For TmpInt = 0 To 40 _Nulls = _Nulls & Chr(0) Next _ReadData = ComVals.DataObj.No_data _Status = ComVals.StatusObj.Port_Close End Sub Public Function CheckModem() As Boolean _ConfigMode = True ReplyReceived = False _Status = ComVals.StatusObj.Port_Scan SendModemData(BuildOutput(cmd_Get_Ident)) Threading.Thread.Sleep(100) If ReplyReceived Then Return True Else Return False End If End Function Public Function GetID() As String _ConfigMode = True ReplyReceived = False _Status = ComVals.StatusObj.Port_Open SendModemData(BuildOutput(cmd_Get_Ident)) Threading.Thread.Sleep(100) If ReplyReceived Then Return _InBuffer Else Return "ER" End If End Function Private Function BuildOutput(ByVal Input As String) As Byte() Dim TmpCRC As Byte() Dim tmpint As Integer Dim Output As Byte() Output = ToByteArray(Input) TmpCRC = CRC(Output) tmpint = Output.Length ReDim Preserve Output(tmpint + 5) For loop1 As Integer = 0 To 3 Output(tmpint + loop1) = TmpCRC(loop1) Next Output(tmpint + 4) = 10 Output(tmpint + 5) = 13 Return Output End Function Private Sub SendModemData(ByVal Input As Byte()) Dim Strlen As String = "" Try If _Debug Then For counter = 0 To Input.Length - 1 Strlen += Hex(Input(counter)) & ";" Next RaiseEvent DebugE("PORT Output:" & Strlen) End If Comms.Write(Input, 0, Input.Length) ' Pause and wait for reply. System.Threading.Thread.Sleep(_SleepTime) If _Debug Then RaiseEvent DebugE("After " & _SleepTime & "ms :" & Comms.BytesToRead & " Bytes in buffer") End If Catch ex As Exception _Status = ComVals.StatusObj.Port_Error RaiseEvent DebugE("Port Error : " & ex.ToString) End Try End Sub Private Sub Comms_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Comms.DataReceived If _Debug Then RaiseEvent DebugE("Port Incomming") End If _InBuffer = "" Dim Tmpcnt As Integer = 0 Dim Strlen As String = "" Try Do Do _InBuffer = _InBuffer & Chr(Comms.ReadByte) Loop Until Comms.BytesToRead = 0 ''''Pause and let the buffer fill up ... System.Threading.Thread.Sleep(_BufferTime) Loop Until Comms.BytesToRead = 0 Catch ex As Exception _Status = ComVals.StatusObj.Port_Error _Err = ex.ToString End Try 'Lets start working with the data.. If _Debug Then RaiseEvent DebugE("PORT Input:" & _InBuffer) End If Select Case _Status Case ComVals.StatusObj.Port_Scan If _InBuffer.StartsWith("SM!ID") Then ReplyReceived = True Exit Sub End If End Select End Sub --------- What have i done wrong, that the service simply does not wana connect to the serial port ???? Must i use a different serial object... Been going nuts on this for the last week now.... Please help .....]]> Quick Background...

For a Specific system that we're developing we have certain USB Modules that connect to a Server, these modules use a pretty standard USB - Serial chip, so they look like Com ports to the OS.. we then send commands back and forth via serial coms..

USB - Serial is pretty standard stuff for us, and have several different products that work this way, and we coms with them very well, and can even handle the fact that USB can been unplugged and plugged back in, Anywhere..

Using a Normal Windows Forms Application, the Module coms works 100%.. I can detect the port, probe the device, and get a result...

However, once the identical code runs as a Installed service (Local System), using sc create "Service Name" binpath= "FULL PATH TO EXECUTABLE" start= auto , is where the 'FUN' starts.... BTW, the EXE is a Windows service project...

Because the Service is Formless, and has no MSGbox's, I write debug info to a log file.. (even in the Form app)

Bellow is the Form App log..
Quote:
2013/05/22 12:17:10 PM , Scanning Comm ports
2013/05/22 12:17:10 PM , Port Scanning: 1
2013/05/22 12:17:10 PM , Com Port: 5
2013/05/22 12:17:10 PM , opening port:5
2013/05/22 12:17:10 PM , Port OPEN
2013/05/22 12:17:10 PM , Checking Module on Com5
2013/05/22 12:17:10 PM , PORT Output:53;4D;3F;49;44;DA;AB;89;24;A;D;
2013/05/22 12:17:10 PM , Port Incomming
2013/05/22 12:17:10 PM , PORT Input:GL!ER2166E5
Ok yes the module sends back an Error report, (something not quite right in the CRC i'm sending it), however i get a reply from it...

Now with the service App I get the following...
Quote:
2013/05/22 12:14:31 PM , Scanning Comm ports
2013/05/22 12:14:31 PM , Port Scanning: 1
2013/05/22 12:14:31 PM , Com Port: 5
2013/05/22 12:14:31 PM , opening port:5
2013/05/22 12:14:31 PM , Port Error : System.IO.IOException: The port 'COM5' does not exist.
at System.IO.Ports.InternalResources.WinIOError(Int32 errorCode, String str)
at System.IO.Ports.SerialStream..ctor(String portName, Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Int32 readTimeout, Int32 writeTimeout, Handshake handshake, Boolean dtrEnable, Boolean rtsEnable, Boolean discardNull, Byte parityReplace)
at System.IO.Ports.SerialPort.Open()
at Prism_Comms.Prism.ComObject.OPEN(String Port) in C:\Work\CF4Source\Prism_Comms\PrismComms.vb:line 113
2013/05/22 12:14:31 PM , Checking Module on Com5
2013/05/22 12:14:31 PM , PORT Output:53;4D;3F;49;44;DA;AB;89;24;A;D;
2013/05/22 12:14:31 PM , Port Error : System.NullReferenceException: Object reference not set to an instance of an object.
at Prism_Comms.Prism.ComObject.SendModemData(Byte[] Input) in C:\Work\CF4Source\Prism_Comms\PrismComms.vb:line 247
Now the Class project 'PrismComms' is the identicle file for both.. and essentially the code in there is called as such
Code:
        Port = New Prism_Comms.Prism.PrismComms(Debuglog)
        If Port.SearchModules(Modules) Then
            If Modules.Count > 1 Then
                _Modonline = True
            End If
        End If
And the related code in the class is
Code:
        Public Function SearchModules(ByRef Modules As List(Of ComVals.ModList)) As Boolean
            Dim AllPorts() As Byte
            ReDim AllPorts(0)
            Get_Port_List(AllPorts)
            If _Debug Then
                RaiseEvent DebugE("Port Scanning: " & AllPorts.Length)
            End If
            Locate_Module(AllPorts, Modules)
        End Function

        Private Sub Get_Port_List(ByRef Ports() As Byte)
            ' Get all available COM ports.
            Dim Tmp_L As Long
            ReDim Ports(0)
            For Each SPort As String In My.Computer.Ports.SerialPortNames
                Try
                    ReDim Preserve Ports(Tmp_L)
                    Ports(Tmp_L) = CByte(SPort.Substring(3))
                    Tmp_L += 1
                Catch ex As Exception
                    ReDim Preserve Ports(Tmp_L - 1)
                End Try
            Next

        End Sub

        Private Sub Locate_Module(ByVal Ports() As Byte, ByRef Modules As List(Of ComVals.ModList))
            Dim TmpStr As String
            Dim TmpMod As ComVals.ModList
            Modules = New List(Of ComVals.ModList)
            For Each Comm In Ports
                If _Debug Then
                    RaiseEvent DebugE("Com Port: " & Comm)
                End If
                ModComms = New ComObject(_Debug)
                ModComms.OPEN(Comm)
                If _Debug Then
                    RaiseEvent DebugE("Checking Module on Com" & Comm)
                End If
                If ModComms.CheckModem() Then
                    If _Debug Then
                        RaiseEvent DebugE("Reply from Module")
                    End If
                    TmpStr = ModComms.GetID()
                    TmpMod = New ComVals.ModList
                    TmpMod.Name = TmpStr
                    TmpMod.Port = Comm
                    TmpMod.ID = Comm
                    Modules.Add(TmpMod)
                End If
                ModComms.Close()
                ModComms = Nothing
            Next
        End Sub
Now you might notice that i then have a wrapped the Actual serialport with ComObject.. this was intentially done for Multiple Modules to work simultaneously, as needed.. the important ComObject code is
Code:
        Public Const cmd_Get_Ident As String = "SM?ID"

        Public Sub OPEN(ByVal Port As String)
            RaiseEvent DebugE("opening port:" & Port)
            Try
                Comms = New System.IO.Ports.SerialPort
                Comms.Encoding = System.Text.ASCIIEncoding.Default
                Comms.Handshake = IO.Ports.Handshake.None
                Comms.BaudRate = 9600
                Comms.DataBits = 8
                Comms.Parity = IO.Ports.Parity.None
                Comms.StopBits = IO.Ports.StopBits.One
                Comms.PortName = "COM" & Port
                Comms.ReceivedBytesThreshold = 1
                Comms.Open()
                _Status = ComVals.StatusObj.Port_Open
                WDTimer = New System.Timers.Timer
                WDTimer.Enabled = False
                WDTimer.Interval = 500
                WDTimer.AutoReset = True
                WDTimer.Enabled = True
                RaiseEvent DebugE("Port OPEN")
            Catch ex As Exception
                Comms = Nothing
                _Status = ComVals.StatusObj.Port_Error
                RaiseEvent DebugE("Port Error : " & ex.ToString)
            End Try
        End Sub

        Public Sub New(ByVal Debug As Boolean)
            _Debug = Debug
            _Progress = ComVals.ProgressObj.Offline
            _Nulls = ""
            For TmpInt = 0 To 40
                _Nulls = _Nulls & Chr(0)
            Next
            _ReadData = ComVals.DataObj.No_data
            _Status = ComVals.StatusObj.Port_Close
        End Sub

        Public Function CheckModem() As Boolean
            _ConfigMode = True
            ReplyReceived = False
            _Status = ComVals.StatusObj.Port_Scan
            SendModemData(BuildOutput(cmd_Get_Ident))
            Threading.Thread.Sleep(100)
            If ReplyReceived Then
                Return True
            Else
                Return False
            End If
        End Function

        Public Function GetID() As String
            _ConfigMode = True
            ReplyReceived = False
            _Status = ComVals.StatusObj.Port_Open
            SendModemData(BuildOutput(cmd_Get_Ident))
            Threading.Thread.Sleep(100)
            If ReplyReceived Then
                Return _InBuffer
            Else
                Return "ER"
            End If
        End Function

        Private Function BuildOutput(ByVal Input As String) As Byte()
            Dim TmpCRC As Byte()
            Dim tmpint As Integer
            Dim Output As Byte()
            Output = ToByteArray(Input)
            TmpCRC = CRC(Output)
            tmpint = Output.Length
            ReDim Preserve Output(tmpint + 5)
            For loop1 As Integer = 0 To 3
                Output(tmpint + loop1) = TmpCRC(loop1)
            Next
            Output(tmpint + 4) = 10
            Output(tmpint + 5) = 13
            Return Output
        End Function


        Private Sub SendModemData(ByVal Input As Byte())
            Dim Strlen As String = ""
            Try
                If _Debug Then
                    For counter = 0 To Input.Length - 1
                        Strlen += Hex(Input(counter)) & ";"
                    Next
                    RaiseEvent DebugE("PORT Output:" & Strlen)
                End If
                Comms.Write(Input, 0, Input.Length)
                ' Pause and wait for reply.
                System.Threading.Thread.Sleep(_SleepTime)

                If _Debug Then
                    RaiseEvent DebugE("After " & _SleepTime & "ms :" & Comms.BytesToRead & " Bytes in buffer")
                End If

            Catch ex As Exception
                _Status = ComVals.StatusObj.Port_Error
                RaiseEvent DebugE("Port Error : " & ex.ToString)
            End Try
        End Sub

        Private Sub Comms_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Comms.DataReceived
            If _Debug Then
                RaiseEvent DebugE("Port Incomming")
            End If
            _InBuffer = ""
            Dim Tmpcnt As Integer = 0
            Dim Strlen As String = ""
            Try
                Do
                    Do
                        _InBuffer = _InBuffer & Chr(Comms.ReadByte)
                    Loop Until Comms.BytesToRead = 0
                    ''''Pause and let the buffer fill up ...
                    System.Threading.Thread.Sleep(_BufferTime)
                Loop Until Comms.BytesToRead = 0
            Catch ex As Exception
                _Status = ComVals.StatusObj.Port_Error
                _Err = ex.ToString
            End Try
            'Lets start working with the data..
            If _Debug Then
                RaiseEvent DebugE("PORT Input:" & _InBuffer)
            End If

            Select Case _Status
                Case ComVals.StatusObj.Port_Scan
                    If _InBuffer.StartsWith("SM!ID") Then
                        ReplyReceived = True
                        Exit Sub
                    End If
            End Select

        End Sub
What have i done wrong, that the service simply does not wana connect to the serial port ???? Must i use a different serial object... Been going nuts on this for the last week now.... Please help ..... ]]> Visual Basic .NET GremlinSA http://forums.codeguru.com/showthread.php?537211-RESOLVED-Com-Ports-in-a-Service... <![CDATA[Determine if a DataGridView's horizontal scroll bar exists?]]> http://forums.codeguru.com/showthread.php?537179-Determine-if-a-DataGridView-s-horizontal-scroll-bar-exists&goto=newpost Tue, 21 May 2013 15:29:28 GMT Visual Basic 2010, .NET 3.5 Is there a way to pragmatically determine if a DataGridView's horizontal scroll bar is active or visible? I need to move a few items about when the DGV's horizontal scroll bar comes on ]]> Visual Basic .NET DinoVaught http://forums.codeguru.com/showthread.php?537179-Determine-if-a-DataGridView-s-horizontal-scroll-bar-exists Get Grayscale Value of grayscale image (RGB) http://forums.codeguru.com/showthread.php?537137-Get-Grayscale-Value-of-grayscale-image-(RGB)&goto=newpost Mon, 20 May 2013 07:09:30 GMT I'm making simple application for image recognition using grayscale image format. The problem is how to get the value of a grayscale image. Its value is RGB or pixel. Then the value will be used as a comparison between the sample images with the image to be recognized.

I have a sample program but can not use this code to VB.net, because the code for vb.6. Can someone help me convert this code to vb.net? Or do you have another solution?

I was more expecting another solution to this problem in VB.net code.

Thank you very much
Code:
For Y = 1 to Picture1.scaleheight
For x = 1 to Picture1.ScaleWidht

p = Get pixel (picture1.hdc, X,Y)
r= p and &HFF
g = (p\&H100)and &HFF
b = (p\&H10000)and &HFF

grtotr=grtotr + r
grratr = Round(gtotr/(picture1.ScaleHeight*Picture1.Scalewidht),2)

grtotg=grtotg + g
grratg = Round(gtotg/(picture1.ScaleHeight*Picture1.Scalewidht),2)

grtotb=grtotb + b
grratb = Round(gtotb/(picture1.ScaleHeight*Picture1.Scalewidht),2)

Next
Next
' the result of the calculation transferred to textbox
Text1.text = grratr ' R value
Text2.text = ggratg 'G value
Text3.text = ggratb ' B value
]]> Visual Basic .NET Jamil Nur M http://forums.codeguru.com/showthread.php?537137-Get-Grayscale-Value-of-grayscale-image-(RGB) Saving Controls to File - Help! http://forums.codeguru.com/showthread.php?537073-Saving-Controls-to-File-Help!&goto=newpost Fri, 17 May 2013 16:27:15 GMT In VB 2005, I have a form with a panel control. On right-click of the panel, a context menu displays different types of controls the user can add (at runtime) to the form by clicking the menu items. At runtime, the user adds a variable number of different controls to the form by performing this task mutliple times.

My goal is to have the form remember all of the controls upon form.closing and reload them on form.load, but I'm not sure how to go about translating between control objects and text. Ideally, I'd like to iterate through the panel's controls, and write all properties of each control to a file; but I have no idea how to translate a control object into text (capturing -all- of its properties), or vice versa (creating a control from a comprehensive property list in text/list/etc).

I'd also like to be able to store all of the parent form's controls and their properties, and the form's global variables. Depending on how this can be achieved, I might need to use multiple files for persisting the data (maybe even one per control), but I'm stuck at the translation part.

It's not as easy as grabbing a textbox's .text property, because I also need its .backcolor and everything else. Additionally, some controls have properties that others don't have; so if I wrote a method to iterate through a passed control's .backcolor, .borderstyle, ... , .tag, .text, ... then I'd miss the unique ones (like listbox/combobox .items, checkbox .checked, etc). Is there a way to simply iterate through all properties of a given control and reference the name and value of each?

Help! ]]> Visual Basic .NET aatc1985 http://forums.codeguru.com/showthread.php?537073-Saving-Controls-to-File-Help! Convert PDF to other formats, Add Floating Boxes in New or Existence PDF Files http://forums.codeguru.com/showthread.php?537063-Convert-PDF-to-other-formats-Add-Floating-Boxes-in-New-or-Existence-PDF-Files&goto=newpost Fri, 17 May 2013 09:58:55 GMT The latest version of * Aspose.Pdf for .NET (8.0.0) (http://www.aspose.com/community/files/51/.net-components/aspose.pdf-for-.net/entry466094.aspx)* has been released. This release includes better support for existing file manipulation. This new release has specific improvements for PDF printing, PDF to DOC, XPS and various image format conversions. We have also focused on watermarking, text extraction, PDF compression and bookmarking functionalities. Please note that we recently introduced an Examples dashboard which contains code examples for Aspose.Total for .NET products. From this release, the Examples dashboard is part of the product installer. So once you have installed this new version, you can find the Examples dashboard in the Examples folder in * Aspose.Pdf for .NET’s (http://www.aspose.com/.net/pdf-component.aspx)* product installation directory. This release includes plenty of new and improved features as listed below • Disable paging in PDF document • Update Validate(..) method to take Stream object as an argument • Examples dashboard with Aspose.Pdf for .NET • Cell Text Wrapping issue in Table Row is fixed • PDF to PNG conversion issue is resolved • Complete text is now extracted from PDF file • Using unicode characters in TOC • Unable to extract/get page number information regarding bookmarks • Pdf printing now working printing images • PDF to PNG: Conversion process hanging is fixed • Image rendered as black while converting Pdf to JPG is fixed • Printing halting is resolved for indefinite time • While printing using PdfViewer, data missing in footer is fixed • Opacity property of FreeTextAnnotation is now working • PDF to XPS: resultant file is now corrected • PDF to DOC: Bullets and frame container missing is fixed • OptimizeResources(), error message is fixed when viewing resultant PDF • FreeTextAnnotation contains multiline international characters, result is broken • Multi-page table rendering properly is fixed • Error fixed while concatenating PDF files • Watermark is now being added to PDF document • Checkboxes appearanceis fixed on first page footer and remaining pages • All output PDFs are of the same size as input PDF • How to embed and extract blank data in XMP • While filling a richtextbox field, line break tag in XML not working • Unable to clear Keywords property is now fixed • Process hanging is fixed while converting Pdf to Tiff • Aspose.PDF 7.8 is showing missing dependency error is now fixed • PDF concatenation, bookmarks are now being included in resultant file • Concatenate attached Pdf files is now fixed • Assemblies referenced in Aspose.Pdf for .Net 7.8.0 but missing in build is fixed • Multiline TexboxField now honor new line • Textfragment now implementing Bold and italic fontstyles simultaneously • Different footer on last page of PDF file is resolved Other most recent bug fixes are also included in this release. The latest version of Aspose.Pdf for .NET (8.0.0) has been released. This release includes better support for existing file manipulation. This new release has specific improvements for PDF printing, PDF to DOC, XPS and various image format conversions. We have also focused on watermarking, text extraction, PDF compression and bookmarking functionalities. Please note that we recently introduced an Examples dashboard which contains code examples for Aspose.Total for .NET products. From this release, the Examples dashboard is part of the product installer. So once you have installed this new version, you can find the Examples dashboard in the Examples folder in Aspose.Pdf for .NET’s product installation directory. This release includes plenty of new and improved features as listed below

• Disable paging in PDF document
• Update Validate(..) method to take Stream object as an argument
• Examples dashboard with Aspose.Pdf for .NET
• Cell Text Wrapping issue in Table Row is fixed
• PDF to PNG conversion issue is resolved
• Complete text is now extracted from PDF file
• Using unicode characters in TOC
• Unable to extract/get page number information regarding bookmarks
• Pdf printing now working printing images
• PDF to PNG: Conversion process hanging is fixed
• Image rendered as black while converting Pdf to JPG is fixed
• Printing halting is resolved for indefinite time
• While printing using PdfViewer, data missing in footer is fixed
• Opacity property of FreeTextAnnotation is now working
• PDF to XPS: resultant file is now corrected
• PDF to DOC: Bullets and frame container missing is fixed
• OptimizeResources(), error message is fixed when viewing resultant PDF
• FreeTextAnnotation contains multiline international characters, result is broken
• Multi-page table rendering properly is fixed
• Error fixed while concatenating PDF files
• Watermark is now being added to PDF document
• Checkboxes appearanceis fixed on first page footer and remaining pages
• All output PDFs are of the same size as input PDF
• How to embed and extract blank data in XMP
• While filling a richtextbox field, line break tag in XML not working
• Unable to clear Keywords property is now fixed
• Process hanging is fixed while converting Pdf to Tiff
• Aspose.PDF 7.8 is showing missing dependency error is now fixed
• PDF concatenation, bookmarks are now being included in resultant file
• Concatenate attached Pdf files is now fixed
• Assemblies referenced in Aspose.Pdf for .Net 7.8.0 but missing in build is fixed
• Multiline TexboxField now honor new line
• Textfragment now implementing Bold and italic fontstyles simultaneously
• Different footer on last page of PDF file is resolved

Other most recent bug fixes are also included in this release. ]]> Visual Basic .NET aspose http://forums.codeguru.com/showthread.php?537063-Convert-PDF-to-other-formats-Add-Floating-Boxes-in-New-or-Existence-PDF-Files Datagridview Checkbox http://forums.codeguru.com/showthread.php?536949-Datagridview-Checkbox&goto=newpost Mon, 13 May 2013 11:12:03 GMT Hi all,

I have the following codes:

Code:
    Private Sub dgCustomerPackage_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgCustomerPackage.CellClick
        If TypeOf dgCustomerPackage.CurrentCell Is DataGridViewCheckBoxCell Then
            If 1 + 1 = 2 Then
                dgCustomerPackage.CurrentRow.Cells("colchkSelect").Value = 0
            Else
                dgCustomerPackage.CurrentRow.Cells("colchkSelect").Value = 1
            End If
        End If
    End Sub
I am wondering why my "colchkSelect" will be checked even though the above codes showing that it should not be checked when the cell click event? ]]> Visual Basic .NET daniel50096230 http://forums.codeguru.com/showthread.php?536949-Datagridview-Checkbox (VB)-media control interface using V.Studio 2008??? http://forums.codeguru.com/showthread.php?536937-(VB)-media-control-interface-using-V.Studio-2008&goto=newpost Sun, 12 May 2013 22:10:54 GMT Hello,

I had installed visual basic 6.0 on my pc and I used the Microsoft Multimedia Control 6.0(SP3) component when I wanted to add Media Control Interface-MCI Control on my project.

Now I use visual Studio.net 2008 and I don't know how to add MCI Control on my project. There is no such object on toolbox. Can you help me?

Thank you in advance ]]> Visual Basic .NET menmas http://forums.codeguru.com/showthread.php?536937-(VB)-media-control-interface-using-V.Studio-2008 Send UDP data to an iPhone app http://forums.codeguru.com/showthread.php?536883-Send-UDP-data-to-an-iPhone-app&goto=newpost Thu, 09 May 2013 10:45:21 GMT Hi to all,
I have developed an iPhone/iPad app called iDatanet which lets you listen to a stream of UDP data off a specified port with a very simple protocol:
iDataNet@var1;val1@var2;val2@var3;val3 (… etc …)

I have a devloped quite a few programs in Visual Basic .Net which send data over the wifi using this UDP protocol to the app.
It works great, but I need some people to help me test it out and see if there are any bugs.
The app is currently free and can be downloaded at:
https://itunes.apple.com/us/app/idat...8907?ls=1&mt=8

In the app you can then configure various pages with displays showing the incoming pairs of variables (or labels) and values (which can be numbers or words).
If you need some VB code send me a private message and I will email it to you. Also I would be curious to hear if people have an idea of what applications this could have in real life?
I'm thinking, industry, universities, hostpitals... Any thing you can think of?
Thanks!

Cyrille ]]> Visual Basic .NET Cyrille Douillet http://forums.codeguru.com/showthread.php?536883-Send-UDP-data-to-an-iPhone-app VBA Excel 2007 Application.WorksheetFunction.Match help... http://forums.codeguru.com/showthread.php?536863-VBA-Excel-2007-Application.WorksheetFunction.Match-help...&goto=newpost Wed, 08 May 2013 18:34:45 GMT Good day everyone,
I hope i'm in the right place for VB Excel questions.

I have difficulty finding an answer to my problem. I have a workbook set up for the type of job I’m doing. My codes are mostly mine own and help from others…including multiple website with excel help.
I have hit a wall with all the information passing through I am just lost when it comes to complex coding.

I have a sub Test that includes an MsgBox Application.WorksheetFunction.Match code.

I can’t upload my workbook as there is way too much information.

I have 7 sheets set up, one of them is for my normal control (Hidden sheet) and I have a “Archives” sheet that is also hidden for data and code purpose.

So 5 sheet with a flow, meaning that “The user” will start from sheet1 and work his way to sheet 2 and so on. It is possible to go on any 5 sheets. Depending on what the user is working on. But mainly, it goes from one sheet to the other.

The process is kind of too big to explain on here but I am new, so just wondering what kind of info will be required.
This is kind of what I’m looking for…

The workbook is based on ActiveCell.row method and also Application.WorksheetFunction.Match. Every time you will select a row or a cell and click on the command button “Complete” it will look up in sheet5 and match column A to find the exact same info from Sheet3.

I need to incorporate the following code in my sheet3

Code:
For Each Cell In ActiveCell
            If Cell.Value Like "*[!0-9]/[A-Z]" Then
                Cell.Value = Left(Cell.Value, Len(Cell.Value) - 2)
            End If
        Next Cell
So that each time I make a transfer it will delete the /A from my Evaluation but also look in my sheet5 then delete the /A then do the initial Transfer.

I would love to insert my workbook for explanation but unfortunately that will not be possible… Posting codes is not an issue. ]]> Visual Basic .NET Excelnoub http://forums.codeguru.com/showthread.php?536863-VBA-Excel-2007-Application.WorksheetFunction.Match-help... Random Sort http://forums.codeguru.com/showthread.php?536715-Random-Sort&goto=newpost Fri, 03 May 2013 04:16:37 GMT Hi all, Good day. I am facing a problem here in sorting. I has a list of ID selected from database. The list of ID is the following: AH AJ AP AW AZ How can I sort the ID where the ID that I select should be always on top, then only sort by ascending? For example, I select AP. So the sorting should be like this: AP, AH,AJ,AW,AZ Hi all,

Good day. I am facing a problem here in sorting. I has a list of ID selected from database. The list of ID is the following:

AH
AJ
AP
AW
AZ

How can I sort the ID where the ID that I select should be always on top, then only sort by ascending?

For example, I select AP. So the sorting should be like this:
AP, AH,AJ,AW,AZ ]]> Visual Basic .NET daniel50096230 http://forums.codeguru.com/showthread.php?536715-Random-Sort VB2010 help wanted. http://forums.codeguru.com/showthread.php?536657-VB2010-help-wanted.&goto=newpost Tue, 30 Apr 2013 20:39:35 GMT I am building a WAR card game program using images, arrays, and a shuffle sub. Can anyone help me get it working right. I can't get the program to add scores into the text-boxes assigned. I also need to get the shuffle sub to work using the designated button. When shuffle is pushed the score is not to be cleared.

Code:
Public Class Form1
    Dim img1, img2, img3, p1p, p2p, dec As Image
    Dim value(11) As Integer

    Private Sub btnShuffle_Click(sender As System.Object, e As System.EventArgs) Handles btnShuffle.Click

    End Sub

    Private Sub btnDraw_Click(sender As System.Object, e As System.EventArgs) Handles btnDraw.Click

        boom(img1)
        Player1Play.Image = img1
        boom(img2)
        Player2Play.Image = img2
        boomer(img3)
        Decision.Image = img3
        p1p = Player1Play.Image
        p2p = Player2Play.Image
        dec = Decision.Image
        If p1p = 1 And p2p <= 2 Then

        End If
    End Sub

    Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
        P1score.Text = 0
        P2score.Text = 0
    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        Close()
    End Sub

    Public Sub shuffel()
        Dim switch, number_of_cards, value(51), tempval As Integer
        Dim tempcard, card(12) As Image

        number_of_cards = 52

        For i = 1 To number_of_cards
            switch = Int(Rnd() * number_of_cards + 1)
            tempval = value(i)
            value(i) = value(switch)
            value(switch) = tempval
            tempcard = card(i)
            card(i) = card(switch)
            card(switch) = tempcard
        Next
    End Sub
   
    Sub boom(ByRef imgPop)

        Dim intRand As Integer

        intRand = Int(Rnd(51) * 10) + 1

        If intRand = 1 Then
            imgPop = My.Resources.aceh
        ElseIf intRand = 2 Then
            imgPop = My.Resources.twoh
        ElseIf intRand = 3 Then
            imgPop = My.Resources.threeh
        ElseIf intRand = 4 Then
            imgPop = My.Resources.fourh
        ElseIf intRand = 5 Then
            imgPop = My.Resources.fiveh
        ElseIf intRand = 6 Then
            imgPop = My.Resources.sixh
        ElseIf intRand = 7 Then
            imgPop = My.Resources.sevenh
        ElseIf intRand = 8 Then
            imgPop = My.Resources.eighth
        ElseIf intRand = 9 Then
            imgPop = My.Resources.nineh
        ElseIf intRand = 10 Then
            imgPop = My.Resources.tenh
        ElseIf intRand = 11 Then
            imgPop = My.Resources.jackh
        ElseIf intRand = 12 Then
            imgPop = My.Resources.queenh
        ElseIf intRand = 13 Then
            imgPop = My.Resources.kingh
        ElseIf intRand = 14 Then
            imgPop = My.Resources.acec
        ElseIf intRand = 15 Then
            imgPop = My.Resources.twoc
        ElseIf intRand = 16 Then
            imgPop = My.Resources.threec
        ElseIf intRand = 17 Then
            imgPop = My.Resources.fourc
        ElseIf intRand = 18 Then
            imgPop = My.Resources.fivec
        ElseIf intRand = 19 Then
            imgPop = My.Resources.sixc
        ElseIf intRand = 20 Then
            imgPop = My.Resources.sevenc
        ElseIf intRand = 21 Then
            imgPop = My.Resources.eightc
        ElseIf intRand = 22 Then
            imgPop = My.Resources.ninec
        ElseIf intRand = 23 Then
            imgPop = My.Resources.tenc
        ElseIf intRand = 24 Then
            imgPop = My.Resources.jackc
        ElseIf intRand = 25 Then
            imgPop = My.Resources.queenc
        ElseIf intRand = 26 Then
            imgPop = My.Resources.kingc
        ElseIf intRand = 27 Then
            imgPop = My.Resources.aced
        ElseIf intRand = 28 Then
            imgPop = My.Resources.twod
        ElseIf intRand = 29 Then
            imgPop = My.Resources.threed
        ElseIf intRand = 30 Then
            imgPop = My.Resources.fourd
        ElseIf intRand = 31 Then
            imgPop = My.Resources.fived
        ElseIf intRand = 32 Then
            imgPop = My.Resources.sixd
        ElseIf intRand = 33 Then
            imgPop = My.Resources.sevend
        ElseIf intRand = 34 Then
            imgPop = My.Resources.eightd
        ElseIf intRand = 35 Then
            imgPop = My.Resources.nined
        ElseIf intRand = 36 Then
            imgPop = My.Resources.tend
        ElseIf intRand = 37 Then
            imgPop = My.Resources.jackd
        ElseIf intRand = 38 Then
            imgPop = My.Resources.queend
        ElseIf intRand = 39 Then
            imgPop = My.Resources.kingd
        ElseIf intRand = 40 Then
            imgPop = My.Resources.aces
        ElseIf intRand = 41 Then
            imgPop = My.Resources.twos
        ElseIf intRand = 42 Then
            imgPop = My.Resources.threes
        ElseIf intRand = 43 Then
            imgPop = My.Resources.fours
        ElseIf intRand = 44 Then
            imgPop = My.Resources.fives
        ElseIf intRand = 45 Then
            imgPop = My.Resources.sixs
        ElseIf intRand = 46 Then
            imgPop = My.Resources.sevens
        ElseIf intRand = 47 Then
            imgPop = My.Resources.eights
        ElseIf intRand = 48 Then
            imgPop = My.Resources.nines
        ElseIf intRand = 49 Then
            imgPop = My.Resources.tens
        ElseIf intRand = 50 Then
            imgPop = My.Resources.jacks
        ElseIf intRand = 51 Then
            imgPop = My.Resources.queens
        ElseIf intRand = 52 Then
            imgPop = My.Resources.kings
        Else
            MessageBox.Show("Error")
        End If
    End Sub

    Sub boomer(ByRef imgPopper)

        Dim inRand As Integer
        If inRand = 1 Then
            imgPopper = My.Resources.winleft
        ElseIf inRand = 2 Then
            imgPopper = My.Resources.winright
        ElseIf inRand = 3 Then
            imgPopper = My.Resources.tie
        Else
            MessageBox.Show("Error 2")
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Randomize()
]]> Visual Basic .NET JohnF84 http://forums.codeguru.com/showthread.php?536657-VB2010-help-wanted. CLR Debbuger (F5) ignores some exceptions in Windows Form apps http://forums.codeguru.com/showthread.php?536585-CLR-Debbuger-(F5)-ignores-some-exceptions-in-Windows-Form-apps&goto=newpost Sun, 28 Apr 2013 08:56:36 GMT Hello

When run (F5 Debug) a Windows Form application I'm working with, there is some exceptions that are not cacthed by CLR debbuger. But the same code in a Console Application every exceptions are cacthed.

Below, I post 2 simple code examples with errors.

Code example #1
Code:
    Sub Main()
        Dim var(6) As Integer
        var(8) = 33  <------- EXCEPTION
    End Sub
Code example #2
Code:
    Sub Main()
        Dim Pila As New Stack(Of Integer)
        Pila.Push(5)
        Pila.Push(9)
        Pila.Push(3)
        Pila.Push(CInt("hello"))  <------ EXCEPTION
    End Sub
This is important: note that in Console App these exceptions are captured by CLR debuuger, but in Windows Form App NOT !!! That's my problem.

I attached my default Debug menu - Exceptions configuration.

Attachment 31353

Thanks!!!
Attached Images
 
]]> Visual Basic .NET LeoVB http://forums.codeguru.com/showthread.php?536585-CLR-Debbuger-(F5)-ignores-some-exceptions-in-Windows-Form-apps VB.Net - Tab Pages with Controls http://forums.codeguru.com/showthread.php?536565-VB.Net-Tab-Pages-with-Controls&goto=newpost Sat, 27 Apr 2013 06:49:35 GMT I want to see 1st repeat time "PerID", "Repeat Times", "Company", "Date" In 4th Tab page -----> I want to see 4th repeat time "PerID", "Repeat Times", "Company", "Date" ....... Please tell me, how to do this.. I not asking full code, but show me with little example code, because I am beginner for VB.Net.]]> Sir,
I beginner for VB.Net programming,
MS-Access is my DataBase, According to database single person has Few Rows. That mean when their repeat comes new row (record) will be added.
In Repeat Table of database has Few Fields like "PerID", "Repeat Times", "Company", "Date"

I need create Tab Pages to equal of repeat times and insert other Details into that Tab Page.

I code like this and its creates Tab Pages equal to repeat time. If person comes repeatedly 04 times Tab Control will added 04 New pages into Tab Control.

Code:
Dim newPageAA As New TabPage()
          Dim RecCount As Integer

            While QReaderQ.Read()
                RecCount = RecCount + 1 ' Count How many Rows
            End While

            TabControl1.TabPages.Clear()

            For xXx = 1 To RecCount
                newPageAA = New TabPage  'create new instance

                If xXx = 1 Then
                    newPageAA.Text = "Repeat - 1"
                Else
                    newPageAA.Text = "Repeat - " & xXx.ToString
                End If
                TabControl1.TabPages.Add(newPageAA)
            Next
Now I want to put other details ("PerID", "Repeat Times", "Company", "Date") into Tab Pages with Text Boxes or Labels.
In 1st Tab page -----> I want to see 1st repeat time "PerID", "Repeat Times", "Company", "Date"
In 4th Tab page -----> I want to see 4th repeat time "PerID", "Repeat Times", "Company", "Date" .......
Please tell me, how to do this..
I not asking full code, but show me with little example code, because I am beginner for VB.Net. ]]> Visual Basic .NET pc20912 http://forums.codeguru.com/showthread.php?536565-VB.Net-Tab-Pages-with-Controls <![CDATA[[RESOLVED] Pass data from BackgroundWorker to main thread?]]> http://forums.codeguru.com/showthread.php?536481-RESOLVED-Pass-data-from-BackgroundWorker-to-main-thread&goto=newpost Tue, 23 Apr 2013 10:58:41 GMT Hello

In a Windows Form, I need to delegate a lengthy action to a BackgroundWorker so that the main application doesn't freeze.

However, the code in the BackgroundWorker must send data back to the main application. This code from MSDN doesn't include how to do this:

Code:
Private Sub setTextBackgroundWorkerBtn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles setTextBackgroundWorkerBtn.Click
  Me.backgroundWorker1.RunWorkerAsync()
End Sub

Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) _
Handles backgroundWorker1.RunWorkerCompleted
  Me.textBox1.Text = "This text was set safely by BackgroundWorker."
End Sub
Is there a way for a BackgroundWorker object to send data back to the main app without using a global variable?

Thank you. ]]> Visual Basic .NET littlebigman http://forums.codeguru.com/showthread.php?536481-RESOLVED-Pass-data-from-BackgroundWorker-to-main-thread