CODIGO DE EXCEL DE NUMEROS A LETRAS

Function PesosARG(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For I = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case I Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next I Select Case lnNumeroBloques Case 1 PesosARG = lcBloque Case 2 PesosARG = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosARG Case 3 PesosARG = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosARG End Select lnNumeroBloques = lnNumeroBloques + 1 Loop Until lyCantidad = 0 PesosARG = "SON: (" & PesosARG & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 Ctvos)" End Function

ENSAMBLADO DE PC

MANUAL DE ENSAMBLAJE DE UNA PC from Juan Machaca

PARA QUE SIRVE ESTUDIAR TANTO

REDES INFORMATICAS

¿QUE ES UNA RED INFORMATICA?
VER EL SIGUIENTE VIDEO




PRESIONA AQUI PARA ACTIVIDADES

http://phpwebquest.org/newphp/webquest/soporte_horizontal_w.php?id_actividad=15081&id_pagina=1

SI NO PUEDES COPIA EL LINK EN TU NAVEGADOR , ARRIBA DONDE ESTA LA DIRECCION WWW.ETC.COM

La Nuevas TIC , en la Educacion

Ecuesta de para Alumnos de informatica

Hola alumnos en el siguiente link tienen una Encuesta favor Contestar.

 Atte: El Porfesor HERNAN JALDIN

AQUI LA  ENCUESTA

SLIDE SOBRE APLICACION DE LAS TIC

| Get your SlideShare Playlist

MIS CMAPS MAPAS CONCEPTUALES

LAS HIPERMEDIAS

LAS TECNOLOGIAS EN ACCION

Las tecnologías de la información y la comunicación (TIC o bien NTIC para nuevas tecnologías de la información y de la comunicación) agrupan los elementos y las técnicas usadas en el tratamiento y la transmisión de las informaciones, principalmente de informática, internet y telecomunicaciones.
VEDEOS EXPLICATIVOS DE INTERNET
Después de la invención de la escritura, los primeros pasos hacia una sociedad de la información estuvieron marcados por el telégrafo eléctrico, después el teléfono y la radiotelefonía, la televisión e internet accesible gracias a los proveedores. La telefonía móvil y el GPS han asociado la imagen al texto y a la palabra «sin cables», internet y la televisión son accesibles en el teléfono móvil que es también una máquina de hacer fotos.[3
VIDEO DE LA SOCIEDAD DE LA INFORMACION

ENCUESTA 2011 SEGUNDO CUATRIMESTRE FUNEDU

 Aqui el link para la encuesta 2do catrimestre 2011

https://docs.google.com/spreadsheet/viewform?hl=en_US&pli=1&formkey=dG1SbklCOTE3Q3ZRdVJHRUY1NHlhM0E6MQ#gid=0