Visual Basic

Re: Continue to next step in a for..next loop only when the user press a button.

19-Apr-15 5:20

How about I restart PIEBALD's answer.

You CAN'T do this with a for loop.

A Windows Forms app is a state machine that reacts to inputs like mouse and keyboard events. You CAN'T stop a loop and wait for input as your UI code is busy in the middle of the loop and cannot process input events until the code goes back to an idle state, meaning it's not executing any of your code!

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

dilkonika19-Apr-15 5:28

Re: Continue to next step in a for..next loop only when the user press a button.

19-Apr-15 5:28

Ok , I'm ready to accept any other solution , but first let explain something :

In the form I have this button.
This button do some actions. and may be enable on several situations . so this button does not depend on the for..Next loop. so even the For..next loop will be never executed , the code inside the button may be executed on several occasions when the user press the button.

The for ..next loop is on another sub , that when is executed , sometimes can make the button enabled. On this cases , the loop should wait until the user press that button and after continue to next step.

What are your new solutions to resolve this case ?
Thank you !

Dave Kreskowiak19-Apr-15 5:35

Re: Continue to next step in a for..next loop only when the user press a button.

19-Apr-15 5:35

I have no idea. Why? Because we don't know the business rules and logic of your application. Who's fault is that? Hint: Not ours.

Since we know nothing of what you're really trying to do with this, there's really nothing that we can tell you to make something like this work. The only answer we can give is why you're current design will NOT work.

Which we've done.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

dilkonika19-Apr-15 5:54

Re: Continue to next step in a for..next loop only when the user press a button.

19-Apr-15 5:54

Ok , I give you some additional details :

I'm using the form to edit , create and modify records form a database.
The button for which I'm talking has all the necessary code to test the new record created by user , and if the test is done without problems , the new record is saved. But this button can test and save records one by one ( so if a user create a new record , he should press the button before create another ).

Now , I have added a new function in my form : Copy paste records.
So the user can select one ( or several ) existing records , and press copy on the right click menu.
When a copy is made , a list is created that contains all the records that are copied and should be pasted.

for the Paste actions , I have this For..next loop.
But the records that are copied , should be pasted one by one.
So a new record is created that is a copy of the first element on the copy-list.
At this point , the loop should stop , and user can make the changes needed for this copy and after should press the button to do the actions needed and to save this record.
After the loop can continue with the same logic for the other records.

This is all.
Can you give me a new idea ?
Thank you !

Simon_Whale20-Apr-15 3:41

Simon_Whale

20-Apr-15 3:41

dilkonika wrote:
for the Paste actions , I have this For..next loop.
But the records that are copied , should be pasted one by one.
So a new record is created that is a copy of the first element on the copy-list.
At this point , the loop should stop , and user can make the changes needed for this copy and after should press the button to do the actions needed and to save this record.
After the loop can continue with the same logic for the other records.

From this description you have given I would consider 2 approaches to your problem

The user has to individually copy / edit a duplicated row and then click on save
You allow the user to specify how many rows that they want to create, then allow them individually save each row.

personally I feel if you continued on the path that you want to take it, It would make your application very hard to maintain.

Every day, thousands of innocent plants are killed by vegetarians.

Help end the violence EAT BACON

Re: Continue to next step in a for..next loop only when the user press a button.

Richard Deeming20-Apr-15 3:02

Re: Continue to next step in a for..next loop only when the user press a button.

20-Apr-15 3:02

This isn't something you would normally do, and prior to .NET 4.5 would be virtually impossible. (You could re-write your code to use a state-machine, but it wouldn't resemble a For loop.)

However, if you're using .NET 4.5, you can create a hacky solution using Async / Await:

VB.NET

Private _buttonClickedSource As TaskCompletionSource(Of Boolean)

Protected Sub MyButton_Click(ByVal sender As Object, ByVal args As EventArgs) Handles MyButton.Click
    ' Get the TaskCompletionSource that's waiting, if there is one.
    ' Clear the field, since we only want to wait for a single click.
    Dim tcs As TaskCompletionSource(Of Boolean)
    tcs = Interlocked.Exchange(_buttonClickedSource, Nothing)
    
    ' If we're waiting for a button click, signal that we've receive one:
    If tcs IsNot Nothing Then
        tcs.TrySetResult(True)
    End If
End Sub

Private Async Function DoYourFunkyThing() As Task
    ...
    For i = 1 To nr1
        ...
        If condition1 Then
            ' Create a new TaskCompletionSource, and enable the button:
            Dim tcs As New TaskCompletionSource(Of Boolean)()
            Interlocked.Exchange(_buttonClickedSource, tcs)
            MyButton.Enabled = True
            
            ' Wait for the button to be clicked:
            Await tcs.Task
            
            ' Disable the button:
            MyButton.Enabled = False
        End If
    Next
End Function

The compiler will re-write this method to use a state machine, but you can still write your code as if it was a For loop.

Async (Visual Basic)[^]
Asynchronous Programming with Async and Await (C# and Visual Basic)[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika20-Apr-15 12:24

Re: Continue to next step in a for..next loop only when the user press a button.

20-Apr-15 12:24

Thanks to all for your down Votes.

It's seems that those who doesn't have the idea how to resolve the problem , attack the question. Sorry friend what do you want , to ask : " ... It's true that 1+1=2 ?"

It's sure that for this question exist a solution ( even prior to .NET 4.5 )
( for sure , it's not me that found the solution , because I don't pretend to be a high level professional ).

But I will not post here the solution.

Maybe some of those that have down voted , try to find the answer , because someone that pretend to have a professional level , should show this with an answer not with a down vote.

Dave Kreskowiak20-Apr-15 16:03

Re: Continue to next step in a for..next loop only when the user press a button.

20-Apr-15 16:03

Yeah, about the reputation...

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Richard Deeming21-Apr-15 2:12

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 2:12

And why have you posted this abusive response to my message, when I've tried to help you? Mad | :mad:

Your account is currently on 8 "abusive/troll" votes. Two more, and you'll be kicked off the site.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika21-Apr-15 6:07

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 6:07

and what is the abusive part of my post ?
If you are one of them that down voted , well , sometimes the truth is hard to accept. Confused | :confused:

Richard Deeming21-Apr-15 6:33

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 6:33

I posted a genuine answer to your question.

You replied with a message complaining about down-votes, and stating that you found an answer elsewhere, but you're not going to share it with us because none of us are "professional" enough.

And you can't see the abusive part of that? D'Oh! | :doh:

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika21-Apr-15 7:28

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 7:28

Maybe was a mistake from me that I posted my replies to your message.
My replies was intend to be a general replies to all of those that have down voted. Because I think each down vote should have an argumentation.

And I found the answer elsewhere ( it is not my solution ) , but I don't post here only for those that have down voted. ( if you are one of them , this is for you too). The reason is that I think that when someone doesn't know the solution , attack the question. For these people I thing that they aren't professional.
Instead of simply down vote a question :
1) Find a solution

2) Ignore the question

3) Say " I'm sorry I don't know "
4) Down vote , but with arguments why this question has problems.

Eddy Vluggen21-Apr-15 9:15

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 9:15

dilkonika wrote:
My replies was intend to be a general replies to all of those that have down
voted.

That'd be me.

dilkonika wrote:
And I found the answer elsewhere ( it is not my solution ) , but I don't post
here only for those that have down voted.

Not a downvote, but an abuse-flagging. It is not something that is flagged on a question, but on an account. Read his post again.

dilkonika wrote:
The reason is that I think that when someone doesn't know the solution , attack
the question.

More likely cause would be being rude against volunteers.

dilkonika wrote:
For these people I thing that they aren't professional.

This is spare time, you should not be expecting a business-treatment.

dilkonika wrote:
Instead of simply down vote a question :

Demands are hardly going to work. There's some basic rules for the forum as a sticky on top of each page. I think it is worded correctly.

Instead of making demands, try kindness.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Eddy Vluggen21-Apr-15 6:34

Re: Continue to next step in a for..next loop only when the user press a button.

21-Apr-15 6:34

dilkonika wrote:
and what is the abusive part of my post ?

The part where you tell a professional that is trying to help you that he should not have posted an answer.

It is saying you want explanation in words, not code - and demand code five minutes later.

dilkonika wrote:
sometimes the truth is hard to accept.

Yes, a recurring theme.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Sascha Lefèvre25-May-15 17:06

Sascha Lefèvre

25-May-15 17:06

Are you as well reminded of a certain member by a(nother?) member posting a couple of questions here recently?...

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

Re: Continue to next step in a for..next loop only when the user press a button.

Eddy Vluggen26-May-15 3:12

26-May-15 3:12

Yes, but it appears to be in a different tone than this thread.

Time will tell Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

vb.net to vb6 convertion

hitu4u06716-Apr-15 23:04

hitu4u067

16-Apr-15 23:04

Public Class Form1
Private Function getCrc16(b() As Byte, nLen As Integer) As UInt16
Static crctab16() As UInt16 = _
{&H0, &H1189, &H2312, &H329B, &H4624, &H57AD, &H6536, &H74BF, _
&H8C48, &H9DC1, &HAF5A, &HBED3, &HCA6C, &HDBE5, &HE97E, &HF8F7, _
&H1081, &H108, &H3393, &H221A, &H56A5, &H472C, &H75B7, &H643E, _
&H9CC9, &H8D40, &HBFDB, &HAE52, &HDAED, &HCB64, &HF9FF, &HE876, _
&H2102, &H308B, &H210, &H1399, &H6726, &H76AF, &H4434, &H55BD, _
&HAD4A, &HBCC3, &H8E58, &H9FD1, &HEB6E, &HFAE7, &HC87C, &HD9F5, _
&H3183, &H200A, &H1291, &H318, &H77A7, &H662E, &H54B5, &H453C, _
&HBDCB, &HAC42, &H9ED9, &H8F50, &HFBEF, &HEA66, &HD8FD, &HC974, _
&H4204, &H538D, &H6116, &H709F, &H420, &H15A9, &H2732, &H36BB, _
&HCE4C, &HDFC5, &HED5E, &HFCD7, &H8868, &H99E1, &HAB7A, &HBAF3, _
&H5285, &H430C, &H7197, &H601E, &H14A1, &H528, &H37B3, &H263A, _
&HDECD, &HCF44, &HFDDF, &HEC56, &H98E9, &H8960, &HBBFB, &HAA72, _
&H6306, &H728F, &H4014, &H519D, &H2522, &H34AB, &H630, &H17B9, _
&HEF4E, &HFEC7, &HCC5C, &HDDD5, &HA96A, &HB8E3, &H8A78, &H9BF1, _
&H7387, &H620E, &H5095, &H411C, &H35A3, &H242A, &H16B1, &H738, _
&HFFCF, &HEE46, &HDCDD, &HCD54, &HB9EB, &HA862, &H9AF9, &H8B70, _
&H8408, &H9581, &HA71A, &HB693, &HC22C, &HD3A5, &HE13E, &HF0B7, _
&H840, &H19C9, &H2B52, &H3ADB, &H4E64, &H5FED, &H6D76, &H7CFF, _
&H9489, &H8500, &HB79B, &HA612, &HD2AD, &HC324, &HF1BF, &HE036, _
&H18C1, &H948, &H3BD3, &H2A5A, &H5EE5, &H4F6C, &H7DF7, &H6C7E, _
&HA50A, &HB483, &H8618, &H9791, &HE32E, &HF2A7, &HC03C, &HD1B5, _
&H2942, &H38CB, &HA50, &H1BD9, &H6F66, &H7EEF, &H4C74, &H5DFD, _
&HB58B, &HA402, &H9699, &H8710, &HF3AF, &HE226, &HD0BD, &HC134, _
&H39C3, &H284A, &H1AD1, &HB58, &H7FE7, &H6E6E, &H5CF5, &H4D7C, _
&HC60C, &HD785, &HE51E, &HF497, &H8028, &H91A1, &HA33A, &HB2B3, _
&H4A44, &H5BCD, &H6956, &H78DF, &HC60, &H1DE9, &H2F72, &H3EFB, _
&HD68D, &HC704, &HF59F, &HE416, &H90A9, &H8120, &HB3BB, &HA232, _
&H5AC5, &H4B4C, &H79D7, &H685E, &H1CE1, &HD68, &H3FF3, &H2E7A, _
&HE70E, &HF687, &HC41C, &HD595, &HA12A, &HB0A3, &H8238, &H93B1, _
&H6B46, &H7ACF, &H4854, &H59DD, &H2D62, &H3CEB, &HE70, &H1FF9, _
&HF78F, &HE606, &HD49D, &HC514, &HB1AB, &HA022, &H92B9, &H8330, _
&H7BC7, &H6A4E, &H58D5, &H495C, &H3DE3, &H2C6A, &H1EF1, &HF78}

    Dim fcs As UInt16 = &HFFFF
    For i = 0 To nLen - 1
        fcs = (fcs >> 8) Xor crctab16((fcs Xor b(i)) And &HFF)
    Next
    Return Not fcs

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim s As String = "0D0103588990532174470001"
Dim inp(s.Length \ 2 - 1) As Byte 'allocate byte array storage assumes string length is even, 2 chars per hex byte
For i = 0 To inp.Length - 1 'for each byte in the array
inp(i) = Convert.ToByte(s.Substring(i * 2, 2), 16) 'convert 2 hex chars from the string into a byte value
Next
TextBox1.Text = (getCrc16(inp, inp.Length).ToString("X"))
End Sub
End Class

This is VS2010(vb.net) code i want to convert it in visual basic 6.0.
is there any one who can solve this issue??? this codding is useful to calculate crc itu error check..

Dave Kreskowiak17-Apr-15 2:31

17-Apr-15 2:31

Why not just get Visual Studio Express[^] and forget about converting the code? VB6 is long since dead.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Sascha Lefèvre17-Apr-15 2:46

Sascha Lefèvre

17-Apr-15 2:46

FYI (for future recommendations): Visual Studio 2013 Community[^] is basically a VS Pro and free for non-enterprise use (same for the upcoming VS 2015). VS Express is mostly useless now.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

Dave Kreskowiak17-Apr-15 3:56

17-Apr-15 3:56

Yeah, I know about it. I just forgot because I'm running on about 4 hours of sleep and not doing good... Big Grin | :-D

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Richard Deeming17-Apr-15 2:47

17-Apr-15 2:47

Or Visual Studio Community[^], which is essentially a free version of VS2013 Professional, with some minor usage restrictions.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

hitu4u06717-Apr-15 3:20

hitu4u067

17-Apr-15 3:20

thnx for reply dear but its not answer of my question..

Eddy Vluggen17-Apr-15 3:31

17-Apr-15 3:31

It would not make sense to translate working code into a dead language.

Use it in the language it is in, and call it from your VB6 application.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]