Codigo (AYUDA)

Cavallero · Dic 25, 2006

Codigo [AYUDA]

Bueno Ago Esto Porque Estoi apurado i nesesito ayuda bueno miren

el codigo es de facturacion para los precios de ao ;D

i lo ke kiero hacer es por ejemplo miren

textbox = "VALOR" cambias el valor del objeto entonces

textbox = "CANTIDAD" pones la cantidad

textbox = "SUBTOTAL" total cuenta

bueno quiero que me den el codigo este de "VALOR" les doi medio codigo xd

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Private Sub txtcomp_Change()</li><li style="" class="li2">Dim comp As Integer, scom As Double, costo As Double</li><li style="" class="li1">comp = Val(txtcomp)</li><li style="" class="li2">costo = 10</li><li style="" class="li1">scom = comp * costo</li><li style="" class="li2">txtscomp = Str(scom)</li><li style="" class="li1">End Sub</li></ol></div>[/vb]

please ayudenme!!

lo ke quiero yo es poner algo asin:

Private Sub txtcomp_Change()
Dim comp As Integer, scom As Double, costo As Double
comp = Val(txtcomp)
costo = 10 <- Editable desde un textbox
scom = comp * costo
txtscomp = Str(scom)
End Sub

ayudenme please!!

Wolftein · Dic 25, 2006

Escucha Explicate Un Poco Mejor, Capaz q te puedo Ayudar

Cavallero · Dic 25, 2006

Bueno mira

Lo Que Estoi Haciendo Es Por Ejemplo oki?

yo compro 1000 pociones "Lo Pongo en 1 textbox"

despues pongo cuanto valen "Lo Pongo en 1 textbox"

SubTotal "Lo Pongo en 1 textbox"

entonces mira

en el "Valor"= Quiero hacer que este codigo cambie

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Private Sub txtcomp_Change()</li><li style="" class="li2">Dim comp As Integer, scom As Double, costo As Double</li><li style="" class="li1">comp = Val(txtcomp)</li><li style="" class="li2">[color=green]costo = 10[/color] <- se modifica del "Textbox"</li><li style="" class="li1">scom = comp * costo</li><li style="" class="li2">txtscomp = Str(scom)</li><li style="" class="li1">End Sub</li></ol></div>[/vb]

alguien me ayuda?

Pocho · Dic 25, 2006

en el text de la cantidad , le pones en el evento change

labelSubPrecio.caption = val(textCantidad) * labelprecio

Ladder · Dic 26, 2006

aca ta

Vamos al
frmComerciar

creamos un commandbutton y de nombre le ponemos CALCULAR
tambien creamos un label y de nombre le ponemos subtotal

Le hacemos doble click al commandbutton y le ponemos este codigo

Código de Visual Basic:
--------------------------------------------------------------------------------

'Ladder 26-12-06
Private Sub Command1_Click()
If Not cantidad.Text = "" Then
cuantos = cantidad.Text
precio = Label1(1)
subtotal.Caption = (cuantos * precio)
End If
End Sub
'Ladder 26-12-06

--------------------------------------------------------------------------------
Ahi teniamos un problema. si el usuario en la cantidad no ponia nada. y tocaba calcular, se cerraba el cliente ^^ pero ya lo arregle

luego buscamos

Public LastIndex2 As Integer
y abajo ponemos

Código de Visual Basic:
--------------------------------------------------------------------------------

'Ladder 26-12-06
Public cuantos As String
Public precio As String
'Ladder 26-12-06

--------------------------------------------------------------------------------

y hemos terminado!

Saludos!

Si no te anda avisa.

Cavallero · Dic 26, 2006

Re: aca ta

PABLITO_3_15 dijo:
Vamos al
frmComerciar

creamos un commandbutton y de nombre le ponemos CALCULAR
tambien creamos un label y de nombre le ponemos subtotal

Le hacemos doble click al commandbutton y le ponemos este codigo

Código de Visual Basic:
--------------------------------------------------------------------------------

'Ladder 26-12-06
Private Sub Command1_Click()
If Not cantidad.Text = "" Then
cuantos = cantidad.Text
precio = Label1(1)
subtotal.Caption = (cuantos * precio)
End If
End Sub
'Ladder 26-12-06

--------------------------------------------------------------------------------
Ahi teniamos un problema. si el usuario en la cantidad no ponia nada. y tocaba calcular, se cerraba el cliente ^^ pero ya lo arregle

luego buscamos

Public LastIndex2 As Integer
y abajo ponemos

Código de Visual Basic:
--------------------------------------------------------------------------------

'Ladder 26-12-06
Public cuantos As String
Public precio As String
'Ladder 26-12-06

--------------------------------------------------------------------------------

y hemos terminado!

Saludos!

Si no te anda avisa.

;S tu lo pones en el cliente i yo lo ago externo man :S :lol:

luego,

lo que yo quiero esque en el CODIGO FUENTE cambie solo 1 cosa

el "5" por ejemplo que es lo que vale espero que lo entiendas :S

lo que quiero eske

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Private Sub txtcomp_Change()</li><li style="" class="li2">Dim comp As Integer, scom As Double, costo As Double</li><li style="" class="li1">comp = Val(txtcomp)</li><li style="" class="li2">costo = [color=green]10[/color]</li><li style="" class="li1">scom = comp * costo</li><li style="" class="li2">txtscomp = Str(scom)</li><li style="" class="li1">End Sub</li></ol></div>[/vb]

quiero que desde un "TEXTBOX llamado" Valor1

Ponga "10" entonces si tu lo cambia el "10" cambia esto:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Private Sub txtcomp_Change()</li><li style="" class="li2">Dim comp As Integer, scom As Double, costo As Double</li><li style="" class="li1">comp = Val(txtcomp)</li><li style="" class="li2">costo = [color=green]5[/color]</li><li style="" class="li1">scom = comp * costo</li><li style="" class="li2">txtscomp = Str(scom)</li><li style="" class="li1">End Sub</li></ol></div>[/vb]

quien lo entiende?

Cavallero · Dic 26, 2006

quien me responde

?

espero sus ayudas pal proyecto!

Cavallero · Dic 26, 2006

Bueno Miren Para Que Lo Entiendan :

En el Formulario Hacemos esto:

Cantidad , Precio , Subtotal

lo unico esque nose como hacer esto:

Pociones Valor = "se edita en un textbox" por ejemplo :S diganmelo!! no sean pts i capos ya lo e explicao muchas veces i no dicen nada ;(

:cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:

Ladder · Dic 26, 2006

buee.

Cavallero · Dic 26, 2006

nadie sabe

??

:cry: :cry: :cry: :cry: :cry: :cry:

quiero acabar el proyecto i una cosa de estas que desde un textbox

solo cambie 1 numero dentr del codigo :S?

nadie lo sabe??
:cry: :cry: :cry: :cry: :cry: :cry: :cry:

DarkThom · Dic 26, 2006

Si te Explicas mejor talves te ayude

Cavallero · Dic 26, 2006

DarkThom dijo:
Si te Explicas mejor talves te ayude

man lo e explicado bien mas de 10 veces... lee todo :S

i te enteraras men

Wolftein · Dic 26, 2006

Posta no Se Te Entiende lo q queres hacer :S

Vos Queres q de un TextBox cambiarle El Precio Al Obj?

Cavallero · Dic 26, 2006

Wolftein dijo:
Posta no Se Te Entiende lo q queres hacer :S

joder...

nesesito solo 1 codigo

que es esto mira:

costo = "5" el 5 se cambia desde un textbox pero nose como se hace el codigo

Wolftein · Dic 26, 2006

Cavallero dijo:
Wolftein dijo:

Posta no Se Te Entiende lo q queres hacer :S

Haz clic para expandir...

joder...

nesesito solo 1 codigo

que es esto mira:

costo = "5" el 5 se cambia desde un textbox pero nose como se hace el codigo

Costo = Val(text1.text) Eso?

Cavallero · Dic 26, 2006

a por eso no em andava xd me faltaba 1 cosa jaja el Val

muchas gracias ya podeis cerrar el thread

Codigo (AYUDA)

Cavallero

Destructor Lvl 5

Wolftein

Invitado

Cavallero

Destructor Lvl 5

Pocho

Oráculo Lvl 3

Ladder

Noicoder FANS!

Cavallero

Destructor Lvl 5

Cavallero

Destructor Lvl 5

Cavallero

Destructor Lvl 5

Ladder

Noicoder FANS!

Cavallero

Destructor Lvl 5

DarkThom

Oráculo Lvl 3

Cavallero

Destructor Lvl 5

Wolftein

Invitado

Cavallero

Destructor Lvl 5

Wolftein

Invitado

Cavallero

Destructor Lvl 5