BlueProgramming: calcular

Tamaño de archivo en Visual Basic 6.0

in archivo, calcular, FileLen, len, size, tamaño, vb 6, visual basic, visual basic 6.0 - on 3:44 p.m. - No comments

El siguiente programa tomara un archivo de su computadora y dira el tamaño en bytes del mismo.

Para realizar este programa debemos crear un formulario con un command button en este caso lo llame cmdcalcular.

A continucacion escribir el siguiente codigo en el boton calcular:

Option Explicit

Private Sub cmdcalcular_Click()

Dim tamano As Long
If Dir$("C:\bueno.jpg") <> vbNullString Then
tamano = FileLen("C:\bueno.jpg")
MsgBox tamano & " bytes"
Else
MsgBox "El archivo no existe"
End If

End Sub

* Tener en cuenta que en donde dice "C:\bueno.jpg" pondras la direccion en donde se encuentra el archivo al que quieres medir el tamaño.

Photo Play by AmputeeWrecks

VB6: Tipo de triangulo

in calcular, ineedchemicalx, tipo, triangulo, vb 6, visual basic 6.0 - on 9:44 p.m. - No comments

Escriba un programa que lea tres longitudes y determine si forman o no un triángulo. Si es un triángulo determine de que tipo de triángulo se trata entre: equilátero (si tiene tres lados iguales), isósceles (si tiene dos lados iguales) o escaleno (si tiene tres lados desiguales). Considere que para formar un triángulo se requiere que: "el lado mayor sea menor que la suma de los otros dos lados".

Para realizar este programa crear un formulario en Visual Basic 6.0 con 3 textboxes llamados txtl1, txtl2 y txtl3. De igual manera crear dos command buttons llamados cmdcalcular y cmdlimpiar. A continuacion el codigo necesario para resolver este ejercicio.

Option Explicit

Dim triangulo As Boolean

Function limpiar()
txtl1.Text = ""
txtl2.Text = ""
txtl3.Text = ""
txtl1.SetFocus
End Function

Private Sub cmdcalcular_Click()

If Val(txtl1.Text) > Val(txtl2.Text) And Val(txtl1.Text) > Val(txtl3.Text) Then

If Val(txtl1.Text) < Val(txtl2.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If

Else

If Val(txtl2.Text) > Val(txtl3.Text) Then

If Val(txtl2.Text) < Val(txtl1.Text) + Val(txtl3.Text) Then

triangulo = True

Else

triangulo = False

End If

Else

If Val(txtl3.Text) < Val(txtl1.Text) + Val(txtl2.Text) Then

triangulo = True

Else

triangulo = False

End If

End If

End If

If triangulo = False Then

MsgBox "No es un triangulo. Vuelve a intentarlo"

limpiar

Else

If Val(txtl1.Text) = Val(txtl2.Text) And Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Equilatero"

Else

If Val(txtl1.Text) = Val(txtl2.Text) Or Val(txtl1.Text) = Val(txtl3.Text) Or Val(txtl2.Text) = Val(txtl3.Text) Then

MsgBox "Isoceles"

Else

If Val(txtl1.Text) <> Val(txtl2.Text) And Val(txtl2.Text) <> Val(txtl3.Text) Then

MsgBox "Escaleno"

End If

End If

End If

End If

End Sub

Private Sub cmdlimpiar_Click()

limpiar

End If

End Sub

Photo Cloudy with a chance of hope by iNeedChemicalX

Numeros narcisistas en Visual Basic 6.0

in calcular, ejemplo, Ejercicios, Ejercicios resueltos, matmoon, narcisista, numero, numeros narcisistas, vb6, visual basic, visual basic 6.0 - on 4:45 p.m. - 2 comments

Un número narcisista es aquel que es igual a la suma de cada uno de sus dígitos elevados a la "n" potencia (donde "n" es el número de cifras del número).

Ejemplo 153 es un numero narcisista porque

13 + 53 + 33 = 1 + 125 + 27 = 153

En el programa escribiras un numero entero cualquiera y el te dira si es narcisista o no. Para este programa sera necesario crear un formulario con un textbox llamado txtvalor y un command button llamado cmdcalcular. Escribir el siguiente codigo.

Dim entrada, salida, i, n As Integer

Option Explicit

Private Sub cmdcalcular_Click()
salida = 0
entrada = txtvalor.Text
n = Len(entrada)

For i = 1 To n
salida = salida + Val(Mid(entrada, i, 1) ^ n)

Next

If txtvalor = salida Then

MsgBox "Es un numeros narcisista"

Else

MsgBox "No es un numeros narcisista"

End If

txtvalor.SetFocus
End Sub

Foto marine - 3 by matmoon

PHP: Calcular cuantos dias faltan para tu cumpleaños

in calcular, cumpleaños, dias, fecha, PHP - on 3:49 p.m. - 2 comments

Al insertar el mes el dia y el ano de tu proximo cumpleanos el programa te dira cuantos dias restan para esta fecha.

<!DOCTYPE html>
<html>
<head>
<title>PHP: Dias para tu cimpleanos</title>
</head>
<body>

<?php

if (isset($_POST['mes'], $_POST['dia'], $_POST['anio']) == true) {

$mes = $_POST['mes'];
$dia = $_POST['dia'];
$anio = $_POST['anio'];

if (empty($mes) || empty($dia) || empty($anio)) {
echo '<strong> * Todos los campos son necesarios </strong>';
} else {


$t_dias = mktime(0, 0, 0, $mes, $dia, $anio);
$hoy = time();
$dif_dias = ($t_dias - $hoy);
$dias = (int) ($dif_dias / 86400);
print "Dias que faltan para tu cumpleaños:
<strong > $dias </strong> dias";

}

}
?>

<h3> Escribe tu fecha de cumpleaños </h3>
<form method="POST" action="">
Mes <br />
<input type="text" name="mes" /> <br />
Dia <br />
<input type="text" name="dia" /> <br />
Año <br />
<input type="text" name="anio" /> <br />
<input type="submit" name="calcular">
</form>

</body>
<html>

Promedio / Media de tres notas VB 2008

in 2008, calcular, media, notas, promedio, vb.net, visual basic - on 6:06 p.m. - 5 comments

Programa hecho en Visual Basic 2008 Express Edition que al insertar 3 notas calculara el promedio de estas. Recuerde que Promedio =

x /N. Este programa tambien mostrara un mensaje en un label denominado lblcalificacion que dira como se califica el promedio de las notas insertadas.

Para hacer este programa necesitaras insertar en un formulario los siguientes objetos:

-6 Labels
-4 TextBoxs
-3 Bottons
-1 Shape en forma de rectangulo

Luego de insertar estos objetos escribir los siguientes codigos:

Public Class Form1
    Dim prom As Integer
    Dim promfinal As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        prom = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)

        promfinal = prom / 3
        Me.TextBox4.Text = promfinal
        If promfinal >= 0 And promfinal < 70 Then
            lblclasificacion.Text = "Promedio insuficiente"
        Else
            If promfinal > 69 And promfinal < 80 Then
                lblclasificacion.Text = "Promedio suficiente"
            Else
                If promfinal > 79 And promfinal < 90 Then
                    lblclasificacion.Text = "Buen promedio"
                Else
                    If promfinal > 89 And promfinal <= 100 Then
                        lblclasificacion.Text = "Promedio excelente"
                    End If
                End If
            End If
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        lblclasificacion.Text = ""
        TextBox1.Select()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

*En este programa se declararon dos variables (prom y promfinal) como Integer para que el resultado me de un numero entero.

*Botton1 = Boton Calcular

*Botton2 = Boton Limpiar

*Botton3 = Boton Cerrar

Calculadora aritmetica VISUAL BASIC 2008

in 2008, calcular, division, multiplicacion, resta, suma, vb.net, visual basic - on 3:36 p.m. - No comments

Existen algunas diferencias entre la programacion en vb 6.0 y la programacion de vb 2008. Para hacer esta calculadora insertar dos 3 texbox, dos para insertar los valores y uno para que presente el resultado. Tambien se utilizaran 4 botton para hacer las 4 operaciones basicas. Y un boton final para limpiar los cuadros de texto. Para que la calculadora funcione escribir el siguiente codigo:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox1.Select()
    End Sub
End Class

Calculadora aritmetica VISUAL BASIC 6.0

in calcular, division, multiplicacion, resta, suma, vb 6, visual basic, visual basic 6.0 - on 1:40 p.m. - No comments

Para hacer esta calculadora insertar dos 3 textbox, dos para insertar los valores y uno para que presente el resultado. Tambien se utilizaran 4 commandbotton para hacer las 4 operaciones basicas. Y un boton final para limpiar los cuadros de texto. Para que la calculadora funcione escribir el siguiente codigo:

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command5_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text1.SetFocus
End Sub

*Notas:
-Los codigos se pegaran en el evento Click de los Commandbotton.
-Clear se utiliza para limpiar los cuadros de texto.
-La cadena Text1.SetFocus indicara adonde ira el cursor luego de pulsar el boton en donde se encuentra dicho codigo.

Calculadora de numeros pares e impares VISUAL BASIC

in calcular, impares, pares, vb 6, visual basic, visual basic 6.0 - on 3:48 p.m. - No comments

Esta calculadora funcionara utilizando un textbox ( txtv1) y un boton de comando (Command1). Y producira una salida en un mensaje que dira si el numero digitado es par o no. Para hacer el programa se escribira el siguiente codigo en el boton Calcular (Command1):

Private Sub Command1_Click()
If CInt(Txtv1) Mod 2 Then
Txtv1 = ""
MsgBox ("El valor digitado es un numero impar")
Else
MsgBox ("El valor digitado es un numero par")
End If
End Sub

BlueProgramming