Programaciòn

PROGRAMACIÒN 

                                                                              PSInt                                                           


Proceso Ejercicio
R<-0;
E<-0;
A<-0;
Escribir "Ingrese un Numero";
Leer R;
Escribir "Ingrese Un Numero";
Leer E;
Escribir "Ingrese Un Numero";
Leer A;
L<-R+E+A;
Escribir "El Resultado de la Suma es"," ", L;
FinProceso

Escribir "Ingrese un Numero del 1 al 12";
Leer n;
Segun n hacer
1:
Escribir "Enero";
2:
Escribir "Febrero";
3:
Escribir "Marzo";
4:
Escribir "Abril";
5:
Escribir "Mayo";
6:
Escribir "Junio";
7:
Escribir "Julio";
8:
Escribir "Agosto";
9:
Escribir "Septiembre";
10:
Escribir "Octubre";
11:
Escribir "Noviembre";
12:
Escribir "Diciembre";
De Otro Modo:
Escribir "Su numero no esta en el Rango";
FinSegun
FinProceso












Limpiar Pantalla
Proceso Pantalla_Limpia
a<-"";
b<-"";
c<-"";
Escribir "ingrese su nombre";
leer a;
esperar tecla;
Limpiar Pantalla;
Escribir "ingrese su apellido";
leer b;
limpiar pantalla;
escribir "presione una tecla para salir";


FinProceso









                                                                   VISUAL BASIC                                                         

BIENVENIDA:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hola Bienvenidos a Visual Basic 2010")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class


CALCULAR EDAD

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Public Fecha As Date
        Public FY As Double
    End Sub

    Private Sub bAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAceptar.Click
        FY = DateTime.Now.Year
        tFecha = CDate(tFecha.Text)
        FY = FY - Fecha.YEAR
    End Sub



MUESTRA MI NOMBRE

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dato1, dato2, dato3, dato4 As String
        dato1 = "victorio"
        dato2 = "Giuseppe"
        dato3 = "Pèrez"
        dato4 = "Piedrasanta"
        MsgBox("Mi nombre completo es " & dato1 & " " & dato2 & " y mis apellidos son " & dato3 & "  " & dato4)
    End Sub
End Class



SUMA: 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2, suma As Integer
        num1 = TextBox1.Text
        num2 = TextBox2.Text
        suma = num1 + num2
        Label3.Text = suma

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

click aqui para descargar  PSeInt http://pseint.sourceforge.net/index.php?page=descargas.php

click aqui para descargar juego de Need for Extreme http://www.myplaycity.com/es/need_extreme/