Formatting question [modified] - Visual Basic Discussion Boards

dileep.arangod wrote:
hey ediet,;;;; i think you dont know anything about vb. i know want to buy book or not .

And I think you lack manners. The idea of CP is you write some code, and when it errors you post the code. At this point someone will try to help you.

1. If you do not know how to connect to a database and populate a list box then your understanding of vb is obviously very limited. This sort of code is very basic and therfore if you don't know the basics a book is the best bet.

2. Micrsoft stopped supporting VB6 several years ago, you can get the express version of VB 2008 free, so why bother using VB6?

Finally, if i am the ediet (idiot?) why is it you asking the question, not me.

Bob
Ashfield Consultants Ltd

ok, thank you...Now your keeping manners. thanks for given the correct spell of "idiot".........bye Smile | :)

Hiii

rs.openrecordset("Select MyDate from MyTable")

for i=0 to rs.Eof
     combobox1.items.add(rs!MyDate)
next

May be this helps you.
Thanx
Khatri Mitesh

I am trying to find a way to divide an image into equally squares. More precisly I would like to take the parts of the picture and place them in seperate picture boxes

I currently have a project regarding com port and i am new to serial port function. Is there anyone with example regarding this area??

Subjugate wrote:
Is there anyone with example regarding this area

Yep. Google.

Bob
Ashfield Consultants Ltd

Start a project in VB, and add the component: MScomm Control.
Copy the icon of a telephone onto a form, then write some code to enable the COM port like:

MSComm1.Settings = "9600,n,8,1"
MSComm1.ParityReplace = ""
On Error GoTo COMerr
MSComm1.PortOpen = True
Exit sub
COMerr:
msgbox "A COM error occured:" & err.number & vbcrlf & err.description
End Sub

To send data out the COM port use:
MSComm1.Output = "This text string will go out the COM port."

To trap received data on the serial port, you must add this to the MScomm1.OnComm event:

dim TCin as string
if MSComm1.CommEvent = MSCOMM_EV_RECEIVE then
   TCin = MSComm1.Input
   msgbox Received: " & TCin
end if

You should also include these in a declarations file:

'--- MSComm event constants
Global Const MSCOMM_EV_SEND = 1
Global Const MSCOMM_EV_RECEIVE = 2
Global Const MSCOMM_EV_CTS = 3
Global Const MSCOMM_EV_DSR = 4
Global Const MSCOMM_EV_CD = 5
Global Const MSCOMM_EV_RING = 6
Global Const MSCOMM_EV_EOF = 7

'--- MSComm error code constants
Global Const MSCOMM_ER_BREAK = 1001
Global Const MSCOMM_ER_CTSTO = 1002
Global Const MSCOMM_ER_DSRTO = 1003
Global Const MSCOMM_ER_FRAME = 1004
Global Const MSCOMM_ER_OVERRUN = 1006
Global Const MSCOMM_ER_CDTO = 1007
Global Const MSCOMM_ER_RXOVER = 1008
Global Const MSCOMM_ER_RXPARITY = 1009
Global Const MSCOMM_ER_TXFULL = 1010

Hello everybody,

I'm new to VB 2008 and need some advice on formatting of different data types in a list box. The result is confusing for me, but still I guess it's easy for someone with more experience.

The retrieved values seem to be positioned well, as I figure when I see that the 100th value - a string - gives me the expected (readable) result. But - trying and studying and trying and searching sources - I can't find out how to format the DWORD and BYTE Types so that they show me correct results in my list box... EDIT: As I just found out, it's important to mention that the file(s) header use BIG-ENDIAN order while I'm working on a PC.

I'm afraid I'm messing up several issues WTF | :WTF:

At least it seems to be the completely wrong way to just "ToString" the resulting variables..
Result examples:
- A file of 8.302.592 bytes shows me a filesize of "11566592" (and maybe that's even the size stamp in the header? I really can't tell..).
- A TimeCode of 06:00:42:11 shows "289538054"

Do I probably miss any transformation issues? Or is something generally wrong wit my code? How can I format these values properly to be a readable format???

Here's what I do:
In a small project class I use a binary reader to read the header of a bitmap file into variables of data types BYTE and DWORD (which is obviously UInt32 in VB?).

</code>
'Variables (excerpt):
Dim hByte As Byte = Nothing
...
Dim hDWORD As UInt32 = Nothing
</code>

The Header is read with statements like:
<code>
'Read the header (excerpts):
hString = br.ReadChars(4)
.pictype = hString

hDWORD = br.ReadUInt32
.fileoffset = hDWORD
'...(etc)
hDWORD = br.ReadUInt32
.TimeCode = hDWORD
</code>

With the resulting variables I fill a listbox:
<code>
With lstBox
.Items.Clear()
.Items.Add("PicType: " & struct.pictype )
.Items.Add("ImageOffset: " & struct.offset) 'DWORD
.Items.Add("File Size: " & struct.fileSize.ToString & " bytes") 'DWORD
.Items.Add("Version: " & struct.version)
.Items.Add("SMPTE TimeCode: " & tv.TimeCode.ToString) 'DWORD
...
End With
</code>

Could someone please help me jump over that hurdle?

Thank you, kind regards
Michael

<div class="ForumMod">modified on Tuesday, September 23, 2008 2:29 AM</div>

Hi Michael,

So lets see if I get this straight:

Michael Schäuble wrote:
hDWORD = br.ReadUInt32
.TimeCode = hDWORD

You read certain bits from the file into a variable of type Int32 and then you assign it to .TimeCode
I am going to have to assume that .TimeCode is a property of a class (tv ?) that you wrote yourself, and that the type of this property is int32.
In the listbox you get the value back from this property with ToString. ToString indeed just returns the string representation of your int32 value.

In other words, you'll have to convert the int32 value you got from the file to a DateTime value first in your tv class, before you use ToString("mmss") to show the string representation of the time value.

Same goes for all other similar conversions.

Hope this helps you,

Johan

My advice is free, and you may get what you paid for.

Thank you Johan,

you got it straight, and you recognized that I'm struggling with the data types D'Oh! | :doh:

Perhaps it helps if I explain a bit better, but due to my still lacking capabilities please excuse (or correct) any errors:

I'm trying to read/write the header of a dpx (picture) file which has a fixed structure. Following the SMPTE definition, many values (e.g. "tv.timecode") are stored in a DWORD (which would be UInt32 in VB). And when I examine the timecode-position in a HEX-Editor, I see the Bytes "06-00-42-11" stored for the timecode "06:00:42:11". Btw: Since it's stored big-endian, meanwhile I wrote a function to swap the bytes first (there really doesn't seem to be a VB standard function), so the line now is

hDWORD = SwapDWORD(br.ReadUInt32)
.TimeCode = hDWORD

while the "buffer variable" hDWORD is still UInt32 and converted afterwards in a listbox:

.Items.Add("SMPTE TimeCode: " & CDate(tv.TimeCode))

Unfortunately VB doesn't let me convert to what I need (and you suggest), so the above line throws an error saying "UInt can't be converted to DateTime" (as far as I read this would need Double / 8 bytes). A "CTime" function doesn't seem to be available. Still I have only 4-bytes...

Where's that big tomato on my eyes??? WTF | :WTF:

In addition, one more formatting question arose:

The definition says that undefined fields (except ASCII) are "to be initialized to their 'all one' values" (then they give the example code for C: 'WORD val = ~0;'). These fields are BYTE, WORD, DWORD and SINGLE types.

Therefore, from these fields I retrieve the highest possible values as decimals (e.g. 4294967295 for the DWORD / UInt32) and would like to show them as "n.def" in the list field. Obviously I can't store a value like "n.def" in the buffer variable (hDWORD = UInt32, hWORD = UInt16 etc.) which is then assigned to the stored variable (e.g. 'tv.framenumber'). So I'm afraid having to write If-statements for hundreds of entries.

Do you know a more elegant way to show "n.def" in such a case in the VB list field?

You're doing it again... assuming that I know what you are talking about... Confused | :confused:

My advice is free, and you may get what you paid for.

Sorry, Johan - so you see it's even hard for a beginner to express clear enough WTF | :WTF:

Another try ... and still thank you for your patience:

1. The binary reader reads a value from the file header, the Bytes are swapped (due to big-endian) and the result assigned to a re-usable 'buffer variable' of the relevant size (e.g. hDWORD as UInt32 for a DWORD)

hDWORD = SwapDWORD(br.ReadUInt32)

2. This 'buffer variable' is then assigned to one of the specific variables I have to set (e.g. 'data.offset')

.offset = hDWORD

3. Then step 1 is repeated to read the next DWORD, for which hDWORD is assigned to another specific variable (e.g. 'file size')

Problem: Sometimes the fields in the file (e.g. 'file size') are not set for any reason. In that case, due to header specification, they are 'FFFF FFFF' (DWORD field) or 'FFFF' (WORD field) and result in large decimals (maximum possible value) when reading them.

Goal: If the read value is 'FFFF FFFF' then show 'undefined' in a list box

Was I more understandable this time? Hoping Wink | ;)

...

modified on Thursday, September 25, 2008 8:09 AM

That was more my speed Wink | ;)

The problem seems simple enough (just discussing) you read the value, which will be somewhere between Int32.MinValue and Int32.MaxValue or if the value is FFFF FFFF then it is Int32.MaxValue

So a simple function like:

Private Function OverTheMax(ByVal i32 As Int32) As String
        Try
            If i32 = Int32.MaxValue Then
                Return i32.ToString
            Else
                Return "Weiss ich nicht !"
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return "Error"
        End Try
    End Function

should take care of things, and no hundreds of If sentences... ?

Johan

My advice is free, and you may get what you paid for.

Hi Johan, that sounds like a good solution - at first sight.

With your function I'd only have to change the second line of my (hundreds of) property-reading statements, right?

hDWORD = SwapDWORD(br.ReadUInt32)
.fileSize = OverTheMax(hDWORD)

Some important things make me hesitate:
- My property variables (e.g. '.fileSize') are different types (Byte, Int16, Int32, Single etc.) depending on their purpose. I'd have to re-write your function different (the 'ByVal'-part) for every type, no?
- Plus: For each and every value a data type 'string' is returned, so that I would have to declare all the property variables as string types first, and then re-convert each one to what it was before, using another property variable of the correct type.

I'm not sure if the rewards of 'nicer looks' is worth the cost? What do you think?

Thanks
Michael

You are right, you will have to rewrite this function a little bit.
Fortunately you wouldn't have to actually write byval statements for each different datatype, and you could still manage with a single function by using the Object data type. This type accepts pretty much anything and can return anything.
In other words something like this:

Private Function OverTheMax(ByVal o As Object) As Object

However you would indeed have to write conversions in the function for each conversion necessary.

Michael Schäuble wrote:
I'm not sure if the rewards of 'nicer looks' is worth the cost?

That question only you can answer. In your original post, you only said you wanted to display the values in a ListBox. In that case converting everything to strings before you put it there sounds like the best way to me. If you also want to do calculations on these values or manipulate the file, or something like that, you would have to adapt this function accept any data type as input and to output any data type, for example using Object or an array of type Object.

My advice is free, and you may get what you paid for.

Using object types sounds like an interesting option...
There's a lot to explore, indeed.

Thank you for the inspiration and patience,
and have a nice day!

Regards
Michael

Coming at you...

But seriously, the problem is that (at least) VB handles only the DateTime type and does not have a separate Time type. As your value appears to be only a time stamp, you will have to first add a (dummy) date part to the value and then extract the time part from the DateTime value, which seems a bit much.

One way (not saying that it is the best way) would be to interpret it as a fixed length string. If the HEX editor reads 06-00-42-11, then you can supposedly retrieve that value from the file "as is".
Next a simple function to replace all -'s with :'s, and Bob's your uncle.

At the same time, assuming that the values are int32 and therefore letting VB convert them to that type, might actually cause some of these funny return values you spoke about.

The other alternative would be to search Google or ask here on the forum about conversion of bytes to other data types (between you and me, not everybody here can (or is willing to) deduct the basic question, when you surround it with too much context). Because, to be honest, I have very little (read no) experience with bytes and DWORDs, etc.

Good luck,

Johan

My advice is free, and you may get what you paid for.

Thanks for the tip. I'll try to post it in a shorter way and hope someone answers without asking for the context Laugh | :laugh:

then...
Have a nice day!

Hello everybody,

this question sounds simple, yet I couldn't find a better performing way to count the files in folders / subfolders than to make a (countable) string collection with GetFiles(Path, [..etc.]), which is obviously generating an huge list for every folder / subfolder unnecessarily.

Does anyone here have a better idea and can inspire me? I'm new to VB 2008 and need a little guidance.

Thank you,

Michael

Use the following code for counting number of files in a folder...

dim fol as string="Your folder name"

for each count as integer in My.Computer.FileSystem.GetFiles(fol)
count+=1
next

Now count will have total number of files in the folder fol.

Gagan

Thank you Gagan, but maybe I haven't expressed my question well.
The code you suggest is exactly the code I'm using Wink | ;)

Looking at the performance side of the GetFiles method, a programmer in another forum here looked at my code and wrote "That will create a list of strings that you just throw away, as you only use the size of the list. You should implement a method that loops the folders and counts the files, so that you don't create that huge list just to throw away."

Unfortunately he didn't let me know what "implement a method..." would mean - no further answer came, and more insecurity stayed Cry | :((

That's why I reduced my question to that point only, in order to find someone else willing to tell me which other methods would exist for the purpose.

I appreciate your will to support me,
have a nice day!

That will result in a number twice the actual number of files in the folder.

You really have no choice but to use GetFiles since there are no other methods of getting/counting the number of files in a folder.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Thank you, Dave, for clearing that up!

Meanwhile, I think I found out the difference from your suggestions to my code - and that could have been what the other guy had meant. In my code I didn't define "count" as integer but with (varname changed to "count"):

Dim count As System.Collections.ObjectModel.ReadOnlyCollection(Of String)

I'm going to change that and have a look at performance again Big Grin | :-D

Thanks a lot to both of you!
Michael

Where's the smiley showing it's head bangin' on the wall??? Now I'm lost again: After implementing your suggestion in my code, "count" just delivers a 0 value and I have no idea why!

~~Could you be so kind as to have a look on my whole loop?~~
EDIT: Code deleted.

It must be a big tomato that I have on my eyes...

EDIT: I saw it finally Laugh | :laugh:

... a simple interference with the variable name "count" which was already used public. That's how the hours go WTF | :WTF:

Still your code suggestion only counted to 1 for every folder/subfolder Confused | :confused:

, so I used

files = My.Computer.FileSystem.GetFiles(obj).Count

instead of "for...next" now. The counting results are correct. And with "files" as an integer I think I reduced the unnecessary list overhead, too Cool | :cool:

Thanks for the inspiration!

modified on Tuesday, September 23, 2008 1:19 PM