ESTUDIO DE ESPAÑOL  
 
  EL PRERENACIMIENTO 30-06-2025 05:06 (UTC)
   
 

Prerrenacimiento en España

 

Se denomina Prerrenacimiento a una época coyuntural y estética que constituye el tránsito entre la Edad Media y el Renacimiento, particularmente en España.

 

Tabla de contenidos

[ocultar]

Período histórico [editar]

Dicha época abarca en el Reino de Castilla los reinados de Juan II (1405-1454), gran protector de las letras y las artes, Enrique IV, etapa que supuso en cierta manera un parón, y los Reyes Católicos Isabel y Fernando. En el reino de Aragón, por otra parte, se vive una transición similar con Alfonso V de Aragón (1416-1458), aunque este impulso inicial fue sin embargo agotado por la mayor brillantez del renacimiento castellano.

Características generales del período [editar]

Durante esta época convive un incipiente Humanismo con la Escolástica medieval, hay una primera ola de italianismo en las Artes y la Literatura, se emprenden numerosas traducciones y vulgarizaciones de textos grecolatinos y se abre paso una concepción antropocéntrica, más positiva e idealizada de la realidad. La imprenta, por otra parte, multiplica los libros y con ellos la curiosidad y la sed de saber. Se empiezan a escribir textos importantes en Idioma castellano ennobleciendo la lengua romance, pero todavía tiene amplio curso el latín.

Prerrenacimiento en la Literatura española [editar]

En el campo de las letras representan esta primera apertura de la Edad Media a los nuevos aires del Renacimiento:

Gil Vicente, dramaturgo portugués destacado por sus obras en castellano y reconocido como compartidor con Juan del Encina de la paternidad del teatro español
 
  AYUDA SOBRE ESPAÑOL
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  CALENDARIO
ASP Fácil - Código

Calendario

<% Function NombreMes (mes) select case mes case 1 NombreMes = "Enero" case 2 NombreMes = "Febrero" case 3 NombreMes = "Marzo" case 4 NombreMes = "Abril" case 5 NombreMes = "Mayo" case 6 NombreMes = "Junio" case 7 NombreMes = "Julio" case 8 NombreMes = "Agosto" case 9 NombreMes = "Septiembre" case 10 NombreMes = "Octubre" case 11 NombreMes = "Noviembre" case 12 NombreMes = "Diciembre" end select End Function 'NombreMes '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5 'Utilizaba esta variable para depurar 'Dim sOrigen 'iDia, iMes, iAno --> la fecha seleccionada Dim iDia, iMes, iAno, sEnviado 'iDiasDelMes: numero de días del mes 'iDiaSemana: día de la semana en que cae la fecha 'iPrimerDiaSemanaMes: el día de la semana en que empieza el mes Dim iDiasDelMes, iDiaSemana, iPrimerDiaSemanaMes Dim dFecha 'la fecha enterita 'Para pintar la tabla necesito Dim iActual, iPosicion 'Recojo los valores del form iDia = Request.Form("Dia") iMes = Request.Form("Mes") iAno = Request.Form("Ano") sEnviado = Request.Form("Enviado") 'sOrigen = "form" 'Establezco la fecha según lo enviado if sEnviado <> "" then iDia = CInt(iDia) iMes = CInt(iMes) iAno = CInt(iAno) else '¿La he enviado desde un link? if Request.QueryString("Dia") <> "" then iDia = CInt(Request.QueryString("Dia")) iMes = CInt(Request.QueryString("Mes")) iAno = CInt(Request.QueryString("Ano")) 'sOrigen = "qrs" else 'La pongo a la fecha de hoy iDia = Day(Now) iMes = Month(Now) iAno = Year(Now) 'sOrigen = "auto" end if end if if not IsDate(DateSerial(iAno, iMes, iDia)) then 'Avisamos y utilizamos la de hoy Response.Write("No es una fecha válida. Se utilizará la fecha de hoy.
") dFecha = Date iMes = Month(dFecha) iDia = Day(dFecha) iAno = Year(dFecha) else 'Formamos la expresión de fecha dFecha = DateSerial(iAno, iMes, iDia) end if 'Hallo los días del mes select case iMes case 1,3,5,7,8,10,12 iDiasDelMes = 31 case 2 if iAno mod 4 = 0 then 'Año bisiesto! iDiasDelMes = 29 else iDiasDelMes = 28 end if case else iDiasDelMes = 30 end select 'Hallo el día de la semana iDiaSemana = DatePart("w", DateSerial(iAno, iMes, iDia)) 'Y el día de la semana en que empieza el mes iPrimerDiaSemanaMes = DatePart("w", DateAdd("d", - iDia+1, DateSerial(iAno, iMes, iDia)), 2) 'Las siguientes líneas las utilizo para depurar. ;-) 'Response.Write(dFecha) 'Response.Write( iDia & "/" & iMes & "/" & iAno & "
") 'Response.Write "Origen: " & sOrigen & "
" 'Response.Write "Dia: " & iDia & ", Mes: " & iMes &", Año: " & iAno & "
" 'Response.Write "Días del mes: " & iDiasDelMes & "
" 'Response.Write "El mes empieza en: " & iPrimerDiaSemanaMes & "
" 'Vamos a pintar la tabla %> <% 'Relleno con blancos si el mes no empieza en Lunes! if iPrimerDiaSemanaMes <> 1 then iPosicion = 1 Response.Write vbTab & " " & VbCrLf do while iPosicion < iPrimerDiaSemanaMes Response.Write vbTab & vbTab & "" & vbcrlf iPosicion = iPosicion + 1 loop end if 'Pintamos el calendario iActual = 1 iPosicion = iPrimerDiaSemanaMes do while iActual <= iDiasDelMes if iPosicion = 1 then 'Empezamos nueva semana, es decir nueva fila Response.Write vbTab & "" & VbCrLf end if if iActual = iDia then 'Resaltamos la fecha seleccionada Response.Write vbTab & vbTab & "" & vbCrLf else Response.Write vbTab & vbTab & "" & vbCrLf end if if iPosicion = 7 then 'Estamos en domingo, cerramos la semana :) Response.Write vbTab & "" & vbCrLf 'Pongo iPosicion a cero pq voy a sumarle uno ahorita mismo iPosicion = 0 end if 'Incrementamos! iActual = iActual + 1 iPosicion = iPosicion + 1 loop 'Relleno con blancos si no termino en domingo 'Primero compruebo que no sea uno, pues si terminamos en 7 (domingo) 'al incrementar por ultima vez se queda en 1. Típico en los bucles :-) if iPosicion <> 1 then while iPosicion <= 7 'Las celdas blancas... Response.Write vbTab & vbTab & "" & vbCrLf iPosicion = iPosicion + 1 wend '... y el fin de fila! Response.Write vbTab & "" & vbCrLf end if %>
&Ano=<%=Year(DateAdd("m", -1, dFecha))%>"><<
<%=NombreMes(iMes)& " " & Year(dFecha)%>
&Ano=<%=Year(DateAdd("m", 1, dFecha))%>">>>

L

M

X

J

V

S

D
 
"& iActual & "
" & iActual & "
 
 
Google
 

 













Este sitio web fue creado de forma gratuita con PaginaWebGratis.es. ¿Quieres también tu sitio web propio?
Registrarse gratis