Jump to content
Sign in to follow this  
dipacheco

Gráfico de pessoas por hora no presente dia

Recommended Posts

dipacheco

Boas pessoal... tudo bem? Queria fazer um gráfico de pessoas por hora no dia actual. Basicamente tenho uma BD que regista todas as pessoas q chegam ao local onde está aplicada. Quero que esse gráfico mostre quantas pessoas chegam por hora... Da BD já extraí as pessoas do dia actual. Ainda não extraí as horas porque parece-me surreal ter de fazer um contador para cada hora... alguem sugere outra soluçao?

Share this post


Link to post
Share on other sites
dipacheco

Fiz isto e em vez de um gráfico aparece-me uma "caixa" com margem vermelha e com uma cruz vermelha no meio...

Private Sub grafico()
        Dim dt As New DataTable
        dt.Columns.Add("Horas")
        dt.Columns.Add("NumPess")
        Dim vector(23) As Integer
        Dim i As Integer
        For Each i In vector
            i = 0
        Next
        connect = New SqlConnection("Data Source=PACHECO-PC\SQLEXPRESS;Initial Catalog=Teste;Integrated Security=True")
        connect.Open()
        command = New SqlCommand("SELECT Horaentrada,Horasaida FROM Registoentradas WHERE Dataentradadia='" & Now.Day & "' AND Dataentradames='" & Now.Month & "' AND Dataentradaano='" & Now.Year & "'", connect)
        reader = command.ExecuteReader
        While reader.Read
            For i = 0 To 23
                If Val(reader(0)) >= i And Val(reader(1)) <= i Then
                    vector(i) = vector(i) + 1
                End If
            Next
        End While
        reader.Close()
        For i = 0 To 23
            dt.Rows.Add(i, vector(i))
        Next
        Chart1.DataSource = dt
        Chart1.Series(0).LegendText = "Clientes por hora"
        Chart1.Series(0).XValueMember = "Horas"
        Chart1.Series(0).YValueMembers = "Clientes"
        Chart1.Series(0).IsValueShownAsLabel = True
        connect.Close()
    End Sub

Share this post


Link to post
Share on other sites
Caça

dt.Columns.Add("Horas")
dt.Columns.Add("NumPess")

Chart1.Series(0).XValueMember = "Horas"
Chart1.Series(0).YValueMembers = "Clientes"

Os nomes não correspondem...


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
dipacheco

nao tinha percebido q tinham d corresponder... enfim, erro basico. lol

obrigado!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.