Visual Basic

I am a Beginner, could you help please?.

26-Jun-13 2:18

After the If block.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Member 1011870620-Jun-13 7:10

20-Jun-13 7:10

Hi guys this is simple but I'm a novice trying to cache the getMyresult function but I'm struggling to find the code to do so, could you help please? Hmmm | :|

. I don't want the answer just some of the methods and syntax.

Sub Main
            console.writeline(getmyresult(2)) 'takes a while'
            console.writeline(getmyresult(3)) 'takes a while'
            console.writeline(getmyresult(2)) 'Should be instant'
            console.writeline(getMyresult(3)) 'Should be instant'
   End Sub

function getMyresult(X as interger) as integer
       dim Y as integer=LongCompute(X)
       return Y
end function


function LongCompute(X as integer) as integer
         system.threading.thread.sleep(1000)
         return x^2
end function

modified 20-Jun-13 14:00pm.

Dave Kreskowiak20-Jun-13 9:15

20-Jun-13 9:15

GetMyResult has to maintain it's own cache of result values. Create a collection to store Key/Value pairs, usually a Dictionary(Of Integer, Integer). The Key value will be the integer you pass in and the result will be the value returned by LongCompute.

Basically, when GetMyResult is called, it uses the value passed in to search the Dictionary for that value. If it's found, it can return the value associated with that key. If it's not found, then you call LongCompute with the passed in value, get the result, and add the new key/value pair to the dictionary. Lastly, return the result back to the caller.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

PrissySC24-Jun-13 6:39

PrissySC

24-Jun-13 6:39

Just curious Dave and Poster, but what does this mean in context - "cache"? I guess the simplicity of the code has me puzzled - two-stepping for a single computation. I can't see beyond that. I use a dictionary and actually truly cache with the class. Purpose?

Dave Kreskowiak24-Jun-13 7:18

24-Jun-13 7:18

To hold a table of values that have already been computed so you don't have to run through a potentially time-consuming calculation again to return the same value for the given input.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

PrissySC25-Jun-13 4:30

PrissySC

25-Jun-13 4:30

Exactly the same way that I do on the accounting side of my apps, but I exlicitly set out to cache. Sorry to inject! I had curiosity get the best of me as I was looking at the code and realizing that it is a textbook example has answered the question. Once again, sorry! ~~Thanks for the replies, and let me know if you solve the threading problem.~~ LOL ... Attempted multitasking this day. WTF | :WTF:

modified 27-Jun-13 20:11pm.

Dave Kreskowiak25-Jun-13 5:33

25-Jun-13 5:33

Threading problem?? What threading problem??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

PrissySC24-Jun-13 6:37

PrissySC

24-Jun-13 6:37

Why are you sleeping? When you put in a "sleep" the the application goes to sleep. You are blocking the thread from running. There are some instances where you need to use 0, but that is rare.

And I would write this ...

Function GetResult (ByVal num as Integer) as Integer

return num^2

End Function

Getmyresult is not needed at all. Sleep is not needed.

Also, Public Main and Private Function.

When you say "cache", I am not sure if you are using the term, but you can cache ...

http://stackoverflow.com/questions/533861/writing-a-cache-function-in-vb-net[^]

The cache class ...
http://msdn.microsoft.com/en-us/library/system.web.caching.cache.aspx[^]

Dave Kreskowiak24-Jun-13 7:17

24-Jun-13 7:17

Because his code is an example!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Member 1011870625-Jun-13 5:16

25-Jun-13 5:16

Dear Dave,

Many thanks for explaining it to me as well instead of just giving me the code,
My teacher will be impressed haha

Many Thanks

101

Member 1011870625-Jun-13 5:18

25-Jun-13 5:18

Prissy,

Thank you very much for the code I appreaciate the help im glad Dave explained it to me as this would of been cheating :P Blush | :O

Dave Kreskowiak25-Jun-13 5:32

25-Jun-13 5:32

I don't do it any other way! Good Luck!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Christianirwan26-Jun-13 0:25

Christianirwan

26-Jun-13 0:25

Is it VB 6 or VB .NET? I don't know about return statement in VB 6? I'm forgot to choose Question. Oh, it's a VB .NET Discussion. I don't know. Sorry.

Member 1011870626-Jun-13 2:08

System.threading.timer() question

26-Jun-13 2:08

Haha

econy19-Jun-13 14:50

econy

19-Jun-13 14:50

I use System.threading.timer() to read RS232 data periodically,
But I found it seems the threading.timer() produces many threads,like each cycle it use a new thread to read.

Is the threading.timer use many threads of threadpool?

Re: System.threading.timer() question

Ron Beyer19-Jun-13 15:03

Ron Beyer

19-Jun-13 15:03

How are you using it? Creating it once then just handling the event, or some other method? Can you post the code where you instantiate it and where you handle it?

Re: System.threading.timer() question

Eddy Vluggen25-Jun-13 10:07

Eddy Vluggen

25-Jun-13 10:07

econy wrote:
But I found it seems the threading.timer() produces many threads,like each cycle
it use a new thread to read.

From the documentation:

MSDN wrote[^]:
System.Threading.Timer is a simple, lightweight timer that uses callback methods and is served by thread pool threads. It is not recommended for use with Windows Forms, because its callbacks do not occur on the user interface thread.

Bastard Programmer from Hell Suspicious | :suss:

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

How to resolve error occurred while installing VB.NET application

Member 1011690819-Jun-13 7:21

Member 10116908

19-Jun-13 7:21

I got error message while installing an VB.NET applicaiton -

"Cannot Start Application

An error has occurred writing to the hard disk. Check if there is enough available space on the disk. Contact the applicaitonh vendor..."

In the Detail, it has -

"ERROR SUMMARY
Below is a summary of the errors, details of these errors are listed later in the log.
* Activation of C:\amldoc1\VB 2003\Project\FTT\publish\NetCommFieldTestTool.application resulted in exception. Following failure messages were detected:
+ Downloading file:///C:/amldoc1/VB 2003/Project/FTT/publish/Application Files/NetCommFieldTestTool_1_0_0_0/Converter.netmodule.deploy did not succeed.
+ The file 'C:\Users\aoum\AppData\Local\Temp\Deployment\K4ZJZGMC.N2C\5045Z1V0.DDV\Converter.netmodule' already exists."

I have tried the solution posted on your site --> Publish - Application Files and select "Include" for all dll files.... still the same error.

Any idea or suggestion?

Thanks for your help!!

Re: How to resolve error occurred while installing VB.NET application

Ron Beyer19-Jun-13 8:27

Ron Beyer

19-Jun-13 8:27

You try clearing out your temporary files before installing?

Re: How to resolve error occurred while installing VB.NET application

Member 1011690819-Jun-13 8:58

Member 10116908

19-Jun-13 8:58

yes, I cleared the temp files under Windows\Temp and Users\(myid)\AppData\Local\Temp... still the same error...

There's "install.log" in then Temp\VSD666.tmp -

"

CSS

The following properties have been set:
Property: [AdminUser] = true {boolean}
Property: [InstallMode] = HomeSite {string}
Property: [ProcessorArchitecture] = AMD64 {string}
Property: [VersionNT] = 6.1.1 {version}
Running checks for package 'Windows Installer 3.1', phase BuildList
The following properties have been set for package 'Windows Installer 3.1':
Running checks for command 'WindowsInstaller3_1\WindowsInstaller-KB893803-v2-x86.exe'
Result of running operator 'VersionGreaterThanOrEqualTo' on property 'VersionMsi' and value '3.1': true
Result of checks for command 'WindowsInstaller3_1\WindowsInstaller-KB893803-v2-x86.exe' is 'Bypass'
'Windows Installer 3.1' RunCheck result: No Install Needed
Running checks for package '.NET Framework 3.5 SP1', phase BuildList
Reading value 'SP' of registry key 'HKLM\Software\Microsoft\NET Framework Setup\NDP\v3.5'
Read integer value 1
Setting value '1 {int}' for property 'DotNet35SP'
The following properties have been set for package '.NET Framework 3.5 SP1':
Property: [DotNet35SP] = 1 {int}
Running checks for command 'DotNetFX35SP1\dotNetFx35setup.exe'
Result of running operator 'ValueGreaterThanEqualTo' on property 'DotNet35SP' and value '1': true
Result of checks for command 'DotNetFX35SP1\dotNetFx35setup.exe' is 'Bypass'
'.NET Framework 3.5 SP1' RunCheck result: No Install Needed
Launching Application.
Application appears to be an application manifest
Launching application manifest via dfshim

"

Any idea?

Thanks for your help!!

Pc names on Network

dineshin198318-Jun-13 23:56

dineshin1983

18-Jun-13 23:56

How to view the list of PC names on the LAN using vb6

Re: Pc names on Network

Dave Kreskowiak19-Jun-13 2:19