Tamaño de archivo en Visual Basic 6.0

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

Read more

VB6: Tipo de triangulo

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

Read more

Encontrar el mayor numero Visual Basic 6.0

El siguiente programa permite al usuario insertar tres numeros para calcular cual es el mayor. En un cuarto input se imprimira el mayor de los tres.

El codigo es el siguiente:

Private Sub cmdcalcular_Click()

If Val(txt1.Text) > Val(txt2.Text) And Val(txt1.Text) > Val(txt3.Text) Then

txtresultado.Text = txt1.Text

Else

If Val(txt2.Text) > Val(txt3.Text) Then

txtresultado.Text = txt2.Text

Else

txtresultado.Text = txt3.Text

End If

End If


End Sub

Foto D126 by miobi

Read more

Convertir de numeros a letras en Visual Basic 6.0

El siguiente programa convertira los numeros en letras del 0 al 10,000. Para ellos utilizaremos 2 textbox llamado txtvalor y txtletras, y un commandbutton que se llamara Command1.

El siguiente es el codigo para hacer funcionar el programa. Copiar y pegar en el commandbutton Command1. 

Dim n, z, y, t As String


Private Sub Command1_Click()
n = Val(txtvalor)

If n = 0 Then
nn = ("cero")
End If

z = ""
y = ""
t = ""

For x = 1 To 4


If n = 1 Then
nn = ("uno")
End If


If n = 2 Then
nn = ("dos")
End If


If n = 3 Then
nn = ("tres")
End If


If n = 4 Then
nn = ("cuatro")
End If


If n = 5 Then
nn = ("cinco")
End If


If n = 6 Then
nn = ("seis")
End If


If n = 7 Then
nn = ("siete")
End If


If n = 8 Then
nn = ("ocho")
End If


If n = 9 Then
nn = ("nueve")
End If


If n = 10 Then
nn = ("dies")
End If


If n = 11 Then
nn = ("once")
End If


If n = 12 Then
nn = ("doce")
End If


If n = 13 Then
nn = ("trece")
End If


If n = 14 Then
nn = ("catorce")
End If


If n = 15 Then
nn = ("quince")
End If


If n = 16 Then
nn = ("dieciseis")
End If


If n = 17 Then
nn = ("diecisiete")
End If


If n = 18 Then
nn = ("dieciocho")
End If


If n = 19 Then
nn = ("diecinueve")
End If


If n = 20 Then
nn = ("veinte")
End If


If n = 21 Then
nn = ("veintiuno")
End If


If n = 22 Then
nn = ("veintidos")
End If


If n = 23 Then
nn = ("veintitres")
End If


If n = 24 Then
nn = ("veinticuatro")
End If


If n = 25 Then
nn = ("veinticinco")
End If


If n = 26 Then
nn = ("veintiseis")
End If


If n = 27 Then
nn = ("veintisiete")
End If


If n = 28 Then
nn = ("veintiocho")
End If


If n = 29 Then
nn = ("veintinueve")
End If

If n = 30 Then
nn = ("treinta")

End If


If n > 30 And n < 40 Then
z = "treinta"
s = n - 30
n = s
End If

If n = 40 Then
nn = ("cuarenta")

End If

If n > 40 And n < 50 Then
z = "cuarenta"
s = n - 40
n = s
End If

If n = 50 Then
nn = ("cincuenta")

End If

If n > 50 And n < 60 Then
z = "cincuenta"
s = n - 50
n = s
End If



If n = 60 Then
nn = ("sesenta")

End If

If n > 60 And n < 70 Then
z = "sesenta"
s = n - 60
n = s
End If


If n = 70 Then
nn = ("setenta")

End If

If n > 70 And n < 80 Then
z = "setenta"
s = n - 70
n = s
End If

If n = 80 Then
nn = ("cincuenta")

End If

If n > 80 And n < 90 Then
z = "ochenta"
s = n - 80
n = s
End If



If n = 90 Then
nn = ("noventa")

End If

If n > 90 And n < 100 Then
z = "noventa"
s = n - 90
n = s
End If

If n = 100 Then
nn = ("cien")

End If


If n > 100 And n < 200 Then
y = "ciento"
s = n - 100
n = s
End If

If n = 200 Then
nn = ("doscientos")

End If

If n > 200 And n < 300 Then
y = "doscientos"
s = n - 200
n = s
End If

If n = 300 Then
nn = ("trescientos")

End If

If n > 300 And n < 400 Then
y = "trescientos"
s = n - 300
n = s
End If

If n = 400 Then
nn = ("cuatrocientos")

End If

If n > 400 And n < 500 Then
y = "cuatrocientos"
s = n - 400
n = s
End If

If n = 500 Then
nn = ("quinientos")

End If

If n > 500 And n < 600 Then
y = "quinientos"
s = n - 500
n = s
End If


If n = 600 Then
nn = ("seiscientos")

End If

If n > 600 And n < 700 Then
y = "seiscientos"
s = n - 600
n = s
End If


If n = 700 Then
nn = ("setecientos")

End If

If n > 700 And n < 800 Then
y = "setecientos"
s = n - 700
n = s
End If


If n = 800 Then
nn = ("ochocientos")

End If

If n > 800 And n < 900 Then
y = "ochocientos"
s = n - 800
n = s
End If


If n = 900 Then
nn = ("novecientos")

End If

If n > 900 And n < 1000 Then
y = "novecientos"
s = n - 900
n = s
End If

If n = 1000 Then
nn = ("mil")

End If

If n > 1000 And n < 2000 Then
t = "mil"
s = n - 1000
n = s
End If

If n = 2000 Then
nn = ("dos mil")

End If

If n > 2000 And n < 3000 Then
t = "dos mil"
s = n - 2000
n = s
End If

If n = 3000 Then
nn = ("tres mil")

End If

If n > 3000 And n < 4000 Then
t = "tres mil"
s = n - 3000
n = s
End If

If n = 4000 Then
nn = ("cuatro mil")

End If

If n > 4000 And n < 5000 Then
t = "cuatro mil"
s = n - 4000
n = s
End If

If n = 5000 Then
nn = ("cinco mil")

End If

If n > 5000 And n < 6000 Then
t = "cinco mil"
s = n - 5000
n = s
End If

If n = 6000 Then
nn = ("seis mil")

End If

If n > 6000 And n < 7000 Then
t = "seis mil"
s = n - 6000
n = s
End If

If n = 7000 Then
nn = ("siete mil")

End If

If n > 7000 And n < 8000 Then
t = "siete mil"
s = n - 7000
n = s
End If

If n = 8000 Then
nn = ("ocho mil")

End If

If n > 8000 And n < 9000 Then
t = "ocho mil"
s = n - 8000
n = s
End If

If n = 9000 Then
nn = ("mil")

End If

If n > 9000 And n < 10000 Then
t = "nueve mil"
s = n - 9000
n = s
End If

If n = 10000 Then
nn = ("dies mil")

End If

txtletras.Text = t & " " & " " & y & " " & z & " " & nn

Next
End Sub

Como funcionara el codigo este código:

Dim n, z, y, t As String: Se declaran las variables n, z, y, t tipo cadena.

n = Val(txtvalor): Se asigna a la variable "n" el valor del textbox "txtvalor" en el cual insertaremos el numero que queramos convertir a letra.

If n = 0 Then nn = ("cero") End If: Empezamos preguntando que si el valor de la variable "n"es igual a cero entonces la variable "nn" sera igual a la cadena "cero", este es el numero en letra.

t = "": Se inicializa la variable t con un valor vacio, se le asignas comillas por ser una variable tipo cadena.

For x = 1 To 4: El "For" sirve para repetir un evento la cantidad de veces especificadas en el mismo. En este caso el se repetira 4 veces ya que como se convertiran los numeros hasta el 10,000 las cifras de los numeros  que estan antes del 10,000 son 4.

Luego al igual se continuara preguntando con el If que numero es cual para imprimirlos en letras.

If n > 30 And n < 40 Then z = "treinta" s = n - 30 n = s End If: A partir de el numero 30 se utilizara la variable z para imprimir los numeros correspondientes a la decena. Con la variable "s" se resta a la variable "n" (el valor del textbox) en este caso 30, para conseguir el numero restante en letras.

Y asi sucesivamente...

La variable "t" representa la unidad de mil, la variable "y" la centena, "z" la decena y la variable "nn" representa la unidad.



Foto Christine by matmoon

Read more

Números primos Visual Basic 6.0

Los números primos al igual que otras clasificaciones de los números naturales fueron clasificados por Pitágoras y su secta, cuyos miembros se llamaban -los pitagóricos-.

Este programa dará como resultado los números primos desde un valor hasta otro que especifiquemos.

Para el formulario necesitaremos 2 textbox (txtdesde y txthasta). Dos labels, 1 Listbox (list1), y 1 commandbutton (cmdcalcular). Como aparece en la imagen de la derecha.

En el botón calcular insertar el siguiente código:

Option Explicit

Dim d, h, v, a, b, c As Integer

Private Sub cmdcalcular_Click()

If Val(txtdesde.Text) < Val(txthasta.Text) Then
List1.Clear

d = Val(txtdesde.Text)
h = Val(txthasta.Text)
v = d - 1

Do While v < h
v = v + 1

'Identificar si el numero es primo
a = 0
b = 1


Do While b <= v
c = v Mod b

If c = 0 Then
a = a + 1
b = b + 1

Else
b = b + 1
End If

Loop

If a = 2 Or v = 1 Then

List1.AddItem (v)
End If
Loop

Else
MsgBox ("El valor de Desde debe ser menor que el de Hasta")
End If

txtdesde.Text = ""
txthasta.Text = ""
txtdesde.SetFocus

End Sub

Read more

Calcular peso en Planeta en visual Basic 6.0

El siguiente programa se construira con los objetos apreciados en la imagen de abajo.
El primer textbox se llamara txtptierra y el segundo correspondinte al resultado del peso se llamara txtp.
el CommandButton se llamara cmdcalcular. y los OptionButton llevaran el nombre de opt(el nombre del planeta). 
Se puede calcular el peso de cualquier objeto (en kilogramos) en cualquiera de los nueve planetas del sistema solar en el lenguaje de programacion Visual Basic 6.0 utilizando el siguiente codigo:

Private Sub cmdcalcular_Click()

If optmercurio.Value = True Then
p = Val(txtptierra * 0.378)
txtp = p

ElseIf optvenus.Value = True Then
p = Val(txtptierra * 0.907)
txtp = p

ElseIf optmarte.Value = True Then
p = Val(txtptierra * 0.377)
txtp = p

ElseIf optjupiter.Value = True Then
p = Val(txtptierra * 2.367)
txtp = p

ElseIf optsaturno.Value = True Then
p = Val(txtptierra * 1.064)
txtp = p

ElseIf opturano.Value = True Then
p = Val(txtptierra * 0.889)
txtp = p

ElseIf optneptuno.Value = True Then
p = Val(txtptierra * 1.125)
txtp = p

ElseIf optpluton.Value = True Then
p = Val(txtptierra * 0.067)
txtp = p

ElseIf optluna.Value = True Then
p = Val(txtptierra * 0.166)
txtp = p

End If

End Sub

Private Sub Form_Load()

txtptierra.TabIndex = 0
txtp.Enabled = False

End Sub

Read more

Tabla de multiplicar en Visual Basic 6.0

Este programa funciona insertando un numero al TextBox y al presionar el boton "Multiplicar" aparecera la tabla del 1 al 12 de dicho numero en el Listbox. Para esto utilizaremos 1 Textbox, 1 Listbox y 1 CommandButton.

Para hacer que funcione debemos digitar los siguientes codigos en el Command1:

Private Sub Command1_Click()

List1.Clear
Dim n As Integer
n = 0
Do While n < 12
n = n + 1
r = Val(Text1.Text) * n
List1.AddItem (Text1.Text & " x " & n & " = " & r)
Loop
Text1.Text = ""
Text1.SetFocus

End Sub

Ahora explicare el codigo:

List1.Clear:  Esto hara que cada vez que se ejecute el codigo se limpie el listbox.

Dim n as Integer: Aqui estamos declarando la variable "n" que almacenara valores Integer(enteros).

n= 0: Aqui le damos un valor a la variable "n" de 0. De esta manera inicializamos esta variable que debe contener un valor para utilizar el Do While.

Do While n < 12: Aqui decimos que mientras n sea menor que 12 se ejecute el codigo que esta debajo antes del Loop.

n= n +1: Este codigo hara que se le sume 1 a la variable "n". De esta forma "n" tenia un valor de 0 y se le sumara 1 mientras "n" no sea menor que 12.

r = Val(Text1.Text) * n: "r" es la constante donde estara almacenada la operacion de multiplicacion, lo demas representa la operacion.

List1.AddItem (Text1.Text & " x " & n & " = " & r): Aqui es donde le decimos al programa que añada al Listbox el valor del Textbox, la letra x, el valor de la variable n, el signo de = y el valor de la variable r. Lo que estamos haciendo aqui es concatenando las variables y los signos. El signo & es para concatenar.

Loop: En caso de que no se cumpla la condicion establecida en el Do while se devuelve atras, cuando si se cumple la condicion entoces se termina el Do while.

Text1.Text = "": Esto hara que cada vez que presionemos el boton multilicar se limpie el Textbox.

Text1.SetFocus: Este codigo devuelve el cursor al Text1. 

Si insertamos el numero 2 este sera el resultado:

Read more

Calculadora aritmetica VISUAL BASIC 6.0

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.

Read more

Calculadora de numeros pares e impares VISUAL BASIC

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

Read more