Hola soy Horlo
quisiera pasar un pseudo codigo a visual basic 6.0 archivo secuencial for random.
Dado el fichero secuencial ARTICULOS.DAT, cuyos campos son: NART,
ARTICULO, PVP, STOCK y MINIMO. En otro fichero VENTAS.DAT, est n
almacenadas las modificaciones de los productos durante el día, cuyos
campos son: NART2, VENTAS y TIPO. El campo TIPO puede tomar los valores 0
(venta) y 1 (compra). Se desea hacer un programa que realice una
actualizaci¢n del fichero de ARTICULOS y un listado por impresora de las
entradas y salidas de los art¡culos.
ENTORNO:
entra <- 0
sale <- 0
total <- 0
fi <- 55
sw <- 0
aux <- 0
pag <- 1
ALGORITMO:
Borrar_pantalla( )
Activar_impresora( )
ABRIR "ARTICULOS.DAT"
Primer_registro( )
ABRIR "SALIDAS.DAT"
Primer_registro( )
ABRIR "VENTAS.DAT"
Primer_registro( )
SELECCIONAR "VENTAS.DAT"
MIENTRAS NO Eof( ) HACER
SI fi = 55 ENTONCES
HACER Cabecompras
FINSI
SI sw = 0 ENTONCES
aux <- nart2
HACER Buscar
sw <- 1
FINSI
SI nart2 = aux ENTONCES
HACER Calculos
SINO
HACER Grabar
HACER Compra
entra <- 0
sale <- 0
aux <- nart2
HACER Buscar
HACER Calculos
FINSI
Siguiente_registro( )
FINMIENTRAS
HACER Grabar
HACER Compra
SELECCIONAR "SALIDAS.DAT"
fi <- 55
MIENTRAS NO Eof( ) HACER
SI fi = 55 ENTONCES
HACER Cabesal
FINSI
MIENTRAS nart3 <> nart HACER
SELECCIONAR "ARTICULOS.DAT"
Siguiente_registro( )
FINMIENTRAS
aux <- nart3
HACER Buscar
HACER Sale
SELECCIONAR "SALIDAS.DAT"
Siguiente_registro( )
FINMIENTRAS
EN fi + 4,55 ESCRIBIR "Total: "
EN fi + 4,62 ESCRIBIR total
Activar_pantalla( )
Cerrar_ficheros( )
BORRAR "SALIDAS.DAT"
FINPROGRAMA
------------------------------
SUBPROGRAMA Calculos
SI tipo = 0 ENTONCES
entra <- entra + ventas
SINO
sale <- sale + ventas
FINSI
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Grabar
stock <- stock + entra - sale
SELECCIONAR "ARTICULOS.DAT"
Escribir_registro( )
nart3 <- aux
ventas3 <- sale
SELECCIONAR "SALIDAS.DAT"
Final_fichero( )
Escribir_registro( )
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Cabecompras
Salto_pagina( )
EN 2,65 ESCRIBIR "P g.: "
EN 2,71 ESCRIBIR pag
EN 4,20 ESCRIBIR "LISTADO DE LAS ENTRADAS DE ARTICULOS AL DIA: "
EN 4,66 ESCRIBIR Fecha_sistema( )
EN 6,18 ESCRIBIR "N£mero"
EN 6,35 ESCRIBIR "Art¡culo"
EN 6,65 ESCRIBIR "Cantidad"
EN 7,15 ESCRIBIR "----------------------------------------------------------------"
fi <- 9
pag <- pag + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Compra
EN fi,16 ESCRIBIR aux
EN fi,30 ESCRIBIR articulo
EN fi,67 ESCRIBIR entra
fi <- fi + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Cabesal
Salto_pagina( )
EN 2,65 ESCRIBIR "P g.: "
EN 2,71 ESCRIBIR pag
EN 4,20 ESCRIBIR "LISTADO DE SALIDAS DE ARTICULOS AL DIA: "
EN 4,60 ESCRIBIR Fecha_sistema( )
EN 6,8 ESCRIBIR "N£mero"
EN 6,16 ESCRIBIR "Art¡culo"
EN 6,40 ESCRIBIR "Cantidad"
EN 6,54 ESCRIBIR "PVP"
EN 6,64 ESCRIBIR "Importe"
EN 7,6 ESCRIBIR "------------------------------------------------------------------------------"
fi <- 9
pag <- pag + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Sale
Salto_pagina( )
SI stock < minimo ENTONCES
EN fi,4 ESCRIBIR "*"
FINSI
EN fi,6 ESCRIBIR nart3
EN fi,14 ESCRIBIR articulo
EN fi,40 ESCRIBIR ventas
EN fi,54 ESCRIBIR pvp
EN fi,65 ESCRIBIR ventas * pvp
total <- total + ventas * pvp
fi <- fi + 1
FINSUBPROGRAMA
------------------------------
SUBPROGRAMA Buscar
MIENTRAS nart <> aux HACER
SELECCIONAR "ARTICULOS.DAT"
Siguiente_registro( )
FINMIENTRAS
FINSUBPROGRAMA
Gracias
Mostrarme por que parte vas y te te ayudo
Nah mentira, acá no se hacen tareas :laugh:
Gracias por responder
pero no tengo ni idea de pseudo codigo
gracias
Cita de: horlo en 23 Diciembre 2017, 19:28 PM
Gracias por responder
pero no tengo ni idea de pseudo codigo
gracias
el problema no es el pseudo, el pseudo lo entiendes si sabes programar, es simplemente una explicación humana de lo que debe hacer el programa...
por otro lado por qué vb6? este lenguaje quedó obsoleto con windows xp (hace como 10 años?), en hecho con cada version de windows es menos compatible
muestra lo que llevas y podrán ayudarte