ESTUDIO DE ESPAÑOL  
 
  RESEÑA LITERARIA 27-06-2025 15:32 (UTC)
   
 

¿Qué es una reseña literaria?
literaria es una presentación oral o escrita de la opinión de un crítico sobre una obra, justificada con hechos a incidentes específicos (pasajes) de la pieza en cuestión.

Su propósito principal es dejar saber si vale la pena leer el libro que está en discusión. Independientemente si el lector ha leído la obra, el autor de la reseña debe incluir alguna información sobre el contenido, sin olvidar nunca que el objetivo de la reseña es una presentación de la opinión del crítico literario.

La reseña no debe confundirse con un reporte. Un reporte es completamente comprensivo. Se limita a una presentación totalmente objetiva de hechos: título, autor, género, precio, datos relacionados con la publicación, condiciones bajo las cuales la obra fue producida, construcción de los hechos, ilustraciones presentadas, etc...

 

          Preparación para hacer una reseña literaria:

Todo crítico debe seguir los siguientes pasos antes de hacer una reseña literaria sobre un hecho o trabajo específico:

Evitar leer resúmenes, comentarios o propaganda anterior a la lectura del libro.

Leer solamente cuando se está alerta y dispuesto.

Leer con luz apropiada y con un mínimo de distracciones a interrupciones .

Razonar cuidadosamente el título del libro o trabajo y el significado e implicación.

Leer el prólogo para familiarizarse con la intención del autor.

Leer la tabla de contenido (si esta existiera) para enterarse de la organización  básica del libro.

Conocer el género del libro o la obra para poder juzgar de acuerdo a éste.

Tener una copia personal del libro o del trabajo, si es posible, para poder hacer anotaciones según se va leyendo.

Si el libro no es propio, mantener hojas de papel disponibles para anotar las reacciones a insertarlas en el libro.

Leer el libro en su totalidad para tener una impresión general. Sobre esta impresión inicial, hacer un bosquejo mental de cómo se va a trabajar en la reseña.

Leer el libro por segunda vez, en esta ocasión para darle énfasis a aquellos detalles que pueden fortalecer la impresión inicial o modificarla.

 
  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