Estructura general de un programa de C# (Guía de programación de C#)


C#

 

Visual Studio 2010

Los programas en C# pueden constar de uno o varios archivos.Cada archivo puede contener cero o varios espacios de nombres.Un espacio de nombres puede contener tipos como clases, structs, interfaces, enumeraciones y delegados, además de otros espacios de nombres.A continuación, se muestra el esqueleto de un programa en C# que contiene todos estos elementos.

………………………………………………………………………………………………………………………………………………………

// código

// A skeleton of a C# program

using System;

namespace YourNamespace

{

class YourClass

{

}

struct YourStruct

{

}

interface IYourInterface

{

}

delegate int YourDelegate();

enum YourEnum

{

}

namespace YourNestedNamespace

{

struct YourStruct

{

}

}

class YourMainClass

{

static void Main(string[] args)

{

//Your program starts here…

}

}

}

// FIN

…………………………………………………………………………………………………………………………………………………………

C#1

 

http://msdn.microsoft.com/es-es/library/w2a9a9s3(v=vs.100).aspx

VBA en excel 2010


vba

Introducir Visual Basic para aplicaciones (VBA) en excel 2010, para el usuario avanzado de Excel que todavía no es un programador. en este artículo se incluye una descripción general del lenguaje vba, instrucciones sobre cómo acceder a vba en excel 2010, una explicación detallada de la solución a un problema de programación vba excel en el mundo real, y consejos sobre programación y depuración.

Microsoft Excel 2010 es una herramienta muy poderosa que puede utilizar para manipular, analizar y presentar datos. a veces sin embargo, a pesar del amplio conjunto de características de la interfaz de usuario de Excel estándar (ui), es posible que desee encontrar una manera más fácil para realizar una tarea mundana, repetitiva, o para realizar alguna tarea que la iu no parece abordar. afortunadamente, las aplicaciones de office como excel tienen visual basic para aplicaciones (vba), un lenguaje de programación que le brinda la posibilidad de ampliar las aplicaciones.

VBA funciona mediante là ejecución de macros, procedimientos paso a paso escritos en Visual Basic. aprender a programar puede del parecer intimidante, pero aplicando un poco de paciencia ÿ algunos ejemplos, como los descritos en este articulo, muchos usuarios encuentran que el aprendizaje de incluso una pequeña cantidad de código vba hace que su trabajo sea más fácil mar y les da la capacidad para hacer las cosas de la oficina. Asi que aqui las posibilidades son ilimitadas

Con mucho, la razón más común el uso de vba en excel para automatizar tareas repetitivas. por ejemplo, suponga que tiene una docena de libros, cada uno de los cuales tiene una docena de hojas de trabajo, y cada una de esas necesidades a tener algunos cambios a la misma. los cambios podrían ser tan simple como aplicar el nuevo formato para un rango fijo de células o tan complejo como ver algunas de las características estadísticas de los datos en cada hoja, elegir el mejor tipo de gráfico para mostrar datos con esas características, y luego crear y dar formato el gráfico en consecuencia. De cualquier manera, usted probablemente preferiría no tener que realizar estas tareas de forma manual, por lo menos no más de un par de veces. en cambio, se puede automatizar las tareas utilizando VBA para escribir instrucciones explícitas  a seguir.

VBA  no es sólo para las tareas repetitivas sin embargo. también puede utilizar VBA para crear nuevas capacidades en Excel (por ejemplo, usted podría desarrollar nuevos algoritmos para analizar los datos, a continuación, utilizar las capacidades de gráficos en Excel para mostrar los resultados), y para realizar tareas que integran Excel con otras aplicaciones de office, como Microsoft Access 2010. de hecho, de todas las aplicaciones de Office, Excel es el más utilizado como algo que se asemeja a una  plataforma general de desarrollo. Además de todas las tareas obvias que implican las listas y los estados contables, los desarrolladores utilizan Excel en una serie de tareas de visualizacion de datos y la creación de prototipos de software.
A pesar de todas las buenas razones para usar vba en excel 2010, es importante recordar que Excel tiene una amplia gama de características, por lo que incluso un usuario avanzado es poco probable que esté familiarizado con todos ellos. fondo para asegurarse de que no hay una manera más sencilla.

http://msdn.microsoft.com/en-us/library/office/ee814737(v=office.14).aspx

¿Qué es una macro de Microsoft Excel ?


Una macro Excel es un programa informático que se escribe o graba y se almacena en un archivo de libro. Cuando se ejecuta, se puede realizar una serie de tareas automatizadas en Excel como la creación automatizada tabla, el formato, el procesamiento de datos, construcción de tabla dinámica … la lista es interminable. Macros de Microsoft Excel también son capaces de ejecutar sofisticadas operaciones lógicas, así como la realización de tareas como ir a través de una carpeta de un archivo específico o escanear Excel para un libro abierto o una hoja de cálculo o valor específico iterativo. La palabra Macro es en realidad engañosa confundirse con el lenguaje de macros antes de que Microsoft Excel utiliza en los años 90 hasta la 94. Las macros en ese entonces donde quedarán almacenadas en lo que parecía una hoja de cálculo, estas hojas se llaman llama hojas de macros. Todavía existen hoy en Excel si hace clic del ratón sobre una pestaña de la hoja y seleccionar Insertar / MS Excel 4.0 Macro. El código de estas hojas se parece una serie de fórmulas. Una de estas viejas hojas de estilo se ilustra a la derecha.

Una macro Excel es en realidad un procedimiento de Visual Basic, que está escrito en VBA que significa Visual Basic para Aplicaciones (¿Qué es VBA).

design_example

 

Por lo general es un procedimiento Sub (en la foto a la derecha y abajo) o en algunos casos un procedimiento Function. Estos procedimientos se almacenan en un archivo de libro en un módulo y se pueden ver en el Editor de VBA pulsando Alt + tecla F11 mientras que en Excel. Cuando se distribuye el archivo de libro de almacenar la macro, la macro también va de la mano con el libro. Cuando se abre el libro, se abren las macros de Excel. Cuando un libro está cerrado, las macros están cerrados. Una vez que una macro se guarda en un libro y el libro abierto de nuevo, la macro debe ser habilitado para que se ejecute. Microsoft Excel le pedirá con un cuadro de diálogo de ejecución o de un botón de ejecución que se encuentra debajo de la barra de fórmulas en Excel 2007 o superior. Cuando una macro de Excel se guarda en un libro de Excel 2007 y posteriores, el archivo del libro must be saved out as an Excel Macro-Enabled Workbook or the code will be lost when the book is closed.

Una macro de Excel no sólo es capaz de automatizar el entorno de Excel, también puede comandar otros programas que son compatibles VBA. En otras palabras, puede ser en Excel y comando de Word, Internet Explorer y el servidor SQL en el mismo procedimiento. Una macro puede también hablar con otros lenguajes de programación como C, VB.NET, FORTRAN, básicamente, cualquier lenguaje que sea compatible VBA. Lo que esto pone sobre la mesa es la posibilidad de acceder a las capacidades y velocidad que VBA no se procesa. No hay que subestimar el poder de las macros de Excel, tienen Excel a su disposición, otros programas, otros idiomas y pueden hacer las matemáticas más sofisticadas y análisis que desea hacer. Desarrollo de macros en Microsoft Excel tarda aproximadamente una sexta parte del tiempo que otros entornos de programación tradicionales (a veces más rápido) y planas pueden a hacer cosas que son imposibles en otros lenguajes de programación y sin mucho esfuerzo. Hay muchos proyectos EMAGENIT que comenzaron como curitas hasta los sistemas más grandes se desarrollaron y luego asumió el cargo de los programas principales, porque los otros sistemas podrían de plano no se desarrollarán.

http://www.emagenit.com/mosoftdsgn.htm

Los 5 lenguajes de programación más utilizados en la actualidad …


See on Scoop.itLas TIC en la Educación

Es un lenguaje pequeño ya que sólo ofrece sentencias de control sencillas y funciones. Permite la programación estructurada y el diseño modular lo que mejora la apariencia, comprensión y mantenimiento de los programas.

See on lmsistema.blogspot.com

Visual Studio 2012 Web


express2012web

Subir a los más altos estándares de la web
Los Clientes Web son ahora clientes de telefonía móvil y viceversa. Pero sin importar la plataforma que están en, todavía quieren más: más prestaciones, la interacción más intuitiva y experiencias más sensibles. Con soporte completo para los últimos estándares web, nuevas herramientas de depuración y aplicaciones que se adaptan a los móviles sobre la marcha, te darás cuenta de que la entrega de un conjunto mucho más es ahora mucho más fácil.

Desarrollar para las normas
Usuarios navegando en una aplicación web emplean una variedad de navegadores. Algunos navegadores soportan plugins, mientras que otros no lo hacen, y todos los navegadores tienen peculiaridades que afectan a la forma en que presentan un sitio. Existen estándares Web para ayudar a garantizar que las aplicaciones web se ven y funcionan correctamente independientemente del navegador utilizado. Scripts HTML, CSS y ECMA son las normas para el desarrollo de sitios web multiplataforma. Visual Studio 2012 amplía y mejora significativamente su apoyo.

Utilice las últimas capacidades de HTML5 y CSS3
Visual Studio 2012 incluye compatibilidad con IntelliSense completo para HTML5 por lo que es más fácil desarrollar conforme sitios Web. Además, el editor de código tiene nuevas características de productividad que simplifican el desarrollo web. El editor de CSS en Visual Studio 2012 ha sido actualizado para soportar el último estándar CSS3, e incorpora plenamente IntelliSense.

http://www.microsoft.com/visualstudio/eng/products/visual-studio-express-for-web#product-express-web

Presupuesto para colegios y deportes – Excel 2013


presupuesto1

 Use esta plantilla para mantener un seguimiento de su presupuesto para colegios y deportes, con tablas, formatos condicionales, gráficos dinámicos y segmentadores. ¡Más fácil imposible!

http://office.microsoft.com/es-ar/templates/presupuesto-para-colegios-y-deportes-TC102802363.aspx

Clases, atributos y métodos en Visual Basic (código)


micoche

Diseñamos una clase CCoche que representa coches( carros, autos).

Incluímos los atributos marca, modelo y color, y los métodos que simulen, enviando mensajes, las acciones de arrancar el motor, cambiar de velocidad, acelerar, frenar y parar el motor.

micoche1

Que es C# (Sharp) – código ejemplo


clavef

C# es un lenguaje que pretende reunir lo mejor de los lenguajes que compilan  a nativo (C/ C++, Object Pascal, ADA, etc) y de aquellos interpretados (Java, Perl, etc) en uno solo, y que además pueda correr sobre diversos sistemas operativos

C# toma gran parte de la sintaxis de c/ C++ siendo un potente lenguaje 100% orientado a objetos.

jorgef

Tomamos un ejercicio muy simple en que se requiere al usuario, ingresar su nombre y clave para permitirle o no el acceso

Código:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

 

namespace ConsoleApplication1

{

    class Program

    {

        static void Main(string[] args)

        {

            //ejercicio 3 if

            Console.Write(“Ingrese usuario: “);

            string user = Console.ReadLine();

            Console.Write(“Ingrese clave: “);

            string pass = Console.ReadLine();

            if (user==”Jorge” & pass==”1234″)

            {

             Console.WriteLine(“Hi George!!”);

             Console.ReadKey();

            }

            else

            {

            if (user == “Jorge” & pass != “1234”)

             {

             Console.WriteLine(“El usuario no coincide con la clave!!”);

             Console.ReadKey();

             }

             else

             {

             Console.WriteLine(“No existe el usuario”);

             Console.ReadKey();

             }

            }

        }

    }

}

jogev1

Visual Basic: mostrar datos por pantalla(código)


mostrar_datos

Cap 2 pág 18

La biblioteca de Visual Basic.NET proporciona un método, System.Console.WriteLine vinculado con la salida standard, normalmente en la pantalla, que permite visualizar datos numéricos de cualquier tipo y cadena de caracteres.

Declaramos tres variables numéricas a, b y c y una referencia s a una cadena de caracteres, después asigna valores a las variables y finalmente los muestra.

mostrar_datos1

Exportar datos de un programa de VisualBasic.net a Excel


VB_a_xls

http://www.vb-mundo.com/exportar-datos-de-un-programa-de-visualbasic-net-a-excel/ 

En este artículo se muestra cómo automatizar Microsoft Excel y cómo rellenar un rango de celdas con un Textbox y con un listview.

1. Iniciaremos Microsoft Visual Studio .NET.

2. En el menú Archivo, haga clic en Nuevo y, después, en Proyecto. Seleccione Aplicación para Windows en los tipos de proyecto de Visual Basic. De forma predeterminada, se crea Form1.

VB_a_xls2

4. En el Form1 he agregado un TextBox  y un ListView que son los usare para exportar los datos a Excel. Y un botón que es el encargado de generar la acción.

VB_a_xls3

5 . En el código del botón agregare todo el código,  es bastante sencillo y lo he comentado para aclarar que funciona cada línea importante.

Visual Basic   copy code

  • ‘Variables locales
  •  
  • Dim oExcel As Object
  • Dim oBook As Object
  • Dim oSheet As Object
  •  
  • ‘Iniciar un nuevo libro en Excel
  •  
  • oExcel = CreateObject(“Excel.Application”)
  •  
  • oBook = oExcel.Workbooks.Add
  •  
  • ‘Agregar datos a las celdas de la primera hoja en el libro nuevo
  •  
  • oSheet = oBook.Worksheets(1)
  •  
  • ‘ Agregamos Los datos que queremos agregar
  •  
  • oSheet.Range(“A3”).Value = TextBox1.Text
  •  
  • ‘ Esta celda tendra los datos del textbox
  •  
  • oSheet.Range(“A10”).Value = “CODIGO”
  •  
  • ‘ estas celdas por defecto solo seran para identificar cada columna
  •  
  • oSheet.Range(“B10”).Value = “TIPO”
  •  
  • oSheet.Range(“C10”).Value = “DESCRIPCION”
  •  
  • oSheet.Range(“D10”).Value = “MODELO”
  •  
  • oSheet.Range(“E10”).Value = “REGIS”
  •  
  • oSheet.Range(“F10”).Value = “DISPO”
  •  
  • ‘Desde aqui empezaremos a exportar la lista
  •  
  • If ListView1consul2.Items.Count > 0 Then
  •  
  • ‘ primero verificamos cuantas filas tiene la lista
  •  
  • Dim col As Integer = 11 empezaremos en el libro de excel a partir de la celda 11
  •  
  • Dim i As Integer ‘ for para empezar a recorrer la lista
  •  
  • For i = 0 To ListView1consul2.Items.Count
  •  
  • If i = ListView1consul2.Items.Count Then
  •  
  • Exit For
  •  
  • End If
  •  
  • ‘ estas son las columnas que usaremos y el contador nos ira cargando una a una cada fila
  •  
  • Dim a As String = “A” + col.ToString + “”
  •  
  • Dim b As String = “B” + col.ToString + “”
  •  
  • Dim c As String = “C” + col.ToString + “”
  •  
  • Dim d As String = “D” + col.ToString + “”
  •  
  • Dim j As String = “E” + col.ToString + “”
  •  
  • Dim f As String = “F” + col.ToString + “”
  •  
  • oSheet.Range(a).Value = ListView1consul2.Items(i).SubItems.Item(0).Text.ToString
  •  
  • oSheet.Range(b).Value = ListView1consul2.Items(i).SubItems.Item(1).Text.ToString
  •  
  • oSheet.Range(c).Value = ListView1consul2.Items(i).SubItems.Item(2).Text.ToString
  •  
  • oSheet.Range(d).Value = ListView1consul2.Items(i).SubItems.Item(3).Text.ToString
  •  
  • oSheet.Range(j).Value = ListView1consul2.Items(i).SubItems.Item(4).Text.ToString
  •  
  • oSheet.Range(f).Value = ListView1consul2.Items(i).SubItems.Item(5).Text.ToString
  •  
  • col = col + 1
  •  
  • ListView1consul2.Items.Remove(ListView1consul2.Items.Item(i))
  •  
  • ‘ removemos cada el elemento esto es solo si desean hacerlo
  •  
  • ‘ otra opcion es poner el contador positivo y no eliminar el elemento de la lista
  •  
  • i = i − 1
  •  
  • Next
  •  
  • End If
  •  
  • ‘ hacemos visible el documento
  •  
  • oExcel.Visible = True
  •  
  • oExcel.UserControl = True
  •  
  • ‘Guardaremos el documento en el escritorio con el nombre prueba
  •  
  • oBook.SaveAs(Environ(“UserProfile”) & “\desktop\Prueba.xls”)

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.

 

 

Sugerencias pragmáticas para crear mejores aplicaciones para Windows Phone


pato

 

Por  Andrew Byrne

 

Figura 1   Un simple ViewModel

http://msdn.microsoft.com/es-es/magazine/jj190802.aspx

 

código:

  1. public class SimpleViewModel : INotifyPropertyChanged
  2. {
  3.   private string _myText = “Initial Value”;
  4.   public string MyText
  5.   {
  6.     get
  7.     {
  8.       return _myText;
  9.     }
  10. set
  11. {
  12. if (value != _myText)
  13. {
  14. _myText = value;
  15. NotifyPropertyChanged(“MyText”);
  16. }
  17. }
  18. }
  19. public event PropertyChangedEventHandler PropertyChanged;
  20. private void NotifyPropertyChanged(string PropertyName)
  21. {
  22. if (PropertyChanged != null)
  23. {
  24. PropertyChanged(this, 
  25. new PropertyChangedEventArgs(PropertyName));
  26.          }
  27.       }

    28.      }

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


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

PPT: Código de VB de ejemplo para crear una presentación con diapositivas personalizada


ppoint

Microsoft PowerPoint tiene una característica de presentación personalizada que le permite mostrar algunas de las diapositivas en una presentación como una presentación con diapositivas o volver a ordenar las diapositivas cuando se ejecuta una presentación con diapositivas.

Este artículo contiene un ejemplo de Visual Basic para Aplicaciones de Microsoft macro (procedimiento Sub) a la que se crea una presentación personalizada. La macro crea una presentación personalizada que incluye todas las diapositivas de la presentación activa. Puede modificar el código para seleccionar las diapositivas que desea formar parte de la presentación personalizada.

http://support.microsoft.com/kb/165217/es

Procedimiento de ejemplo de Visual Basic 

Sub CreateCustomShow()

 

   On Error Resume Next

 

   ‘Change this value to the name you want to use for your

   ‘custom slide show.

   Const strDefaultName As String = “My Custom Show”

 

   Dim lNumSlides, lSlideList(), lCount As Long

   Dim oSlide As Slide

   Dim strPrompt, strShowName As String

   Dim Continue As Boolean: Continue = False

 

   ‘Get the number of slides in the active presentation.

   lNumSlides = ActivePresentation.Slides.Count

 

   ‘Make sure at least 1 slide is in the presentation.

   If lNumSlides < 1 Then

     MsgBox “No slides in the presentation.”, vbExclamation, “No Slides”

     End

   End If

 

   ‘Initialize the counter.

   lCount = 0

 

   ‘Loop through the slides in the presentation.

   For Each oSlide In ActivePresentation.Slides

 

      ‘Make the array one element larger.

      ReDim Preserve lSlideList(lCount)

 

      ‘Add the slide id to the array.

      lSlideList(lCount) = oSlide.SlideID

 

      ‘Increment the counter.

      lCount = lCount + 1

 

   Next oSlide

 

   ‘Reset the counter

   lCount = 0

 

   ‘Set the name of the custom show to the default.

   strShowName = strDefaultName

 

   ‘Loop until a custom show is created.

   Do

 

      ‘Increment the counter.

      lCount = lCount + 1

 

      With ActivePresentation.SlideShowSettings.NamedSlideShows

 

         ‘Clear the error object.

         Err.Clear

 

         ‘Create the custom show.

         .Add strShowName, lSlideList

 

         ‘Check to see if an error occurred creating the show.

         ‘A run-time error occurs if the custom show name you specify

         ‘is already being used.

         If Err.Number <> 0 Then

 

            ‘Change the name of the custom show

            strShowName = strDefaultName & ” ” & CStr(lCount)

         Else

            Continue = True

         End If

 

      End With

 

   Loop While Continue = False

 

   ‘Create and then display message box.

   strPrompt = “Successfully created custom show named ” & strShowName _

    & “. To view the show:” & Chr(13) & Chr(13) _

    & Chr(9) _

    & “1. On the Slide Show menu, click Custom Shows.” _

    & Chr(13) & Chr(9) _

    & “2. Highlight the custom show you want to run.” _

    & Chr(13) & Chr(9) _

    & “3. Click the show button to run the show.” _

    & Chr(13) & Chr(13) _

    & “NOTE: If the Custom Shows dialog box is visible ” _

    & “when you run this macro. Close and” _

    & Chr(13) _

    & “then reopen the dialog box to see the updated custom show list.”

   MsgBox strPrompt, vbInformation, “Custom Show Created!”

 

End Sub

La programación como medio creativo


kodu2Kodu es un nuevo lenguaje de programación visual hecho específicamente para la creación de juegos. Está diseñado para ser accesible a los niños y agradable para todos.
El entorno de programación se ejecuta en la Xbox, que permite una rápida iteración de diseño utilizando sólo un dispositivo de juego para la entrada.

El núcleo del proyecto Kodu es la interfaz de usuario de programación. El lenguaje es simple y totalmente basada en iconos. Los programas se componen de páginas, que se desglosan en las normas, que se dividen en las condiciones y acciones. Las condiciones se evalúan simultáneamente.

El lenguaje de Kodu está diseñado específicamente para el desarrollo del juego y proporciona primitivas especializados derivados de escenarios de juego. Los programas se expresan en términos físicos, utilizando conceptos como la visión, el oído, y el tiempo para controlar el comportamiento de carácter. Aunque no es tan de uso general como los lenguajes de programación clásica, Kodu puede expresar conceptos avanzados de diseño de juegos de una manera simple, directa e intuitiva

kodu1

http://research.microsoft.com/en-us/projects/kodu/

Bucles anidados en VB.NET (código)


Vemos a realizar un programa  que imprima los números  z  comprendidos entre 1 y 50 que cumplan la expresión:

z²  = x²  +  y²donde z, x e y son números enteros positivos. El resultado se presentará de esta forma

Pitagoras

y la solución de este problema puede ser de la siguiente forma

Cap. 7 – Pág 145

Código Visual Basic:

Imports System

Module Pitagoras

‘ Teorema de Pitágoras

Public Sub Main()

Dim x As Integer = 1, y As Integer = 1, z As Integer = 0

Dim TH As Char = Convert.ToChar(&H9) ‘ tab horizontal

Console.WriteLine(“Z” & TH & “X” & TH & “Y”)

Console.WriteLine(“____________________”)

While (x <= 50)

‘ Calcular z. Como z es un entero, almacena

‘ la parte entera (redondeada) de la raíz cuadrada

z = Math.Sqrt(x * x + y * y)

While (y <= 50 And z <= 50)

‘ Si la raíz cuadrada anterior fue exacta,

‘ escribir z, x e y

If (z * z = x * x + y * y) Then

Console.WriteLine(z & TH & x & TH & y)

End If

y = y + 1

z = Math.Sqrt(x * x + y * y)

End While

x = x + 1 : y = x

End While

System.Console.ReadKey()

End Sub

End Module

Los tres pilares de la Programación Orientada a Objetos


OOP

Todos los lenguajes basados en objetos, deben cumplir estos tres requisitos:

  • Herencia
  • Encapsulación
  • Polimorfismo

Nota: Algunos autores añaden un cuarto requisito: la abstracción, pero este último está estrechamente ligado con la encapsulación.

Herencia

Esta es la característica más importante de la POO. Según la propia documentación de Visual Studio .NET:
“La herencia permite crear nuevas clases a partir de clases existentes. La herencia puede simplificar el diseño de la aplicación proporcionando una estructura de relaciones entre las distintas clases. También admite la reutilización de código porque sólo se debe codificar el comportamiento de clases nuevas o distintas.”.

Una relación de herencia es una relación en la que un tipo (el tipo derivado) se deriva de otro (el tipo base), de tal forma que el espacio de declaración del tipo derivado contiene implícitamente todos los miembros de tipo no constructor del tipo base.

“La herencia es la capacidad de una clase de obtener la interfaz y comportamiento de una clase existente.”

Resumiendo: Gracias a la herencia podemos ampliar cualquier clase existente, además de aprovecharnos de todo lo que esa clase haga.

Encapsulación

Según Visual Studio.NET:
“La encapsulación es la capacidad de contener y controlar el acceso a un grupo de elementos asociados. Las clases proporcionan una de las formas más comunes de encapsular elementos.”

Cuando usamos las clases, éstas tienen una serie de características (los datos que manipula) así como una serie de comportamientos (las acciones a realizar con esos datos). La encapsulación es esa capacidad de la clase de ocultarnos sus interioridades para que sólo veamos lo que tenemos que ver, sin tener que preocuparnos de cómo está codificada para que haga lo que hace… simplemente nos debe importar que lo hace.

Resumiendo: Establece la separación entre la interfaz del objeto y su implementación.

Polimorfismo

Según la documentación de Visual Studio.NET:
“El polimorfismo se refiere a la posibilidad de definir múltiples clases con funcionalidad diferente, pero con métodos o propiedades denominados de forma idéntica, que pueden utilizarse de manera intercambiable mediante código cliente en tiempo de ejecución.”

Dicho de otra manera, puede tener múltiples clases que se pueden utilizar de forma intercambiable, si bien cada clase implementa las mismas propiedades o los mismos métodos de maneras diferentes. El polimorfismo es importante en la programación orientada a objetos puesto que permite usar elementos que tienen el mismo nombre, independientemente del tipo de objeto que se esté utilizando en ese momento.

Resumiendo: Determina que el mismo nombre de método realizará diferentes acciones según el objeto sobre el que se ha aplicado

http://www.cristalab.com/tutoriales/programacion-orientada-a-objetos-en-visual-basic-.net-c273l/

Visual Basic 2010 Express – Números racionales (Código)


Pensamos a un número racional como un objeto y vemos que sus atributos son dos: numerador y denominador

Y los métodos aplicables son muchos:  suma, resta, simplificación, etc.

Añadiremos dos métodos: AsignarDatos para establecer valores al numerador y denominador y otro, VisualizarRacional, para visualizar un número racional.

Editamos la clase CRacional:

clase_racionales

Para crear objetos de esta clase  escribimos un módulo estándar que defina el procedimiento Main y llamamos a este módulo:  Racionales

modulo_racionales

Para finalizar, se compila la aplicación, se ejecuta y se observa el resultado esperado

Cómo calcular el interés compuesto en Excel


 http://exceltotal.com/como-calcular-el-interes-compuesto-en-excel/?utm_source=rss&utm_medium=rss&utm_campaign=como-calcular-el-interes-compuesto-en-excel

Por Moisés Ortíz el 9 julio, 2013

El interés compuesto se refiere a aquellos intereses que son depositados en una cuenta bancaria donde se encuentra el capital y que a partir de ese momento también generarán intereses es decir, los intereses se reinvierten.

Ejemplo de interés compuesto

Entenderemos mejor cómo calcular el interés compuesto haciendo un ejemplo. Supongamos que tengo $1,000 en una cuenta de inversión que paga 10% de interés anual. ¿Cuánto dinero tendré después de 3 años?

Algunos podrían pensar que obtendrán $300 de interés ya que el 10% de $1,000 son $100 y después de 3 años obtendrán dicha cantidad, pero eso no es correcto especialmente si los intereses se reinvierten. Observa la siguiente tabla de cálculo donde se muestran los intereses generados cada año después de sumar los intereses del año anterior:

interesC

Al cabo de 3 años nuestro capital ha generado $331 de interés compuesto, es decir, hemos cobrado interés de los intereses que se han reinvertido. Ya que hemos comprendido el concepto de interés compuesto debes saber que existe una fórmula para realizar el cálculo la cual revisaremos a continuación.

Fórmula para calcular el interés compuesto

interesC1

La fórmula para calcular el interés compuesto es la siguiente:

interesC2

  • Cf = Capital final
  • Ci = Capital inicial
  • i = Tasa de interés
  • n = Número de períodos

Para comprobar esta fórmula sustituiré los valores de nuestro ejemplo anterior y obtendré el capital final de la siguiente manera:

interesC3

Como puedes observar, hemos obtenido el mismo resultado que cuando hicimos el cálculo año por año. Para realizar el cálculo en Excel podríamos implementar esta misma fórmula de la siguiente manera:

interesC4

La fórmula de Excel utiliza la función POTENCIA y hace operaciones aritméticas simples como la suma y la multiplicación. El resultado es correcto, pero existe otra alternativa para calcular el interés compuesto en Excel.

Cómo calcular el interés compuesto en Excel

Además de implementar la fórmula descrita anteriormente, podemos utilizar la función VF que nos ayudará a calcular el valor futuro de una inversión. A continuación podrás observar el cálculo de interés compuesto utilizando la función VF y los datos del ejemplo anterior:

Los argumentos de la función VF son los siguientes:

  • tasa: Tasa de interés por      período que en este ejemplo se encuentra en la celda B2.
  • núm_per: Número períodos a      calcular que están indicados en la celda B3.
  • pago: Pago realizado en cada      período, que no aplica para nuestro ejemplo ya que no haremos pagos      adicionales al finalizar cada período y por eso he colocado el valor cero.
  • va: Valor actual (inicial)      de la inversión que en el ejemplo se encuentra en la celda B1 y que debe      indicarse como un valor negativo.
  • tipo: Indica el vencimiento      de los pagos y debe ser 0 (u omitido) si el pago se realiza al final del      período o 1 si se hace al inicio del período. En la fórmula del ejemplo he      omitido este argumento.

De esta manera la función VF realiza el cálculo de interés compuesto en Excel con solo especificar los argumentos correctos. Es así como tenemos dos alternativas para realizar este tipo de cálculo en Excel, ya sea implementando la fórmula mostrada en la sección anterior o utilizando la función VF. Si quieres conocer otros usos interesantes de la función VF te recomiendo consultar el artículo Ahorro para el retiro en Excel.

Small Basic: Walking man (Code)


walkman

Excellent  program written by NaoChanOn

Challenge of the month July 2013 // Walking man by NaochanON

Program Code:

Shapes_Init()

Shapes_Add()

 

While (pos<1100)

   dx=6

   dy=2

   MM=MM+5

   walking()

   If -30<MM And  MM<30 Then

     NN=MM

   ElseIf 30<=MM and MM<90 Then

     NN=60-MM

   Elseif MM=90 then

     MM=-30

   EndIf

   Program.Delay(200)

endwhile

 

Sub armlegmoving

   rad=math.GetRadians(NN)

   ‘————————————– Arm & Hand —————————————————————————————

  ArmCP=”X=”+(shapes.GetLeft(shp[7][“obj”])+shp[7][“width”]/2)+”;Y=”+(shapes.Gettop(shp[7][“obj”]))

   ArmDR= shp[5][“height”]/2

   Shapes.Rotate(shp[8][“obj”],NN)                                        ‘ Left arm // backward

   Shapes.Move(shp[8][“obj”],ArmCP[“X”]- ArmDR*Math.Sin(rad), ArmCP[“Y”]+ArmDR*Math.cos(rad)-(shp[5][“y”]-shp[7][“y”]))

   Shapes.Rotate(shp[9][“obj”],NN)                                        ‘ Left hand // backward

   Shapes.Move(shp[9][“obj”],ArmCP[“X”]- 2*ArmDR*Math.Sin(rad), ArmCP[“Y”]+2*ArmDR*Math.cos(rad)+shp[6][“height”]/2)

   Shapes.Rotate(shp[5][“obj”],-NN)                                        ‘ Right arm // forward

   Shapes.Move(shp[5][“obj”],ArmCP[“X”]+ArmDR*Math.Sin(rad), ArmCP[“Y”]+ArmDR*Math.cos(rad) -(shp[8][“y”]-shp[7][“y”]) )

   Shapes.Rotate(shp[6][“obj”],-NN)                                        ‘ Right hand// forward

   Shapes.Move(shp[6][“obj”],ArmCP[“X”]+ 2*ArmDR*Math.Sin(rad), ArmCP[“Y”]+2*ArmDR*Math.cos(rad)+shp[9][“height”]/2)

   ‘————————————– Leg & Foot ————————————————————————————— —————-

  LegCP=”X=”+(shapes.GetLeft(shp[7][“obj”])+shp[7][“width”]/2-5)+”;Y=”+(shapes.Gettop(shp[7][“obj”]) +shp[7][“height”]-5) ‘ 5… adjustment

   LegDR=shp[10][“height”]/2

   Shapes.Rotate(shp[10][“obj”],NN)                                        ‘ Left leg // backward

   Shapes.Move(shp[10][“obj”],LegCP[“X”]- LegDR*Math.Sin(rad), LegCP[“Y”])

   Shapes.Rotate(shp[11][“obj”],NN)                                        ‘ Left foot // backward

   Shapes.Move(shp[11][“obj”],LegCP[“X”]- 2*LegDR*Math.Sin(rad), LegCP[“Y”]+2*LegDR*Math.cos(rad))

   Shapes.Rotate(shp[12][“obj”],-NN)                                        ‘ Right leg// forward

   Shapes.Move(shp[12][“obj”],LegCP[“X”]+ LegDR*Math.Sin(rad), LegCP[“Y”])

   Shapes.Rotate(shp[13][“obj”],-NN)                                        ‘ Left foot // forward

   Shapes.Move(shp[13][“obj”],LegCP[“X”]+ 2*LegDR*Math.Sin(rad), LegCP[“Y”]+2*LegDR*Math.cos(rad))

EndSub

 

Sub walking

   For k=1 To  Array.GetItemCount(shp)

     Shapes.Move(shp[k][“obj”],Shapes.GetLeft(shp[k][“obj”])+dx,Shapes.Gettop(shp[k][“obj”])+dy)

   endfor

   pos=Shapes.GetLeft(shp[1][“obj”])

   armlegmoving()

EndSub

 

Sub Shapes_Add

   GraphicsWindow.BackgroundColor=”Lightcyan”

   GraphicsWindow.Width=1200

   GraphicsWindow.Height=700

   For i = 1 To Array.GetItemCount(shp)

     GraphicsWindow.PenWidth = shp[i][“pw”]

     GraphicsWindow.PenColor = shp[i][“pc”]

     GraphicsWindow.BrushColor = shp[i][“bc”]

     If shp[i][“func”] = “rect” Then

       shp[i][“obj”] = shapes.AddRectangle(shp[i][“width”], shp[i][“height”])

     ElseIf shp[i][“func”] = “ell” Then

       shp[i][“obj”] = shapes.AddEllipse(shp[i][“width”], shp[i][“height”])

     ElseIf shp[i][“func”] = “tri” Then

       shp[i][“obj”] = shapes.AddTriangle(shp[i][“x1”], shp[i][“y1”], shp[i][“x2”], shp[i][“y2”], shp[i][“x3”], shp[i][“y3”] )

     ElseIf shp[i][“func”] = “line” Then

       shp[i][“obj”] = shapes.AddLine(shp[i][“x1”], shp[i][“y1”], shp[i][“x2”], shp[i][“y2”])

     EndIf

     Shapes.Move(shp[i][“obj”], X0 + shp[i][“x”], Y0 + shp[i][“y”])

     If shp[i][“angle”] <> 0 Then

       Shapes.Rotate(shp[i][“obj”], shp[i][“angle”])

     EndIf

   EndFor

EndSub

 

Sub Shapes_Init

   X0 = 10        ‘ x offset

   Y0 = 50       ‘ y offset

   shp[1] = “func=ell;x=42;y=0;width=34;height=45;bc=#EB9869;pc=#EB9869;pw=2;”               ‘ face

   shp[2] = “func=line;x=65;y=13;x1=0;y1=0;x2=8;y2=1;pc=#6A5ACD;pw=4;”                       ‘ Eye

   shp[3] = “func=line;x=65;y=29;x1=0;y1=0;x2=8;y2=3;pc=#F80800;pw=2;”                       ‘ mouse

   shp[4] = “func=tri;x=74;y=17;x1=0;y1=0;x2=10;y2=8;x3=0;y3=12;angle=0;bc=#EB9869;pc=#EB9869;pw=1;”  ‘nose

   shp[5] = “func=rect;x=53;y=50;width=8;height=60;angle=0;bc=#6A5ACD;pc=#000000;pw=1;”      ‘ Left arm

   shp[6] = “func=ell;x=53;y=110;width=13;height=22;angle=0;bc=#EB9869;pc=#EB9869;pw=8;”     ‘ Left hand

   shp[7] = “func=ell;x=40;y=42;width=33;height=103;bc=#00AA00;pc=#00AA00;pw=2;”             ‘ body

   shp[8] = “func=rect;x=53;y=50;width=8;height=60;angle=0;bc=#00BB00;pc=#000000;pw=1;”      ‘ Right arm

   shp[9] = “func=ell;x=53;y=110;width=13;height=22;angle=0;bc=#EB9869;pc=#EB9869;pw=2;”     ‘ Right hand

   shp[10] = “func=rect;x=50;y=140;width=12;height=71;angle=0;bc=#6A5ACD;pc=#6A5ACD;pw=2;”   ‘ left Leg

   shp[11] = “func=ell;x=50;y=209;width=33;height=13;angle=0;bc=#BED3CA;pc=#414C3E;pw=2;”    ‘ left foot

   shp[12] = “func=rect;x=50;y=140;width=12;height=71;angle=0;bc=#00AA00;pc=#6A5ACD;pw=2;”   ‘ Right Leg

   shp[13] = “func=ell;x=50;y=209;width=33;height=13;angle=0;bc=#1AD3CA;pc=#414C3E;pw=2;”    ‘ Right foot

EndSub

Ecuaciones (Visual Basic – Código)


La siguiente aplicación utiliza objetos de una clase CEcuacion para evaluar ecuaciones de la forma:

ax³ + bx² + cx + d

Una ecuación se puede ver como un objeto que envuelve el exponente del término de mayor grado, los coeficientes y los métodos que permitan manipularla.

Los objetos CEcuacion tendrán unos atributos que serán los coeficientes y unos métodos Ecuación y ValorPara para manipularlos.

El método ValorPara evaluará la ecuación para el valor de x pasado como argumento. Este método, utilizando la sentencia Return, devolverá como resultado el valor calculado. El tipo devuelto por el método

es Double.

Escribimos en en primer lugar  la clase CEcuacion

ecuaciones_class

Escribimos otro archivo fuente con un módulo MiSplicacion, que utilice la clas4e de objetos CEcuacion

ecuaciones

El procedimiento Main es por donde empieza a ejecutarse la aplicación.

Una vez escrito el programa se compila.

Después se ejecuta y observa los resultados

ecuaciones1

Visual Basic.NET: CLASES DE USO COMÚN (código)


intereses

C:\Users\carlos\Documents\VB-LengAplics-3Ed-Ceballos\VB-LengAplics-3Ed-Ceballos\Inicio.HTML.   Cap 6

En VB.NET las clases son la base de nuestras aplicaciones, la potencia en la práctica, del lenguaje Visual Basic viene dada por sus bibliotecas de clases.: La biclioteca .NET. Hay un espacio de nombres que destaca por las clases de propósito general que incluye: System

El espacio de nombres System contiene clases que se aplican al lenguaje mismo. Por ejemplo, estructuras que encapsulan los tipos primitivos de datos, la clase Console que proporciona los métodos para manipular la entrada/ salida (E/ S) estándard, la clase String  para manipular cadenas de caracteres, una clase Math que proporciona los métodos correspondientes a las funciones matemáticaas de uso más frecuente, etc.

La Entrada/ Salida queda reforzada con las clases aportadas por el espacio de nombres System.IO para el manejo de archivos.

Código de programa VB.NET : Intereses

Imports System

Namespace MisClases.ES ‘ espacio de nombres

PublicClassLeer    ‘ clase Leer

PublicSharedFunction datoShort() AsShort

Try

ReturnInt16.Parse(Console.ReadLine())

Catch e AsFormatException

ReturnInt16.MinValue ‘ valor más pequeño

EndTry

EndFunction

PublicSharedFunction datoInt() AsInteger

Try

ReturnInt32.Parse(Console.ReadLine())

Catch e AsFormatException

ReturnInt32.MinValue ‘ valor más pequeño

EndTry

EndFunction

PublicSharedFunction datoLong() AsLong

Try

ReturnInt64.Parse(Console.ReadLine())

Catch e AsFormatException

ReturnInt64.MinValue ‘ valor más pequeño

EndTry

EndFunction

PublicSharedFunction datoSingle() AsSingle

Try

ReturnSingle.Parse(Console.ReadLine())

Catch e AsFormatException

ReturnSingle.NaN ‘ No es un Número valor Single.

EndTry

EndFunction

PublicSharedFunction datoDouble() AsDouble

Try

ReturnDouble.Parse(Console.ReadLine())

Catch e AsFormatException

ReturnDouble.NaN ‘ No es un Número valor Double.

System.Console.ReadKey()

EndTry

EndFunction

EndClass

EndNamespace

Small Basic: How to Convert Multi-Line Text into an Array of Lines


niños

Resources For IT Professionals

                       

// United States (English)

Россия (Pусский)中国(简体中文)Brasil (Português)

  • First published by   Nonki Takahashi a private company

Small Basic: How to Convert Multi-Line Text into an Array of Lines

Small Basic can get multi-line text into a variable from multi-line input text box with Controls.GetTextBoxText() or from text file with File.ReadContents().
The following sample code shows how to convert a multi-line text into an array of lines.

Program Code:

CRLF = Text.GetCharacter(13) + Text.GetCharacter(10)

GraphicsWindow.BackgroundColor = “LightGray”

GraphicsWindow.BrushColor = “Black”

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

tb = Controls.AddMultiLineTextBox(0, 0)

Controls.SetSize(tb, gw, gh – 30)

Controls.AddButton(“Enter”, gw – 50, gh – 30)

Controls.ButtonClicked = OnButtonClicked

Sub OnButtonClicked

buf = Controls.GetTextBoxText(tb)

ConvertTextToLines()

ShowLines()

EndSub

Sub ConvertTextToLines

len = Text.GetLength(buf)

nLines = 0

ptr = 1

While ptr <= len

eol = Text.GetIndexOf(Text.GetSubTextToEnd(buf, ptr), CRLF)

If eol = 0 Then ‘ eol not found

nLines = nLines + 1

lines[nLines] = Text.GetSubTextToEnd(buf, ptr)

ptr = len + 1

Else ‘ eol found

nLines = nLines + 1

lines[nLines] = Text.GetSubText(buf, ptr, eol – 1)

ptr = ptr + eol + 1

EndIf    

EndWhile

EndSub

Sub ShowLines

For i = 1 To nLines

TextWindow.WriteLine(“lines[” + i + “]: ” + lines[i])

EndFor

EndSub

 

 

en-US, From Forum, has code, has comment, Small Basic, TechNet Guru [Edit tags]

.

Detección de colisiones (2) – Código


manzana

Utilizando el concepto de detección de colisiones, crear un juego que contenga dos objetos: un cubo y unas manzanas. Las manzanas caerán al azar desde la parte superior de la pantalla. El jugador intentará capturar las manzanas con el cubo. El juego se ejecuta durante 30 segundos. Incluya un tablero de puntuación para mostrar el número total de manzanas atrapadas por el jugador en 30 segundos. El juego debería ser algo como esto:

Código:

‘  copyright (c) Microsoft Corporation.  Todos los derechos reservados.

GraphicsWindow.Hide()

ventanaAncho = 800

ventanaAlto = 600

GraphicsWindow.CanResize = “False”

GraphicsWindow.Width  = ventanaAncho

GraphicsWindow.Height = ventanaAlto

GraphicsWindow.Top = (Desktop.Height – ventanaAlto) / 2

GraphicsWindow.Left = (Desktop.Width – ventanaAncho) / 2

GraphicsWindow.Title = “Atrapar las manzanas”

GraphicsWindow.Show()

manzanasRestantes = 30

puntuaciónJuego = 0

imagenCubo = Program.Directory + “\cubo.png”

imagenManzana = Program.Directory + “\manzana.png”

GraphicsWindow.MouseMove = AlMoverMouse

CrearInterfaz()

While manzanasRestantes > 0

SoltarManzana()

manzanasRestantes = manzanasRestantes – 1

Shapes.SetText(manzasRestantesCuadroTexto, “Manzanas restantes: ” + manzanasRestantes)

EndWhile

GraphicsWindow.ShowMessage(“Su puntuación es: ” + puntuaciónJuego, “FIN”)

Program.End()

Sub CrearInterfaz

GraphicsWindow.BackgroundColor = “LightBlue”

cubo = Shapes.AddImage(imagenCubo)

manzana = Shapes.AddImage(imagenManzana)

GraphicsWindow.BrushColor = “Gray”

GraphicsWindow.FillRectangle(1, 1, ventanaAncho, 40)

GraphicsWindow.FontName = “Verdana”

GraphicsWindow.FontSize = 18

GraphicsWindow.BrushColor = “White”

GraphicsWindow.DrawText(350, 5, “Atrapar las manzanas”)

puntuaciónCuadroTexto = Shapes.AddText(“Puntuación: 0”)

Shapes.Move(puntuaciónCuadroTexto, 650, 5)

manzasRestantesCuadroTexto = Shapes.AddText(“Manzanas restantes: ” + manzanasRestantes)

Shapes.Move(manzasRestantesCuadroTexto, 5, 5)

GraphicsWindow.PenColor = “Black”

GraphicsWindow.DrawLine(0, 50, 800, 50)

Shapes.Move(cubo, 0, ventanaAlto – 40)

Mouse.HideCursor()

EndSub

Sub AlMoverMouse

cuboX = Math.Min(GraphicsWindow.MouseX, 570)

Shapes.Move(cubo, cuboX, ventanaAlto – 40)

EndSub

Sub SoltarManzana

manzanaX = Math.GetRandomNumber(600)

manzanaY = 50

While (manzanaY < ventanaAlto + 20)

Shapes.Move(manzana, manzanaX, manzanaY)

Program.Delay(15)

DetecciónAtrapar()

manzanaY = manzanaY + 5

EndWhile

EndSub

Sub DetecciónAtrapar

If manzanaY >= ventanaAlto – 40 And manzanaX < cuboX + 50 And manzanaX >= cuboX Then

puntuaciónJuego = puntuaciónJuego + 1

Shapes.SetText(puntuaciónCuadroTexto, “Puntuación: ” + puntuaciónJuego)

manzanaY = ventanaAlto + 20

EndIf

EndSub

Excel: mover o copiar hojas de cálculo entre libros


   Excel Tip   1.
Mover o copiar hojas de cálculo   entre librosSi alguna vez tiene que mover o copiar o incluso mudarse permanentemente formulario de   hoja de un libro a otro es muy fácil usando el cuadro de diálogo Mover o Copiar.

• En primer lugar abrir el libro que desea   mover la hoja de trabajo para
• Visualizar el libro que contiene   las hojas de trabajo que desea mover   o copiar
• Seleccione la hoja / s que desee mover o copiar
• Haga clic en la ficha de hoja y seleccione Mover o Copiar en el menú de   acceso rápido
• Se abre el cuadro   de diálogo Mover o copiar

Si desea copiar la hoja de trabajo a continuación, marque la opción Copiar, dejar en blanco para mover la hoja por completo

tip1

• En el cuadro Para, seleccione el libro que desee mover o copiar la hoja de.
• Si desea mover a un nuevo libro en lugar de uno ya existente y luego seleccionar la opción (nuevo libro) a la de reservar el cuadro desplegable.
• Todo lo que necesitas hacer ahora es que en el libro de destino en la que desea mover o copiar la hoja de cálculo.
• En el cuadro de lista Antes hoja, seleccione el nombre de la hoja que la hoja de trabajo (s) que está a punto de mover o copiar debe preceder. Si desea que la hoja (s) que usted se está moviendo o copiando a aparecer al final del libro, seleccione la opción (Mover al final).
• La hoja de trabajo copiado o movido ahora debe colocarse exactamente donde usted quiere que sea.

En mi ejemplo aquí me estoy moviendo mi hoja de mi cuaderno de trabajo actual para Widget Summary.xlsx Ventas

He marcado Quiero crear sólo una copia y la inserta antes de la hoja resumen de Widget Ventas Summary.xlsx

tip2

Barbara At How To Excel At Excel

https://snt140.mail.live.com/default.aspx?id=64855#n=2033365808&fid=1&mid=f8b952d2-e1c4-11e2-b0ef-00237de335b8&fv=1