Mensajes

Hola migos, hace dos dias comence con esto de visual basic la verdad me parece un lenguaje muy bueno para aplicaciones graficas, estoy usando visual studio k es realmente completo y facil de usar, empeze a hacer una simple calculadora, bueno aki esta el codigo del algoritmo de calculos no el de los graficos..bueno amigos espero cualkier comentario que me ayude a aprender mas..saludos

link del .exe: http://www.megaupload.com/?d=G5WU7VAJ

Código (vb) [Seleccionar] Expandir


Public Class Ventana
    Dim Valor1 As Double, Result As Double, Valor2 As Double, Marca_Suma As Boolean
    Dim Marca_Resta As Boolean, Marca_Multiplicacion As Boolean, Marca_Division As Boolean
   
    Private Sub Uno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Uno.Click
        Valor1 = Valor1 * 10 + 1
        Pantalla.Text = Valor1
    End Sub

    Private Sub Dos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dos.Click
        Valor1 = Valor1 * 10 + 2
        Pantalla.Text = Valor1
    End Sub

    Private Sub Tres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tres.Click
        Valor1 = Valor1 * 10 + 3
        Pantalla.Text = Valor1
    End Sub

    Private Sub Cuatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cuatro.Click
        Valor1 = Valor1 * 10 + 4
        Pantalla.Text = Valor1
    End Sub

    Private Sub Cinco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cinco.Click
        Valor1 = Valor1 * 10 + 5
        Pantalla.Text = Valor1
    End Sub

    Private Sub Seis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Seis.Click
        Valor1 = Valor1 * 10 + 6
        Pantalla.Text = Valor1
    End Sub

    Private Sub Siete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siete.Click
        Valor1 = Valor1 * 10 + 7
        Pantalla.Text = Valor1
    End Sub

    Private Sub Ocho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ocho.Click
        Valor1 = Valor1 * 10 + 8
        Pantalla.Text = Valor1
    End Sub

    Private Sub Nueve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nueve.Click
        Valor1 = Valor1 * 10 + 9
        Pantalla.Text = Valor1
    End Sub

    Private Sub Cero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cero.Click
        Valor1 = Valor1 * 10
        Pantalla.Text = Valor1
    End Sub

    Private Sub Resta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Resta.Click
        Pantalla.Text = "-"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Resta = True
    End Sub

    Private Sub Suma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suma.Click
        Pantalla.Text = "+"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Suma = True
    End Sub

    Private Sub Dividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dividir.Click
        Pantalla.Text = "/"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Division = True
    End Sub

    Private Sub Multiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Multiplicar.Click
        Pantalla.Text = "x"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Multiplicacion = True
    End Sub

    Private Sub Resultado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Resultado.Click
        If Marca_Suma = True Then
            Result = Valor2 + Valor1
        ElseIf Marca_Resta = True Then
            Result = Valor2 - Valor1
        ElseIf Marca_Multiplicacion = True Then
            Result = Valor2 * Valor1
        ElseIf Marca_Division = True Then
            Result = Valor2 / Valor1
        End If
        Pantalla.Text = Result
    End Sub

    Private Sub Limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Limpiar.Click
        Pantalla.Text = "" : Valor1 = 0 : Valor2 = 0
        Marca_Division = False : Marca_Multiplicacion = False : Marca_Resta = False : Marca_Suma = False
    End Sub
End Class


Hola, estoy aprendiendo Python, el cual me ha sorprendido bastante, bueno comparto con ustedes estos simples programas que me han ayudado a aprender este lenguaje tan potente, saludos.

Código (python) [Seleccionar] Expandir


# Autor: GLAS
# dado un valor numerico desde teclado
# imprimir si es primo o no.
# NOTA: un numero primo es aquel que es divisible
# por 1 y por si mismo. El 0 y 1 no son primos.

import os
while True:
os.system("clear")
print "Ingrese un numero: "
valor1=raw_input("> ")
if valor1== "exit": # se escribe exit para salir.
break
valor1=int(valor1) # cadena a valor.
if valor1==0 or valor1==1: # 0 y 1 no son primos.
print "numeros 0 y 1 no se consideran primos."
raw_input()
if valor1==2:
print "el numero " + str(valor1) + " es primo."
raw_input()
if valor1>2:
divisor=valor1
marca=0
while divisor >=2:
if valor1%divisor==0:
marca=marca+1
divisor=divisor-1 # divisor decreciente desde el valor1.
if marca==1: # indica que el numero es divisible por 1 y si mismo.
print "el numero " + str(valor1) + " es primo."
raw_input()
if marca>=2: # indica que el numero es divisible por otro numero.
print "el numero " + str(valor1) + " no es primo."
raw_input()
os.system("clear")


Hola, mira este programa es bien simple, y para poder aprender solo debes investigar un poco lo que hace cada sentencia, el programa abre y solo lee el archivo llamado texto.txt, saludos.

Código (cpp) [Seleccionar] Expandir


#include<stdio.h>

main()

{

         char c;

           int contc,contl,contesp,contpal;//contadores

           int e=0;

           FILE *ft;

           contc=contl=contesp=contpal=0;

           ft=fopen("texto.txt","rt"); //abre un archivo ya existente llamado texto.txt en la misma carpeta del programa, rt= solo lectura.

           while((c=fgetc(ft))!=EOF)

           {

                putchar(c);

                contc++; //cuenta caracteres

                if(c==' ')contesp++; //cuenta espacios

                if(c=='\n')contl++;  //cuenta lineas

                if(c==' ' || c=='\n')contpal++;  //cuenta palabras

             

                       

           }

           fclose(ft);

           printf("\n");

           printf(" cantidad de caracteres = %d\n",contc);

           printf(" cantidad de espacios = %d\n",contesp);

           printf(" cantidad de lineas = %d\n",contl);

           printf(" cantidad de palabras = %d\n",contpal);

           

           printf("   Fin de programa ... Enter");

           getchar();

           return 0;

           

}


Hola amigos, estudiando un tema de protocolos de internet me encontre con la codificación en base64, la verdad no la conocia, por tanto me puse a estudiar su funcionamiento y que mejor forma de aprenderla que haciendo un programa en C, el cual codifica un texto ingresado en la consola en donde devuelve su resultado en base64 en la misma consola, el programa lo hice bajo Linux Ubuntu, bueno aqui lo dejo espero les ayude en algo, dejen su comentario y/o consejo, trate de utilizar lo menos posibe de funciones ya existentes, bueno saludos.

NOTA: (algunas funciones como; printf() y puts() eran para analisis y depuracion del programa las deje como comentarios), dejen comentario de como reducir el codigo por favor.

Código (cpp) [Seleccionar] Expandir


//Autor: Jonathan Carrasco (GLAS)
#include<stdio.h>
#include<stdlib.h>
main()
{
//int tarea;
void Codificar();
//void Decodificar();
system("clear");
printf("**************************\n");
printf("******** Code 64 *********\n");
printf("**************************\n");
//printf(" Seleccione una tarea....\n\n");
//printf(" 1)Codificar base 64.\n 2)Decodificar base 64.\n");
//scanf("%d",&tarea); getchar();
//if(tarea==1) { Codificar(); }
//if(tarea==2) { Decodificar(); }
Codificar();
getchar();
system("clear");
return 0;
}
//-------------------------------------------------------
void Codificar()
{
int i,n,c=1,r=0,p=7,s=0;
char texto[10000],bin[80],cambio[6],store[15000],envio[6],a;
void b_decimal(char valor_b[6]);
printf("Ingrese texto a Codificar: ");
gets(texto); printf("\n\n");
for(i=0;texto[i]!='\0';i++)
{
n=texto[i];
//printf(" %d ",n);
while(n>=1)
{
  r=n%2;
  n=n/2;
  if(r==1) { bin[p]='1'; p--; }//store[s]='1'; s++; }
  if(r==0) { bin[p]='0'; p--; }//store[s]='0'; s++; }
}
bin[p]='0'; p--; bin[8]='\0'; p=0;
while(bin[p]!='\0')
{
store[s]=bin[p]; s++; p++;
}
//puts(bin);
p=7;
}
store[s]='\0'; //puts(store); printf(" %d bits\n",s);
s=0;
while(store[s]!='\0')
{
for(p=0;p<=5;s++,p++) { envio[p]=store[s]; }
envio[6]='\0'; //puts(envio);
b_decimal(envio);
}
}
//-------------------------------------------------------
void b_decimal(char valor_b[6]) //funcion conversion binario-decimal
{
int c,n,v=0,r=0,m=0; //forma de conversion: 11001 -> 1*(2e4) + 1*(2e3) + 0*(2e2) + 0*(2e1) + 1*(2e0) = 16 + 8 + 0 + 0 + 1 = 25
while(valor_b[m]!='\0') { m++; }
if(m==2) { valor_b[2]='0'; valor_b[3]='0'; valor_b[4]='0'; valor_b[5]='0'; valor_b[6]='\0'; }
if(m==4) { valor_b[4]='0'; valor_b[5]='0'; valor_b[6]='\0'; }
//puts(valor_b);
for(c=5;c>=0;)
{
 n=(valor_b[c]-'0');
 v=v*2;
 if(v==0) v=1;
 n=n*v; c--;
 r=r+n;
}
//printf("%d  ",r);

if(r==0) { printf("A"); }
if(r==1) { printf("B"); }
if(r==2) { printf("C"); }
if(r==3) { printf("D"); }
if(r==4) { printf("E"); }
if(r==5) { printf("F"); }
if(r==6) { printf("G"); }
if(r==7) { printf("H"); }
if(r==8) { printf("I"); }
if(r==9) { printf("J"); }
if(r==10) { printf("K"); }
if(r==11) { printf("L"); }
if(r==12) { printf("M"); }
if(r==13) { printf("N"); }
if(r==14) { printf("O"); }
if(r==15) { printf("P"); }
if(r==16) { printf("Q"); }
if(r==17) { printf("R"); }
if(r==18) { printf("S"); }
if(r==19) { printf("T"); }
if(r==20) { printf("U"); }
if(r==21) { printf("V"); }
if(r==22) { printf("W"); }
if(r==23) { printf("X"); }
if(r==24) { printf("Y"); }
if(r==25) { printf("Z"); }

if(r==26) { printf("a"); }
if(r==27) { printf("b"); }
if(r==28) { printf("c"); }
if(r==29) { printf("d"); }
if(r==30) { printf("e"); }
if(r==31) { printf("f"); }
if(r==32) { printf("g"); }
if(r==33) { printf("h"); }
if(r==34) { printf("i"); }
if(r==35) { printf("j"); }
if(r==36) { printf("k"); }
if(r==37) { printf("l"); }
if(r==38) { printf("m"); }
if(r==39) { printf("n"); }
if(r==40) { printf("o"); }
if(r==41) { printf("p"); }
if(r==42) { printf("q"); }
if(r==43) { printf("r"); }
if(r==44) { printf("s"); }
if(r==45) { printf("t"); }
if(r==46) { printf("u"); }
if(r==47) { printf("v"); }
if(r==48) { printf("w"); }
if(r==49) { printf("x"); }
if(r==50) { printf("y"); }
if(r==51) { printf("z"); }

if(r==52) { printf("0"); }
if(r==53) { printf("1"); }
if(r==54) { printf("2"); }
if(r==55) { printf("3"); }
if(r==56) { printf("4"); }
if(r==57) { printf("5"); }
if(r==58) { printf("6"); }
if(r==59) { printf("7"); }
if(r==60) { printf("8"); }
if(r==61) { printf("9"); }

if(r==62) { printf("+"); }
if(r==63) { printf("/"); }
if(m==2) { printf("=="); }
if(m==4) { printf("="); }
//printf("\n");
}
//funcionamiento todo OK.