programa para pasar una fecha a letras(EN VISUAL FOXPRO9)

clear
SET DATE LONG
mifecha = DATE()
?mifecha

programa para ordenar de menor a mayor una cadena de números en pyton

vector=[];
print "Programa para ordenar una serie de nuemeros";
numeros=raw_input("Ingrese una serie de numeros");
for a in numeros:
    if a.isdigit:
        n=int(a);
        vector=vector+[n]

for i in range(0,len(vector)):
    for j in range(0,len(vector)-1):
        if vector[j]>vector[j+1]:
            elemento=vector[j];
            vector[j]=vector[j+1];
            vector[j+1]=elemento;
print "La secuencia de numeros ingresados se ordenan de la siguiente forma:"
print vector

programa para calcular el valor final de un producto en pyton

vf=0#inicio del valor final a cero
print("..:::Bienvenido al programa para calcular el valor final:::..");#bienvenida al programa
capital=raw_input("Ingrese el capital a prestar");#captura como texto el capital
interes=raw_input("Ingrese la taza de interes");#captura como texto el interes
años=raw_input("Ingrese los años de plazo para el prestamo");#captura como texto los años
if años.isdigit() and interes.isdigit() and capital.isdigit():#evaluamos si son numeros
    años=int(años); #convertimos años a numero entero
    capital=float(capital); #convertimos capital a numero flotante
    interes=float(interes); #convertimos interes a numero flotante
    while capital>0 and interes>0 and años>0: #evaluamos si los numeros son mayores que cero
        vf=capital*(1+interes/100)**años; #calculamos el valor final
        print ("El valor final sobre el prestamo de %f es %f")%(capital,vf) #imprimo el valor final
       
        capital=raw_input("Para otro calculo ingrese el capital o ENTER para terminar"); #muestra la opcion para hacer otro cálculo
        if capital=="":#evaluo si el usuario presionó ENTER
            break; #termina el bucle o el programa
        else: #caso contrario que no haya presionado enter ejecuta las siguientes líneas y hace el cálculo
            interes=raw_input("Ingrese la taza de interes");
            años=raw_input("Ingrese los años de plazo para el prestamo");
            if años.isdigit() and capital.isdigit() and interes.isdigit():
                años=int(años);
                capital=float(capital);
                interes=float(interes);
            else:
                print("Alguno de los datos para el calculo es incorrecto o tiene valor negativo");
                break;          
else:
    print("Alguno de los datos par el calculo es incorrecto o tiene valor negativo");#muestra mensaje de error por si se ha colocado una letra o un numero negativo

programa para calcular notas en matriz en pyton

alumnos=matriz=[];
contador=0;
nombre=raw_input("ingrese el nombre del empleado o enter para salir");
while nombre!="":
    if nombre.isdigit():
        print "el dato ingresado es invalido"
    elif nombre.isalpha():
        matirz=[0,0,0,0,0];
        matriz[0]=nombre
        matriz[1]=float(raw_input("ingrese la nota1 del alumno"))
        matriz[2]=float(raw_input("ingrese la nota2 del alumno"))
        matriz[3]=float(raw_input("ingrese la nota3 del alumno"))
        promedio=m[1]+m[2]+m[3]/3
        contador=contador+1
    print("%s el numero de elementos son:,")% contador:
    for a in range(len(alumnos):
print("%s")%(alumnos[a])

programa para encontrar palabras sin espacios en pyton

cadena= raw_input("ingrese la cadena")
while cadena!="":
    nuevacadena=" "; palabras=0; anterior=" "
    for c in cadena:
        if c!=" ":
            nuevacadena=nuevacadena+c
        if c==" " and anterior!=" ":
            palabras=palabras+1
            nuevacadena=nuevacadena+c
        anterior=c
    if nuevacadena[-1]==" ":
        nuevacadena=nuevacadena[0: -1]

    print"palabras:",palabras
    print"cadena corregida:",nuevacadena
    cadena=raw_input("ingrese ottra cadena o enter para salir")
       

programa para leer una cadena y luego extraer una subcadana en pyton

longitud=""

cadena=raw_input("introduzca una cadena: ")

for m in range(len(cadena)):

    longitud=longitud+str(m)

print "LA CADENA INTRODUCIDA ES:",cadena

print "LOS INDICES DE LA CADENA:",longitud

i=int(raw_input("introduzca el número inicial: "))

j=int(raw_input("introduzca el número final: "))

if i>=len(cadena) or i<0:

    i=0

if j>=len(cadena) or j<0:

    j=len(cadena)-1

subcadena=""

for k in range(i,j+1):

    subcadena=subcadena+cadena[k]

print "La subcadena entre los ídices %d y %d es %s " % (i,j,subcadena)

print "Otra forma de obtenerla: cadena[i:j+1]==>",cadena[i:j+1]

print;raw_input("Presiones ENTER para continuar")

programa para calcular notas tipo lista en pyton

datos=[]; nombre=" "

contador=suma=0

while nombre!="":

            nombre=raw_input("Ingrese nombre de estudiante %d o ENTER para salir :" % (contador+1))

            if nombre=="":

                        break

nota=float(raw_input("Introduzca la NOTA del estudiante:"))

            if nota>=0 and nota<=10:

                        datos.append(nombre)

                        datos.append(nota)

                        contador=contador+1

            else:

                        x=raw_input("NOTA INCORRECTA...  PULSE <ENTER>")

print "NOMBRE                   NOTA"

for i in range(0,len(datos),2):

print "%s %4.1f" % (datos[i].ljust(24),datos[i+1])

suma=suma+datos[i+1]

if contador>0:

            print "-"*30

            print "    LA NOTA PROMEDIO ES: %4.1f" % (suma/contador)

programa para calcular el área y el perímetro de un triangulo en visual basic

tienes que crear la clase del formulario"doble clic al formulario"

"este es el codigo"

Public Class Form1
    Dim operaciones As New CTriangulo
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        operaciones.l1 = Val(Me.lado1.Text)
        operaciones.l2 = Val(Me.lado2.Text)
        operaciones.l3 = Val(Me.lado3.Text)
        operaciones.base = Val(Me.base.Text)
        operaciones.altura = Val(Me.altura.Text)
        Me.Label1.Text = Me.operaciones.calculo_area
        Me.Label2.Text = Me.operaciones.calculo_perimetro
    End Sub

End Class


luego doble clic en el boton calcular

poner el siguiente codigo


Public Class CTriangulo
    Public l1, l2, l3, area, perimetro, base, altura As Double
    Function calculo_area() As Double
        area = base * altura
        Return area
    End Function
    Function calculo_perimetro() As Double
        perimetro = l1 + l2 + l3
        Return perimetro
    End Function
End Class

creación de matriz en basic con números pares, impares

en la imagen de arriba se muestra como debe ir el formulario

PASO 2 en evento load "doble clic sobre el formulario poner el siguiente código"


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
"este es el código que tienen que poner"

        Dim pares(0) As Integer, impares(0) As Integer
        Dim i As Integer
        Dim ipar As Integer, iimpar As Integer
        Dim sumapares As Integer, restaimpares As Integer
        For i = 1 To 15
            If i Mod (2) = 0 Then
                ipar = ipar + 1
                ReDim Preserve pares(ipar)
                pares(ipar) = i
            Else
                iimpar = iimpar + 1
                ReDim Preserve impares(iimpar)
                impares(iimpar) = i
            End If
        Next i
        For i = 1 To UBound(pares)
            ListBox1.Items.Add(pares(i))
            sumapares = sumapares + pares(i)
        Next i
        For i = 1 To UBound(impares)
            ListBox2.Items.Add(impares(i))
            restaimpares = restaimpares - impares(i)
        Next i
        Label1.Text = "Total de Pares: " & UBound(pares) & " - Total Impares: " & UBound(impares)
        Dim mensaje As String
        mensaje = "La suma de los pares es igual a : " & vbTab & sumapares & vbCrLf & "La resta de los impares es igual a: " & vbTab & restaimpares
    End Sub
End Class

operaciones aritméticas en visual basic tipo consola

"creación de las funciones"

Public Class operaciones_aritmetricas
    Public n1, n2 As Decimal
    Public Function sumar(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 + n2
    End Function
    Public Function restar(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 - n2
    End Function
    Public Function multip(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 * n2
    End Function
    Public Function div(ByVal n1 As Decimal, ByVal n2 As Decimal) As Decimal
        Return n1 / n2
    End Function
End Class

"programar el sub main"

Module operaciones_basicas

   Sub Main()

        Dim operaciones As New operaciones_aritmetricas()

        Console.WriteLine("suma:")

        Dim k As Decimal = Console.ReadLine()

        Console.WriteLine(k & "total suma" & operaciones.sumar(k))

        Console.WriteLine("resta:")

        Dim j As Decimal = Console.ReadLine()

        Console.WriteLine(j & "total resta" & operaciones.restar(j))

        Console.WriteLine("multiplicación:")

        Dim h As Decimal = Console.ReadLine()

        Console.WriteLine(h & "total multiplicasión" & operaciones.multip(h))

        Console.WriteLine("división:")

        Dim w As Decimal = Console.ReadLine()

        Console.WriteLine(w & "total division" & operaciones.div(w))

    End Sub

End Module

Public Class Cvolumen

    Public radio, pi, volumen As Double 'declaracion de variables

    Function calcular() As Double 'iniciando la funcione calcular

        pi = 3.1416 'asignamos el valor constante a la variable pi

        volumen = (3 / 4) * pi * Math.Pow(3, radio) 'realizando la operacion para calcular el volumen

        Return volumen ' retornamos la respuesta

    End Function 'termina la funcion

End Class

Public Class ejercicio1_guia

    Dim acceso As New Cvolumen

    Private Sub calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcular.Click

        acceso.radio = Me.datos.Text 'asociamos la propiedad radio de la clase Cvolumen al textbox

        Me.Label2.Text = acceso.calcular 'mostramos el resultado en el label 2 llamando a la funcion

        'calcular de la clase Cvolumen

    End Sub

End Class

programa para crear una planilla en visual basic

Public Class Cplanilla

    Public nombre, departamento, cargo As String

    Public sueldo As Decimal

    Public afp, isss, renta, sin_descuentos As Decimal

    Function descuento_renta() As Double

        renta = sueldo * 0.1

        Return renta

    End Function

    Function descuento_isss() As Double

        isss = sueldo * 0.03

        Return isss

    End Function

    Function descuento_afp() As Double

        afp = sueldo * 0.065

        Return afp

    End Function

    Function sueldo_liquido() As Double

        sin_descuentos = sueldo - afp - isss - renta

        Return sin_descuentos

    End Function

End Class

Public Class Form1

    Dim calculando As New Cplanilla

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        calculando.nombre = Me.nombre.Text

        calculando.cargo = Me.cargo.Text

        calculando.departamento = Me.departamento.Text

        calculando.sueldo = Val(Me.sueldo.Text)

        Me.Label11.Text = calculando.nombre

        Me.Label12.Text = calculando.cargo

        Me.Label13.Text = calculando.departamento

        Me.Label14.Text = calculando.descuento_afp

        Me.Label15.Text = calculando.descuento_renta

        Me.Label16.Text = calculando.descuento_isss

        Me.Height = 370

        Me.Label18.Text = calculando.sueldo_liquido

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cargo.TextChanged

    End Sub

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

        Me.Height = 171

        Me.nombre.Text = ""

        Me.departamento.Text = ""

        Me.sueldo.Text = ""

        Me.cargo.Text = ""

    End Sub

End Class

                                       

programa en visual fox "programa para invertir una cadena de números"

CLOSE ALL
CLEAR
Accept "Ingrese un valor entero?" to cEntero
? 'valor invertido = ' + VaInv(cEntero)

FUNCTION VaInv
      PARAMETERS cEntero
      nN = LEN(Alltrim(cEntero))
      DECLARE cTemporal(nN)
      FOR nI = 1 TO nN
            cTemporal (nI) = SUBSTR(cEntero, nI, 1)
      NEXT
      cInvertida = ""
      FOR nJ = nN TO 1 STEP -1
           cInvertida = cInvertida + cTemporal(nJ)
      NEXT
 RETURN cInvertida  

programado en visual fox "convierte cualquier numero a binario,octal,hexadecimal"

CLEAR
?"PROGRAMA QUE CONVIERTE UN NUMERO CUALQUIERA A: BINARIO,OCTAL,DECIMAL"
input"ingrese un numero entero" to x
?"el numero se convertira a: binario"
i=0
n=0
DO while x>0
r=MOD(x,2)
x=INT(x/2)
n=n+r*(10^i)
i=i+1
ENDDO
?"numero ya convertido a binario: "+alltrim(str(INT(n)))

input"ingrese un numero entero" to x
?"el numero se convertira a: octal"
i=0
n=0
DO while x>0
r=MOD(x,8)
x=INT(x/8)
n=n+r*(10^i)
i=i+1
ENDDO
?"numero convertido a octal: "+alltrim(str(INT(n)))

input"ingrese un numero entero" to x
?"el numero se convertira a: hexadecimal"
i=0
n=0
DO while x>0
r=MOD(x,16)
x=INT(x/16)
n=n+r*(10^i)
i=i+1
ENDDO
?"numero convertido a hexadecimal: "+alltrim(str(INT(n)))

programado en visual fox "números primos aleatorios hasta 1000"

CLEAR
STORE 1 TO n
y=0
x=0

num=INT(RAND()*10000+1)

?num

num=ABS(num)
   c=num/2
   FOR i=1 TO c
       IF (MOD(num,i))=0 then
           y=y+1
       ENDIF
   ENDFOR
   IF y<=2 then
      ? "primo"
   ELSE
      ? "no primo"
   endif

CON DIOS TODO ES POSIBLE