<DIV =comment_text>


hola tengo una pregunta, cuando en un form (VB) pregunta la clave y despues de 3 intentos manda un msgbox donde pone el resultado de intentos en forma de numero (numerointentos - veces) sale un numero( 2 o 3), como hago para que esto se vea en letras, tal como aparece el resto mdel mensage.


MessageBox.Show(”Incorrect User Name and Password attempts remaining ” & (NumeroIntentos - veces) & ” more”)
ahora se ve asi
incorrect User Name amd Password attempts remaining 2 more

lo que quiero se ve asi
incorrect User Name amd Password attempts remaining two more


de ante mano gracias por la atencion

Hola, en la pagina de el guille tenes un modulo para pasar de numeros a letras, pero no creo que sea necesario solo tenes 3 opciones , yo haria un select case con el valor de NumeroIntentos - veces y asignarle a una variable de tipo string el valor de la palabra...y despues mostras esa variable...algo asi:

Código:

Dim Descripcion as String

Select Case NumeroIntentos - veces
 Case 3
   Descripcion="Three"
 Case 2
   Descripcion="Two"
 Case 1
   Descripcion="One"
End Select

saludos.

hola seba, no me funciona probe en varios lados pero no hace nada aca te copio el codigo para que por favor me digas que hago mal, graciasamigo

[/code]
[color=#0000ff size=2][color=#0000ff size=2]Imports[/color][/color] System.Data.OleDb
[color=#0000ff size=2][color=#0000ff size=2]


Public[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class[/color][/color] login


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] conexion [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] OleDbConnection


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] veces [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Integer[/color][/color] = 0


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Const[/color][/color] NumeroIntentos [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Integer[/color][/color] = 3


[color=#0000ff size=2][color=#0000ff size=2]Public[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Shared[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Main()


Application.EnableVisualStyles()


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] fAcceso [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] login


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] fAcceso.ShowDialog() = System.Windows.Forms.DialogResult.OK [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


fAcceso.Close()


Application.Run(login)


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Public[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color]()


[color=#008000 size=2][color=#008000 size=2]' This call is required by the Windows Form Designer.[/color][/color]


InitializeComponent()


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] caminito [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]


caminito = Trim(Application.StartupPath)


conexion = [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] System.Data.OleDb.OleDbConnection([color=#a31515 size=2][color=#a31515 size=2]"provider=Microsoft.ACE.OLEDB.12.0;data source="[/color][/color] + caminito + [color=#a31515 size=2][color=#a31515 size=2]"\personal1.accdb"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] btn_login_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] btn_login.Click, btn_login.Enter


[color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] sql [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color].Format([color=#a31515 size=2][color=#a31515 size=2]"Select * from personal where usuario='{0}' and clave='{1}'"[/color][/color], [color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].txt_usuario.Text, [color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].txt_password.Text)


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] DA [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] OleDbDataAdapter(sql, conexion)


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] DS [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] DataSet


DA.Fill(DS, [color=#a31515 size=2][color=#a31515 size=2]"personal1"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] DS.Tables([color=#a31515 size=2][color=#a31515 size=2]"personal1"[/color][/color]).Rows.Count > 0 [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


cumplea()


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] ini [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] salesmenu


salesmenu.Show()


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


[color=#008000 size=2][color=#008000 size=2]' Permitir varios intentos [/color][/color]


veces = veces + 1


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] Descripcion [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Select[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Case[/color][/color] NumeroIntentos - veces


[color=#0000ff size=2][color=#0000ff size=2]Case[/color][/color] 3


Descripcion = [color=#a31515 size=2][color=#a31515 size=2]"Three"[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Case[/color][/color] 2


Descripcion = [color=#a31515 size=2][color=#a31515 size=2]"Two"[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Case[/color][/color] 1


Descripcion = [color=#a31515 size=2][color=#a31515 size=2]"One"[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Select[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] veces < NumeroIntentos [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]


MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Incorrect User Name and Password attempts remaining "[/color][/color] & (([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](NumeroIntentos)) - ([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](veces))) & [color=#a31515 size=2][color=#a31515 size=2]" more"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]Exit[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Else[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] ANA [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] cerrando


cerrando.Show()


[color=#0000ff size=2][color=#0000ff size=2]Me[/color][/color].Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Catch[/color][/color] ex [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] Exception


MessageBox.Show(ex.Message, [color=#a31515 size=2][color=#a31515 size=2]"Error en:btn_login_Click"[/color][/color], MessageBoxButtons.OK, MessageBoxIcon.Warning)


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] cumplea()


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] caminito [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color]


caminito = Trim(Application.StartupPath)


[color=#0000ff size=2][color=#0000ff size=2]Using[/color][/color] conexion [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] System.Data.OleDb.OleDbConnection([color=#a31515 size=2][color=#a31515 size=2]"provider=Microsoft.ACE.OLEDB.12.0;data source="[/color][/color] + caminito + [color=#a31515 size=2][color=#a31515 size=2]"\personal1.accdb"[/color][/color])


[color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] fecha [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] DateTime = DateTime.Today


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] cadsql [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#a31515 size=2][color=#a31515 size=2]"select lasper, firper from personal where (cumple) = @fecha"[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] adap [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] OleDbDataAdapter = [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] OleDbDataAdapter(cadsql, conexion)


adap.SelectCommand.Parameters.AddWithValue([color=#a31515 size=2][color=#a31515 size=2]"@fecha'"[/color][/color], fecha)


[color=#008000 size=2][color=#008000 size=2]' Hay que crear un nuevo objeto DataTable[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] datos [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] DataTable = [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] DataTable([color=#a31515 size=2][color=#a31515 size=2]"Personal1"[/color][/color])


adap.Fill(datos)


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] msql [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]String[/color][/color] = [color=#a31515 size=2][color=#a31515 size=2]""[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]For[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Each[/color][/color] dr [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] DataRow [color=#0000ff size=2][color=#0000ff size=2]In[/color][/color] datos.Rows


msql += dr([color=#a31515 size=2][color=#a31515 size=2]"lasper"[/color][/color]).ToString & [color=#a31515 size=2][color=#a31515 size=2]" "[/color][/color] & dr([color=#a31515 size=2][color=#a31515 size=2]"firper"[/color][/color]).ToString & vbCrLf


[color=#0000ff size=2][color=#0000ff size=2]Next[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Dim[/color][/color] mio [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]New[/color][/color] msgcumple


mio.Mensaje = msql


mio.ShowDialog() [color=#008000 size=2][color=#008000 size=2]'If msql = Nothing Then[/color][/color]


[color=#008000 size=2][color=#008000 size=2]'Exit Sub[/color][/color]


[color=#008000 size=2][color=#008000 size=2]'Else[/color][/color]


[color=#008000 size=2][color=#008000 size=2]' MsgBox("Today's Birthday" & vbCrLf & msql, MsgBoxStyle.OkOnly, "HAPPY BIRTHDAY")[/color][/color]


[color=#008000 size=2][color=#008000 size=2]' End If[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Catch[/color][/color] ex [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] Exception


[color=#008000 size=2][color=#008000 size=2]' Se ha producido un error[/color][/color]


MessageBox.Show(ex.Message)


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Try[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Using[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color]


[color=#0000ff size=2][color=#0000ff size=2]Private[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub[/color][/color] Cancel_Click([color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] sender [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.Object, [color=#0000ff size=2][color=#0000ff size=2]ByVal[/color][/color] e [color=#0000ff size=2][color=#0000ff size=2]As[/color][/color] System.EventArgs) [color=#0000ff size=2][color=#0000ff size=2]Handles[/color][/color] Cancel.Click


Application.Exit()


[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Sub


End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]Class
[end code][/color][/color]

Hola Chopper

Con permiso de seba y a bote pronto intenta cambiar esta linea

MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Incorrect User Name and Password attempts remaining "[/color][/color] & (([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](NumeroIntentos)) - ([color=#0000ff size=2][color=#0000ff size=2]CStr[/color][/color](veces))) & [color=#a31515 size=2][color=#a31515 size=2]" more"[/color][/color])

Por esta:

MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Incorrect User Name and Password attempts remaining "[/color][/color] &Descripcion & [color=#a31515 size=2][color=#a31515 size=2]" more"[/color][/color])

No he profundizado mucho en el codigo tal vez no sea la solucion
Bueno saludos y feliz año nuevo
Luis

gracias velez por responder si funciona cambiando la linea de codigo tal como dijistes, pero me da esta advertencia

Advertencia1La variable 'Descripcion' se utiliza antes de que se le haya asignado un valor. Podría darse una excepción de referencia nula en tiempo de ejecución.

probe en varios lados pero sigue la advertencia sabrias decirme como lo soluciono, gracias de nuevo y feliz ano para ti tambien

al declarar la variable...trata de inicializar la variable por lo menos con un valor nulo...algo asi:

Código:

Dim Descripcion As String = ""

saludos.

echo sebas, me olvide de ese detalle gracias a los dos funciona bien
feliz ano nuevo