[SOLUCIONADO] programa que me diga el mes al digitar el numero

[thepasifico]

Como creo un programa en windows form que al ingresar un numero del 1 al 12 me diga el mes que es. como se hace ese programa utilizando arreglos

[Namiwis]

Hola thepasifico Bienvenido al Foro

Que has intentado? tienes alguna idea de como afrontar el problema? podrías poner lo que has intentando o investigado para poderte apoyar.

Saludos.

[Drako_18]

Buenas compañero,

Te paso un simple ejemplo, que creo que es lo que buscas: http://www.megafileupload.com/fh8a/hablar.zip


Un saludo compañero!!!

[thepasifico]

Namiwis hola

que ria hacer algo como esto
Cuando digite un numero quiero que me diga el mes que corresponde ejemplo: 1 es enero etc...
este seria un ejemplo
case 1:
mes="enero";
break;
case 2:
mes="febrero";

[thepasifico]

Hola drako_18

aun no eh podido ver lo que me mandaste porque mi vercion es mas antigua y no habre

[Drako_18]

Buenas compañero,

La versión que uso es la gratuita 2015, por si quieres descargarla.
De todas formas, te paso lo que hice.

1º) Agregar la referencia de System.Speech
2º) Hice un nuevo Form que lo llamé frmPrincipal y le agregué 1 caja de texto, 1 botón y un ListBox con los números del 1 al 12.
3º) El resto te lo copio&pego más abajo.


Un saludo compañero! ;)

Código vb:

Imports System.Speech.Synthesis
 
Public Class frmPrincipal
    Private oSpeaker As SpeechSynthesizer
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 1 To 12
            Me.lstNumeros.Items.Add(i)
        Next
 
        Me.lstNumeros.SelectedIndex = 0
 
        'Si pusieramos el speaker antes de la asignación del elemento = 0, nos diría 0.
        oSpeaker = New SpeechSynthesizer
    End Sub
 
 
 
    Private Sub btnLeerTexto_Click(sender As Object, e As EventArgs) Handles btnLeerTexto.Click
        If IsNumeric(Me.txtQueDecir.Text) Then
            decirNumero(CInt(Me.txtQueDecir.Text))
        Else
            decirTexto(Me.txtQueDecir.Text)
        End If
    End Sub
 
 
 
    Private Sub lstNumeros_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstNumeros.SelectedIndexChanged
        decirMes(CInt(Me.lstNumeros.SelectedItem))
    End Sub
 
 
 
    Private Sub decirMes(ByVal iNumero As Integer)
        If Not IsNothing(oSpeaker) Then
            Dim arrMeses() As String = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
            decirTexto(arrMeses(iNumero - 1))
        End If
    End Sub
 
 
 
    Private Sub decirNumero(ByVal iNumero As Integer)
        If Not IsNothing(oSpeaker) Then
            oSpeaker.Speak("Número: " & iNumero.ToString())
        End If
    End Sub
 
 
 
    Private Sub decirTexto(ByVal sTexto As String)
        If Not IsNothing(oSpeaker) Then
            oSpeaker.Speak(sTexto)
        End If
    End Sub
End Class
 

[thepasifico]

ok gracias deja ver si paso el ejemplo del codigo a c sharp

[thepasifico]

Drako_18

tienes ese mismo codigo para C Sharp? lo quiero hacer en C sharp no en VB

[Malenko]

Iniciado por thepasifico

Drako_18

tienes ese mismo codigo para C Sharp? lo quiero hacer en C sharp no en VB

Pasar ese código a C# no es nada complicado y sería un buen ejemplo para ti, ya que quieres aprender como se resuelve el problema, realizar esa "traducción" o al menos mirar de entender que ha hecho.

[thepasifico]

Iniciado por Malenko

Pasar ese código a C# no es nada complicado y sería un buen ejemplo para ti, ya que quieres aprender como se resuelve el problema, realizar esa "traducción" o al menos mirar de entender que ha hecho.

uh bueno vere que se hace

[Drako_18]

Buenas compañero,

Malenko tiene toda la razón, pero también es muy bueno aprender a usar nuestro amigo San Google, que para eso somos informáticos, para tener una mente activa, ágil y usar las herramientas que tenemos a nuestro alcance...
Y recuerda, Google es nuestro fiel amigo.


Un saludo!

[thepasifico]

jaja Si san Google bueno Ok Gracias