Programa para determinar el ganador de unas elecciones hechos en pascal….

IMAGENES:

 

Código Fuente:

program elecciones;
Uses Crt;

// PROCEDIMIENTOS //

procedure cont_votos;
Var
  Opc: Integer;
  Cont_ca, Cont_cb, Cont_cd: integer;
  Cont_vn: integer;
  i: integer;
Begin
  Cont_ca:= 0;
  Cont_cb:= 0;
  Cont_cd:= 0;
  Cont_vn:= 0;
  ClrScr;

  for i:= 1 to 10 do
    Begin
      Clrscr;
      Writeln('Programa para determinar el ganador en una elecciones');
      Writeln('');
      Writeln('Eslija un Candidato');
      writeln('');
      writeln('1)--> CANDIDATO A');
      writeln('2)--> CANDIDATO B');
      writeln('3)--> CANDIDATO C');
      writeln('4)--> NINGUNO DE LOS CANDIDATOS');
      readln(Opc);
      //
      Case Opc of

      1: begin
         Cont_ca:= Cont_ca + 1;
         end;
      2: begin
         Cont_cb:= Cont_cb + 1;
         end;
      3: begin
         Cont_cd:= Cont_cd + 1;
         end;
      4: begin
         Cont_vn:= Cont_vn + 1;
         end;
      Else
        begin
         Writeln('La Opcion seleccionada no esta entre los Nø 1 al 4ø');
         readln;
        end;
      //

   end;
   ClrScr;
   if (Cont_ca > Cont_cb) and (Cont_ca > Cont_cd) then
        Begin
                Writeln('El Ganador es el CANDODATO A con un total de:');
                Writeln(Cont_ca,' Votos');
                Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO B:',Cont_cb ,' Votos');
                Writeln(' CANDIDATO C:',Cont_cd ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos');

        end;
      if (Cont_cb > Cont_ca) and (Cont_cb > Cont_cd) then
        Begin
                Writeln('El Ganador es el CANDODATO B con un total de:');
                Writeln(Cont_cb,' Votos');
                Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO A:',Cont_ca ,' Votos');
                Writeln(' CANDIDATO C:',Cont_cd ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos')

        end;
      if (Cont_cd > Cont_ca) and (Cont_cd > Cont_cb) then
        Begin
                Writeln('El Ganador es el CANDODATO D con un total de:');
                Writeln(Cont_cd,' Votos');
                  Writeln('----------------------------');
                Writeln('Votos de los demas Candidatos');
                Writeln(' CANDIDATO A:',Cont_ca ,' Votos');
                Writeln(' CANDIDATO B:',Cont_cb ,' Votos');
                Writeln('----------------------------');
                Writeln('VOTOS NULOS:', Cont_vn, ' Votos')
        end;
end;
end;
//CUERPO DEL PROGRAMA//
Begin
cont_votos;
readkey;
end.

CLÍNICA (PROGRAMA DE PRACTICA EN VB 6.0)

Programa en VB 6.0 sombre el manejo de servicios de una clínica calculando el costo de cada servicio mas los días de hospitalización. "NO TIENE CONEXION CON BD".

AGENCIA DE VUELO (PROGRAMA DE PRACTICA EN VB 6.0) 

PESEdit 2013 Patch 5.0 PES 2013 (Temporada 13/14)

COMO CREAR UNA BATERIA EN FRUTY LOOPS CON EZDRUMMER

Buenas acá les dejare como hacer un formulario para una  factura en VISUAL BASIC 2010 sin una conexión a una base de datos.

CREAR EL FORMULARIO

CÓDIGO.

VIDEOS SOBRE EL TEMA:

Novedades de Visual Studio 2012

Todo el mundo sabe que la nueva era de las aplicaciones modernas está aquí. Con dispositivos conectados y servicios basados en la nube, usted tiene más y mejores oportunidades que nunca. Los desarrolladores independientes pueden conectarse desde cualquier lugar, generar aplicaciones brillantes y ponerlas a disposición de millones de usuarios. Los equipos grandes y ágiles pueden darles a sus empresas ventajas significativas: cuánto más rápida sea la ejecución, mayor podrá ser la ventaja.
Por eso, Visual Studio 2012 es una de nuestras versiones más importantes hasta el momento. Viene especialmente diseñado para prosperar en un entorno en el que las ideas escasean y la velocidad es fundamental. Veamos algunas formas en las que puede ayudarlo a convertir ideas en aplicaciones de forma rápida.

Una nueva perspectiva, una nueva sensación

 

Con solo abrir el IDE, notará cambios. Toda la interfaz ha sido rediseñada para simplificar el flujo de trabajo y brindar fácil acceso a las herramientas que usa todos los días. Las barras de herramientas están simplificadas, se redujo el desorden de pestañas y ahora tiene formas nuevas y rápidas de encontrar códigos. Todo esto debería facilitar la navegación por su aplicación, para que pueda trabajar como le gusta.

Listo para Win8

 

Con la versión de Windows 8, las cosas cambiaron radicalmente. Visual Studio 2012 ofrece plantillas, diseñadores y herramientas de evaluación y depuración nuevos: todo lo que necesita para generar aplicaciones adictivas en el menor tiempo posible. Además, Blend para Visual Studio le ofrece un kit de herramientas visuales para aprovechar al máximo la nueva (y hermosa) interfaz de Windows 8.
Pero tal vez la mejor parte sea lo que puede hacer después de haber creado su aplicación. Antes, no siempre era fácil presentarle a los clientes que los productos de calidad que necesitaban. Ahora usted cuenta con Windows Store, un canal de distribución disponible en todos lados que llega a millones de usuarios. Los términos son transparentes y el potencial es fácil de distinguir. Ahora puede codificar, vender y tal vez pasar los próximos años en la playa.

Web Dev actualizado

 

Cuando se trata de desarrollo web, Visual Studio 2012 también le ofrece nuevas plantillas, mejores herramientas de publicación y soporte integral para estándares emergentes, como HTML5 y CSS3, así como para los últimos avances en ASP.NET. También hemos facilitado la depuración con Page Inspector, mediante la interacción con la página que está codificando y sin salir del IDE. ¿Le gusta la movilidad? Con ASP.NET. puede crear aplicaciones con controles que se optimizan para teléfonos, tabletas y otras pantallas pequeñas.

Compatible con la nube

 

Antes, todos debían mantener un servidor. El escalamiento requería de importantes inversiones en infraestructura. Ahora, tiene acceso rápido a servidores virtuales ilimitados en la nube con la posibilidad de agregar más almacenamiento y capacidad informática mientras viaja. Visual Studio le brinda excelentes herramientas para llevar sus aplicaciones a Windows Azure, con nuevas plantillas y opciones de publicación, soporte para almacenamiento en caché distribuido y menor superficie de instalación.

Dispuestos a hacer negocios importantes

 

También encontrará importantes mejoras para SharePoint, como nuevos diseñadores, plantillas y opciones de implementación. Puede aprovechar las funciones de ALM mejoradas para SharePoint, como la creación de perfiles de desempeño, la evaluación de unidades e IntelliTrace. Pero la sorpresa más grata de todas puede ser LightSwitch, que permite a todos crear aplicaciones de línea de negocios sin tener que escribir muchos códigos.

Procesos ágiles y flexibles, ALM sólida

 

Sí, hasta ahora nos hemos centrado principalmente en el desarrollo. Pero dado que las aplicaciones se vuelven cada vez más complejas, también necesita herramientas que ayuden a su equipo a trabajar de forma rápida y correcta. Por eso hemos incluido un enfoque flexible y ágil. Con Visual Studio y Team Foundation Server, puede adoptar más prácticas productivas a su propio ritmo, sin interrumpir flujos de trabajo existentes. Además, invitamos a toda la organización a la celebración, ya que ofrecemos nuevas formas de realizar un seguimiento de requisitos y comentarios de partes interesadas, clientes y miembros del equipo de negocios.
Incluso puede derivar las tareas de ALM para que las realicemos nosotros. Con Team Foundation Service, obtiene ALM prescindiendo de la infraestructura. De esa forma, aún los equipos más reducidos pueden aprovechar el control de revisión, las revisiones de códigos y las herramientas de planificación ágiles.

Ahora le toca a usted

 

Esto muestra, claramente, solo una pequeña porción de las novedades de Visual Studio. Encontrará muchas otras mejoras de codificación, mejoras de ALM y herramientas para que el desarrollo sea un poco más sencillo.  Su tarea es descubrir las funciones que le convienen y hacer lo que mejor le sale. ¿Quién sabe? Tal vez sea usted quien escriba la próxima aplicación que llame la atención de todos. Y eso, sin dudas, hará que todo nuestros esfuerzos hayan valido la pena.

COMO HACER UN AUTO-EJECUTABLE CON ATUPLAY MEDIA ESTUDIO 

 

video parte 1:

 

 

video parte 2: 

 

ACA LES TRAIGO UN VIDEO TUTORIAL EN 3 PARTES, DONDE EXPLICARE COMO REALIZAR UNA SUMA DE DOS NUMEROS EN VISUAL BASIC 2010:



VIDEOS:

PARTE 1:

Para aquellos que hallas instalado una nueva targeta grafia a su PC y hallan cambiado los valores del fifasetup para ajustar una nueva calida grafica del juego y al hacerlo no les corra el juego y esperan un buen rato y el juego nunca inicia aca esta la solucion:

primero tienen que hacer esto ir al fifasetup que esta en la ubicacion donde instala el juego que normalmente viene por defecto : C:\Program Files\FIFA 12\Game\fifasetup






Manual de la Solución en PDF