Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
Manejo De Alfabetos Griegos Y Hebreo
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
modulo:

' gambas module file

' 945 To 969 letra griegas

Public Nombres As String[] = ["alfa", "beta", "gamma",
  "delta", "épsilon", "zeta", "eta", "theta", "iota", "kapa",
  "lamda", "mu", "nu", "xi", "ómicron", "pi", "ro", "sigma",
  "tau", "úpsilon", "fi", "ji", "psi", "omega"]
  
  
Public Sub alfabeto() As LetraGriega[]
  
  Dim letra As LetraGriega
  Dim alfabeto As New LetraGriega[]
  Dim a, b As Integer
  
  For a = 945 To 969
    letra = New LetraGriega
    letra.CodigoAscii = a
    letra.Nombre = Nombres[b]
    alfabeto.Add(letra)
    Inc b
    If b = 24 Then Break
  Next
  
  
  For Each letra In alfabeto
    Print letra.Nombre & "=" & letra.CodigoAscii & "--->" & String.Chr(letra.CodigoAscii)
  Next
  
  Return alfabeto
  
End




clase letra:

' gambas class file

Public Nombre As String ''Ejemplo: alfa, omega
Public CodigoAscii As Integer '' alfa=945, omega=969
 





' gambas module file

' 945 To 969 letra griegas

Public Nombres As String[] = ["alfa", "beta", "gamma",
  "delta", "épsilon", "zeta", "eta", "theta", "iota", "kapa",
  "lamda", "mu", "nu", "xi", "ómicron", "pi", "ro", "sigma",
  "tau", "úpsilon", "fi", "ji", "psi", "omega"]
  
  
Public Sub alfabeto() As LetraGriega[]
  
  Dim letra As LetraGriega
  Dim alfabeto As New LetraGriega[]
  Dim a, b As Integer
  
  For a = 945 To 969
    letra = New LetraGriega
    letra.CodigoAscii = a
    letra.Nombre = Nombres[b]
    alfabeto.Add(letra)
    Inc b
    If b = 24 Then Break
  Next
  
  
  For Each letra In alfabeto
    Print letra.Nombre & "=" & letra.CodigoAscii & "--->" & String.Chr(letra.CodigoAscii)
  Next
  
  Return alfabeto
  
End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
a final lo deje así, lleva mas tiempo hacer algo mas de nivel, es un teclado básico para visorrv1960,
ya tendré tiempo de hacer con mayúsculas y minúsculas y signos de puntuación y acentos.
No todo es programación a veces hay que estudiar para resolver problemas.

 tecladogriego

' gambas class file

Public Nombres As String[] = ["alfa", "beta", "gamma",
  "delta", "épsilon", "zeta", "eta", "theta", "iota", "kapa",
  "lamda", "mu", "nu", "xi", "ómicron", "pi", "ro", "sigma",
  "tau", "úpsilon", "fi", "ji", "psi", "omega"]

Public Sub Form_Open()
  
  Me.Title = "Teclado Griego"
  
  CargarLetras()
  
End

Public Sub CargarLetras()
  
  Dim boton As Button
  Dim a As Integer
  Dim b As Integer = 1
  
  pan1.Children.Clear
  pan2.Children.Clear
  pan3.Children.Clear
  
  For a = 945 To 969
    Select Case b
      Case 1 To 8
        boton = New Button(pan1) As "botones"
      Case 9 To 16
        boton = New Button(pan2) As "botones"
      Case 17 To 24
        boton = New Button(pan3) As "botones"
    End Select
    
    boton.Text = String.Chr(a)
    ' boton.Tooltip = Nombres[a - 945]
    boton.Action = Nombres[a - 945]
    boton.Width = pan1.Width / 8
    boton.Tag = a
    boton.Font.Size = 20
    boton.Font.Bold = True
    
    If (a - 945) = 23 Then Break
    Inc b
  Next
  
End

Public Sub botones_Click()
  
  TextArea1.Insert(String.Chr(Last.tag))
  TextArea1.SetFocus
  
End

Public Sub botones_Enter()
  
  Label1.Text = Last.Action
  
End


Public Sub Form_Arrange()

  CargarLetras
  
End

Public Sub Button1_Click()

  TextArea1.Clear

End

Public Sub Label1_Enter()

  Label1.Text = ""

End

Public Sub Button3_Click()

  TextArea1.Undo

End

Public Sub Button2_Click()

  Me.Close

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
vuott escribió:  
v3ctor escribió:  
no hay tildes ni apostrofes y signos mas raros.

Pero, para escribir de manera correcta en griego antiguo, tienes que usar apostrofe y los acentos (agudo, grave, circunflejo) y otros signos.

Vuott, ¿Sabes griego también?
Saludos.
 



 
última edición por tincho el Viernes, 27 Marzo 2020, 02:37; editado 1 vez 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Manejo De Ficheros soplo General 0 Domingo, 13 Septiembre 2009, 22:12 Ver último mensaje
soplo
No hay nuevos mensajes Manejo De Los DateChooser jsoto61 Controles/Librerías/Componentes 3 Domingo, 28 Septiembre 2014, 07:59 Ver último mensaje
shordi
No hay nuevos mensajes Manejo De OpenShot jsbsan Videotutoriales 6 Viernes, 10 Junio 2016, 20:17 Ver último mensaje
jsbsan
No hay nuevos mensajes Manejo De Eventos Ricardo Prieto General 5 Domingo, 20 Octobre 2019, 18:34 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario