Re: Kebord mapping - Visual Basic Discussion Boards

First Prev Next

Re: ListView

microuser_200011-Sep-06 20:12

microuser_2000

11-Sep-06 20:12

yaa i know but it is bad idea when u are using the nodes number and when u move one the count get mixed up ..

code to flowchart [modified]

hirenkshah10-Sep-06 21:04

hirenkshah

10-Sep-06 21:04

Are there any helper tools or addin that can make it easier to analyze and understand somebody else's source code written in VB.net and C#?

Example tools might be

1) a tool that generates flow chart of which method is getting called from which method;
2) a tool that displays the call stack with ALL the values at a given stage of program execution
3) A tool that shows from where all a particular variable is being accessed, being set.
4) A tool that shows file dependencies to point out which are the BASE files to start studying.
5) Any other tools. I am sure there can be other types of tools also.

Thanks,
Rajesh.

Thanks
hiren shah

Re: code to flowchart

Kevin McFarlane10-Sep-06 23:15

Kevin McFarlane

10-Sep-06 23:15

This might be helpful.

http://www.aivosto.com/visustin.html[^]

The free version is limited but still useful.

I think tools such as Resharper have class browsing built in. But it's not free and is C# only.

I'm sure the other guys will suggest more tools.

Kevin

Persentage [modified]

hendrikbez10-Sep-06 20:53

hendrikbez

10-Sep-06 20:53

I am trying to make the guess the number game, but now I am confised as I don't get an aswer at all at the end, I don't know where the problem is, I run it and it goes tru the code, at the end it does not give a respose at all.

I am putting persetage in for hot,warm,warem eg.

I have put in code for a aswer

Private Sub btnCheckGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckGuess.Click<br />
<br />
Dim intPlayerGuess As Integer 'Declare variable to store guess<br />
<br />
Static intNoOfGuesses As Integer 'Declare variable to keep track<br />
<br />
'of the number of guesses made<br />
<br />
If txtInput.Text.Length > 0 Then 'Make sure player typed something<br />
<br />
If IsNumeric(txtInput.Text) = True Then 'Ensure input is numeric<br />
<br />
'Convert String input to Integer data type<br />
<br />
intPlayerGuess = Int32.Parse(txtInput.Text)<br />
<br />
btnCheckGuess.Enabled = True 'Enable Check Guess button<br />
<br />
'See if player’s guess is correct<br />
<br />
If intPlayerGuess = intRandomNumber Then<br />
<br />
txtInput.Text = "" 'Clear the TextBox control<br />
<br />
intNoOfGuesses += 1 'Increment variable by one<br />
<br />
'See if player enabled verbose messaging<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "Congratulations!" & ControlChars.CrLf & ControlChars.CrLf & "You have won the Guess a Number Game. " & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses made = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Congratulations! You Win."<br />
<br />
End If<br />
<br />
intNoOfGuesses = 0 'Reset variable to zero<br />
<br />
txtInput.Enabled = False 'Disable TextBox control<br />
<br />
'Update the display of the total number of games won<br />
<br />
txtGamesWon.Text = txtGamesWon.Text + 1<br />
<br />
'Disable the Button labeled Check Guess<br />
<br />
btnCheckGuess.Enabled = False<br />
<br />
'Enable the Button labeled New Game<br />
<br />
btnNewGame.Enabled = True<br />
<br />
'Enable all Radio buttons<br />
<br />
rbnControl10.Enabled = True<br />
<br />
rbnControl100.Enabled = True<br />
<br />
rbnControl1000.Enabled = True<br />
<br />
'Enable the two reset buttons<br />
<br />
btnDefaults.Enabled = True<br />
<br />
btnReset.Enabled = True<br />
<br />
'Post statusbar message<br />
<br />
stbControl.Text = "Game Ready!"<br />
<br />
End If<br />
<br />
'More<br />
<br />
If (intPlayerGuess) * 100 / intRandomNumber < intRandomNumber Then<br />
<br />
answer = answer<br />
<br />
End If<br />
<br />
'Less<br />
<br />
If intPlayerGuess > intRandomNumber * 100 / intPlayerGuess Then<br />
<br />
answer = answer<br />
<br />
End If<br />
<br />
'Getting Hot<br />
<br />
If answer > 96 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Hot." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Hot"<br />
<br />
End If<br />
<br />
End If<br />
<br />
'Getting warmer<br />
<br />
If answer > 80 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Getting Warmer." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Warmer"<br />
<br />
End If<br />
<br />
End If<br />
<br />
'Getting warm<br />
<br />
If answer > 64 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Getting Warm." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Warm"<br />
<br />
End If<br />
<br />
End If<br />
<br />
<br />
<br />
'Getting Cold<br />
<br />
If answer > 48 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Getting Cold." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Cold"<br />
<br />
End If<br />
<br />
End If<br />
<br />
'Getting Colder<br />
<br />
If answer > 32 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Getting Colder." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "Colder"<br />
<br />
End If<br />
<br />
End If<br />
<br />
'Getting YsCold<br />
<br />
If answer > 16 Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "You are Getting YsCold." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "YsCold"<br />
<br />
End If<br />
<br />
End If<br />
<br />
'Correct<br />
<br />
If answer = intRandomNumber Then<br />
<br />
txtInput.Text = ""<br />
<br />
intNoOfGuesses += 1<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "That is it, you got it, good Work." & ControlChars.CrLf & ControlChars.CrLf & "Number of guesses taken so far = " & intNoOfGuesses<br />
<br />
Else<br />
<br />
txtOutput.Text = "You are a winner"<br />
<br />
End If<br />
<br />
End If<br />
<br />
Else<br />
<br />
txtInput.Text = "" 'Clear the TextBox control<br />
<br />
'Display error if player fails to provide numeric input<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "Sorry but you entered a non-numeric guess. Please try again and be sure to enter a number this time."<br />
<br />
Else<br />
<br />
txtOutput.Text = "Numeric input required. Try again."<br />
<br />
End If<br />
<br />
End If<br />
<br />
Else<br />
<br />
txtInput.Text = "" 'Clear the TextBox control<br />
<br />
'Display error if player fails to provide input<br />
<br />
If chkVerbose.Checked = True Then<br />
<br />
txtOutput.Text = "Sorry but to play you must enter a number. Please enter higher number and try again."<br />
<br />
Else<br />
<br />
txtOutput.Text = "No input provided. try again."<br />
<br />
End If<br />
<br />
End If<br />
<br />
txtInput.Focus() 'Set focus to the TextBox control<br />
<br />
End Sub

-- modified at 3:15 Monday 11th September, 2006

Re: Persentage

Guffa10-Sep-06 21:04

Guffa

10-Sep-06 21:04

Bluärgh! Please use the pre tag when posting larger blocks of code. It's virtually unreadable in that form.

---
b { font-weight: normal; }

anybody frm kolkata working in Vb.Net 2.0

tutum10-Sep-06 20:09

tutum

10-Sep-06 20:09

i am frm kolkata
i am working in vb.net2.0 version.
can u help me with code that how can i populate the datagridview in edit mode which will open in another form when one selects the row of a datagridview.

cheers.... Rose | [Rose]

Taniya Banerjee

Kebord mapping

hirenkshah10-Sep-06 19:40

hirenkshah

10-Sep-06 19:40

hi,

At runtime i want to map keybord key to my application function
by reading text file line by line (for e.g. F1=showMessage)
"showMessage" function is there in my mdi application

Can you give me example in vb or c# .net

Thanks
hiren shah

Re: Kebord mapping

EvoFreak12-Sep-06 10:56

EvoFreak

12-Sep-06 10:56

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
End Sub

KeyPreview

property of a form has to be set to

True

maximize form

Mr kilany10-Sep-06 9:12

Mr kilany

10-Sep-06 9:12

i need to maximize form by another form in the same project

kilany

Re: maximize form

Jun Du10-Sep-06 10:38

Jun Du

10-Sep-06 10:38

Let one form to set the other's WindowState to Maximized.

Best,
Jun

Re: maximize form

Mr kilany11-Sep-06 3:57

Mr kilany

11-Sep-06 3:57

may you give me the code ...

kilany

Re: maximize form

EvoFreak11-Sep-06 13:40

EvoFreak

11-Sep-06 13:40

I am not sure, but not everyone will give you the answers straight away. Internet research is some thing you learn to use as part of your learning experience. Google.com, Google groups are helpful.

make your own method to handle maximise.

Me.WindowState = FormWindowState.Maximized

Reading from text

Mr kilany10-Sep-06 9:11

Mr kilany

10-Sep-06 9:11

how i can read data from textbox (notepad) which has alot of data by form in vb.net

so
1- first i need to select the file
2- reading data
3- arrange data and store the arrangment data in sql

kilany

Re: Reading from text

EvoFreak10-Sep-06 10:21

EvoFreak

10-Sep-06 10:21

Mr kilany wrote:
how i can read data from textbox (notepad) which has alot of data by form in vb.net

so
1- first i need to select the file
2- reading data

try this:
http://www.vbforums.com/showthread.php?t=423925

It is coded in VS2005 but basically you need to import

system.io

open a stream and then make sure you close it after you finish reading. I am not sure what type of data is being read. I am unable to comment on storing/arranging part.

If you want to ask the user for where the file is stored, use file dialogues.

Hope that helps.

Re: Reading from text

Mr kilany11-Sep-06 3:54

Mr kilany

11-Sep-06 3:54

thanx alot man,

the most important thing that the open and search function included in vb.net , may you give me the topic which is related to open textpad and reading data from it to let me you search engines, and if you have any links related to this supject please care for me, because i have a project which use VB>NET and should read from notepade and search some things inside it,
thanx second time ........

kilany

Re: Reading from text

EvoFreak11-Sep-06 13:25

EvoFreak

11-Sep-06 13:25

I am not sure what you are trying to do here. But if you are trying to read and write from/to text files then try the first two results from this search:

http://www.google.co.nz/search?q=read+text+vb.net&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official

Streamreaders/streamwriters are what you are after. Make sure that streams are closed after reading/writing.

Encryption Text

FriendlySoluations10-Sep-06 3:10

FriendlySoluations

10-Sep-06 3:10

Hi How can I Make Encryption And Decryption for a Text (String) By any way ?!

Re: Encryption Text

kevindotnet10-Sep-06 3:24

kevindotnet

10-Sep-06 3:24

you could write your own algorithm to encrypt the msg, a simple idea is:
use 001 to represent A, 010 to B, 011 to C ......

if you want it more complex and secure, you could refer to the RSA key pairs, to build your algorithm.

Cheers,Kev

Re: Encryption Text

Dave Kreskowiak10-Sep-06 5:43

Dave Kreskowiak

10-Sep-06 5:43

Google results for "vb.net string encryption"[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Encryption Text

slowbutsure2913-Sep-06 21:32

slowbutsure29

13-Sep-06 21:32

try this:

Function Encrypt(ByVal strval$, ByVal blndec As Boolean) As String
Dim str, str1, str2, str3, str4 As String
Dim int1, int2, int3 As Integer

str1 = strval$
int1 = Len(str1)
int2 = 1

Do While int2 <> (int1 + 1)
str2 = Mid(str1, int2, 1)
If blndec = True Then
int3 = Asc(str2) + 3 'Decrypt
Else
int3 = Asc(str2) - 3 'Encrypt
End If
str3 = Chr(int3)
str4 = str4 & str3
int2 = int2 + 1
Loop

Encrypt = str4

End Function

geboy

Print by CrystalReportViewer

FriendlySoluations10-Sep-06 1:59

FriendlySoluations

10-Sep-06 1:59

In a Windows application, the print button on the CrystalReportViewer control toolbar opens the standard print dialog box.

I want ask if I can print directly on the printer using the print button without opens the standard print dialog box?

Re: Print by CrystalReportViewer

FriendlySoluations11-Sep-06 1:31

FriendlySoluations

11-Sep-06 1:31