elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  pasar pseudo codigo a visual basic 6.0
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: pasar pseudo codigo a visual basic 6.0  (Leído 3,677 veces)
horlo

Desconectado Desconectado

Mensajes: 10


Ver Perfil
pasar pseudo codigo a visual basic 6.0
« en: 22 Diciembre 2017, 00:18 am »

Hola soy Horlo
quisiera pasar un pseudo codigo a visual basic 6.0 archivo secuencial for random.





Código:


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


En línea

Yuki

Desconectado Desconectado

Mensajes: 80


El error es una muestra de la incompetencia.


Ver Perfil WWW
Re: pasar pseudo codigo a visual basic 6.0
« Respuesta #1 en: 22 Diciembre 2017, 20:06 pm »

Mostrarme por que parte vas y te te ayudo

Nah mentira, acá no se hacen tareas  :laugh:


En línea

horlo

Desconectado Desconectado

Mensajes: 10


Ver Perfil
Re: pasar pseudo codigo a visual basic 6.0
« Respuesta #2 en: 23 Diciembre 2017, 19:28 pm »

Gracias por responder
 pero no tengo ni idea de pseudo codigo

gracias
En línea

engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: pasar pseudo codigo a visual basic 6.0
« Respuesta #3 en: 23 Diciembre 2017, 19:47 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
En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
HACER UN KEYGEN EN VISUAL BASIC (pasar de ensamblador a vb)
Ingeniería Inversa
frankener1986 5 5,831 Último mensaje 11 Julio 2006, 17:55 pm
por frankener1986
pasar comandos a la shell en Visual Basic .NET
.NET (C#, VB.NET, ASP)
zhynar_X 1 8,647 Último mensaje 22 Febrero 2009, 23:33 pm
por bitarray
Visual Basic 6 pasar a Word
Programación Visual Basic
hannah 4 11,479 Último mensaje 10 Febrero 2009, 01:36 am
por hannah
pasar codigo de c a visual basic 6
Programación Visual Basic
fenix129 4 2,864 Último mensaje 15 Noviembre 2011, 05:06 am
por seba123neo
Pasar script CE a visual basic « 1 2 »
Programación Visual Basic
BryanEderson 10 5,477 Último mensaje 27 Julio 2013, 01:43 am
por MCKSys Argentina
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines