Search This Blog
Showing posts with label visual basic. Show all posts
Showing posts with label visual basic. Show all posts

Saturday, 22 March 2014

Visual Basic: Area de un triángulo (código)

 
Escrito por Carlos Fernández Muriano en Small Basic, Uncategorized y etiquetada con , ,  

areatri1


Se pide ingresar la base y altura de un triángulo, y el programa calcula el área y lo grafica.  Graduado (convertido)  del programa en  Small Basic  WGZ319   Editado por  Nonki Takahashi
  1. Module areatriModule
  2. Dim base, height, area, cm, size, x, y, k, pxBase, pxHeight, x1, y1, x2, y2, x3, y3, triangle As Primitive
  3. Sub Main()
    1. ‘Area of a triangle
    2. TextWindow.Write(“enter the value of the base of the triangle: “)
    3. base = TextWindow.ReadNumber()
    4. TextWindow.Write(“enter the value of the height of the triangle: “)
    5. height = TextWindow.ReadNumber()
    6. area = (base * height) / 2
    7. TextWindow.WriteLine(“The area is ” + Area)
  4. cm = 24 ‘ [px/cm]
  5. size = 12 ‘ [cm]
  6. GraphicsWindow.Width = cm * size
  7. GraphicsWindow.Height = cm * size
  8. GraphicsWindow.Top = TextWindow.Top + 150
  9. GraphicsWindow.Left = TextWindow.Left + 50
  10. GraphicsWindow.BackgroundColor = “LightGray”
  11. DrawGrid()
  12. DrawTriangle()
  13. End Sub
  14. Sub DrawGrid()
    1. GraphicsWindow.PenColor = “DimGray”
    2. For x = 0 To cm * size Step cm
i.   GraphicsWindow.DrawLine(x, 0, x, cm * size)
  1. Next
  2. For y = 0 To cm * size Step cm
i.   GraphicsWindow.DrawLine(0, y, cm * size, y)
  1. Next
  2. End Sub
  3. Sub DrawTriangle()
    1. GraphicsWindow.PenColor = “Black”
    2. GraphicsWindow.BrushColor = “MediumSeaGreen”
    3. k = 0.3 ‘ 0 <= k <= 1
    4. pxBase = base * cm
    5. pxHeight = height * cm
    6. x1 = pxBase * k
    7. y1 = 0
    8. x2 = pxBase
    9. y2 = pxHeight
    10. x3 = 0
    11. y3 = y2
    12. triangle = Shapes.AddTriangle(x1, y1, x2, y2, x3, y3)
    13. Shapes.Move(triangle, cm, cm)
    14. End Sub
    15. End Module
Posted by a la/s No comments:
Labels: ,

Tuesday, 11 March 2014

Excel VBA: Fundamentos

 
 
Escrito por Carlos Fernández Muriano en Excely etiquetada con ,
i
Rate This



Explicaremos los conceptos básicos de Excel Visual Basic. Es bueno conocer la terminología básica explica en esta sección antes de empezar la programación en Excel Visual Basic.
1 Seguridad de macros: Configuración de la configuración de seguridad de macros correctamente es esencial para protegerse de posibles virus. Asegúrese de que la configuración de seguridad de macros están configurados correctamente por lo que no se puede hacer daño a su equipo.
2 Editor de Visual Basic: Aprenda cómo iniciar el Editor de Visual Basic y obtener la mejor configuración del Explorador de proyectos y la ventana de código en su versión de Excel. El Editor de Visual Basic es el punto de partida para la creación de macros en Excel VBA, por lo que es importante para obtener esta configuración correcta.
3 Comentarios Macro: macro Añadir comentarios a su código VBA Excel y su código será más fácil de leer a medida que aumenta el tamaño del programa.
4 MsgBox: El cuadro de mensaje es un cuadro de diálogo que puede hacer que aparezca para informar a los usuarios de su programa.
5 errores Macro: Tratar con VBA errores pueden ser todo un reto. Este capítulo proporciona un simple consejo para hacer frente a estos errores.
6 Macros de depuración: Antes de ejecutar el código VBA se puede depurar su primera macro. De esta manera la mayoría de los errores se pueden corregir antes de ejecutar el código.
7 objetos, propiedades y métodos: En este capítulo usted aprenderá más acerca de los objetos de Excel VBA. Un objeto tiene propiedades y métodos. Excel Visual Basic es un lenguaje de programación orientado a semi-objeto. Aprenda más acerca de la jerarquía de objetos de Excel Visual Basic.
8 Libro y Hoja de trabajo: En este capítulo usted aprenderá más sobre el libro de VBA Excel y Excel objeto de hoja de VBA. Usted verá que la hoja de trabajo y objeto Workbook tienen propiedades y métodos, así como la propiedad de recuento que cuenta el número de libros de activos u hojas de cálculo. El libro y el objeto de hoja se utilizan comúnmente en Excel VBA. Son muy útiles cuando el código de macro tiene que ser ejecutado en diferentes libros u hojas de cálculo.
9 Aplicación Objeto: La madre de todos los objetos en sí es Excel. Lo llamamos el objeto Application. El objeto de la aplicación da acceso a una gran cantidad de opciones relacionadas con el Excel.
http://www.excel-vba-easy.com/

 
Posted by a la/s No comments:
Labels: ,

Thursday, 18 July 2013

Aplicaciones de ejemplo de Visual Basic

 
 
vbasicnet

Visual Studio 2010     http://msdn.microsoft.com/es-es/library/5ekc8at3(v=vs.100).aspx

En la documentación de Visual Basic, un ejemplo es un proyecto de Visual Basic que se puede cargar y ejecutar en Visual Studio. Un ejemplo es un bloque pequeño de código que muestra una tarea de programación única y limitada.Un fragmento de código es un bloque de código insertado en el Editor de código mediante la característica Fragmentos de código IntelliSense.
Microsoft Visual Basic es un entorno de programación utilizado para crear aplicaciones gráficas de la familia Microsoft Windows de sistemas operativos. Microsoft Visual Basic 2010 es la versión actual.
Se trata de una serie de lecciones y ejemplos sobre cómo diseñar aplicaciones y crear programas informáticos que utilizan Microsoft Visual Basic 2010 Express y Microsoft Visual Studio 2010 (con el lado de Microsoft Visual Basic del medio ambiente).
Para crear un programa informático, llamado también una aplicación, se crea una serie de archivos y agruparlos en un conjunto llamado proyecto. Este contiene varios módulos, archivos, conjuntos (o librerías), y archivos de recursos.
Crear un proyecto
Una aplicación típica consiste en varios módulos, e incluso puede ser tan complejo como usted quiere. Para que sea más rápido y un poco más fácil para crear gráficamente una aplicación, que se necesita un buen ambiente de funcionamiento como Microsoft Visual Basic. Con ella, se puede crear un nuevo proyecto o abrir uno existente.
Para crear un proyecto de Visual Basic, puede mostrar el cuadro de diálogo Nuevo proyecto. Para abrir el cuadro de diálogo Nuevo proyecto:
• En la página de inicio, en la parte derecha del proyecto, haga clic en Crear …
• Si está utilizando Microsoft Visual Basic 2008 Express Edition, en el menú principal, puede hacer clic en Archivo -> Nuevo proyecto … Si está utilizando Microsoft Visual Basic 2008 Professional, en el menú principal, puede hacer clic en Archivo -> Nuevo -> Proyecto …
• En la barra de herramientas estándar, haga clic en el botón Nuevo proyecto
• Puede pulsar Ctrl + Shift + N
En el cuadro de diálogo Nuevo proyecto, seleccione Proyectos de Visual Basic, seleccione el tipo de proyecto, darle un nombre, especifique el directorio y haga clic en Aceptar.

Aprendizaje práctico: Creación de un proyecto

 Ver: http://www.functionx.com/vb/Lesson02.

see also: http://www.empiezoinformatica.wordpress.com




Deja un comentario




Cancelar




    Posted by a la/s No comments:
    Labels: ,

    Mensajes y métodos en Visual Basic (código)


    Escrito por carlosfmur1948 en Small Basic y etiquetada con
     
     
    Ccuenta
    Mensajes y métodos en Visual Basic (código)
    Un programa orientado a objetos se compone solamente de objetos. Cada uno de ellos es una entidad que tiene propiedades particulares, los atributos, y unas formas de operar sobre ellos, los métodos.
    Un método se escribe en una clase de objetos y determina como tiene que actuar el objeto cuando recibe el mensaje el mensaje vinculado con ese método.
    Una vez escritos los métodos y propiedades necesarios, tendremos creada la clase CCuenta que se guarda en un archivo que llamamos CCuenta.vb
    Código:
    Class CCuenta
      ‘ Atributos
      Private _nombre As String
      Private _cuenta As String
      Private _saldo As Double
      Private _tipoDeInteres As Double
     
      ‘ Métodos
      Public Sub New()
      End Sub
     
      Public Sub New(ByVal nom As String, ByVal cue As String, _
                     ByVal sal As Double, ByVal tipo As Double)
        Nombre = nom
        Cuenta = cue
        ingreso(sal)
        TipoDeInteres = tipo
      End Sub
     
      Public Property Nombre() As String
        Get
          Return _nombre
        End Get
        Set(ByVal nom As String)
          If nom.Length = 0 Then
            System.Console.WriteLine(“Error: cadena vacía”)
          Else
            _nombre = nom
          End If
        End Set
      End Property
     
      Public Property Cuenta() As String
        Get
          Return _cuenta
        End Get
        Set(ByVal cue As String)
          If cue.Length = 0 Then
            System.Console.WriteLine(“Error: cuenta no válida”)
          Else
            _cuenta = cue
          End If
        End Set
      End Property
     
      Public ReadOnly Property Saldo() As Double
        Get
          Return _saldo
        End Get
      End Property
     
      Public Sub ingreso(ByVal cantidad As Double)
        If cantidad < 0 Then
          System.Console.WriteLine(“Error: cantidad negativa”)
        Else
          _saldo = _saldo + cantidad
        End If
      End Sub
     
      Public Sub reintegro(ByVal cantidad As Double)
        If _saldo – cantidad < 0 Then
          System.Console.WriteLine(“Error: no dispone de saldo”)
        Else
          _saldo = _saldo – cantidad
        End If
      End Sub
     
      Public Property TipoDeInteres() As Double
        Get
          Return _tipoDeInteres
        End Get
        Set(ByVal tipo As Double)
          If tipo < 0 Then
            System.Console.WriteLine(“Error: tipo no válido”)
     
                Else
                    _tipoDeInteres = tipo
                End If
                System.Console.ReadKey()
     
     
     
        End Set
      End Property
    End Class
    Class CCuenta
      ‘ Atributos
      Private _nombre As String
      Private _cuenta As String
      Private _saldo As Double
      Private _tipoDeInteres As Double
     
      ‘ Métodos
      Public Sub New()
      End Sub
     
      Public Sub New(ByVal nom As String, ByVal cue As String, _
                     ByVal sal As Double, ByVal tipo As Double)
        Nombre = nom
        Cuenta = cue
        ingreso(sal)
        TipoDeInteres = tipo
      End Sub
     
      Public Property Nombre() As String
        Get
          Return _nombre
        End Get
        Set(ByVal nom As String)
          If nom.Length = 0 Then
            System.Console.WriteLine(“Error: cadena vacía”)
          Else
            _nombre = nom
          End If
        End Set
      End Property
     
      Public Property Cuenta() As String
        Get
          Return _cuenta
        End Get
        Set(ByVal cue As String)
          If cue.Length = 0 Then
            System.Console.WriteLine(“Error: cuenta no válida”)
          Else
            _cuenta = cue
          End If
        End Set
      End Property
     
      Public ReadOnly Property Saldo() As Double
        Get
          Return _saldo
        End Get
      End Property
     
      Public Sub ingreso(ByVal cantidad As Double)
        If cantidad < 0 Then
          System.Console.WriteLine(“Error: cantidad negativa”)
        Else
          _saldo = _saldo + cantidad
        End If
      End Sub
     
      Public Sub reintegro(ByVal cantidad As Double)
        If _saldo – cantidad < 0 Then
          System.Console.WriteLine(“Error: no dispone de saldo”)
        Else
          _saldo = _saldo – cantidad
        End If
      End Sub
     
      Public Property TipoDeInteres() As Double
        Get
          Return _tipoDeInteres
        End Get
        Set(ByVal tipo As Double)
          If tipo < 0 Then
            System.Console.WriteLine(“Error: tipo no válido”)
     
                Else
                    _tipoDeInteres = tipo
                End If
                System.Console.ReadKey()
     
        End Set
      End Property
    End Class
    ………………………………………………………………………………………………………………………………………………………………………………………………………………………………
    Para poder crear objetos de esta clase y trabajar con ellos, escribimos un programa que debe tener un módulo con un procedimiento Main, puesto que éste es el punto de entrada y de salida del programa.
    Entonces tenemos un archivo fuente CCuenta.vb con la clase CCuenta Añadimos en la misma carpeta otro archivo fuente, Test.vb con un módulo standard o con una clase por ejemplo Test, que incluya el procedimiento Main.
    ……………………………………………………………………………………………………………………………………………………………………………………………………………………………
    Código:
    Public Class Test
      Public Shared Sub Main()
        Dim cuenta01 As CCuenta = New CCuenta()
        Dim cuenta02 As CCuenta = New CCuenta(“Un nombre”, _
                                           “Una cuenta”, 6000, 3.5)
        cuenta01.Nombre = “Un nombre”
        cuenta01.Cuenta = “Una cuenta”
        cuenta01.TipoDeInteres = 2.5
     
        cuenta01.ingreso(6000)
        cuenta01.reintegro(3000)
     
        System.Console.WriteLine(cuenta01.Nombre)
        System.Console.WriteLine(cuenta01.Cuenta)
        System.Console.WriteLine(cuenta01.Saldo)
        System.Console.WriteLine(cuenta01.TipoDeInteres)
        System.Console.WriteLine()
        System.Console.WriteLine(cuenta02.Nombre)
        System.Console.WriteLine(cuenta02.Cuenta)
        System.Console.WriteLine(cuenta02.Saldo)
            System.Console.WriteLine(cuenta02.TipoDeInteres)
            System.Console.ReadKey()
        End Sub
    End Class

    Deja un comentario










    Cancelar




      Posted by a la/s No comments:
      Labels: ,
      Subscribe to: Posts (Atom)