Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


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

estoy pensando añadir diccionarios griego y hebreo en el programa VisorRV1960, es decir que la persona pueda agregar una palabra griega y un texto donde describe lo que significa o todo el estudio que quiera hacer sobre ella.

se presentan varios problemas:
1- el primero instalar la fuente.
2- el segundo presentar un panel o tipo teclado con los caracteres griegos o hebreos para que la persona pueda escribir. (esto lo podría hacer con el mismo código que gambas cuando presenta caracteres extraños, ya aplique algo parecido en VisorRV1960 en el formulario palabras existentes)

alguien a trabajado con caracteres de otros idiomas?
que experiencia tienen?

aquí hay fuentes hebreas open:
https://github.com/jenskutilek/free...ns%20Hebrew/TTF

 




===================
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/
 
última edición por v3ctor el Viernes, 20 Marzo 2020, 14:37; editado 2 veces 
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 
 
Ejecuta este código. Cada personaje está en "UTF-8

Textarea1 As TextArea

Public Sub Form_Open()

  With Me
    .Arrangement = Arrange.Vertical
    .Padding = 5
    .Height = 600
    .Width = 1100
  End With

  With Textarea1 = New TextArea(Me) As "TextArea1"
    .Expand = True
    .Font.Size = 18
    .Wrap = True
  End With

  Display

End

Public Sub Display()

  Dim iChar As Integer

  TextArea1.Font.Size = 18

  For iChar = 880 To 1023                           'https://www.key-shortcut.com/en/writing-systems/abg-greek-alphabet
    TextArea1.Text &= String.Chr$(iChar) & " "
  Next

  Me.Show
  Wait 0.1
  TextArea1.Text &= gb.NewLine & gb.NewLine

  For iChar = 7936 To 8191                          'https://www.key-shortcut.com/en/writing-systems/abg-greek-alphabet
    TextArea1.Text &= String.Chr$(iChar) & " "
  Next

  Wait 0.1
  TextArea1.Text &= gb.NewLine & gb.NewLine

  For iChar = 1280 To 1535                          'https://www.utf8-chartable.de/unicode-utf8-table.pl?start=1280&unicodeinhtml=dec
    TextArea1.Text &= String.Chr$(iChar) & " "
  Next

End
 

 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
parece que los caracteres griegos aparecen ahí, tendría que averiguar y anotar cada carácter y su código numérico y en base a eso hacer un tecladito casero no?

ahí están los caracteres hebreo y griego no?

si es así me ahorraría la instalación de dos fuentes?
 




===================
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 
 
Hacer una máquina de escribir.

Textarea1 As TextArea
HPanel1 As HPanel
hButton As Button

Public Sub Form_Open()

  Dim iLoop As Integer

  With Me
    .Arrangement = Arrange.Vertical
    .Padding = 5
    .Height = 600
    .Width = 1100
    .Maximized = True
  End With

  With HPanel1 = New HPanel(Me) As "HPanel1"
    .Expand = True
  End With

  With Textarea1 = New TextArea(Me) As "TextArea1"
    .Expand = True
    .Font.Size = 18
    .Wrap = True
  End With

  For iLoop = 880 To 1024
    With hButton = New Button(HPanel1) As "Buttons"
      .Height = 70
      .Font.Size = 18
      If iLoop = 1024 Then
        .Text = " "
        .Width = 500
      Else
        .ToolTip = "Dec = " & Str(iLoop) & gb.NewLine & "Hex = " & Hex(iLoop, 4) & gb.Newline & "U+" & Hex(iLoop, 4)
        .Text = String.Chr$(iLoop)
        .Width = 70
      Endif
    End With
  Next

End

Public Sub Buttons_Click()

  Textarea1.Text &= Last.Text

End
 

 



 
última edición por cogier el Viernes, 20 Marzo 2020, 17:06; editado 2 veces 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
v3ctor escribió: [Ver mensaje]
si es así me ahorraría la instalación de dos fuentes?

v3ctor,
cogier hizo darte cuenta que, usando caracteres UNICODE, no hace falta instalar específicos fuentes.  
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Manejo De Alfabetos Griegos Y Hebreo 
 
vuott escribió: [Ver mensaje]
v3ctor escribió: [Ver mensaje]
si es así me ahorraría la instalación de dos fuentes?

v3ctor,
cogier hizo darte cuenta que, usando caracteres UNICODE, no hace falta instalar específicos fuentes.  


gracias por la aclaración ya se me van clarificando las ideas estoy buscando info y el griego que yo quiero usar es el El griego Koiné es es el griego común también llamado helénico, que es el que fue usado para el nuevo testamento.    aaaa.... estas cosas llevan tiempo, no es así nomas
 




===================
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 
 
cogier escribió:  
Hacer una máquina de escribir.

Textarea1 As TextArea
HPanel1 As HPanel
hButton As Button

Public Sub Form_Open()

  Dim iLoop As Integer

  With Me
    .Arrangement = Arrange.Vertical
    .Padding = 5
    .Height = 600
    .Width = 1100
    .Maximized = True
  End With

  With HPanel1 = New HPanel(Me) As "HPanel1"
    .Expand = True
  End With

  With Textarea1 = New TextArea(Me) As "TextArea1"
    .Expand = True
    .Font.Size = 18
    .Wrap = True
  End With

  For iLoop = 880 To 1024
    With hButton = New Button(HPanel1) As "Buttons"
      .Height = 70
      .Font.Size = 18
      If iLoop = 1024 Then
        .Text = " "
        .Width = 500
      Else
        .ToolTip = "Dec = " & Str(iLoop) & gb.NewLine & "Hex = " & Hex(iLoop, 4) & gb.Newline & "U+" & Hex(iLoop, 4)
        .Text = String.Chr$(iLoop)
        .Width = 70
      Endif
    End With
  Next

End

Public Sub Buttons_Click()

  Textarea1.Text &= Last.Text

End
 


genial, gracias cogier, esa es la idea, e pensado en un textbox de ingreso de palabras griegas que tenga un botón donde lance el teclado especial y escriba sobre el y así ingresar en una base de datos.
ahora lo que estoy haciendo es identificar el alfabeto, su numero así después asocio a ese numero la letra correspondiente y su nombre algo así.

tu ejemplo esta muy bueno es para escribir directamente en griego, saludos y gracias por sus aportes.
 




===================
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 
 
alfabetogriego

ese parecería que es el alfabeto:

945=α
946=β
947=γ
948=δ
949=ε
950=ζ
951=η
952=θ
953=ι
954=κ
955=λ
956=μ
957=ν
958=ξ
959=ο
960=π
961=ρ
962=ς
963=σ
964=τ
965=υ
966=φ
967=χ
968=ψ
969=ω

estoy revisando un interlinear griego-español y se ven esos caracteres, no hay tildes ni apostrofes y signos mas raros.

una clase seria:
numero
nombre
es vocal o consonante
descripción como suena
etc

son 25 asique seria un teclado de 5x5
 




===================
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/
 
última edición por v3ctor el Viernes, 20 Marzo 2020, 19:41; editado 1 vez 
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 
 
v3ctor escribió: [Ver mensaje]
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 - Ver perfil del usuarioEnviar mensaje privado 
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.


puede ser, pero la idea del teclado es que tenga el griego que fue usado como base para el nuevo testamento, igual sigo estudiando un poco para dar con las decisiones correctas.

ahora estoy un poco enrredado, se lo que quiero hacer pero el como llevara tiempo y estudio.
 




===================
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/
 
última edición por v3ctor el Viernes, 20 Marzo 2020, 21:19; editado 2 veces 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
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 Inventario jj231089 Bases de Datos 8 Lunes, 09 Septiembre 2013, 16:54 Ver último mensaje
shordi
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
 

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

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 2 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