Programa traductor en visual basic

Solo disponible en BuenasTareas
  • Páginas : 3 (652 palabras )
  • Descarga(s) : 7
  • Publicado : 22 de febrero de 2010
Leer documento completo
Vista previa del texto
PROGRAMA TRADUCTOR DE ESPAÑOL A FRANCES Y FRANCES A ESPAÑOL

Dim arr1(55, 1) As String
Dim Traducir(2) As String

_______________________________
Private Sub Command1_Click()
Unload Me
UnloadForm2
End Sub

_______________________________
Private Sub Datos_Click()
Form1.Hide
Form2.Show
End Sub
_______________________________
Private Sub Form_Load()
arr1(0, 0) = "el"
arr1(0, 1)= "il"
arr1(1, 0) = "hola"
arr1(1, 1) = "bonjour"
arr1(2, 0) = "como"
arr1(2, 1) = "comment"
arr1(3, 0) = "estas"
arr1(3, 1) = "allez-vous"
arr1(4, 0) = "si"
arr1(4, 1) = "oui"
arr1(5, 0) ="no"
arr1(5, 1) = "non"
arr1(6, 0) = "adios"
arr1(6, 1) = "Au revoir"
arr1(7, 0) = "dia"
arr1(7, 1) = "Journée"
arr1(8, 0) = "buen"
arr1(8, 1) = "bonne"
arr1(9, 0) = "nombre"
arr1(9, 1) ="nom"
arr1(10, 0) = "yo"
arr1(10, 1) = "je"
arr1(11, 0) = "una"
arr1(11, 1) = "une"
arr1(12, 0) = "mansion"
arr1(12, 1) = "maison"
arr1(13, 0) = "tengo"
arr1(13, 1) = "J'ai"
arr1(14, 0) = "bebo"arr1(14, 1) = "bois"
arr1(15, 0) = "bebes"
arr1(15, 1) = "bois"
arr1(16, 0) = "amo"
arr1(16, 1) = "t'aime"
arr1(17, 0) = "cine"
arr1(17, 1) = "cinema"
arr1(18, 0) = "le"
arr1(18, 1) = "el"arr1(19, 0) = "traer"
arr1(19, 1) = "marteau"
arr1(20, 0) = "nada"
arr1(20, 1) = "rien"
arr1(21, 0) = "nuestra"
arr1(21, 1) = "notre"
arr1(22, 0) = "nuestras"
arr1(22, 1) = "nos"
arr1(23, 0) ="maletas"
arr1(23, 1) = "valises"
arr1(24, 0) = "bicicleta"
arr1(24, 1) = "vélo"
arr1(25, 0) = "encantado"
arr1(25, 1) = "enchanté"
arr1(26, 0) = "se"
arr1(26, 1) = "vous"
arr1(27, 0) ="llama"
arr1(27, 1) = "appelez"
arr1(28, 0) = "vamos"
arr1(28, 1) = "On va"
arr1(29, 0) = "al"
arr1(29, 1) = "au"
arr1(30, 0) = "comprar"
arr1(30, 1) = "acheter"
arr1(31, 0) = "vender"
arr1(31, 1)= "vendre"
arr1(32, 0) = "mi"
arr1(32, 1) = "mon"
arr1(33, 0) = "amiga"
arr1(33, 1) = "amie"
arr1(34, 0) = "donde"
arr1(34, 1) = "oú"
arr1(35, 0) = "las"
arr1(35, 1) = "les"
arr1(36, 0) =...
tracking img