Mensajes

Hola, basicamente en internet...busca libros hay varios, busca videotutoriales hay muchos, basicamente buscar...empeza por esto por ejemplo:

Manual básico de Visual Basic

saludos.

creo que la matricula es string no ? tendria que ir entre comillas simples no ?? o ahi ya esta con comillas ?? pregunto porque de MySQL en web no conozco...

si decis la pagina de internet que es va a ser mejor, todas son distintas...

saludos.

si se puede mira:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const DM_DISPLAYFREQUENCY = &H400000
Const CCFORMNAME = 32

Private Type DEVMODE
  dmDeviceName As String * CCDEVICENAME
  dmSpecVersion As Integer
  dmDriverVersion As Integer
  dmSize As Integer
  dmDriverExtra As Integer
  dmFields As Long
  dmOrientation As Integer
  dmPaperSize As Integer
  dmPaperLength As Integer
  dmPaperWidth As Integer
  dmScale As Integer
  dmCopies As Integer
  dmDefaultSource As Integer
  dmPrintQuality As Integer
  dmColor As Integer
  dmDuplex As Integer
  dmYResolution As Integer
  dmTTOption As Integer
  dmCollate As Integer
  dmFormName As String * CCFORMNAME
  dmUnusedPadding As Integer
  dmBitsPerPel As Integer
  dmPelsWidth As Long
  dmPelsHeight As Long
  dmDisplayFlags As Long
  dmDisplayFrequency As Long
End Type
Dim Dispositivo As DEVMODE

Sub Cambiar_Frecuencia(Frecuencia As Single)
  Dim a As Boolean
  Dim i As Integer
  i = 0
  Do
    a = EnumDisplaySettings(0&, i, Dispositivo)
    i = i + 1
  Loop Until (a = False)

  Dim b&
  Dispositivo.dmFields = DM_DISPLAYFREQUENCY
  Dispositivo.dmDisplayFrequency = Frecuencia

  ChangeDisplaySettings Dispositivo, 0
End Sub

Private Sub Form_Load()
Call Cambiar_Frecuencia(60)
End Sub

pasale a la funcion el valor de los Hz

saludos.

el ultimo IF es en broma..no lo probe pero algo asi es...para que te des una idea nomas, se puede mejorar...

Código (vbnet) [Seleccionar] Expandir

Imports System.Console

Module Module1

   Sub Main()
       Title = "Nivel de Hemoglobina"
       ForegroundColor = ConsoleColor.Cyan

       Dim vEdad, vNivelHemoglobina As Double
       Dim vGenero As String
       Dim vRango(1) As Double

       WriteLine("Ingresar su edad: ")
       vEdad = ReadLine()

       WriteLine("Ingresar su género (H/M): ")
       vGenero = ReadLine()

       WriteLine("Ingresar su nivel de Hemoglobina: ")
       vNivelHemoglobina = ReadLine()

       Select Case vEdad
           Case 0 To 0.1
               vRango(0) = 13
               vRango(1) = 26
           Case Is > 0.1, Is <= 0.6
               vRango(0) = 10
               vRango(1) = 18
           Case Is > 0.6, Is <= 1
               vRango(0) = 11
               vRango(1) = 15
           Case Is > 1, Is <= 5
               vRango(0) = 11.5
               vRango(1) = 15
           Case Is > 5, Is <= 10
               vRango(0) = 12.6
               vRango(1) = 15.5
           Case Is > 10, Is <= 15
               vRango(0) = 13
               vRango(1) = 15.5
           Case Is > 15
               If vGenero.ToUpper = "H" Then
                   vRango(0) = 12
                   vRango(1) = 16
               Else
                   vRango(0) = 14
                   vRango(1) = 18
               End If
       End Select

       WriteLine("")

       If vNivelHemoglobina >= vRango(0) And vNivelHemoglobina <= vRango(1) Then
           WriteLine("Esta en los valores normales...")
       ElseIf vNivelHemoglobina < vRango(0) Then
           WriteLine("Esta debajo de los valores 'ANEMIA'")
       ElseIf vNivelHemoglobina > vRango(1) Then
           WriteLine("Esta por arriba de los valores 'POLICITEMIA'")
       Else
           WriteLine("No tenes sangre XD...")
       End If

       ReadLine()
   End Sub
End Module

saludos.

Cambiar y reestablecer la resolución de la pantalla con el Api ChangeDisplaySetting

si, SQL Server hace lo mismo cuando queres hacer una relacion con 2 tablas de colaciones distintas, ya me ha pasado, se la cambias y listo el pollo...

saludos.

Tambien podrias hacer esto, no?

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim vParams(1)  As Variant
   
    vParams(0) = "Hi ho"
    vParams(1) = 1500
    CallByName Me, "Mensaje", VbMethod, vParams()
End Sub

Public Sub Mensaje(ByRef vParams() As Variant)
    Call MsgBox(vParams(0), , vParams(1))
End Sub

si, yo tambien pense eso, pero el tema aca es que al pasarle el, array te pase cada indice del mismo al parametro correspondiente.

saludos.

si ya viene....

che ahi dice que a mi me falta la vacuna...yo tengo la antitetanica sirve esa ? (chiste malo) 

despues hago algo...aunque no hay muhco que hacer, es mas yo lo ejecute  , y lo cerre rapido y no hizo nada, creo esos archivos y los borre...creo las claves en el registro y las borre...y no paso nada hoy cuando prendi la maquina jaja...

despues hago algo lindo en visual basic...

saludos.