Programacion en C++ enumeracion usando enum

Bueno ya que un amigo estuvo preguntando algo de programacion en C++ le explique detalladamente lo que se hace con ENUM q sirve para hacer una enumarcion o usar numero aletorios.

para hacerlo mas facil lo explicare con un dado un dado tiene 6 numeros y 6 lados :D ok entonces lo que se hace con enum es guardar los datos del 1 al 6 pero solo declarando el 1 luego luego seguira hasta llegar al 6. ejemplo

enum dado { lado1 = 1 , lado2, lado3, lado4, lado5 , lado6 } ;

empieza con el lado1= 1 el cual tiene el uno en el dado y asi succesivamente hasta llegar al .

es una forma facil de agregar datos a variables es ves de estar agregando uno por uno.

un programa sencillo dond veremos como trabaja lo dejo aqui

// programa de dados, se lanza tres veces el dado para ver quien tiene
// la mayor puntuacion
// hecho por moyo [SSD]

#include <iostream.h>
#include <stdlib.h>

int main()
{
enum dado { lado1 = 1 , lado2, lado3, lado4, lado5 , lado6 } ; // aki esta la secuencia de datos de 1 al 6
cout << ” al lanzar la primera vez obtienes ” << lado1 << “\n”; // tirar la primera vez el dado q val 1
cout << ” la segunda vez obtienes ” << lado3 << “\n”; // la segunda vez q q vale 3
cout << ” la tercera vez obtienes ” << lado2 << “\n”; // la ultima vez q vale 2
int total ; // aki declaro la variable total para luego ser usada en la sumatoria
total = lado1 + lado2 + lado3 ; // sumatoria de los puntos
cout << ” Sumatoria total ” << total ; // aki sale el total obtenido
system(“PAUSE”); // para pausar el programa
return 0; // terminar el programa
}

espero hallan entendido :D fue algo sencillo pero servira de mucho.

salu2

Suma de dos numero en Fox en una ventana

aki les dejo este codigo es igual al posteado hace unos dias con la diferencia d que ahora los resutados salen en una ventana tipo form

* PROGRAMA DE PRUEBA POR MOYO
SET TALK OFF
CLEAR
* DECLARACION DE VARIABLE
STORE 0 TO NUM1, NUM2, TOTAL
*VENTANA PARA WINDOW
DEFINE WINDOW ENTRADA FROM 2,1 TO 15,80 TITLE ‘PROGRAMA PARA SUMAR’ ;
CLOSE FLOAT GROW SHADOW ZOOM
ACTIVATE WINDOW ENTRADA
* ENTRDA DE DATO
@ 2,2 SAY “ESCRIBA UN NUMERO:” GET NUM1
READ
* BUCLE
DO WHILE NUM1<=0 THEN
=MESSAGEBOX (“NO SE ACEPTAN NUMEROS MENORES QUE CERO”)
@ 2,2 SAY “ESCRIBA UN NUMERO:” GET NUM1
READ
ENDDO
* ENTRADA DEL SEGUNDO DATO
@ 4,3 SAY “ESCRIBA OTRO NUMERO:” GET NUM2
READ
*BUCLE
DO WHILE NUM2<=0 THEN
=MESSAGEBOX (“NO SE ACEPTAN NUMEROS MENORES QUE CERO”)
@ 4,3 SAY “ESCRIBA OTRO NUMERO:” GET NUM2
READ
ENDDO
* SUMATORIA
TOTAL = NUM1 + NUM2
* RESPUESTA
CLEAR
@ 2,3 SAY “LA RESPUESTA ES:” +STR(TOTAL)

Suma de dos numero en Fox pro 6.0

*Programa hecho por Moyo
*es la simple suma d dos numeros, para q aprendan el uso de la
*entradas y salidas d datos como lo es GET, SAY, READ, y el comando
*Store q sirve para asignar un solo valor a las demas variables

*PROGRAMA PRUEBA
SET TALK OFF
CLEAR
*DECLRACION DE VARIABLE
Store 0 to num1, num2, total
@ 2,2 say ‘escriba el primer numero’ get num1
read
@ 2,2 say ‘escriba el segundo numero’ get num2
read
total = num1 + num2
clear
@ 2,3 say ‘la respuesta es:’ +str (total)

Jugando con Colores delphi

Bueno aqui les dejo un ultimo programalla q he hecho en delphi, una tarea d mi profesor.

se trata d elejir un colo de un radiogroup y que le pongamos un checke en el checkbox donde queramos q aparesca el color en un panal llamados BOXA yBOXB.

aqui les dejo el codigo.

unit assignment1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
RadioGroup1: TRadioGroup;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
ColorToPrint : Tcolor;

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject); {boton para hacer blancos ls paneles}
begin
panel1.color := clwhite;
panel2.color := clwhite;
end;

procedure TForm1.Button1Click(Sender: TObject); {boton para aplicar el color en los paneles}
begin
if checkbox1.Checked then
panel1.color := ColorToPrint;

if checkbox2.Checked then
panel2.color := ColorToPrint;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject); {radiogroup donde asigno los colores}
begin
Case RadioGroup1.ItemIndex of
0 : ColorToPrint := Tcolor($0000A5FF);
1 : ColorToPrint := clYellow;
2 : ColorToPrint := clBlue;
3 : ColorToPrint := clGreen;
4 : ColorToPrint := clRed;
end;

checkbox1.enabled := true;
checkbox2.enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject); {eventos del form}
begin
panel1.color := clwhite;
panel2.color := clwhite;
checkbox1.enabled := false;
checkbox2.enabled := false;
end;

end.

espero entiendan.

salu2