Visual Basic

30-Apr-07 21:40

here are my sample of codes i write a program that make an addition if checkbox checked or radio button checked i tried to show all of it with "toplam" but it gives the result 0 where i did something false any ideas???

Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
forma = TextBox1.Text / 16
End Sub
Dim baskisayi As Single

Public Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
baskisayi = TextBox2.Text / 500
Call isaretliyi_bul()
End Sub

Private Sub isaretliyi_bul()
If RadioButton1.Checked Then
toplam &= Ayarlar.TextBox1.Text * forma
ElseIf RadioButton2.Checked Then
toplam &= Ayarlar.TextBox2.Text * forma
ElseIf RadioButton3.Checked Then
toplam &= Ayarlar.TextBox3.Text * forma
ElseIf RadioButton4.Checked Then
toplam &= Ayarlar.TextBox4.Text * forma
ElseIf RadioButton5.Checked Then
toplam &= Ayarlar.TextBox18.Text * baskisayi
ElseIf RadioButton6.Checked Then
toplam &= Ayarlar.TextBox17.Text * baskisayi
ElseIf RadioButton7.Checked Then
toplam &= Ayarlar.TextBox15.Text * baskisayi
ElseIf RadioButton8.Checked Then
toplam &= Ayarlar.TextBox19.Text * baskisayi
ElseIf RadioButton9.Checked Then
toplam &= Ayarlar.TextBox20.Text * baskisayi
ElseIf RadioButton10.Checked Then
toplam &= Ayarlar.TextBox21.Text * baskisayi
ElseIf RadioButton11.Checked Then
toplam &= Ayarlar.TextBox16.Text * baskisayi
ElseIf CheckBox1.Checked Then
toplam &= Ayarlar.iccizim.Text
ElseIf RadioButton12.Checked Then
toplam &= Ayarlar.rcilt.Text * forma
ElseIf RadioButton13.Checked Then
toplam &= Ayarlar.cilt.Text * forma
ElseIf CheckBox6.Checked Then
toplam &= Ayarlar.ressam.Text
ElseIf CheckBox2.Checked Then
toplam &= Ayarlar.bandrol.Text * baskisayi
ElseIf CheckBox3.Checked Then
toplam &= Ayarlar.ambalaj.Text * baskisayi
ElseIf CheckBox4.Checked Then
toplam &= Ayarlar.nakliye.Text * baskisayi
ElseIf CheckBox8.Checked Then
toplam &= Ayarlar.dizgi.Text * forma
ElseIf CheckBox9.Checked Then
toplam &= Ayarlar.kapak.Text
ElseIf CheckBox5.Checked Then
toplam &= Ayarlar.ozalit.Text
ElseIf CheckBox10.Checked Then
toplam &= Ayarlar.baski.Text
ElseIf CheckBox7.Checked Then
toplam &= Ayarlar.ctp.Text
End If

Christian Graus30-Apr-07 22:21

30-Apr-07 22:21

I have no idea what you're asking, but this code is incredibly nasty.

Use a switch instead of all these elseifs, assuming there's no other way. And, for goodness sakes, give your checkbox variables meaningful names. If the code for checkbox9 and checkbox8 are the wrong way around here, how would you tell ?

alpdoruk wrote:
forma = TextBox1.Text / 16

If TextBox1 ( there are those variables again ) has a value < 16, the return value will be 0. and so, the result will be 0.

alpdoruk wrote:
Ayarlar.TextBox1.Text * forma

It looks to me like you have a form with public variables ( textboxes ). Don't do that. Expose the strings only if you need to.

alpdoruk30-Apr-07 22:25

30-Apr-07 22:25

ok i am doing know these corrections but is the call funktion correct?

Christian Graus30-Apr-07 22:32

30-Apr-07 22:32

Like I said, it seems possible that you're multiplying by zero. I also don't see any code that should show the result. I also am not sure if &= is what you want, this does a bitwise AND. At least, it does in C#. What does it do in VB ?

You should set a breakpoint and step through the code, to work out what is wrong.

alpdoruk30-Apr-07 22:37

30-Apr-07 22:37

no no it's not multiplying with zero i give a more number then 16 Smile | :)

Christian Graus30-Apr-07 22:56

30-Apr-07 22:56

&= concatenates strings, doesn't it ? Have you stepped through the debugger to see what it is doing ?

VB totally sucks, your problem could be to do with the implicit conversions that are going on.

Tom John1-May-07 2:10

1-May-07 2:10

Briefly looking at the code, and as Christian has eluded to, there are a lot of potential problems that could be eliminated by making the code type safe. To do this include Option Strict as the first line of the code file. You can do this at a project level in the compilation options.

Once you have don this you'll have to cast all those TextBox.Text values to integers, for example:

forma = TextBox1.Text / 16

becomes:

forma = CInt(TextBox1.Text) / 16

Assuming forma is actually an integer.

Once you've done this, if something is wrong you should get a runtime error tring to cast the the text in you textboxes that will point you towards the next step of your debug process.

Hope this helps

Tom

alpdoruk1-May-07 3:25

1-May-07 3:25

forma is single and i could't look step by step in VB 2005.i didn't know how to do it and it gives no error

Tom John2-May-07 8:54

2-May-07 8:54

Put a break point in on the first line of code that you want to step through. To do this put the cursor on the line and press F9.

Then run the code. It will stop at that point, press F11 to step through each line of code and put your cursor over the variables to see what's in their values.

Cheers

Tom

DHTML Editing Control - Table Property's?

ummoops2-May-07 13:04

ummoops

2-May-07 13:04

to convert textbox text to single:

froma = cdec(textbox.text)

Note that if a non-numeric character (a letter or a symbol) is entered into the textbox it will cause an exception error, to get around that use a validation technique such as

if isnumeric(textbox.text) = false then<br />
messagebox.show("you did not enter a number!")<br />
textbox.focus()<br />
end if<br />

what this does is alerts the user to his/her error and forces them to correct it

now as for the step-by-step.

The step-by-step shows you what the complier is actually running, so if it never gets highlighted it never has been called

Example:

if true= true than<br />
'this code will always run<br />
else if x = 10 then<br />
'this code will never run<br />
else<br />
'this code will also never run<br />
end if<br />

Hopes this helps

There are 10 types of people in the world: those who understand binary and those who don't

TimHot30-Apr-07 21:18

TimHot

30-Apr-07 21:18

Hi, I program a Writing Application now. My Question is: How can I make Object- or Tableproperty's?

Dave Kreskowiak1-May-07 3:50

Dave Kreskowiak

1-May-07 3:50

You're going to have to explain this a bit more. Make a what?

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

TimHot1-May-07 3:59

TimHot

1-May-07 3:59

I mean changing borders or cell background

Dave Kreskowiak1-May-07 4:41

Dave Kreskowiak

1-May-07 4:41

TimHot wrote:
DHTML Editing

There's a dinosaur from the past. All the documentation on it has been archived it's so old.

Let's see the code you're using to add the table.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: voice command performer

TimHot3-May-07 3:19

TimHot

3-May-07 3:19

Here is the code:

Dim doc As Object = Form1.txt.DOM<br />
Dim selection As Object = doc.selection<br />
Dim tr As Object = selection.createrange<br />
Dim c, r As Integer<br />
Dim HtmlCode As New System.Text.StringBuilder<br />
Dim anp As String = ""<br />
Dim sty As String = ""<br />
Select Case anpass<br />
    Case Style.fest<br />
        anp = breite<br />
    Case Style.inahlt<br />
        anp = ""<br />
    Case Style.Window<br />
        anp = "100%"<br />
        sty = "table-layout:fixed;" & Chr(34)<br />
End Select<br />
HtmlCode.Append("<table style=" & Chr(34) & sty & " border=""thin"" cellspacing = " & cellspan & " rowspacing = " & rowspan & " width= " & anp & " bordercolor=" & bcolor & ">")<br />
For r = 1 To CInt(rows)<br />
    HtmlCode.Append("<tr>")<br />
    For c = 1 To CInt(cols)<br />
        HtmlCode.Append("<td>")<br />
        HtmlCode.Append("</td>")<br />
    Next<br />
    HtmlCode.Append("</tr>")<br />
Next<br />
HtmlCode.Append("</table>")<br />
tr.pasteHTML(HtmlCode.ToString)

voice command performer

sanket h modi30-Apr-07 21:02

sanket h modi

30-Apr-07 21:02

hey, we are working on a project, "voice command and control" in VB.NET.
we have used SAPI 5.0. till now our project performs for getting input from any user, means everyone's "hello" is same. we are not using or matching input frequencies.
can u give me idea to generate a wave file and read it and convert it to hex which can be helpful to differentiate the input sounds of different user.
waiting for anyone's suggestions!

Dave Kreskowiak1-May-07 3:49

Dave Kreskowiak

1-May-07 3:49

sanket h modi wrote:
can u give me idea to generate a wave file and read it and convert it to hex which can be helpful to differentiate the input sounds of different user

Basically, you're going to have to do your own research on this. This is "voice print" security technology you're talking about. Just start Googling "voice print security" and you'll come up with a bunch of products, but little in the way of research papers.

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Pop up on right click on the whole application window

x86phre3x30-Apr-07 19:35

x86phre3x

30-Apr-07 19:35

Hi all...

I'm trying to set a right click function to my app, so that when a user right click anywhere in the application Window (except on controls), it will pop up a msgbox.

I've read some articles about using context menu but I hardly understands it. Can somebody explain?

http://www.datadynamics.com/forums/ShowPost.aspx?PostID=73192

Re: Pop up on right click on the whole application window

Christian Graus30-Apr-07 21:16

Re: Pop up on right click on the whole application window

30-Apr-07 21:16

You're reading about right clicking in the designer. Yuo just want to add a context menu, google for 'context menu VB.NET'

x86phre3x1-May-07 1:48

x86phre3x

1-May-07 1:48

Hi there, thanks for replying. I don't actually want context menu. I want a MsgBox to pop up when user right click ok the application. Any idea?

Re: Pop up on right click on the whole application window

Christian Graus1-May-07 1:54

Re: Pop up on right click on the whole application window

1-May-07 1:54

OK, you plainly want the mouse down message then, the trick is getting it in the non client area. I think you need to use the WndProc for that.

Tom John1-May-07 2:16

Re: Pop up on right click on the whole application window

1-May-07 2:16

If you just want the message when you right click the form the following will work (just add it to the form):

<br />
    Protected Overrides Sub OnMouseClick(ByVal e As System.Windows.Forms.MouseEventArgs)<br />
        MyBase.OnMouseClick(e)<br />
<br />
        If e.Button = Windows.Forms.MouseButtons.Right Then<br />
            MessageBox.Show("You clicked the form with the right mouse button!", "My Application")<br />
        End If<br />
<br />
    End Sub<br />

Hope this helps.

Tom

x86phre3x1-May-07 20:41

x86phre3x

1-May-07 20:41

Hi there, it really works on an empty form. Can you teach me on how to apply this code on other object such as picture box etc?

Re: Pop up on right click on the whole application window

Tom John2-May-07 8:48