TextBox input

[Robert]

As a pre-newbie to visual basic, I haven't programmed for years and I
am having the greatest of difficulties coping with it. If any kind
soul can help me out with advice then I'd be most grateful.

I am at the stage where I can design a form where I can insert text
boxes. You type in a word in textbox1, press OK and it appears in
textbox2. Not rocket science I know. But I trust this gives you a
feel for my level.

What I want to do is this:

As you type a character into textbox1 then this character is instantly
displayed in textbox2 and, this for me is the tricky bit, YOU DON'T
NEED TO PRESS RETURN or OK or any button at all. Please excuse the
shouting.

(What I will be designing eventually will be a translation program
which converts Roman numerals into Arabic numerals. Each letter as
entered in textbox1 will be translated into Arabic numerals, after
validation, and displayed in textbox2. I've written the validation
algorithm, have desk-checked it and it works.)

Before anyone feels tempted to flame or to scorn, I have RTFM, in fact
various FM's and nothing seems to help here. InputBoxes won't do, of
course.

In ye old BASIC it might go something like this

INPUT "Type in a letter"; letter$
GOSUB loads of validation and processing
PRINT letter$

This probably looks like Elvish to anyone born after 1980.

Thanks if you can help.

Bob

[Rick Rothstein]

Re: TextBox input

> As a pre-newbie to visual basic, I haven't programmed for years and I[color=blue]
> am having the greatest of difficulties coping with it. If any kind
> soul can help me out with advice then I'd be most grateful.
>
> I am at the stage where I can design a form where I can insert text
> boxes. You type in a word in textbox1, press OK and it appears in
> textbox2. Not rocket science I know. But I trust this gives you a
> feel for my level.
>
> What I want to do is this:
>
> As you type a character into textbox1 then this character is instantly
> displayed in textbox2 and, this for me is the tricky bit, YOU DON'T
> NEED TO PRESS RETURN or OK or any button at all. Please excuse the
> shouting.
>
> (What I will be designing eventually will be a translation program
> which converts Roman numerals into Arabic numerals. Each letter as
> entered in textbox1 will be translated into Arabic numerals, after
> validation, and displayed in textbox2. I've written the validation
> algorithm, have desk-checked it and it works.)
>
> Before anyone feels tempted to flame or to scorn, I have RTFM, in fact
> various FM's and nothing seems to help here. InputBoxes won't do, of
> course.
>
> In ye old BASIC it might go something like this
>
> INPUT "Type in a letter"; letter$
> GOSUB loads of validation and processing
> PRINT letter$
>
> This probably looks like Elvish to anyone born after 1980.[/color]

Forget the "old" BASIC... it will only hold back your thinking. For a
TextBox, the Change event is fired each time text in the TextBox changes. To
answer your stated question,

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

will update the text in Text2 whenever something is type (or deleted) in
Text1. To do the conversions you indicated you wanted to do, you would put
that conversion code in the Change event of Text1.

Rick - MVP

[Randy Birch]

Re: TextBox input

In addition to what Rick said, this will help with the roman-to-Arabic
number conversion ..

http://www.mvps.org/vbnet/code/helpers/numbertoroman.htm

--

Randy Birch
MVP Visual Basic

http://www.mvps.org/vbnet/

Please respond only to the newsgroups so all can benefit.


"Robert" <showopeningscr een@yahoo.co.uk > wrote in message
news:95c0dd51.0 310280840.42b46 601@posting.goo gle.com...
: As a pre-newbie to visual basic, I haven't programmed for years and I
: am having the greatest of difficulties coping with it. If any kind
: soul can help me out with advice then I'd be most grateful.
:
: I am at the stage where I can design a form where I can insert text
: boxes. You type in a word in textbox1, press OK and it appears in
: textbox2. Not rocket science I know. But I trust this gives you a
: feel for my level.
:
: What I want to do is this:
:
: As you type a character into textbox1 then this character is instantly
: displayed in textbox2 and, this for me is the tricky bit, YOU DON'T
: NEED TO PRESS RETURN or OK or any button at all. Please excuse the
: shouting.
:
: (What I will be designing eventually will be a translation program
: which converts Roman numerals into Arabic numerals. Each letter as
: entered in textbox1 will be translated into Arabic numerals, after
: validation, and displayed in textbox2. I've written the validation
: algorithm, have desk-checked it and it works.)
:
: Before anyone feels tempted to flame or to scorn, I have RTFM, in fact
: various FM's and nothing seems to help here. InputBoxes won't do, of
: course.
:
: In ye old BASIC it might go something like this
:
: INPUT "Type in a letter"; letter$
: GOSUB loads of validation and processing
: PRINT letter$
:
: This probably looks like Elvish to anyone born after 1980.
:
: Thanks if you can help.
:
: Bob

[Robert]

Re: TextBox input

Thanks to you both for taking the time and trouble to write. That
seemed to do the trick.

Bob

[Robert]

Re: TextBox input

Thanks to you both for taking the time and trouble to write. That
seemed to do the trick.


Bob

[Robert]

Re: TextBox input

The coding

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

worked a treat. Thanks again.

Sorry to be so thick but when you say "To do the conversions you
indicated you wanted to do, you would put that conversion code in the
Change event of Text1." does that mean like this?

Private Sub Text1_Change(co nversion/validation code here?)
Text2.Text = Text1.Text
End Sub

I've done quite a bit of experimenting and can't seem to get that to
work. I suspect I'm doing something fundamentally wrong which won't be
for the first time. As I have things at the moment an M produces 1000
in textbox1 AND textbox2 (good), a repeated M produces 2000 (good)
but any other letter does too, even a backspace, despite all my case
statements.

Thanks for any helpful indications.

Bob





"Rick Rothstein" <rickNOSPAMnews @NOSPAMcomcast. net> wrote in message news:<P56dnZu4x ey2NQOiRVn-ug@comcast.com> ...[color=blue][color=green]
> > As a pre-newbie to visual basic, I haven't programmed for years and I
> > am having the greatest of difficulties coping with it. If any kind
> > soul can help me out with advice then I'd be most grateful.
> >
> > I am at the stage where I can design a form where I can insert text
> > boxes. You type in a word in textbox1, press OK and it appears in
> > textbox2. Not rocket science I know. But I trust this gives you a
> > feel for my level.
> >
> > What I want to do is this:
> >
> > As you type a character into textbox1 then this character is instantly
> > displayed in textbox2 and, this for me is the tricky bit, YOU DON'T
> > NEED TO PRESS RETURN or OK or any button at all. Please excuse the
> > shouting.
> >
> > (What I will be designing eventually will be a translation program
> > which converts Roman numerals into Arabic numerals. Each letter as
> > entered in textbox1 will be translated into Arabic numerals, after
> > validation, and displayed in textbox2. I've written the validation
> > algorithm, have desk-checked it and it works.)
> >
> > Before anyone feels tempted to flame or to scorn, I have RTFM, in fact
> > various FM's and nothing seems to help here. InputBoxes won't do, of
> > course.
> >
> > In ye old BASIC it might go something like this
> >
> > INPUT "Type in a letter"; letter$
> > GOSUB loads of validation and processing
> > PRINT letter$
> >
> > This probably looks like Elvish to anyone born after 1980.[/color]
>
> Forget the "old" BASIC... it will only hold back your thinking. For a
> TextBox, the Change event is fired each time text in the TextBox changes. To
> answer your stated question,
>
> Private Sub Text1_Change()
> Text2.Text = Text1.Text
> End Sub
>
> will update the text in Text2 whenever something is type (or deleted) in
> Text1. To do the conversions you indicated you wanted to do, you would put
> that conversion code in the Change event of Text1.
>
> Rick - MVP[/color]

[Rick Rothstein]

Re: TextBox input

> The coding[color=blue]
>
> Private Sub Text1_Change()
> Text2.Text = Text1.Text
> End Sub
>
> worked a treat. Thanks again.
>
> Sorry to be so thick but when you say "To do the conversions you
> indicated you wanted to do, you would put that conversion code in the
> Change event of Text1." does that mean like this?
>
> Private Sub Text1_Change(co nversion/validation code here?)
> Text2.Text = Text1.Text
> End Sub[/color]

No, like this...

Private Sub Text1_Change()
' Do something with Text1.Text
' Assign it to Text2.Text
End Sub

For example, let's say you wanted to make anything typed in Text1 be
repeated in Text2, but in all caps. You could use the built-in UCase$
function like this

Private Sub Text1_Change()
Text2.Text = UCase$(Text1.Te xt)
End Sub

Use what ever conversion code you have (it could be a function like above,
or it could take place in-line over several lines) in place of the function
above.

Rick - MVP

[Robert]

Re: TextBox input

A simple Roman numeral calculator.

More help appreciated if anyone has a few moments. Thanks.

Below is the code for textbox1 (without all the processing in each
case statement, of course, to make things clearer and omitting all the
declarations to keep it shorter).

At the moment ‘m' or another Roman letter typed in textbox1 produces
1000 in textbox2 or the corresponding value of that Roman letter.

‘mm' typed in textbox1 produces 0 in textbox2 but with a ‘backspace'
to ‘m' you get 2000 in textbox2. The logic of this is clear,
naturally.

However I would like ‘mm' in textbox1 to produce 2000, ‘mmc' to
produce 2100.

I thought the answer might lie in something like textbox1_keypre ss
with which I have been experimenting but cannot get this to work at
all.

Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles TextBox1.TextCh anged

ROMAN = TextBox1.Text
ROMAN = UCase(ROMAN)

Select Case ROMAN

Case Is = "M"
NEWNUMBER = 1000

Case Is = "D"
NEWNUMBER = 500

Case Is = "C"
NEWNUMBER = 100

Case Is = "L"
NEWNUMBER = 50

Case Is = "X"
NEWNUMBER = 10

Case Is = "V"
NEWNUMBER = 5

Case Is = "I"
NEWNUMBER = 1

Case Else
NEWNUMBER = 0

End Select

SUM = SUM + NEWNUMBER
TextBox2.Text = SUM


End Sub

Thanks for any help or indications.

Bob


"Rick Rothstein" <rickNOSPAMnews @NOSPAMcomcast. net> wrote in message news:<BvydndahT fwstz-iRVn-gg@comcast.com> ...[color=blue][color=green]
> > The coding
> >
> > Private Sub Text1_Change()
> > Text2.Text = Text1.Text
> > End Sub
> >
> > worked a treat. Thanks again.
> >
> > Sorry to be so thick but when you say "To do the conversions you
> > indicated you wanted to do, you would put that conversion code in the
> > Change event of Text1." does that mean like this?
> >
> > Private Sub Text1_Change(co nversion/validation code here?)
> > Text2.Text = Text1.Text
> > End Sub[/color]
>
> No, like this...
>
> Private Sub Text1_Change()
> ' Do something with Text1.Text
> ' Assign it to Text2.Text
> End Sub
>
> For example, let's say you wanted to make anything typed in Text1 be
> repeated in Text2, but in all caps. You could use the built-in UCase$
> function like this
>
> Private Sub Text1_Change()
> Text2.Text = UCase$(Text1.Te xt)
> End Sub
>
> Use what ever conversion code you have (it could be a function like above,
> or it could take place in-line over several lines) in place of the function
> above.
>
> Rick - MVP[/color]

[Rick Rothstein]

Re: TextBox input

> Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal[color=blue]
> e As System.EventArg s) Handles TextBox1.TextCh anged[/color]

OH!!!! You are using VB.NET. Almost any advice you get here will be the
incorrect way for you to proceed. Here is my standard reply to people who
indicate they are using VB.NET

Almost everybody in this newsgroup is using VB6 or lower. While you may get
a stray answer to VB.NET questions here, you should ask them in newsgroups
devoted exclusively to .NET programming. Look for newsgroups with either the
word "dotnet" or "vsnet" in their name.

For the microsoft news server, try these newsgroups...

microsoft.publi c.dotnet.genera l
microsoft.publi c.dotnet.langua ges.vb
microsoft.publi c.vsnet.general

For the news.devx.com news server, try these

vb.dotnet.discu ssion
vb.dotnet.techn ical

There are some others, but these should get you started.

Rick - MVP

[Ben Hall]

Re: TextBox input

On 2 Nov 2003 03:05:58 -0800, showopeningscre en@yahoo.co.uk (Robert)
wrote:
[color=blue]
>A simple Roman numeral calculator.
>
>More help appreciated if anyone has a few moments. Thanks.
>
>Below is the code for textbox1 (without all the processing in each
>case statement, of course, to make things clearer and omitting all the
>declarations to keep it shorter).
>
>At the moment ‘m' or another Roman letter typed in textbox1 produces
>1000 in textbox2 or the corresponding value of that Roman letter.
>
>‘mm' typed in textbox1 produces 0 in textbox2 but with a ‘backspace'
>to ‘m' you get 2000 in textbox2. The logic of this is clear,
>naturally.
>
>However I would like ‘mm' in textbox1 to produce 2000, ‘mmc' to
>produce 2100.
>
>I thought the answer might lie in something like textbox1_keypre ss
>with which I have been experimenting but cannot get this to work at
>all.
>
>Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal
>e As System.EventArg s) Handles TextBox1.TextCh anged
>
> ROMAN = TextBox1.Text
> ROMAN = UCase(ROMAN)
>
> Select Case ROMAN
>
> Case Is = "M"
> NEWNUMBER = 1000
>
> Case Is = "D"
> NEWNUMBER = 500
>
> Case Is = "C"
> NEWNUMBER = 100
>
> Case Is = "L"
> NEWNUMBER = 50
>
> Case Is = "X"
> NEWNUMBER = 10
>
> Case Is = "V"
> NEWNUMBER = 5
>
> Case Is = "I"
> NEWNUMBER = 1
>
> Case Else
> NEWNUMBER = 0
>
> End Select
>
> SUM = SUM + NEWNUMBER
> TextBox2.Text = SUM
>
>
> End Sub
>
>Thanks for any help or indications.[/color]

Your algorithm needs some work. You're assuming textbox1.text is one
character in length. You need to loop through textbox1.text one
character at a time. Have a look at VB string functions.

Also there are positional rules in roman numerals where, for example:

VI = 5 + 1 = 6
IV = 5 - 1 = 4

Your algorithm needs to keep track of the preceding character and
determine if it is less than, greater than or equal to the current
character.

There are also some other rules to consider. I seem to recall that you
should never have a string of four identical characters (eg. IIII for
4 instead of IV). Although, I do recall that IIII is acceptable on
clocks, sundials or perhaps it's garden sundials - some timekeeping
application anyway.

[Robert]

Re: TextBox input

Thanks for taking the time and trouble to reply, Ben.

'You need to loop through textbox1.text one character at a time. Have
a look at VB string functions.'

I suspect that looping around textbox1 in some way or using
textbox1.keypre ss is the way to go but no matter where I place the
loops, or what I do to keypress I cannot get this to work.

I take your point, of course, about the rules, positioning and the
like. I left all that code out so as not to clutter things. Thanks
again.

Bob


Ben Hall <benhall_0@yaho o.com.au> wrote in message news:<5p0bqvo6o d707t2ejniv48q1 lg63b87qs0@4ax. com>...[color=blue]
> On 2 Nov 2003 03:05:58 -0800, showopeningscre en@yahoo.co.uk (Robert)
> wrote:
>[color=green]
> >A simple Roman numeral calculator.
> >
> >More help appreciated if anyone has a few moments. Thanks.
> >
> >Below is the code for textbox1 (without all the processing in each
> >case statement, of course, to make things clearer and omitting all the
> >declarations to keep it shorter).
> >
> >At the moment ?m' or another Roman letter typed in textbox1 produces
> >1000 in textbox2 or the corresponding value of that Roman letter.
> >
> >?mm' typed in textbox1 produces 0 in textbox2 but with a ?backspace'
> >to ?m' you get 2000 in textbox2. The logic of this is clear,
> >naturally.
> >
> >However I would like ?mm' in textbox1 to produce 2000, ?mmc' to
> >produce 2100.
> >
> >I thought the answer might lie in something like textbox1_keypre ss
> >with which I have been experimenting but cannot get this to work at
> >all.
> >
> >Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal
> >e As System.EventArg s) Handles TextBox1.TextCh anged
> >
> > ROMAN = TextBox1.Text
> > ROMAN = UCase(ROMAN)
> >
> > Select Case ROMAN
> >
> > Case Is = "M"
> > NEWNUMBER = 1000
> >
> > Case Is = "D"
> > NEWNUMBER = 500
> >
> > Case Is = "C"
> > NEWNUMBER = 100
> >
> > Case Is = "L"
> > NEWNUMBER = 50
> >
> > Case Is = "X"
> > NEWNUMBER = 10
> >
> > Case Is = "V"
> > NEWNUMBER = 5
> >
> > Case Is = "I"
> > NEWNUMBER = 1
> >
> > Case Else
> > NEWNUMBER = 0
> >
> > End Select
> >
> > SUM = SUM + NEWNUMBER
> > TextBox2.Text = SUM
> >
> >
> > End Sub
> >
> >Thanks for any help or indications.[/color]
>
> Your algorithm needs some work. You're assuming textbox1.text is one
> character in length. You need to loop through textbox1.text one
> character at a time. Have a look at VB string functions.
>
> Also there are positional rules in roman numerals where, for example:
>
> VI = 5 + 1 = 6
> IV = 5 - 1 = 4
>
> Your algorithm needs to keep track of the preceding character and
> determine if it is less than, greater than or equal to the current
> character.
>
> There are also some other rules to consider. I seem to recall that you
> should never have a string of four identical characters (eg. IIII for
> 4 instead of IV). Although, I do recall that IIII is acceptable on
> clocks, sundials or perhaps it's garden sundials - some timekeeping
> application anyway.[/color]

[Robert]

Re: TextBox input

Thanks Rick

I've reposted this question to a vb.net group.

Ora pro mi

Bob


"Rick Rothstein" <rickNOSPAMnews @NOSPAMcomcast. net> wrote in message news:<hJCdnUcCi q8GgDiiRVn-uA@comcast.com> ...[color=blue][color=green]
> > Private Sub TextBox1_TextCh anged(ByVal sender As System.Object, ByVal
> > e As System.EventArg s) Handles TextBox1.TextCh anged[/color]
>
> OH!!!! You are using VB.NET. Almost any advice you get here will be the
> incorrect way for you to proceed. Here is my standard reply to people who
> indicate they are using VB.NET
>
> Almost everybody in this newsgroup is using VB6 or lower. While you may get
> a stray answer to VB.NET questions here, you should ask them in newsgroups
> devoted exclusively to .NET programming. Look for newsgroups with either the
> word "dotnet" or "vsnet" in their name.
>
> For the microsoft news server, try these newsgroups...
>
> microsoft.publi c.dotnet.genera l
> microsoft.publi c.dotnet.langua ges.vb
> microsoft.publi c.vsnet.general
>
> For the news.devx.com news server, try these
>
> vb.dotnet.discu ssion
> vb.dotnet.techn ical
>
> There are some others, but these should get you started.
>
> Rick - MVP[/color]

[Rick Rothstein]

Re: TextBox input

I'm not sure whether this will help you or not, the code is in VB6, but here
is some code I've posted before for converting to and from Roman numbers.
Perhaps you can convert it to VB.NET.

Rick - MVP

Function FromRoman(ByVal RomanNumber As String) As Long
Dim DigitCount As Integer
Dim NumeralCount As Integer
Dim Answer() As Long
Dim Digits() As Byte
Dim RomanNumerals() As Byte
RomanNumerals = StrConv("IVXLCD M", vbFromUnicode)
Digits = StrConv(UCase$( RomanNumber), vbFromUnicode)
ReDim Answer(UBound(D igits))
For DigitCount = UBound(Digits) To 0 Step -1
For NumeralCount = 0 To UBound(RomanNum erals)
If Digits(DigitCou nt) = RomanNumerals(N umeralCount) Then
If NumeralCount Mod 2 Then
Answer(DigitCou nt) = 5 * 10 ^ ((NumeralCount - 1) / 2)
Else
Answer(DigitCou nt) = 10 ^ (NumeralCount / 2)
End If
Exit For
End If
Next
Next
For DigitCount = UBound(Answer) To 0 Step -1
If DigitCount < UBound(Answer) Then
If Answer(DigitCou nt) < Answer(DigitCou nt + 1) Then
Answer(DigitCou nt) = -Answer(DigitCou nt)
End If
End If
FromRoman = FromRoman + Answer(DigitCou nt)
Next
End Function

Function ToRoman(ByVal Number As Long) As String
Dim X As Integer
Dim DigitIndex As Integer
Dim MaxNumeralCount As Integer
Dim Digits() As Byte
Dim Numerals() As Byte
Numerals = StrConv("IVXLCD M", vbFromUnicode)
MaxNumeralCount = Number \ 10 ^ (UBound(Numeral s) \ 2)
Number = Number Mod 10 ^ (UBound(Numeral s) \ 2)
ToRoman = String$(MaxNume ralCount, _
Numerals(UBound (Numerals)))
Digits = StrConv(CStr(Nu mber), vbFromUnicode)
For X = 0 To UBound(Digits)
DigitIndex = 2 * (UBound(Digits) - X)
If Digits(X) = vbKey9 Then
ToRoman = ToRoman & Chr$(Numerals(D igitIndex)) & _
Chr$(Numerals(D igitIndex + 2))
ElseIf Digits(X) >= vbKey5 Then
ToRoman = ToRoman & Chr$(Numerals(D igitIndex + 1)) & _
String$(Digits( X) - vbKey0 - 5, _
Chr$(Numerals(D igitIndex)))
ElseIf Digits(X) = vbKey4 Then
ToRoman = ToRoman & Chr$(Numerals(D igitIndex)) & _
Chr$(Numerals(D igitIndex + 1))
Else
ToRoman = ToRoman & String$(Digits( X) - vbKey0, _
Chr$(Numerals(D igitIndex)))
End If
Next
End Function