Text Box (Código Visual Basic)

Microsoft Visual Basic 2010 Express

• Un programa para mostrar un formulario sencillo, siguiendo los siguientes pasos:
•   Agrega cajas de texto que acepten el nombre, dirección, número de teléfono y dirección de email del usuario.
•  Agrega un botón Enviar al formulario.
•  Una vez que el usuario introduce la información en todas las cajas de texto y hace clic en el botón Enviar, muestre el mensaje correspondiente.

 cajas_txtModule.vb

Module cajas_txtModule

Dim x, y, cuadroTextoNombre, cuadroTextoDirección, cuadroTextoFono, cuadroTextoCorreo, botónEnviar, botónCancelar, nombre, dirección, fono, correo As Primitive

Sub Main()

GraphicsWindow.Show()

GraphicsWindow.Width = 340

GraphicsWindow.Height = 250

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

GraphicsWindow.left = (Desktop.Width – 600) / 2

GraphicsWindow.Title = «Formulario»

x = 30

y = 37

‘Escriba el nombre

GraphicsWindow.DrawText(x, y, «Nombre:»)

cuadroTextoNombre = Controls.AddTextBox(150, 35)

Controls.SetSize(cuadroTextoNombre, 150, 20)

‘Dirección

GraphicsWindow.DrawText(x, y + 40, «Dirección:»)

cuadroTextoDirección = Controls.AddMultiLineTextBox(150, 70)

Controls.SetSize(cuadroTextoDirección, 150, 40)

‘Detalles de teléfono

GraphicsWindow.DrawText(x, y + 90, «Teléfono:»)

cuadroTextoFono = Controls.AddTextBox(150, 125)

Controls.SetSize(cuadroTextoFono, 150, 20)

‘Correo electrónico

GraphicsWindow.DrawText(x, y + 125, «Correo electrónico:»)

cuadroTextoCorreo = Controls.AddTextBox(150, 160)

Controls.SetSize(cuadroTextoCorreo, 150, 20)

‘Enviar

botónEnviar = Controls.AddButton(«Enviar», x + 30, y + 160)

Controls.SetSize(botónEnviar, 90, 30)

‘Cancelar

botónCancelar = Controls.AddButton(«Cancelar», x + 150, y + 160)

Controls.SetSize(botónCancelar, 70, 30)

AddHandler Controls.ButtonClicked, AddressOf EnviarFormulario

End Sub

Sub EnviarFormulario()

nombre = controls.GetTextBoxText(cuadroTextoNombre)

dirección = controls.GetTextBoxText(cuadroTextoDirección)

fono = controls.GetTextBoxText(cuadroTextoFono)

correo = controls.GetTextBoxText(cuadroTextoCorreo)

If Controls.GetButtonCaption(Controls.LastClickedButton) = CType(«Enviar», Primitive) Then

If (nombre = CType(«», Primitive)) or (dirección = CType(«», Primitive)) or (fono = CType(«», Primitive)) or (correo = CType(«», Primitive)) Then

GraphicsWindow.ShowMessage(«Complete todos los cuadros.», «Mensaje de error»)

Else

GraphicsWindow.ShowMessage(«Sus datos fueron enviados correctamente.», «¡Enhorabuena!»)

End If

ElseIf Controls.GetButtonCaption(Controls.LastClickedButton) = CType(«Cancelar», Primitive) Then

Program.End()

End If

End Sub

End Module

Star Field Simulator

Graphical Animated Small Basic Program Gallery

     Star Field Simulator  Microsoft Small Basic

     ‘ Program Listing:   GPZ070

  

1. 5.      ‘ Krueg — Starfield — Sept. 2012

 

1. 6.      Delay = 60        ‘Delay for smooth framrate
2. 7.      StarQty = 80      ‘Number of stars, Too many and it slows the program
3. 8.      SetupWindow()
4. 9.      CreateStars()

 

1. 10.  While («True»)
2. 11.  MoveStars()
3. 12.  RefreshRate()   ‘Comment out this line to see the jerkiness of the array proccessing
4. 13.  EndWhile

 

1. 14.  Sub RefreshRate
2. 15.  While Clock.ElapsedMilliseconds < FrameRate
3. 16.  EndWhile
4. 17.  FrameRate = Clock.ElapsedMilliseconds + Delay
5. 18.  EndSub

 

1. 19.  Sub MoveStars
2. 20.  For i = 1 To StarQty
3. 21.  StarY[i] = StarY[i] + StarHeight[i] * 1.5
4. 22.  If StarY[i] > gh Then
5. 23.  StarY[i] = StarY[i] – gh
6. 24.  StarX[i] = Math.GetRandomNumber(gw – 10) + 5
7. 25.  EndIf
8. 26.  Shapes.Move(Star[i],StarX[i],StarY[i])      ‘Checking which moves smother, Shapes.Move or Shapes.Animate
9. 27.  ‘Shapes.Animate(Star[i],StarX[i],StarY[i],0)
10. 28.  EndFor
11. 29.  EndSub

 

1. 30.  Sub CreateStars
2. 31.  For i = 1 To StarQty
3. 32.  GraphicsWindow.PenColor = «White»
4. 33.  GraphicsWindow.BrushColor = «White»
5. 34.  StarWidth[i] = Math.GetRandomNumber(2)
6. 35.  If i < (StarQty * .9) Then
7. 36.  StarHeight[i] = Math.GetRandomNumber(3)   ‘Create more small stars than big
8. 37.  Else
9. 38.  StarHeight[i] = Math.GetRandomNumber(4)+4
10. 39.  EndIf
11. 40.  Star[i] = Shapes.AddEllipse(StarWidth[i],StarHeight[i])
12. 41.  Shapes.SetOpacity(Star[i],StarHeight[i]*5+50)
13. 42.  StarX[i] = Math.GetRandomNumber(gw – 10) + 5
14. 43.  StarY[i] = Math.GetRandomNumber(gh)
15. 44.  Shapes.Move(Star[i],StarX[i],StarY[i])
16. 45.  EndFor
17. 46.  EndSub

 

1. 47.  Sub SetupWindow
2. 48.  gw = 800
3. 49.  gh = 600
4. 50.  GraphicsWindow.Top = 5
5. 51.  GraphicsWindow.Left = 5
6. 52.  GraphicsWindow.Width = gw
7. 53.  GraphicsWindow.Height = gh
8. 54.  GraphicsWindow.BackgroundColor = «Black»
9. 55.  EndSub

 

1. 56.  ‘ Copyright (c) Microsoft Corporation. All rights reserved.