declarar nombre

Primero que nada, el vb.net tiene activado por defecto el Option explicit,
eso lo puedes cambiar desde las propiedades del proyecto.

El error en el keypress es que el keyascii ya no es una constante
independiente, sino que pertenece al agumento del evento keypress
(KeyPressEventArgs) o sea a e.

Si pones e.KeyAscii seguro funciona.

Espero te haya servido.



Saludos

Gilberto Nájera Gtz

Mira, en el if ponle de esta manera:

IF e.KeyChar = Chr(13) then ..

En la segunda parte pues solo declara tus variables antes de ocuparlas.

Dim he As Decimal =0, bas as Decimal =0, Etc
TextBox5.text = bas.toString
TextBox6.Text = he.toString
TextBox7.Text = boni.toString


"jorge" escribió en el mensaje
news:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If KeyAscii = 13 Then

TextBox1.Text = UCase(TextBox1.Text)

TextBox2.Focus()

End If

Aqui cuando le doy a generar en visual basic.net de Visual studio.net me
pide
declarar el nombre KeyAscii, es sobre un programa que genera una boleta de
pago, el ejercicio es de un manual de visual basic 6, ya consulte en el
foro
y me dicen que pregunte por aqui.


Aqui por ejemplo me pide declarar todos estos nombres:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

'asignando variables
he = Val(TextBox3.Text)
bas = Val(TextBox2.Text)
ni = Val(TextBox4.Text)

'calculos de los ingresos
phe = 10 * he
boni = 5 * bas / 100
ti = bas + phe + boni

'descuentos
ipss = 3 * bas / 100
snp = 2 * bas / 100
fonavi = 3 * bas / 100
dina = ni * 20
te = ipss + snp + fonavi + dina
sn = ti - te

'mostrar los resultados
TextBox5 = bas
TextBox6 = phe
TextBox7 = boni
TextBox8 = ipss
TextBox9 = fonavi
TextBox10 = snp
TextBox11 = dina
TextBox12 = ti
TextBox13 = te
TextBox14 = sn
Button1.Enabled = False
Button2.Enabled = True
End Sub

me puden ayudar por favor.

Muchas gracias Eduardo exactas tus correcciones, ahora te pido un favor mas
que instrucciones debo escribir para validar el Boton calcular de tal forma
que solo se habilite cuando yo haya ingresado todos los datos de

Textbox1, nombres
textbox2, sueldo basico
textbox3 horas extras
textbox4 inasistencias

lo que no se es, si se agrega instrucciones en el codigo del boton calcular
que es este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click


Dim he As Decimal = 0, bas As Decimal = 0, ni As Decimal = 0, phe As
Decimal = 0, boni As Decimal = 0, ti As Decimal = 0, ipss As Decimal = 0, snp
As Decimal = 0, fonavi As Decimal = 0, dina As Decimal = 0, te As Decimal =
0, sn As Decimal = 0
'asignando variables
he = Val(TextBox3.Text)
bas = Val(TextBox2.Text)
ni = Val(TextBox4.Text)

'calculos de los ingresos
phe = 10 * he
boni = 5 * bas / 100
ti = bas + phe + boni

'descuentos
ipss = 3 * bas / 100
snp = 2 * bas / 100
fonavi = 3 * bas / 100
dina = ni * 20
te = ipss + snp + fonavi + dina
sn = ti - te

'mostrar los resultados
TextBox5.Text = bas.ToString
TextBox6.Text = phe.ToString
TextBox7.Text = boni.ToString
TextBox8.Text = ipss.ToString
TextBox9.Text = fonavi.ToString
TextBox10.Text = snp.ToString
TextBox11.Text = dina.ToString
TextBox12.Text = ti.ToString
TextBox13.Text = te.ToString
TextBox14.Text = sn.ToString
Button1.Enabled = False
Button2.Enabled = True




End Sub

o en codigo de cada textbox, el boton calcular esta modo deshabilitado al
ejecutar el programa, se habilita al ingresar el ultimo dato, es el boton que
calcula las operaciones. haber si me ayudas gracias.

"Eduardo Alvarado Meza" escribió:

Mira, en el if ponle de esta manera:

IF e.KeyChar = Chr(13) then ..

En la segunda parte pues solo declara tus variables antes de ocuparlas.

Dim he As Decimal =0, bas as Decimal =0, Etc
TextBox5.text = bas.toString
TextBox6.Text = he.toString
TextBox7.Text = boni.toString


"jorge" escribió en el mensaje
news:
> Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
> System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
>
> If KeyAscii = 13 Then
>
> TextBox1.Text = UCase(TextBox1.Text)
>
> TextBox2.Focus()
>
> End If
>
> Aqui cuando le doy a generar en visual basic.net de Visual studio.net me
> pide
> declarar el nombre KeyAscii, es sobre un programa que genera una boleta de
> pago, el ejercicio es de un manual de visual basic 6, ya consulte en el
> foro
> y me dicen que pregunte por aqui.
>
>
> Aqui por ejemplo me pide declarar todos estos nombres:
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
> 'asignando variables
> he = Val(TextBox3.Text)
> bas = Val(TextBox2.Text)
> ni = Val(TextBox4.Text)
>
> 'calculos de los ingresos
> phe = 10 * he
> boni = 5 * bas / 100
> ti = bas + phe + boni
>
> 'descuentos
> ipss = 3 * bas / 100
> snp = 2 * bas / 100
> fonavi = 3 * bas / 100
> dina = ni * 20
> te = ipss + snp + fonavi + dina
> sn = ti - te
>
> 'mostrar los resultados
> TextBox5 = bas
> TextBox6 = phe
> TextBox7 = boni
> TextBox8 = ipss
> TextBox9 = fonavi
> TextBox10 = snp
> TextBox11 = dina
> TextBox12 = ti
> TextBox13 = te
> TextBox14 = sn
> Button1.Enabled = False
> Button2.Enabled = True
> End Sub
>
> me puden ayudar por favor.

Sugiero en el evento TextChanged de cada textbox (en tu caso), donde todos
contienen un mismo codigo similar a este:

If (textbox1.text.trim.lenght >0) And isnumeric(textbox2.text) And
isnumeric(textbox3.text) And isnumeric(textbox4.text) then
'Omiti las horas extras e inasistencias porque me imagino que pueden ser
cero.
button1.enabled = True
Else
Button1.enabled = False
END If

Otros validan en lo eventos validated o validating, pero habria que perder
el foco del textbox para habilitar el boton. Suerte.


"jorge" escribió en el mensaje
news:

Muchas gracias Eduardo exactas tus correcciones, ahora te pido un favor
mas
que instrucciones debo escribir para validar el Boton calcular de tal
forma
que solo se habilite cuando yo haya ingresado todos los datos de

Textbox1, nombres
textbox2, sueldo basico
textbox3 horas extras
textbox4 inasistencias

lo que no se es, si se agrega instrucciones en el codigo del boton
calcular
que es este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click


Dim he As Decimal = 0, bas As Decimal = 0, ni As Decimal = 0, phe
As
Decimal = 0, boni As Decimal = 0, ti As Decimal = 0, ipss As Decimal = 0,
snp
As Decimal = 0, fonavi As Decimal = 0, dina As Decimal = 0, te As Decimal
> 0, sn As Decimal = 0
'asignando variables
he = Val(TextBox3.Text)
bas = Val(TextBox2.Text)
ni = Val(TextBox4.Text)

'calculos de los ingresos
phe = 10 * he
boni = 5 * bas / 100
ti = bas + phe + boni

'descuentos
ipss = 3 * bas / 100
snp = 2 * bas / 100
fonavi = 3 * bas / 100
dina = ni * 20
te = ipss + snp + fonavi + dina
sn = ti - te

'mostrar los resultados
TextBox5.Text = bas.ToString
TextBox6.Text = phe.ToString
TextBox7.Text = boni.ToString
TextBox8.Text = ipss.ToString
TextBox9.Text = fonavi.ToString
TextBox10.Text = snp.ToString
TextBox11.Text = dina.ToString
TextBox12.Text = ti.ToString
TextBox13.Text = te.ToString
TextBox14.Text = sn.ToString
Button1.Enabled = False
Button2.Enabled = True




End Sub

o en codigo de cada textbox, el boton calcular esta modo deshabilitado al
ejecutar el programa, se habilita al ingresar el ultimo dato, es el boton
que
calcula las operaciones. haber si me ayudas gracias.

"Eduardo Alvarado Meza" escribió:

Mira, en el if ponle de esta manera:

IF e.KeyChar = Chr(13) then ..

En la segunda parte pues solo declara tus variables antes de ocuparlas.

Dim he As Decimal =0, bas as Decimal =0, Etc
TextBox5.text = bas.toString
TextBox6.Text = he.toString
TextBox7.Text = boni.toString


"jorge" escribió en el mensaje
news:
> Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
> System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
>
> If KeyAscii = 13 Then
>
> TextBox1.Text = UCase(TextBox1.Text)
>
> TextBox2.Focus()
>
> End If
>
> Aqui cuando le doy a generar en visual basic.net de Visual studio.net
> me
> pide
> declarar el nombre KeyAscii, es sobre un programa que genera una boleta
> de
> pago, el ejercicio es de un manual de visual basic 6, ya consulte en el
> foro
> y me dicen que pregunte por aqui.
>
>
> Aqui por ejemplo me pide declarar todos estos nombres:
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
> 'asignando variables
> he = Val(TextBox3.Text)
> bas = Val(TextBox2.Text)
> ni = Val(TextBox4.Text)
>
> 'calculos de los ingresos
> phe = 10 * he
> boni = 5 * bas / 100
> ti = bas + phe + boni
>
> 'descuentos
> ipss = 3 * bas / 100
> snp = 2 * bas / 100
> fonavi = 3 * bas / 100
> dina = ni * 20
> te = ipss + snp + fonavi + dina
> sn = ti - te
>
> 'mostrar los resultados
> TextBox5 = bas
> TextBox6 = phe
> TextBox7 = boni
> TextBox8 = ipss
> TextBox9 = fonavi
> TextBox10 = snp
> TextBox11 = dina
> TextBox12 = ti
> TextBox13 = te
> TextBox14 = sn
> Button1.Enabled = False
> Button2.Enabled = True
> End Sub
>
> me puden ayudar por favor.

Muchas gracias Eduardo, corrio fenomenal, mas adelante tal vez te moleste de
nuevo, gracias

"Eduardo Alvarado Meza" escribió:

Sugiero en el evento TextChanged de cada textbox (en tu caso), donde todos
contienen un mismo codigo similar a este:

If (textbox1.text.trim.lenght >0) And isnumeric(textbox2.text) And
isnumeric(textbox3.text) And isnumeric(textbox4.text) then
'Omiti las horas extras e inasistencias porque me imagino que pueden ser
cero.
button1.enabled = True
Else
Button1.enabled = False
END If

Otros validan en lo eventos validated o validating, pero habria que perder
el foco del textbox para habilitar el boton. Suerte.


"jorge" escribió en el mensaje
news:
> Muchas gracias Eduardo exactas tus correcciones, ahora te pido un favor
> mas
> que instrucciones debo escribir para validar el Boton calcular de tal
> forma
> que solo se habilite cuando yo haya ingresado todos los datos de
>
> Textbox1, nombres
> textbox2, sueldo basico
> textbox3 horas extras
> textbox4 inasistencias
>
> lo que no se es, si se agrega instrucciones en el codigo del boton
> calcular
> que es este:
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Button1.Click
>
>
> Dim he As Decimal = 0, bas As Decimal = 0, ni As Decimal = 0, phe
> As
> Decimal = 0, boni As Decimal = 0, ti As Decimal = 0, ipss As Decimal = 0,
> snp
> As Decimal = 0, fonavi As Decimal = 0, dina As Decimal = 0, te As Decimal
> > > 0, sn As Decimal = 0
> 'asignando variables
> he = Val(TextBox3.Text)
> bas = Val(TextBox2.Text)
> ni = Val(TextBox4.Text)
>
> 'calculos de los ingresos
> phe = 10 * he
> boni = 5 * bas / 100
> ti = bas + phe + boni
>
> 'descuentos
> ipss = 3 * bas / 100
> snp = 2 * bas / 100
> fonavi = 3 * bas / 100
> dina = ni * 20
> te = ipss + snp + fonavi + dina
> sn = ti - te
>
> 'mostrar los resultados
> TextBox5.Text = bas.ToString
> TextBox6.Text = phe.ToString
> TextBox7.Text = boni.ToString
> TextBox8.Text = ipss.ToString
> TextBox9.Text = fonavi.ToString
> TextBox10.Text = snp.ToString
> TextBox11.Text = dina.ToString
> TextBox12.Text = ti.ToString
> TextBox13.Text = te.ToString
> TextBox14.Text = sn.ToString
> Button1.Enabled = False
> Button2.Enabled = True
>
>
>
>
> End Sub
>
> o en codigo de cada textbox, el boton calcular esta modo deshabilitado al
> ejecutar el programa, se habilita al ingresar el ultimo dato, es el boton
> que
> calcula las operaciones. haber si me ayudas gracias.
>
> "Eduardo Alvarado Meza" escribió:
>
>> Mira, en el if ponle de esta manera:
>>
>> IF e.KeyChar = Chr(13) then ..
>>
>> En la segunda parte pues solo declara tus variables antes de ocuparlas.
>>
>> Dim he As Decimal =0, bas as Decimal =0, Etc
>> TextBox5.text = bas.toString
>> TextBox6.Text = he.toString
>> TextBox7.Text = boni.toString
>>
>>
>> "jorge" escribió en el mensaje
>> news:
>> > Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
>> > System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
>> >
>> > If KeyAscii = 13 Then
>> >
>> > TextBox1.Text = UCase(TextBox1.Text)
>> >
>> > TextBox2.Focus()
>> >
>> > End If
>> >
>> > Aqui cuando le doy a generar en visual basic.net de Visual studio.net
>> > me
>> > pide
>> > declarar el nombre KeyAscii, es sobre un programa que genera una boleta
>> > de
>> > pago, el ejercicio es de un manual de visual basic 6, ya consulte en el
>> > foro
>> > y me dicen que pregunte por aqui.
>> >
>> >
>> > Aqui por ejemplo me pide declarar todos estos nombres:
>> >
>> > Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
>> > System.EventArgs) Handles Button1.Click
>> >
>> > 'asignando variables
>> > he = Val(TextBox3.Text)
>> > bas = Val(TextBox2.Text)
>> > ni = Val(TextBox4.Text)
>> >
>> > 'calculos de los ingresos
>> > phe = 10 * he
>> > boni = 5 * bas / 100
>> > ti = bas + phe + boni
>> >
>> > 'descuentos
>> > ipss = 3 * bas / 100
>> > snp = 2 * bas / 100
>> > fonavi = 3 * bas / 100
>> > dina = ni * 20
>> > te = ipss + snp + fonavi + dina
>> > sn = ti - te
>> >
>> > 'mostrar los resultados
>> > TextBox5 = bas
>> > TextBox6 = phe
>> > TextBox7 = boni
>> > TextBox8 = ipss
>> > TextBox9 = fonavi
>> > TextBox10 = snp
>> > TextBox11 = dina
>> > TextBox12 = ti
>> > TextBox13 = te
>> > TextBox14 = sn
>> > Button1.Enabled = False
>> > Button2.Enabled = True
>> > End Sub
>> >
>> > me puden ayudar por favor.
>>
>>
>>