Xtreme Visual Basic Talk

Label Not Updating

piggybank1974 — Thu, 17 May 2012 07:10:15 GMT

Hi there,

This is quite a strange one I�m not to sure why it does not work but there you have it!

In my MyApplication class I�ve defined a splash screen the form has no border etc!

In MyApplication_Startup I display it before the Login form loads etc.

The problem is that if I write the following code.

Code:

FrmSplash.Info.Text = "Synchronising Data To Laptop Please Wait..."
Application.DoEvents()

The label will update the text fine but if I write

Code:

FrmSplash.Invoke(sub() FrmSplash.Info.Text = "Synchronising Data To Laptop Please Wait...")

It just does not update??

Overflow error when loading DataEnvironment

Fali Sheru — Thu, 17 May 2012 03:53:22 GMT

Hi,
I need advice on overflow error. I'm having the error when the data environment loads. I'm really sure its because of the data because it works with test data but have the error in production data.
But I'm not sure on how to troubleshoot because the error appears when the data environment loads but not in any of my codes. :huh:

Please help, advance thanks.

Rotation around maintained arbitrary axis.

Zerocyde — Wed, 16 May 2012 18:55:34 GMT

I've been racking my brain for days now and can't find the answer. I'm using C++ and DirectX but I figure that this is more of a math problem that can relate to all languages trying to work in 3D.

Basically, to rotate a flying vehicle (spaceship, airplane, whatever) I am using this system that I found for FPS camera control:

Code:

        up=D3DXVECTOR3(0.0f, 1.0f, 0.0f);

        look=D3DXVECTOR3(0.0f, 0.0f, 1.0f);

        right=D3DXVECTOR3(1.0f, 0.0f, 0.0f);



        D3DXMATRIX yawMatrix;

        D3DXMatrixRotationAxis(&yawMatrix, &up, yaw);

        D3DXVec3TransformCoord(&look, &look, &yawMatrix);

        D3DXVec3TransformCoord(&right, &right, &yawMatrix);



        D3DXMATRIX pitchMatrix;

        D3DXMatrixRotationAxis(&pitchMatrix, &right, pitch);

        D3DXVec3TransformCoord(&look, &look, &pitchMatrix);

        D3DXVec3TransformCoord(&up, &up, &pitchMatrix);



        D3DXMATRIX rollMatrix;

        D3DXMatrixRotationAxis(&rollMatrix, &look, roll);

        D3DXVec3TransformCoord(&right, &right, &rollMatrix);

        D3DXVec3TransformCoord(&up, &up, &rollMatrix);



        rotMatrix = yawMatrix*pitchMatrix*rollMatrix;

And you rotate by adjusting the yaw, pitch, and roll float values. The problem is that this code only seems to rotate around the default axis. For instance, if I make my little ship pitch down (lower the nose to fly downwards) and then wish to "roll" left or right, I want to rotate the ship around the look axis of the ship itself, but with this method it will only rotate around (0, 0, 1).

Basically, what methods can I use to maintain a look, right, and up axis that stay aligned with the object in question and never revert to default so that I can rotate around them at will?

EDIT: Actually, to be more precise, this method will rotate properly around the look axis I want, but only because it does roll last after the look axis is already fully finished by the yaw and pitch rotations. Pitch rotates around a half formed right axis, and yaw rotates around the default (0, 1, 0) up axis.

Macro trigger

Visvang — Wed, 16 May 2012 10:44:47 GMT

Hi,

how do a start my macro to allow it to trigger in outlook when the usser send or acept an appointment?

thank you
v

userform is displaying on other files

bittu2010 — Wed, 16 May 2012 05:28:58 GMT

Hi,

I have made a stopwatch on userform to measure the time

Now the problem is when I am using this stop watch, it is keep displaying with all those excel files till the time I am not closing main excel file which it belongs.

I want it to run with main file not with other file which does not belong it because I have to move it here and there as it hides their cells,column and row.

1) This is the macro I have on "SHEET 1"

Code:

Private Sub CommandButton1_Click()

  Timer

  If ActiveCell.Column <> 5 Then Exit Sub

  ActiveCell = Time

End Sub



Private Sub CommandButton5_Click()

  StopCycle

  UserForm1.Label1.Caption = Format(0, "h:mm:ss")

  Counter = 0

  If ActiveCell.Column <> 5 Then Exit Sub

  ActiveCell = Time

End Sub



Private Sub commandButton4_click()

  Timer

  If ActiveCell.Column <> 4 Then Exit Sub

  ActiveCell = Time

End Sub

2) This is the macro coding which I have on UserForm under Forms

Code:

Private Sub CommandButton1_Click()

  Load UserForm1

  Application.WindowState = xlMinimized

  UserForm1.Show

End Sub



Private Sub CommandButton2_Click()

  Application.WindowState = xlMaximized

End Sub

3) This is the macro coding which I have on Modules

Code:

Public RunPause As Boolean

Public RunWhen As Double

Public RunWhen2 As Double

Dim StrtTime As Date

Dim Counter As Date



Sub Timer()

  Counter = 0

  StrtTime = Now

  RunWhen = Now + TimeSerial(0, 0, 1)

  Application.OnTime RunWhen, "StartCycle", , True

End Sub



Sub StartCycle()

  Counter = Now - StrtTime

  UserForm1.Label1.Caption = Format(Counter, "h:mm:ss")

  RunWhen = Now + TimeSerial(0, 0, 1)

  Application.OnTime RunWhen, "StartCycle", , True

End Sub



Sub StopCycle()

  On Error Resume Next

  Application.OnTime RunWhen, "StartCycle", , False

End Sub



Sub CloseBook()

  StopCycle

End Sub



Sub LoadForm()

  UserForm1.Show vbModeless

End Sub

there is no problem in code . Problem is that when codes runs then it provides me something which i do not want. i want when i click on sheet 1 command button then user form should appear on the excel file which contain macro coding and it should not open on those excel files, which does not belong it . Those excel made without coding for other purposes. User form must not appear on these files.

Please tell me what should I do? Or provide me any other code or excel file with example if possible. Thanks buddy

Please let me know what changes I need to make in coding.
Any help would be great.

Thanks in advance!!

Regards,
Bittu

Trouble with Binary Read

VB_Alien — Wed, 16 May 2012 01:35:25 GMT

My program saves the contents of a listbox to file but when
i go to read it back into the listbox, it only goes through a FOR
Loop, 1 time when it should be going through it 60 times. It
doesn't even make it to the FileClose statement. It some how
jumps right out of the loop and exits the sub, without closing
the file. Here is what i got:

Code:

 Dim file_num As Integer = FreeFile()

 Dim listcount As Integer

 Dim imgIndex As Integer

 Dim lstName As String

 Dim i As Integer



 ' Read file back into listbox

        If My.Computer.FileSystem.FileExists(Application.StartupPath & "\lstFileData.dat") Then

            ' Open the file 

            FileOpen(file_num, Application.StartupPath & "\lstFileData.dat", OpenMode.Binary, OpenAccess.Read)

          

            ' Get the listbox item count

            FileGet(file_num, listcount)' <-I put a msgbox here. It gives me right number



            For i = 0 To listcount - 1



                ' Get the image index used for the listbox image

                FileGet(file_num, imgIndex) '<-I put msgbox here. I get first number.







                ' Get the listbox item text

                FileGet(file_num, lstName.ToString)'<-Put msgbox here. Get blank





               ' Msgbox doesn't make it this far for some reason. It jumps

               ' out of the loop and exits the sub, without closing the file.



                 lstFiles.Items.Add(lstName.ToString)

                 MsgBox("Made it this far")



                  lstFiles.ItemImage(i).ImageIndex = imgIndex



            Next



            FileClose(file_num)

            MsgBox("File Closed") '<-Code doesn't make it this far.

            '   lstFiles.Refresh()



        End If

I checked the save routine and it is saving everything that i want it to.

In case you want to see it, here it is:

Code:



 Dim file_num As Integer = FreeFile()



  ' Write new file

            FileOpen(file_num, Application.StartupPath & "\lstFileData.dat", OpenMode.Binary, OpenAccess.Write)







            FilePut(file_num, lstFiles.Items.Count)



            For i As Integer = 0 To lstFiles.Items.Count - 1



                ' In case your wondering, i have a user drawn listbox

               ' that holds an icon beside each item in the listbox.

               ' I need to keep track of the index number of the icon

               ' that is stored in an imagelistbox.

                FilePut(file_num, lstFiles.ItemImage(i).ImageIndex)

                FilePut(file_num, lstFiles.Items(i).ToString)



            Next



            FileClose(file_num)

The listbox has 60 items in it and when saving, it is saving everything.

Crosstab Query with Multiple Value Fields - Access

Rodan2000 — Tue, 15 May 2012 21:15:01 GMT

My background: I used to use Access and VBA frequently about 4 years ago. I have general knowledge of how things work but have forgotten the specifics. Wondering if you guys could point me in the right direction...

My problem: I would like to generate a crosstab query that reports multiple values. For example, I have a Table with 4 fields, [Date] [Crew] [JobNum] and [Tons]. I would like to have the [Date] be grouped for the columns, showing a standard week. Then have the [Crew] grouped for the rows, call them A, B, and C values. I would like to show the values of [JobNum] and [Tons] for that crew and date.

Code:

     5/15        5/16

A   #123       #123

     15 tons   20 tons



B   #234       #123

     10 tons    5 tons



C   #345       #345

     20 tons    10 tons

Any ideas on how to achieve this? I come very close but no cigar. Thanks in advance.

Testing a Windows service

Mike — Tue, 15 May 2012 17:53:20 GMT

Hi folks,

Two quick questions:

1. when testing a service, should I install the exe which is in the bin subfolder or the obj subfolder, and why?
2. when distributing the service, should I use the exe which is in the bin subfolder or the obj subfolder, and why?

Thanks!!!

PDFbox - text area

nomaam — Tue, 15 May 2012 17:22:13 GMT

Hi

I am using vb.net 2008 and working in a windows form with PDFBox.

I am able to extract text from the PDF doc but I am interested in extracting text from an area, using the PDFTextStripperByArea class.

I am not able to find an example of this class in vb.net and have been unable to convert any other code or get it to work.

Does anyone have any example code that they could share?

Thanks

How to close a pop up window in IE

yossi321 — Tue, 15 May 2012 17:18:13 GMT

hello I want to close a pop up window for example: in this link when I click on the picture on the left, a pop up window appears, so I want to close it but the window has no handle
any idea?

text box height

Matanic — Tue, 15 May 2012 14:21:10 GMT

Greetings All,

I am adding some content to a 6 page form and on page 2 and page 3 all my textboxes want to have 26 for a height. I try to change them and they revert to 26. I can change the length to whatever I want but the height for all the textboxes is stuck.

The textboxes on the first page are fine I can change them to any height I choose

Ideas?

Thanks!

Beginner: Reversing Calculations

amused00 — Tue, 15 May 2012 07:49:17 GMT

I'm an absolute beginner and today would be my 5th day of self teaching VB, so please try explaining in simple terms.

I wrote a program to assist me with game crafting (not a bot, a calculator).

Basically what this program does is :
1. Calculate the amount of XP needed from one crafting level to another
2. Calculate the number of crafts needed to reach that level
3. Calculate the amounts of materials needed to reach that level.

in the previous parts known variables are: starting level, end level (desired level), recipe level (the level if the item i'm crafting, as the experience goes down the more difference there is between current level and the recipe level), and up to 7 items used in ingredients.

Unknown variables are: total xp needed, number of crafts, total amount of items

The previous 3 parts produce correct results. I'm planning to add a 4rth part that calculates the level you would reach if you have a specific total number of items.
known variables would be: start level, craft(recipe) level, number of items (assuming I only use one item), number of crafts
unknown variables: end level

the program has:
1. Total xp formula for a level (200x+100)
2. An array that contains how much xp each craft would give me based on the difference between recipe level and current crafting level (example: If I use a level 10 recipe and my current crafting level is 25 the amount of xp I gain would be lvl(15))

What's needed: I can't figure out how to enter the total number of items I have, starting level, and recipe level and then come up with a result that represents the max level I would reach with my given resources.
(assume I only use "i1").

I have a feeling it might be nested loops but I'm not very experienced with that. Basically the outer loop would go up in levels until 0 crafts are left and the inner loop would keep subtracting xp until the amount of xp between two consecutive levels runs out.

This is just what I logically think and it might not even be right and even if it is, I don't know how the formula would look. Thank you in advance.

Here is the full code ("ofitem" is the total items I have, example: 500 iron):

Code:

Public Class Form1



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

        Dim startlvl, endlvl, craftlvl, i1, i2, i3, i4, i5, i6, i7, ofitem As Integer

        Dim lvl(31) As Integer

        Dim i As Integer = 1

        Dim r As Integer = 2

        Dim totalxp As Integer

        Dim ncrafts As Integer = 0





        While i < 12

            lvl(i) = 200

            i = i + 1

        End While



        lvl(12) = 199

        i = 13



        While i < 19

            lvl(i) = 199 - (r)

            i = i + 1

            r = r + 2

        End While

        lvl(19) = 131

        lvl(20) = 116

        lvl(21) = 100

        lvl(22) = 84

        lvl(23) = 69

        lvl(24) = 55

        lvl(25) = 41

        lvl(26) = 30

        lvl(27) = 19

        lvl(28) = 11

        lvl(29) = 5

        lvl(30)=1







        startlvl = CInt(txtstart.Text)

        endlvl = CInt(txtend.Text)

        craftlvl = CInt(txtcraft.Text)





        i1 = CInt(txt1.Text)

        i2 = CInt(txt2.Text)

        i3 = CInt(txt3.Text)

        i4 = CInt(txt4.Text)

        i5 = CInt(txt5.Text)

        i6 = CInt(txt6.Text)

        i7 = CInt(txt7.Text)

        ofitem = CInt(txtofitem.Text)



        totalxp = calculateXp(endlvl) - calculateXp(startlvl)

        lblxp.Text = "Total XP: " & totalxp







        i = 1





        While startlvl < endlvl

            ncrafts = ncrafts + ((calculateXp(startlvl + 1) - calculateXp(startlvl)) / lvl(i))

            i = i + 1

            startlvl = startlvl + 1



        End While



        lblncrafts.Text = "Number of crafts: " & ncrafts

        lblnmaterials.Text = "You need " & i1 * ncrafts & " of item1 " & vbCrLf & "You need " & i2 * ncrafts & " of item2 " & vbCrLf & "You need " & i3 * ncrafts & " of item3 " & vbCrLf & "You need " & i4 * ncrafts & " of item4 " & vbCrLf & "You need " & i5 * ncrafts & " of item5 " & vbCrLf & "You need " & i6 * ncrafts & " of item6 " & vbCrLf & "You need " & i7 * ncrafts & " of item7"





    End Sub

    Private Function calculateXp(ByVal level As Integer)

        Dim i As Integer

        Dim total As Integer

        i = 0

        total = 0



        While i <= level

            total = total + (i * 200) + 100

            i += 1

        End While



        Return total



    End Function







End Class

Attached Images

crafting.PNG (12.0 KB)

save webform checkbox values into tables

nicolascy78 — Tue, 15 May 2012 07:35:20 GMT

Hi

I'm new in programming i created a form with some dropdownlist some textboxes and some checkedboxes and i want to save the values and selections into sql tables how can i do that?

Game Movement by Rotation direction

Pathogenix — Tue, 15 May 2012 05:52:04 GMT

Okay so basically i'm trying to move the Player by rotation.

I have a perfect rotation system that works with a custom picturebox control that supports rotation that i have.

I'm completely stuck on this and i have no idea where i'd even start with the math behind it. Thanks in advance for help!

Attached Images

7e814827e0c1f4f8ef60d4b9b62d6c4e.png (37.5 KB)

OpenText method: columns problem

Ray12354 — Tue, 15 May 2012 05:08:41 GMT

I�m using Excel 2010 and have come across a problem using the WorkBooks.OpenText method to open a certain file.
Opening the file manually (going through the Import Text Wizard) is no problem. The file looks like the first attachment ("Wizard Open.png") after doing so. However when I use OpenText it ends up looking like the second attachment ("OpenText.png").
Instead of putting the data into columns according to the delimiter (,) it seems to have put a single character into each of the first 9 columns and everything else into the 10th. Has anyone ever seen anything like this before, any idea what is causing it? Here is the code I am using:

Code:

Sub OpenTextTest()

    Dim FieldInfoArray(1 To 10, 1 To 2) As Integer

    Dim Index As Integer



    For Index = 1 To UBound(FieldInfoArray, 1)

        FieldInfoArray(Index, 1) = Index

        FieldInfoArray(Index, 2) = 2

    Next Index

    

    Workbooks.OpenText Filename:="c:\OpenTextData.txt", _

                       Comma:=True, _

                       FieldInfo:=FieldInfoArray, _

                       TextQualifier:=xlTextQualifierDoubleQuote

End Sub

Attached Images

	Wizard Open.png (5.1 KB)
	OpenText.png (23.4 KB)