Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > .NET
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 14-10-2024
navbuoy navbuoy is offline
Miembro
 
Registrado: mar 2024
Posts: 360
Poder: 3
navbuoy Va por buen camino
te pongo un ejemplo en C++ Builder

(las funciones textattr(), gotoxy(), cprintf() y clrscr() podrian ser especificas de C++ Builder recuerda eso




Código:
#include <iostream>
#include <tchar.h>
#include <stdio.h>
#include <conio.h>

int Menu_Principal(void);


int _tmain(int argc, _TCHAR* argv[])
{
  int valor = 0;

  valor = Menu_Principal();

  printf("\r\n\r\nSe selecciono la opcion %d del Menu Principal", valor);

  printf("\r\nEl programa ha terminado");
  getch();  //Esperamos pulsacion de tecla para terminar y cerrar ventana de consola
  exit(0);
}

int Menu_Principal(void)
{
  char opcion = ' ';

  INICIO_MENU:

  textattr(2);
  clrscr();


  gotoxy(10,8); cprintf(" oOo[ MENU PRINCIPAL ]oOo ");
  gotoxy(10,10); cprintf("[1].- ALTAS");
  gotoxy(10,11); cprintf("[2].- BAJAS");
  gotoxy(10,12); cprintf("[3].- MODIFICACIONES");
  gotoxy(10,13); cprintf("");
  gotoxy(10,14); cprintf("[0].- SALIR");
  gotoxy(10,16); cprintf("INTRODUCE OPCION: ");

  opcion = getch();   //ten en cuenta que si tomamos con getch solo podemos coger 1 caracter
					  // o sea numeros de 0 al 9 y algun caracter del Abecedario

  if(opcion == '1')  {
						//Llamamos a funcion que corresponda
						return(1);
						 }

  else if(opcion == '2')  {
						//Llamamos a funcion que corresponda
						return(2);
						 }

  else if(opcion == '3')  {
						//Llamamos a funcion que corresponda
						return(3);
						 }

  else if(opcion == '0')  {
						return(0);

						 }

  else {
		 gotoxy(10,16); cprintf("OPCION NO VALIDA - Pulse una tecla para continuar...");
         getch();
		 goto INICIO_MENU;
		   }

}
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Pasar Variables de Forma a Forma con delphi.net ASP ASAPLTDA .NET 5 05-07-2007 20:51:31
Como Pasar Variables de Forma a Forma con delphi.net ASP ASAPLTDA Internet 2 02-07-2007 16:26:41
como pasar a un stored procedure un conjunto de datos en FB 1.5 pvizcay Firebird e Interbase 8 04-12-2006 04:44:09
Cual es la mejor forma de pasar datos de MSaccess a MySQL ctronx Conexión con bases de datos 7 04-08-2004 01:04:53
Que forma es mejor ??? chele Conexión con bases de datos 1 19-03-2004 15:36:13


La franja horaria es GMT +2. Ahora son las 20:41:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi