1 / 5

Programando em Visual Basic

Programando em Visual Basic. Média, Variância, desvio-padrão e CV de uma variável. Aplicativo 1: Obter a média, variância, desvio-padrão e coeficiente de variação de uma variável particular de um arquivo de dados. Rem *** leitura dos parâmetros aqentrada$ = Text1.Text

aquarius
Download Presentation

Programando em Visual Basic

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Programando em Visual Basic

  2. Média, Variância, desvio-padrão e CV de uma variável Aplicativo 1: Obter a média, variância, desvio-padrão e coeficiente de variação de uma variável particular de um arquivo de dados. Rem *** leitura dos parâmetros aqentrada$ = Text1.Text aqsaida$ = "c:\saída.doc" a$ = Text2.Text nvar = Val(a$) a$ = Text3.Text varsel = Val(a$) Rem **** abrir os arquivos Open aqentrada$ For Input As #1 Open aqsaida$ For Output As #3 Rem **** leitura e cálculos ndados = 0 s = 0 sq = 0 Do While Not EOF(1) ndados = ndados + 1 For i = 1 To nvar Input #1, valor If i = varsel Then dado = valor Next i s = s + dado sq = sq + dado * dado Loop

  3. Rem **** estatísticas **** media = s / ndados varia = (sq - ((s * s) / ndados)) / (ndados - 1) dp = Sqr(varia) cv = 100 * dp / media Rem *** impressão dos resultados **** Print #3, "Número de dados "; Tab(40); ndados Print #3, "Média"; Tab(40); media Print #3, "Variância"; Tab(40); varia Print #3, "Desvio-padrão"; Tab(40); dp Print #3, "Coeficiente de variação"; Tab(40); cv Rem **** fechar os arquivos Close #1 Close #3 Rem *** visualizar resultados texto$ = "Notepad " + aqsaida$ resp$ = Shell(texto$, 1) End Sub

  4. Aplicativo 1a: Obter a média, variância, desvio-padrão e coeficiente de variação de uma variável particular de um arquivo de dados – Melhorar a estética de saída usando o comando format. Rem *** impressão dos resultados **** Print #3, "Número de dados "; Tab(40); ndados ft$ = "####.0#" Print #3, "Média"; Tab(40); Format(media, ft$) Print #3, "Variância"; Tab(40); Format(varia, ft$) Print #3, "Desvio-padrão"; Tab(40); Format(dp, ft$) Print #3, "Coeficiente de variação"; Tab(40); Format(cv, ft$)

  5. Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# ' Returns current system time in the system-defined long time format. MyStr = Format(Time, "Long Time") ' Returns current system date in the system-defined long date format. MyStr = Format(Date, "Long Date") MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23". MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM". MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Returns "Wednesday, ' Jan 27 1993". ' If format is not supplied, a string is returned. MyStr = Format(23) ' Returns "23". ' User-defined formats. MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40". MyStr = Format(334.9, "###0.00") ' Returns "334.90". MyStr = Format(5, "0.00%") ' Returns "500.00%". MyStr = Format("HELLO", "<") ' Returns "hello". MyStr = Format("This is it", ">") ' Returns "THIS IS IT".

More Related