• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

phplove

[duvida] simpleTable

7 mensagens neste tópico

boas malta tenho uma tabela em html gerada por haskell  para fazer e nao estou a ver como se faz

o codigo que estou a usar e

--
--  O Enunciado do projecto está escrito em Haskell usando 
--  os combinadores de Html disponíveis nas bibliotecas 
--  da linguagem Haskell

import  Text.Html

-- 
-- Em Html uma página tem um 'header' e título
--

pageHeader :: Html
pageHeader = (header    
             (thetitle (toHtml " ")))
             +++
             pfHeader


--
-- No início da página vamos incluir o nome da disciplina, do curso e
-- ano lectivo com uma fontes, tamanhos e cores 

t1 :: String -> Html
t1=toHtml("Turno 1")
t2 :: String -> Html
t2=toHtml("Turno 2")
t3 :: String -> Html
t3=toHtml("Turno 3")

pfHeader :: Html
pfHeader = simpleTable [] [] [[t1,t2,t3]]
--pfHeader = simpleTable [] [] [[ umImage , pfTitulo]]



-- 
-- No fundo da página vamos incluir um roda pé
--

-- ----------------------------------------------------------------------------------
-- A página Completa incluí o header , o corpo e o roda pé
-- ----------------------------------------------------------------------------------


htmlPage :: Html
htmlPage =   pageHeader 
       
        


-- ----------------------------------------------------------------------------------
-- Para produzirmos o ficheiro na linguagem HTML usamos a função renderHtml da 
-- biblioteca. Para enviarmos o resultado para um ficheiro usamos a função writeFile.
-- ----------------------------------------------------------------------------------


gen = writeFile "pagina.html" (renderHtml htmlPage)


-- ----------------------------------------------------------------------------------

mas nao da

sera  que alguém me pode ajudar

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Assim à primeira vista, só falta meteres a tabela dentro do body.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Aplica a função body ao pfHeader.

PS: Dava jeito fazeres uma limpeza ao código, colocando aqui apenas o que interessa (relativamente ao primeiro post), e seres mais concreto relativamente aos problemas que tens, em vez de dizeres apenas que "não dá".

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja sei dacer uma linha mas nao sei e por mais que uma linha e uma border :S

o código usado e este

simpleTable [] [] [[ toHtml("Turno 1") , toHtml("Turno 2") , toHtml("Turno 2")]]
[/codel]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Este código gera-te uma página com uma tabela com duas linhas e duas colunas:

t1=toHtml("Turno 1")
writeFile "pagina.html" (renderHtml (body( simpleTable [] [] [[t1,t1],[t1,t1]])))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

muito obrigado mas agora tenho outro problema eu axo que o codigo esta certo mas da-me erro :s


import  Text.Html

faz :: [int] -> [int] -> [int] -> [int]
faz [] [] [] = []
faz (x:xs) [] [] = [x,0,0]
faz [] (y:ys) [] = [0,y,0]
faz []  [] (z:zs) = [0,0,z]
faz (x:xs) (y:ys) [] = [x,y,0] faz xs ys
faz (x:xs) [] (z:zs) = [x,0,z] faz xs zs
faz (y:ys) (z:zs)  = [0,y,z] faz ys zs
faz (x:xs) (y:ys) (z:zs) = [x,y,z] faz xs ys zs



t1 =[55875
         ,55841
         ,55896
         ,55897
         ,55874
         ,55846
         ,55842
         ,55887
         ,55868
         ,55880
         ,55879
         ,55877
         ,55882
         ,55886
         ,55856
         ,55864
         ,55863
         ,55851
         ,55894
         ,55892
         ,55849
         ,53679
         ,52847
         ,52834
         ,52831
         ,52841
         ,52852
         ,54063
         ,52833
         ,52839
         ,55781
         ,54051
         ,54049
         ,57160
         ,57156
         ,57155
         ]


t2 = 
         [55839
         ,55852
         ,55853
         ,55898
         ,55900
         ,55873
         ,55872
         ,55866
         ,55876
         ,55867
         ,55890
         ,55884
         ,55858
         ,55895
         ,55838
         ,55891
         ,52845
         ,52850         
         ,54058
         ,52827
         ,53898
         ,52829
         ,54057
         ,54068
         ,54069
         ,52828
         ,54072
         ,54065
         ,51168
         ,52815
         ,52823
         ,54075
         ,55899
         ,54079
         ,52824
         ,52832
         ,43224
         ,54080
         ,52824
         ,51154
         ,52843
         ,52852
         ,51162
         ,51173
         ,54064
         ,52851
         ]

t3 =[55850
         ,55865
         ,55837
         ,55862
         ,55855
         ,55878
         ,55845
         ,55854
         ,55888
         ,55893
         ,55883
         ,55881
         ,55869
         ,55840
         ,55859
         ,55861
         ,55844
         ,55843
         ,55857
         ,52303
         ,55852
         ,54136
         ,56873
         ,52819
         ,52822
         ,54051
         ,52654
         ,54054
         ,54074
         ,57159
         ,52821
         ,54074
         ]         

gen = writeFile "Turnos.html" (renderHtml (body( simpleTable [] [] [[toHtml("Turno 1"),toHtml("Turno 2"),toHtml("Turno 3")],[toHtml("2a feira"),toHtml("3a feira"),toHtml("6a feira"), faz t1 t2 t3]])))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora