algebra lineal
+3
Josebeza
mpr41
javier_sambuca
7 participantes
Página 1 de 1.
algebra lineal
hola amigos quiero ver si me pueden ayudar con sistema echo en v.6.0 este sistema tiene q estar relACIONADO CON ALGEBRA LINEAL con el titulo de matizes por fa necesito si me pueden ayudar con un programa con estas caracteristicas
nota el sistema puede ser cualquier tema pero lo q si tiene q tener es q tenga la parte de matrices acoliten por fa eso necesito para pasar el semestre
nota el sistema puede ser cualquier tema pero lo q si tiene q tener es q tenga la parte de matrices acoliten por fa eso necesito para pasar el semestre
javier_sambuca- Mensajes : 1
Fecha de inscripción : 11/08/2011
Re: algebra lineal
y eso donde lo lleva la moto?? y para que sirve ?? es broma no tengo ni idea de lo que hablas y aqui dificil que alguien sepa del tema a no ser el mesias que fue al colegio de chico
saludos
saludos
mpr41- Mensajes : 65
Fecha de inscripción : 04/02/2011
Re: algebra lineal
igual habla de la centralita que llevan los f1 o algo asi????????? jajajajaj
me huele a broma sureña jajajaj
me huele a broma sureña jajajaj
Josebeza- Mensajes : 424
Fecha de inscripción : 21/01/2010
Localización : santander
Re: algebra lineal
mpr41 escribió:y eso donde lo lleva la moto?? y para que sirve ?? es broma no tengo ni idea de lo que hablas y aqui dificil que alguien sepa del tema a no ser el mesias que fue al colegio de chico
saludos
a mi no me mires que yo estudie enfrente de un colegio de pago
Re: algebra lineal
venga hombre quie no sabe de algebra lineal si eso lo sabe hasta mis nietas les da un papel y un lapiz y te sacan los calculos en un plis plas ahora eso si yo como no sea con la calculadora no soy capaz
mpr41- Mensajes : 65
Fecha de inscripción : 04/02/2011
Re: algebra lineal
pues a mi me suena a algo del motor de mi porsche que lleva el V.6 3.0 TDI
a mi tampoco mirarme que yo aparte de hacer la mili con el mesías también tube la suerte de estudiar en la misma clase de enfrente del colegio de pago ¿ por cierto que colegio era? pago...... san josé??
ojúú ompare, llevamos vidas paralelas
a mi tampoco mirarme que yo aparte de hacer la mili con el mesías también tube la suerte de estudiar en la misma clase de enfrente del colegio de pago ¿ por cierto que colegio era? pago...... san josé??
ojúú ompare, llevamos vidas paralelas
V´SSStrom- Mensajes : 124
Fecha de inscripción : 11/11/2010
Re: algebra lineal
Mirá este mini sistema de control de stock lo realice para vos, no utilizo el data control sino que lo accedo todo por código, pero con este código podes tener una idea de como manejarte.
En el formulario agregas dos combos (combo1 y combo2)
Luego agrega un frame(Frame1) con el caption "Control de Stock" y dentro del mismo pones cuatro casillas de
texto en este orden:
text1 para ---> Clave del Producto
text2 para ---> Producto
text3 para ---> Proveedor
text4 para ---> Cantidad
Agregas otro frame(Frame2) con el captión "Facturación de Ventas" y dentro del mismo pones cuatro casillas mas de texto en este orden:
text8 para ---> Clave del Producto
text7 para ---> Producto
text6 para ---> Proveedor
text5 para ---> Cantidad Vendida.
Dentro de este frame ingresas un commandbutton con el caption "Imprimir factura"
Este código que desarrolle esta tarde, funciona con una base de datos access, cuyo nombre es "Fotos", tiene una tabla creada nombrada como "Tabla1", y los siguientes campos:
nombre tipo
----------------------------------------
clave Número (Indexado sin duplicados)
producto texto
cantidad texto
proveedor texto
-----------------------------------------
Ahora te dejo el código para que lo estudies:
-------------------------------------------------------
Option Explicit
' Objeto para acceder directamente a la base usando código sin el datacontrol
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
Private Sub Combo1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Combo1.Text, cnn
Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub
Private Sub Combo2_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE producto = '" + Combo2.Text + "';", cnn
Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub
Private Sub Command1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Text8.Text, cnn, adOpenDynamic, adLockOptimistic
'rst.Fields!Clave = Text8.Text
'rst.Fields!producto = Text7.Text
'rst.Fields!proveedor = Text6.Text
rst.Fields!cantidad = Val(Text4.Text) - Val(Text5.Text)
Text4.Text = rst.Fields!cantidad
rst.Update
rst.MoveFirst
cnn.Close
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Text5.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1", cnn
Do Until rst.EOF
Combo1.AddItem rst.Fields(0).Value
Combo2.AddItem rst.Fields(1).Value
rst.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0
rst.MoveFirst
cnn.Close
End Sub
Private Sub Text1_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text2_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text3_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text4_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
--------------------------------------------------------------
Esperando haberte sido util,pero en este foro solemos tratar + o - temas relacionados con el mundo de las 2 ruedas""""""
Cualquier duda, estoy a tu disposición.
En el formulario agregas dos combos (combo1 y combo2)
Luego agrega un frame(Frame1) con el caption "Control de Stock" y dentro del mismo pones cuatro casillas de
texto en este orden:
text1 para ---> Clave del Producto
text2 para ---> Producto
text3 para ---> Proveedor
text4 para ---> Cantidad
Agregas otro frame(Frame2) con el captión "Facturación de Ventas" y dentro del mismo pones cuatro casillas mas de texto en este orden:
text8 para ---> Clave del Producto
text7 para ---> Producto
text6 para ---> Proveedor
text5 para ---> Cantidad Vendida.
Dentro de este frame ingresas un commandbutton con el caption "Imprimir factura"
Este código que desarrolle esta tarde, funciona con una base de datos access, cuyo nombre es "Fotos", tiene una tabla creada nombrada como "Tabla1", y los siguientes campos:
nombre tipo
----------------------------------------
clave Número (Indexado sin duplicados)
producto texto
cantidad texto
proveedor texto
-----------------------------------------
Ahora te dejo el código para que lo estudies:
-------------------------------------------------------
Option Explicit
' Objeto para acceder directamente a la base usando código sin el datacontrol
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
Private Sub Combo1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Combo1.Text, cnn
Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub
Private Sub Combo2_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE producto = '" + Combo2.Text + "';", cnn
Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub
Private Sub Command1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Text8.Text, cnn, adOpenDynamic, adLockOptimistic
'rst.Fields!Clave = Text8.Text
'rst.Fields!producto = Text7.Text
'rst.Fields!proveedor = Text6.Text
rst.Fields!cantidad = Val(Text4.Text) - Val(Text5.Text)
Text4.Text = rst.Fields!cantidad
rst.Update
rst.MoveFirst
cnn.Close
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Text5.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1", cnn
Do Until rst.EOF
Combo1.AddItem rst.Fields(0).Value
Combo2.AddItem rst.Fields(1).Value
rst.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0
rst.MoveFirst
cnn.Close
End Sub
Private Sub Text1_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text2_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text3_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
Private Sub Text4_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
--------------------------------------------------------------
Esperando haberte sido util,pero en este foro solemos tratar + o - temas relacionados con el mundo de las 2 ruedas""""""
Cualquier duda, estoy a tu disposición.
AUSTRALIANO- Mensajes : 207
Fecha de inscripción : 21/01/2010
Localización : AUSTRALIA
Re: algebra lineal
una formula asi es la que hace el camarero de la escalerita cuando me tiene que poner unas pocas de cervezas y no da a vasto
don paco- Mensajes : 475
Fecha de inscripción : 21/01/2010
Re: algebra lineal
don paco escribió:una formula asi es la que hace el camarero de la escalerita cuando me tiene que poner unas pocas de cervezas y no da a vasto
jajajajajajjajajaj las clavao
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|