<% Session("varTipoTop") = "a" varArea = "home" varTituloPagina = "Matérias > Biologia > Índice Cursinho >Grupos > Bactérias, Cianobactérias ( Algas )" varCor = "#336699" %> <% Set dbDados = Server.CreateObject("ADODB.Connection") dbDados.Open Application("ConnectionString") Dim vEndereco_url vEndereco_url = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then vEndereco_url = vEndereco_url & "?" & Replace(Request.QueryString,"'","|") End If Dim Item For Each Item In Request.form vEndereco_url = vEndereco_url & "&" & Item & "=" & Request.form(Item) next vEndereco_url = Replace(vEndereco_url,"&","&") vIp = Request.ServerVariables("REMOTE_ADDR") sql = "insert into controle (ip,endereco) values('" & vIp & "','" & vEndereco_url & "')" Set rsControle = dbDados.Execute(sql) if (Instr(1, vEndereco_url, "|", 1) > 0 or Instr(1, vEndereco_url, ";", 1) > 0 or Instr(1, vEndereco_url, "--", 1) > 0) Then sql = "insert into controle (ip,endereco) values('" & vIp & "','ACESSO BLOQUEADO:" & vEndereco_url & "')" Set rsControle = dbDados.Execute(sql) response.write "Caracteres Inválidos" Response.end() end if 'dbDados.Close 'Set dbDados = Nothing 'Set dbDados = Server.CreateObject("ADODB.Connection") 'dbDados.Open Application("ConnectionString") %> <% ' Rotina para formatar Numeros para o SQL Function fNum(Numero) If isNumeric(Numero) Then fNum = Int(Numero * 1) Else fNum = 0 End If End Function ' Rotina para formatar String para o SQL Function fStr(String) fStr = Replace(Replace(String, "'","''"),"|","' + CHAR(124) + '") End Function Function fJs(Texto) fJs = Replace(Replace(Replace(Replace(Texto,"\","\\"), "'", "\'"), vbCr, "\r"), vbLf, "\n") End Function ' Rotina para formatar Datas dd/mm/yyyy Function FormataData ( Data ) FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function ' Rotina para formatar Datas mm/dd/yyyy Function FormataDataAmericana ( Data ) FormataDataAmericana = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function ' Rotina para formatar Hora hh:mm Function FormataHora ( DataHora ) FormataHora = Right("0" & DatePart("H",DataHora),2) & ":" & Right("0" & DatePart("n",DataHora),2) End Function Function FormataDataHora (DataHora) FormataDataHora = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) & " " & Right("0" & DatePart("H",DataHora),2) & ":" & Right("0" & DatePart("n",DataHora),2) End Function ' Rotina para formatar textos para textarea (retira '&', '"', '<', '>') Function fHtml(Texto) x = Texto & "" x = Replace(x, "&", "&") x = Replace(x, """", """) x = Replace(x, "<", "<") x = Replace(x, ">", ">") fHtml = x End Function ' Rotina para Formatar Valores 9.999,99 Function FormataValor (Valor) Dim sp, sv, v sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1) sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1) If isNumeric(Valor) Then v = FormatNumber (Valor, 2, -1, 0, -1) Else v = FormatNumber (0, 2, -1, 0, -1) End If v = Replace(v, sp, "p") v = Replace(v, sv, "v") v = Replace(v, "p", ".") v = Replace(v, "v", ",") FormataValor = v End Function 'Rotina para exibir a Data por extenso Function DataExtenso() Dim Agora, Dia, Mes, Ano, tmp Agora = Now Dia = Day(Agora) Mes = Month(Agora) Ano = Year(Agora) tmp = Dia If Dia = 1 Then tmp = tmp & "º." tmp = tmp & " de " Select Case Mes Case 1 tmp = tmp & "janeiro" Case 2 tmp = tmp & "fevereiro" Case 3 tmp = tmp & "março" Case 4 tmp = tmp & "abril" Case 5 tmp = tmp & "maio" Case 6 tmp = tmp & "junho" Case 7 tmp = tmp & "julho" Case 8 tmp = tmp & "agosto" Case 9 tmp = tmp & "setembro" Case 10 tmp = tmp & "outubro" Case 11 tmp = tmp & "novembro" Case 12 tmp = tmp & "dezembro" End Select tmp = tmp & " de " & Ano DataExtenso = tmp End Function %> <%= varTituloPagina %> <%'%> <% xScriptName = Request.ServerVariables("SCRIPT_NAME") xHttpHost = Request.ServerVariableS("HTTP_HOST") xCodigoMateria = Request.QueryString("CodigoMateria") xCodigoArtigo = Request.QueryString("CodigoArtigo") xCodigoTemasredacao = Request("CodigoTemasredacao") xCodigoAtividade = Request("CodigoAtividade") xCodigoProva = request("CodigoProva") xCodigoQuestao = request("CodigoQuestao") If request("tipobase") = "" then xTipo = Request("Tipo") else xTipo = Request("tipobase") xCodigoMateria = Request("CodigoMateria") end if select case xScriptName case "/artigos_1.asp" xTipo = "artigo" case "/materias_1.asp" xTipo = "materia" end select If xTipo <> "" Then select case xTipo case "materia" sql = "SELECT Caminho FROM Conteudos WHERE CodigoMateria = " & xCodigoMateria Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") else rsTipo.close sql = "select Conteudos.Caminho from Conteudos inner join Questoes on Questoes.CodigoMateria = Conteudos.CodigoMateria where Questoes.Codigo = " & xCodigoQuestao & xCodigoMateria Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") end if End if case "artigo" sql = "SELECT Path FROM Artigos WHERE Codigo = " & xCodigoArtigo Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "redacao" sql = "SELECT Caminho FROM Temasredacao WHERE Codigo = " & xCodigoTemasredacao Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "atividade" sql = "select Path from Atividades where codigo = " & xCodigoAtividade Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if case "gerador1" sql = "SELECT C.Caminho FROM Questoes AS Q INNER JOIN ProvasQuestoes AS PQ ON Q.Codigo = PQ.CodigoQuestao INNER JOIN Conteudos AS C ON Q.CodigoMateria = C.CodigoMateria WHERE CodigoUsuario = " & Session("usrCodigo") & " AND CodigoProva = " & xCodigoProva & " ORDER BY PQ.Indice" Set rsTipo = dbDados.Execute(sql) If Not (rsTipo.BOF and rsTipo.EOF) then Response.Write("") End if end select End If %> <% vetAreas = Array("home","materias","enem","vestibular","simulados","apostilas","cultura","salaprofessores") vetTitulos = Array("Página Inicial","Matérias","Enem","Vestibular","Simulados","Apostilas","Cultura Geral","Sala dos Professores") vetLinks = Array("/", "/materias_indice_1.asp", "/enem.asp", "/vestibular.asp", "/simulado_menu_1.asp", "/apostilas/editora_intro.asp", "/cultura_geral.asp","/salaprofessores.asp") i2 = 0 For i = 0 to UBound(vetAreas) If varArea = vetAreas(i) Then i2 = i Exit For End If Next %>
<% For i = 0 to UBound(vetAreas) If varArea = vetAreas(i) Then tmpImagem = vetAreas(i) & "_1.gif" Else tmpImagem = vetAreas(i) & ".gif" End If Response.Write "" Next %>

<% If Session("usrCodigo") > 0 Then %>
<% If Session("usrTipoAssinatura") = "0" Then Response.Write "ALUNO" Else Response.Write "PROFESSOR" End If %>
<%= Session("usrNome")%> <%= Session("usrSobrenome")%>
<% = DataExtenso() %>
Logout

Meus Dados
<% Else %>
Clique aqui para assinar:
assine já
Clique aqui para comprar apostilas:
apostilas
<% End If %> Ferramentas:

Para assinantes
Para assinantes
Outras Matérias:

<% If varClass = "" Then varClass = "f8" If varTamanho = "" Then varTamanho = 150 sql = "SELECT Materia FROM Materias WHERE Codigo = CodigoPai AND Left(Materia,1) <> '$' ORDER BY Indice" Set rsMaterias = dbDados.Execute(sql) xOpMaterias = "" Do While Not rsMaterias.Eof xMaterias = rsMaterias("Materia") xOpMaterias = xOpMaterias & _ "" rsMaterias.MoveNext : Loop Function LimpaTexto(Texto) Dim xTexto, i, i2 xTexto = LCase(Texto) xTexto = Replace(xTexto, " ", "_") xTexto = Replace(xTexto, "-", "_") Dim vetTroca(6, 1) vetTroca(0, 0) = "ÁÀÂÃÄÅáàâãäå" : vetTroca(0, 1) = "a" vetTroca(1, 0) = "ÉÈÊËéèêë" : vetTroca(1, 1) = "e" vetTroca(2, 0) = "ÍÌÎÏíìîï" : vetTroca(2, 1) = "i" vetTroca(3, 0) = "ÓÒÔÕÖóòôõö" : vetTroca(3, 1) = "o" vetTroca(4, 0) = "ÚÙÛÜúùûü" : vetTroca(4, 1) = "u" vetTroca(5, 0) = "Ýýÿ" : vetTroca(5, 1) = "y" vetTroca(6, 0) = "Çç" : vetTroca(6, 1) = "c" For i = 0 To UBound(vetTroca) For i2 = 1 To Len(vetTroca(i, 0)) xTexto = Replace(xTexto, Mid(vetTroca(i, 0), i2, 1), vetTroca(i, 1)) Next Next LimpaTexto = xTexto End Function %>
>
Matérias > Biologia > Índice Cursinho > Reinos: Monera, Protista, Fungos e Vegetal > Grupos > Bactérias, Cianobactérias ( Algas )

Bactérias; Cianobactérias (Algas)

REINO MONERA

MORFOLOGIA DOS MONERA

O Reino Monera é formado por organismos procariontes, representados pelas bactérias e algas azuis (cianoficeas ou cianobactérias). São unicelulares ou coloniais. Como em toda célula procariótica, nesses organismos não há organelas citoplasmáticas delimitadas por membranas e o material nuclear não está envolto pela carioteca.  Os únicos tipos de orgânulos são os ribossomos.

As bactérias são encontradas no ar, na terra, na água, nos organismos.

Pequenas, em geral . Possuem membrana plasmática e membrana esquelética (= mucocomplexa) e ainda   podem ter uma cápsula protetora gelatinosa como nos pneumococos.

Muitas bactérias apresentam movimentos usando estruturas semelhantes aos flagelos.

Bactérias: Classificação (critérios)

  • cocos: bactérias arredondadas, mais ou menos globosas:
  • bacilos: possuem a forma de bastonetes:
  • espirilos: assemelham-se a uma espiral ou saca-rolha:
  • vibrião: é um caso especial de espirilo, assemelhando-se a um segmento da espiral, ou a uma vírgula;


Estrutura de uma bactéria - bipartição


TÉCNICA  DE  GRAM(1884) :  

  • esfregaço (30’).
  • violeta genciana (1’) =corante.  
  • lugol (1’) = “mordente”.
  • água corrente.
  • álcool 95 oG.L.
  • fucsina diluída = corante.
  • água corrente = lavar secar.

GRAM (+) = cor “roxa”

  • ácido teicóico    +    ribonucleato de Mg  
  • mucopolissacarídeos (> de 60%)    (peptidoglicano)
  • Pressão osmótica  25 atm

GRAM (-) = cor “rósea”

  • lipopolissacarídeos
  • mucopolissacarídeos (< de 10%)    (peptidoglicano)
  • Pressão osmótica  8 atm

1 - 2 - 3 - 4 - 5   »
<% dbDados.Close Set dbDados = Nothing %>