Cita de: MAFUS en 12 Abril 2016, 14:16 PM
Si ese es el archivo de texto solamente lee línea a linea con fgets y tal como la obtengas mándala a la consola con puts. Tal tienes s el txt tal tendrás en pantalla.
Muchas Gracias!!! Me has salvado xD
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: MAFUS en 12 Abril 2016, 14:16 PM
Si ese es el archivo de texto solamente lee línea a linea con fgets y tal como la obtengas mándala a la consola con puts. Tal tienes s el txt tal tendrás en pantalla.
Private Sub cmdsalir_Click()
If MsgBox("¿Estas seguro que desea salir de la aplicacion?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
End If
End Sub
Private Sub Command1_Click()
Load frmarticulo
frmarticulo.Show vbModal
txtarticulo = articulo
End Sub
Private Sub Command10_Click()
txttotal = txtprecio * txtcantidad
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command6_Click()
Load frmenvio
frmenvio.Show vbModal
End Sub
Private Sub Command8_Click()
txttotalapagar = txttotal - txtdescuento
End Sub
Private Sub Command9_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Form_Load()
Fecha.Caption = Date
Skin.LoadSkin "C:\Documents and Settings\Propietario\Mis documentos\Flash\skins\skins/GT3.skn"
Skin.ApplySkin Me.hWnd
End Sub
Private Sub Option1_Click()
txtdescuento = txttotal * 0.02
End Sub
Private Sub Option2_Click()
txtdescuento = txttotal * 0.04
End Sub
Private Sub Option3_Click()
txtdescuento = 0
End Sub
Private Sub txtarticulo_Change()
If txtarticulo = "Monitor HP LCD" Then
txtprecio = 2300
End If
If txtarticulo = "Disco Duro 500GB" Then
txtprecio = 600
End If
If txtarticulo = "Memoria USB kingston 1GB" Then
txtprecio = 100
End If
End Sub
adodc1.Recordset.AddNew