No1 Κέντρο Πληροφορικής στην Εύβοια και Βοιωτίας
Έχεις κάποια ερώτηση;
2221087969
Είσοδος

Είσοδος με τον λογαριασμό σου στην Ιστοσελίδα

Ξέχασες τον κωδικό σου;

AcademyAcademy
  • ΑΡΧΙΚΗ
  • ΕΝΟΤΗΤΕΣ
    • OFFICE CORE

      • Microsoft Windows
      • Microsoft Word
      • Microsoft Excel
      • Microsoft PowerPoint
      • Microsoft Access
      • Internet Explorer & Outlook
    • OFFICE EXPERT

      • Microsoft Word Expert
      • Microsoft Excel Expert
      • Microsoft PowerPoint Expert
      • Microsoft Access Expert
    • ΣΧΕΔΙΑΣΤΙΚΑ

      • Autodesk Autocad
      • Autodesk Inventor
      • Autodesk 3Ds Max
      • Archicad
    • ΓΡΑΦΙΣΤΙΚΑ

      • Adobe Photoshop
      • Adobe illustrator
      • Adobe InDesign
      • Adobe Premiere
      • Adobe After Effects
    • ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΣ

      • C++
      • Java
      • Visual Basic
      • SQL
    • ΚΑΤΑΣΚΕΥΗ ΙΣΤΟΣΕΛΙΔΑΣ

      • HTML – CSS
      • JavaScript
      • PHP
      • Joomla
      • WordPress
    • ΔΙΟΙΚΗΣΗ ΕΠΙΧΕΙΡΗΣΕΩΝ

      • Θεωρία Λογιστικής
      • Microsoft Project
    • ΑΝΩΤΕΡΗ ΕΚΠΑΙΔΕΥΣΗ

      • Matlab
      • SPSS
      • GIS
  • ΤΜΗΜΑΤΑ
    • ΠΑΙΔΙΚΑ

      • Δημοτικό
      • Γυμνάσιο
      • Λυκείο
      • Ρομποτική
    • ΕΝΗΛΙΚΩΝ

      • Academy Core
      • Academy Expert
    • ΑΡΧΑΡΙΩΝ

      • Academy Basic
    • ΠΡΟΧΩΡΗΜΕΝΩΝ

      • Academy Expert
      • Γραφίστες
      • Σχεδιαστικά
      • Προγραμματισμός
      • Κατασκευή ιστοσελίδων
      • Διοίκηση Επιχειρήσεων
  • ΓΙΑ ΕΠΑΓΓΕΛΜΑΛΤΙΕΣ
      • Προγραμματιστές
      • Γραφίστες
      • Αρχιτέκτονες
      • Πολιτικοί Μηχανικοί
      • Μηχανολόγοι
      • Διοίκηση Επιχειρήσεων
      • Δικηγόροι
      • Εκπαιδευτικοί
      • Λογιστές
  • Ενότητες
    • OFFICE CORE
      • Microsoft Windows
      • Microsoft Word
      • Microsoft Excel
      • Microsoft PowerPoint
      • Microsoft Access
      • Internet Explorer & Outlook
    • OFFICE EXPERT
      • Microsoft Word Expert
      • Microsoft Excel Expert
      • Microsoft PowerPoint Expert
      • Microsoft Access Expert
    • ΣΧΕΔΙΑΣΤΙΚΑ
      • Autodesk Autocad
      • Autodesk Inventor
      • Autodesk 3Ds Max
      • Archicad
    • ΓΡΑΦΙΣΤΙΚΑ
      • Adobe Photoshop
      • Adobe illustrator
      • Adobe InDesign
      • Adobe Premiere
      • Adobe After Effects
    • ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΣ
      • C++
      • Java
      • Visual Basic
      • SQL
    • ΚΑΤΑΣΚΕΥΗ ΙΣΤΟΣΕΛΙΔΑΣ
      • HTML – Css
      • JavaScript
      • PHP
      • Joomla
      • WordPress
    • ΔΙΟΙΚΗΣΗ ΕΠΙΧΕΙΡΗΣΕΩΝ
      • Λογιστική
      • Microsoft Project
    • ΑΝΩΤΕΡΗ ΕΚΠΑΙΔΕΥΣΗ
      • Matlab
      • SPSS
      • GIS
  • ΤΜΗΜΑΤΑ
    • ΠΑΙΔΙΚΑ
      • Δημοτικό
      • Γυμνάσιο
      • Λύκειο
      • Ρομποτική
    • ΕΝΗΛΙΚΩΝ
      • Academy Core
      • Academy Expert
    • ΑΡΧΑΡΙΩΝ
      • Academy Basic
    • ΠΡΟΧΩΡΗΜΕΝΩΝ
      • Academy Expert
      • Γραφιστικά
      • Σχεδιαστικά
      • Προγραμματισμός
      • Κατασκευή Ιστοσελίδων
      • Διοίκηση Επιχειρήσεων
  • Για Επαγγελματίες
    • Προγραμματιστές
    • Γραφίστες
    • Αρχιτέκτονες
    • Πολιτικός Μηχανικός
    • Μηχανολόγοι
    • Διοίκηση Επιχειρήσεων
    • Δικηγόροι
    • Εκπαιδευτικοί
    • Λογιστές
  • Αιτήσεις
    • Αίτηση1 – Εγγραφή
    • Αίτηση2 – Θέση
    • Ημερομηνίες Εξετάσεων
    • Λίστα Μαθητών
    • Αποτελέσματα Εξετάσεων
  • Επικοινωνία
  • Moodle
    • ΑΡΧΙΚΗ
    • ΕΝΟΤΗΤΕΣ
      • OFFICE CORE

        • Microsoft Windows
        • Microsoft Word
        • Microsoft Excel
        • Microsoft PowerPoint
        • Microsoft Access
        • Internet Explorer & Outlook
      • OFFICE EXPERT

        • Microsoft Word Expert
        • Microsoft Excel Expert
        • Microsoft PowerPoint Expert
        • Microsoft Access Expert
      • ΣΧΕΔΙΑΣΤΙΚΑ

        • Autodesk Autocad
        • Autodesk Inventor
        • Autodesk 3Ds Max
        • Archicad
      • ΓΡΑΦΙΣΤΙΚΑ

        • Adobe Photoshop
        • Adobe illustrator
        • Adobe InDesign
        • Adobe Premiere
        • Adobe After Effects
      • ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΣ

        • C++
        • Java
        • Visual Basic
        • SQL
      • ΚΑΤΑΣΚΕΥΗ ΙΣΤΟΣΕΛΙΔΑΣ

        • HTML – CSS
        • JavaScript
        • PHP
        • Joomla
        • WordPress
      • ΔΙΟΙΚΗΣΗ ΕΠΙΧΕΙΡΗΣΕΩΝ

        • Θεωρία Λογιστικής
        • Microsoft Project
      • ΑΝΩΤΕΡΗ ΕΚΠΑΙΔΕΥΣΗ

        • Matlab
        • SPSS
        • GIS
    • ΤΜΗΜΑΤΑ
      • ΠΑΙΔΙΚΑ

        • Δημοτικό
        • Γυμνάσιο
        • Λυκείο
        • Ρομποτική
      • ΕΝΗΛΙΚΩΝ

        • Academy Core
        • Academy Expert
      • ΑΡΧΑΡΙΩΝ

        • Academy Basic
      • ΠΡΟΧΩΡΗΜΕΝΩΝ

        • Academy Expert
        • Γραφίστες
        • Σχεδιαστικά
        • Προγραμματισμός
        • Κατασκευή ιστοσελίδων
        • Διοίκηση Επιχειρήσεων
    • ΓΙΑ ΕΠΑΓΓΕΛΜΑΛΤΙΕΣ
        • Προγραμματιστές
        • Γραφίστες
        • Αρχιτέκτονες
        • Πολιτικοί Μηχανικοί
        • Μηχανολόγοι
        • Διοίκηση Επιχειρήσεων
        • Δικηγόροι
        • Εκπαιδευτικοί
        • Λογιστές
    • Ενότητες
      • OFFICE CORE
        • Microsoft Windows
        • Microsoft Word
        • Microsoft Excel
        • Microsoft PowerPoint
        • Microsoft Access
        • Internet Explorer & Outlook
      • OFFICE EXPERT
        • Microsoft Word Expert
        • Microsoft Excel Expert
        • Microsoft PowerPoint Expert
        • Microsoft Access Expert
      • ΣΧΕΔΙΑΣΤΙΚΑ
        • Autodesk Autocad
        • Autodesk Inventor
        • Autodesk 3Ds Max
        • Archicad
      • ΓΡΑΦΙΣΤΙΚΑ
        • Adobe Photoshop
        • Adobe illustrator
        • Adobe InDesign
        • Adobe Premiere
        • Adobe After Effects
      • ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΣ
        • C++
        • Java
        • Visual Basic
        • SQL
      • ΚΑΤΑΣΚΕΥΗ ΙΣΤΟΣΕΛΙΔΑΣ
        • HTML – Css
        • JavaScript
        • PHP
        • Joomla
        • WordPress
      • ΔΙΟΙΚΗΣΗ ΕΠΙΧΕΙΡΗΣΕΩΝ
        • Λογιστική
        • Microsoft Project
      • ΑΝΩΤΕΡΗ ΕΚΠΑΙΔΕΥΣΗ
        • Matlab
        • SPSS
        • GIS
    • ΤΜΗΜΑΤΑ
      • ΠΑΙΔΙΚΑ
        • Δημοτικό
        • Γυμνάσιο
        • Λύκειο
        • Ρομποτική
      • ΕΝΗΛΙΚΩΝ
        • Academy Core
        • Academy Expert
      • ΑΡΧΑΡΙΩΝ
        • Academy Basic
      • ΠΡΟΧΩΡΗΜΕΝΩΝ
        • Academy Expert
        • Γραφιστικά
        • Σχεδιαστικά
        • Προγραμματισμός
        • Κατασκευή Ιστοσελίδων
        • Διοίκηση Επιχειρήσεων
    • Για Επαγγελματίες
      • Προγραμματιστές
      • Γραφίστες
      • Αρχιτέκτονες
      • Πολιτικός Μηχανικός
      • Μηχανολόγοι
      • Διοίκηση Επιχειρήσεων
      • Δικηγόροι
      • Εκπαιδευτικοί
      • Λογιστές
    • Αιτήσεις
      • Αίτηση1 – Εγγραφή
      • Αίτηση2 – Θέση
      • Ημερομηνίες Εξετάσεων
      • Λίστα Μαθητών
      • Αποτελέσματα Εξετάσεων
    • Επικοινωνία
    • Moodle

    Ελληνικά σε Αγγλικούς με φθόγγους και το αντίστροφο

    Academy – Ακαδημία Πληροφορικής › Forum › Visual Basic › Μετατροπή Ελληνικών χαρακτήρων σε Αγγλικούς › Ελληνικά σε Αγγλικούς με φθόγγους και το αντίστροφο

    • This topic has 0 απαντήσεις, 1 φωνή, and was last updated 4 έτη, 1 μήνα πριν by Ρήγας ΚωνσταντίνοςΡήγας Κωνσταντίνος.
    Επισκόπηση 1 δημοσιεύσεων (από 1 συνολικά)
    • Συντάκτης
      Δημοσιεύσεις
    • 14/03/2017 στις 9:15 πμ #10173
      Ρήγας ΚωνσταντίνοςΡήγας Κωνσταντίνος
      Keymaster

       

      Κώδικας Visual Basic για την μετατροπή Ελληνικών χαρακτήρων σε Αγγλικούς. Ο κώδικας κάνει και το αντίστροφο, δηλαδή μετατρέπει και τους Αγγλικούς σε Ελληνικούς. Παράλληλα τους φθόγγους μπ, ντ και γκ τους μετατρέπει στα αντίστοιχα αγγλικά γράμματα.

      Οποιαδήποτε βοήθεια καλοδεχούμενη…

      Με την πολύτιμη βοήθεια του

      • Κυριάκου Αποστολίδη
      • http://www.adaeion.gr/word/c/convert_characters_macro.html

      Function ChangeLang(StringToEncode As String) As String

      Dim i As Integer
      Dim StringSize As Integer
      Dim TranslatedString As String
      Dim CurrentChar As String
      Dim NextChar As String
      Dim CurrentNextChar As String

      TranslatedString = “”
      StringSize = Len(StringToEncode)

      For i = 1 To StringSize
      CurrentChar = Mid(StringToEncode, i, 1)
      If i <> StringSize Then
      NextChar = Mid(StringToEncode, i + 1, 1)
      CurrentNextChar = Translate(CurrentChar) & Translate(NextChar)
      If CurrentNextChar = “mp” Then
      CurrentChar = “b”
      i = i + 1
      ElseIf CurrentNextChar = “nt” Then
      CurrentChar = “d”
      i = i + 1
      ElseIf CurrentNextChar = “gk” Then
      CurrentChar = “g”
      i = i + 1
      End If
      End If
      TranslatedString = TranslatedString & Translate(CurrentChar)
      Next

      ChangeLang = TranslatedString

      End Function
      Function Translate(InputStr As String) As String
      Dim OutputStr As String

      Select Case (InputStr)

      ‘ SPACE remains the same (for speed added here)
      Case ” “: OutputStr = ” ”

      ‘ Wanted Greek but used English keyboard (lower case)
      ‘ Case “;a”: OutputStr = “ά”
      ‘ Case “;e”: OutputStr = “έ”
      ‘ Case “;h”: OutputStr = “ή”
      ‘ Case “;i”: OutputStr = “ί”
      ‘ Case “;o”: OutputStr = “ό”
      ‘ Case “;y”: OutputStr = “ύ”
      ‘ Case “;v”: OutputStr = “ώ”
      ‘
      ‘ Case “:i”: OutputStr = “ϊ”
      ‘ Case “:y”: OutputStr = “ϋ”
      ‘
      ‘ Case “q”: OutputStr = “;”
      ‘ Case “w”: OutputStr = “ς”
      ‘ Case “e”: OutputStr = “ε”
      ‘ Case “r”: OutputStr = “ρ”
      ‘ Case “t”: OutputStr = “τ”
      ‘ Case “y”: OutputStr = “υ”
      ‘ Case “u”: OutputStr = “θ”
      ‘ Case “i”: OutputStr = “ι”
      ‘ Case “o”: OutputStr = “ο”
      ‘ Case “p”: OutputStr = “π”
      ‘ Case “a”: OutputStr = “α”
      ‘ Case “s”: OutputStr = “σ”
      ‘ Case “d”: OutputStr = “δ”
      ‘ Case “f”: OutputStr = “φ”
      ‘ Case “g”: OutputStr = “γ”
      ‘ Case “h”: OutputStr = “η”
      ‘ Case “j”: OutputStr = “ξ”
      ‘ Case “k”: OutputStr = “κ”
      ‘ Case “l”: OutputStr = “λ”
      ‘ Case “z”: OutputStr = “ζ”
      ‘ Case “x”: OutputStr = “χ”
      ‘ Case “c”: OutputStr = “ψ”
      ‘ Case “v”: OutputStr = “ω”
      ‘ Case “b”: OutputStr = “β”
      ‘ Case “n”: OutputStr = “ν”
      ‘ Case “m”: OutputStr = “μ”

      ‘ Wanted Greek but used English keyboard (lower case)

      Case “q”: OutputStr = “q”
      Case “w”: OutputStr = “w”
      Case “e”: OutputStr = “e”
      Case “r”: OutputStr = “r”
      Case “t”: OutputStr = “t”
      Case “y”: OutputStr = “y”
      Case “u”: OutputStr = “u”
      Case “i”: OutputStr = “i”
      Case “o”: OutputStr = “o”
      Case “p”: OutputStr = “p”
      Case “a”: OutputStr = “a”
      Case “s”: OutputStr = “s”
      Case “d”: OutputStr = “d”
      Case “f”: OutputStr = “f”
      Case “g”: OutputStr = “g”
      Case “h”: OutputStr = “h”
      Case “j”: OutputStr = “j”
      Case “k”: OutputStr = “k”
      Case “l”: OutputStr = “l”
      Case “z”: OutputStr = “z”
      Case “x”: OutputStr = “x”
      Case “c”: OutputStr = “c”
      Case “v”: OutputStr = “v”
      Case “b”: OutputStr = “b”
      Case “n”: OutputStr = “n”
      Case “m”: OutputStr = “m”

      ‘ Wanted English but used Greek keyboard (lower case)
      Case “ά”: OutputStr = “a”
      Case “έ”: OutputStr = “e”
      Case “ή”: OutputStr = “i”
      Case “ί”: OutputStr = “i”
      Case “ό”: OutputStr = “o”
      Case “ύ”: OutputStr = “u”
      Case “ώ”: OutputStr = “o”

      Case “ϊ”: OutputStr = “i”
      Case “ϋ”: OutputStr = “y”
      Case “ΐ”: OutputStr = “i”
      Case “ΰ”: OutputStr = “y”

      Case “;”: OutputStr = “q”
      Case “ς”: OutputStr = “s”
      Case “ε”: OutputStr = “e”
      Case “ρ”: OutputStr = “r”
      Case “τ”: OutputStr = “t”
      Case “υ”: OutputStr = “u”
      Case “θ”: OutputStr = “th”
      Case “ι”: OutputStr = “i”
      Case “ο”: OutputStr = “o”
      Case “π”: OutputStr = “p”
      Case “α”: OutputStr = “a”
      Case “σ”: OutputStr = “s”
      Case “δ”: OutputStr = “d”
      Case “φ”: OutputStr = “f”
      Case “γ”: OutputStr = “g”
      Case “η”: OutputStr = “i”
      Case “ξ”: OutputStr = “x”
      Case “κ”: OutputStr = “k”
      Case “λ”: OutputStr = “l”
      Case “ζ”: OutputStr = “z”
      Case “χ”: OutputStr = “x”
      Case “ψ”: OutputStr = “ps”
      Case “ω”: OutputStr = “o”
      Case “β”: OutputStr = “b”
      Case “ν”: OutputStr = “n”
      Case “μ”: OutputStr = “m”

      ‘ Wanted Greek but used English keyboard (upper case)
      ‘ Case “;A”: OutputStr = “Ά”
      ‘ Case “;E”: OutputStr = “Έ”
      ‘ Case “;H”: OutputStr = “Ή”
      ‘ Case “;I”: OutputStr = “Ί”
      ‘ Case “;O”: OutputStr = “Ό”
      ‘ Case “;Y”: OutputStr = “Ύ”
      ‘ Case “;V”: OutputStr = “Ώ”
      ‘
      ‘ Case “:I”: OutputStr = “Ϊ”
      ‘ Case “:Y”: OutputStr = “Ϋ”
      ‘
      ‘ Case “Q”: OutputStr = “:”
      ‘ Case “W”: OutputStr = “΅”
      ‘ Case “E”: OutputStr = “Ε”
      ‘ Case “R”: OutputStr = “Ρ”
      ‘ Case “T”: OutputStr = “Τ”
      ‘ Case “Y”: OutputStr = “Υ”
      ‘ Case “U”: OutputStr = “Θ”
      ‘ Case “I”: OutputStr = “Ι”
      ‘ Case “O”: OutputStr = “Ο”
      ‘ Case “P”: OutputStr = “Π”
      ‘ Case “A”: OutputStr = “Α”
      ‘ Case “S”: OutputStr = “Σ”
      ‘ Case “D”: OutputStr = “Δ”
      ‘ Case “F”: OutputStr = “Φ”
      ‘ Case “G”: OutputStr = “Γ”
      ‘ Case “H”: OutputStr = “Η”
      ‘ Case “J”: OutputStr = “Ξ”
      ‘ Case “K”: OutputStr = “Κ”
      ‘ Case “L”: OutputStr = “Λ”
      ‘ Case “Z”: OutputStr = “Ζ”
      ‘ Case “X”: OutputStr = “Χ”
      ‘ Case “C”: OutputStr = “Ψ”
      ‘ Case “V”: OutputStr = “Ω”
      ‘ Case “B”: OutputStr = “Β”
      ‘ Case “N”: OutputStr = “Ν”
      ‘ Case “M”: OutputStr = “Μ”

      Case “Q”: OutputStr = “Q”
      Case “W”: OutputStr = “W”
      Case “E”: OutputStr = “E”
      Case “R”: OutputStr = “R”
      Case “T”: OutputStr = “T”
      Case “Y”: OutputStr = “Y”
      Case “U”: OutputStr = “U”
      Case “I”: OutputStr = “I”
      Case “O”: OutputStr = “O”
      Case “P”: OutputStr = “P”
      Case “A”: OutputStr = “A”
      Case “S”: OutputStr = “S”
      Case “D”: OutputStr = “D”
      Case “F”: OutputStr = “F”
      Case “G”: OutputStr = “G”
      Case “H”: OutputStr = “H”
      Case “J”: OutputStr = “J”
      Case “K”: OutputStr = “K”
      Case “L”: OutputStr = “L”
      Case “Z”: OutputStr = “Z”
      Case “X”: OutputStr = “C”
      Case “C”: OutputStr = “C”
      Case “V”: OutputStr = “V”
      Case “B”: OutputStr = “B”
      Case “N”: OutputStr = “N”
      Case “M”: OutputStr = “M”

      ‘ Wanted English but used Greek keyboard (upper case)
      Case “:”: OutputStr = “Q”
      Case “΅”: OutputStr = “W”
      Case “Ε”: OutputStr = “E”
      Case “Ρ”: OutputStr = “R”
      Case “Τ”: OutputStr = “T”
      Case “Υ”: OutputStr = “Y”
      Case “Θ”: OutputStr = “ΤΗ”
      Case “Ι”: OutputStr = “I”
      Case “Ο”: OutputStr = “O”
      Case “Π”: OutputStr = “P”
      Case “Α”: OutputStr = “A”
      Case “Σ”: OutputStr = “S”
      Case “Δ”: OutputStr = “D”
      Case “Φ”: OutputStr = “F”
      Case “Γ”: OutputStr = “G”
      Case “Η”: OutputStr = “Ι”
      Case “Ξ”: OutputStr = “Χ”
      Case “Κ”: OutputStr = “K”
      Case “Λ”: OutputStr = “L”
      Case “Ζ”: OutputStr = “Z”
      Case “Χ”: OutputStr = “X”
      Case “Ψ”: OutputStr = “PS”
      Case “Ω”: OutputStr = “O”
      Case “Β”: OutputStr = “B”
      Case “Ν”: OutputStr = “N”
      Case “Μ”: OutputStr = “M”

      Case Else: OutputStr = InputStr

      End Select

      Translate = OutputStr

      End Function

    • Συντάκτης
      Δημοσιεύσεις
    Επισκόπηση 1 δημοσιεύσεων (από 1 συνολικά)
    • Πρέπει να είστε συνδεδεμένοι για να απαντήσετε σ' αυτό το θέμα.
    Σύνδεση

    Αναζήτηση

    Πρόσφατα άρθρα

    • Εκπαίδευση Εργαζομένων στην Εταιρεία My shoe N.I. Μίνογλου Α.Ε.
    • Εκπαίδευση Εργαζομένων στην Εταιρεία Πυθέας
    • Εκπαίδευση Εργαζομένων στην Εταιρεία Κελαϊδίτης
    • Επιδότηση Τηλεκατάρτισης 600€
    • Εκπαίδευση Εργαζομένων στην Εταιρεία Barilla

    Δημοφιλή Μαθήματα

    Adobe Photoshop

    Adobe Photoshop

    Autodesk Autocad

    Autodesk Autocad

    Internet Explorer & Outlook

    Internet Explorer & Outlook

    Microsoft Excel

    Microsoft Excel

    Microsoft Word

    Microsoft Word

    Academy

    2221087969

    info@my-academy.gr

    Βαρατάση 21, Χαλκίδα

    Ενότητες

    • Office Core
    • Office Expert
    • Σχεδιαστικά
    • Γραφιστικά
    • Προγραμματισμός
    • Κατασκευή ιστοσελίδας

    Κατασκευή ιστοσελίδων

    • Υπηρεσίες Ιστοσελίδων
    • Κατασκευή e-shop
    • Σχεδιασμός εντύπων
    • Φιλοξενία Ιστοσελίδων

    Ποιοι Είμαστε

    • Η εταιρεία μας
    • Επικοινωνία
    • Τρόποι Πληρωμής
    • Επιβεβαίωση Πληρωμής
    • Blog
    • Forum
    • Online Υποστήριξη

    Ακολουθήστε μας

    • Facebook
    • Google Plus
    • Youtube

    NEWSLETTER

    Συμπληρώστε το email σας στο παρακάτω πεδίο για να λαμβάνεται ενημερωτικά νέα και προσφορές.

    [mc4wp_form id="3101"]

    My-Academy.gr © 2019 | Κατασκευή & Προώθηση Ιστοσελίδων Web Design Studio Web Design Studio | #1 Κατασκευή ιστοσελίδων στην Εύβοια