Adds the UI/dialogs to ask the data source from the user.
This commit is contained in:
parent
baa4275099
commit
4816c5250d
232
_0Main.vb
232
_0Main.vb
@ -6,18 +6,45 @@ Option Explicit
|
||||
' subMain: The main program
|
||||
Sub subMain
|
||||
BasicLibraries.loadLibrary "XrayTool"
|
||||
Dim dStart As Date
|
||||
dStart = Now
|
||||
|
||||
'MsgBox InStr (1, "abca", "ad")
|
||||
'Xray ThisComponent.getSheets.getByIndex (0).getCellByPosition (0, 0)
|
||||
subRunCorrelation
|
||||
'subRunPairedTTest
|
||||
'subRunIndependentTTest
|
||||
'subRunAnova
|
||||
'subRunChi2GoodnessOfFit
|
||||
'subTestCorrelation
|
||||
subTestChi2GoodnessOfFit
|
||||
'subTestPairedTTest
|
||||
'subTestIndependentTTest
|
||||
'subTestANOVA
|
||||
'subTestChi2GoodnessOfFit
|
||||
|
||||
MsgBox "Done. " & Format (Now - dStart, "mm:ss") & " elapsed."
|
||||
End Sub
|
||||
|
||||
' fnQueryFormat: Returns the index of the number format, and creates the number format if required.
|
||||
' fnCheckRangeName: Checks the range name and returns the range when
|
||||
' found, or null when not found.
|
||||
Function fnCheckRangeName (oDoc As Object, sRangeName As String) As Object
|
||||
On Error Goto ErrorHandler
|
||||
Dim oController As Object, oSheet As Object
|
||||
Dim nPos As Integer, sSheetName As String, oRange As Object
|
||||
|
||||
oController = oDoc.getCurrentController
|
||||
nPos = InStr (sRangeName, ".")
|
||||
If nPos = 0 Then
|
||||
oSheet = oController.getActiveSheet
|
||||
Else
|
||||
sSheetName = Left (sRangeName, nPos - 1)
|
||||
If Left (sSheetName, 1) = "$" Then
|
||||
sSheetName = Right (sSheetName, Len (sSheetName) - 1)
|
||||
End If
|
||||
oSheet = oDoc.getSheets.getByName (sSheetName)
|
||||
End If
|
||||
fnCheckRangeName = oSheet.getCellRangeByName (sRangeName)
|
||||
|
||||
ErrorHandler:
|
||||
End Function
|
||||
|
||||
' fnQueryFormat: Returns the index of the number format, and creates
|
||||
' the number format if required.
|
||||
Function fnQueryFormat (oDoc As Object, sFormat As String) As Integer
|
||||
Dim oFormats As Object, nIndex As Integer
|
||||
Dim aLocale As New com.sun.star.lang.Locale
|
||||
@ -58,17 +85,202 @@ End Function
|
||||
|
||||
' fnFindStatsTestDocument: Finds the statistics test document.
|
||||
Function fnFindStatsTestDocument As Object
|
||||
Dim oEnum As Object, oDoc As Object
|
||||
Dim oEnum As Object, oDoc As Object, sFile As String
|
||||
|
||||
sFile = "/statstest.ods"
|
||||
oEnum = StarDesktop.getComponents.createEnumeration
|
||||
Do While oEnum.hasMoreElements
|
||||
oDoc = oEnum.nextElement
|
||||
If oDoc.supportsService ("com.sun.star.document.OfficeDocument") Then
|
||||
If Right (oDoc.getLocation, Len ("/statstest.ods")) = "/statstest.ods" Then
|
||||
If Right (oDoc.getLocation, Len (sFile)) = sFile Then
|
||||
fnFindStatsTestDocument = oDoc
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
fnFindStatsTestDocument = Null
|
||||
End Function
|
||||
|
||||
' fnAskDataRange: Asks the user for the data range, or null when
|
||||
' the user cancelled
|
||||
Function fnAskDataRange (oDoc As Object) As Object
|
||||
Dim oRange As Object, sPrompt As String, sCellsData As String
|
||||
|
||||
oRange = fnFindActiveDataRange (oDoc)
|
||||
If IsNull (oRange) Then
|
||||
sCellsData = ""
|
||||
Else
|
||||
sCellsData = oRange.getPropertyValue ("AbsoluteName")
|
||||
End If
|
||||
sPrompt = "Cells with the data:"
|
||||
|
||||
' Loop until we get good answer
|
||||
Do While sPrompt <> ""
|
||||
sCellsData = InputBox (sPrompt, "Step 1/2: Select the data range", sCellsData)
|
||||
|
||||
' Cancelled
|
||||
If sCellsData = "" Then
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
oRange = fnCheckRangeName (oDoc, sCellsData)
|
||||
If IsNull (oRange) Then
|
||||
sPrompt = "The range """ & sCellsData & """ does not exist."
|
||||
Else
|
||||
If oRange.getRows.getCount < 2 Or oRange.getColumns.getCount < 2 Then
|
||||
sPrompt = "The range """ & sCellsData & """ is too small (at least 2×2)."
|
||||
Else
|
||||
sPrompt = ""
|
||||
oDoc.getCurrentController.select (oRange)
|
||||
fnAskDataRange = oRange
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Function
|
||||
|
||||
' fnAskDataRange2: Asks the user for the data range, or null when
|
||||
' the user cancelled
|
||||
Function fnAskDataRange2 (oDoc As Object) As Object
|
||||
Dim oRange As Object
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oEditModel As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim sPrompt As String, sCellsData As String
|
||||
|
||||
oRange = fnFindActiveDataRange (oDoc)
|
||||
If IsNull (oRange) Then
|
||||
sCellsData = ""
|
||||
Else
|
||||
sCellsData = oRange.getPropertyValue ("AbsoluteName")
|
||||
End If
|
||||
sPrompt = "Cells with the data:"
|
||||
|
||||
' Loop until we finds good data
|
||||
Do While sPrompt <> ""
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 65)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 1/2: Select the data range")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 15)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", sPrompt)
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPrompt", oTextModel)
|
||||
|
||||
' Adds the text input.
|
||||
oEditModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlEditModel")
|
||||
oEditModel.setPropertyValue ("PositionX", 5)
|
||||
oEditModel.setPropertyValue ("PositionY", 25)
|
||||
oEditModel.setPropertyValue ("Height", 15)
|
||||
oEditModel.setPropertyValue ("Width", 85)
|
||||
oEditModel.setPropertyValue ("Text", sCellsData)
|
||||
oDialogModel.insertByName ("edtCellsData", oEditModel)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 45)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 45)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
sCellsData = oEditModel.getPropertyValue ("Text")
|
||||
If sCellsData = "" Then
|
||||
sPrompt = "Cells with the data:"
|
||||
Else
|
||||
oRange = fnCheckRangeName (oDoc, sCellsData)
|
||||
If IsNull (oRange) Then
|
||||
sPrompt = "The range """ & sCellsData & """ does not exist."
|
||||
Else
|
||||
If oRange.getRows.getCount < 2 Or oRange.getColumns.getCount < 2 Then
|
||||
sPrompt = "The range """ & sCellsData & """ is too small (at least 2×2)."
|
||||
Else
|
||||
sPrompt = ""
|
||||
oDoc.getCurrentController.select (oRange)
|
||||
fnAskDataRange = oRange
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Function
|
||||
|
||||
' fnFindActiveDataRange: Finds the selected data range.
|
||||
Function fnFindActiveDataRange (oDoc)
|
||||
Dim oSelection As Object, nI As Integer
|
||||
Dim oRanges As Object, oRange As Object
|
||||
Dim aCellAddress As New com.sun.star.table.CellAddress
|
||||
Dim aRangeAddress As New com.sun.star.table.CellRangeAddress
|
||||
|
||||
oSelection = oDoc.getCurrentSelection
|
||||
|
||||
' Some data ranges are already selected.
|
||||
If Not oSelection.supportsService ("com.sun.star.sheet.SheetCell") Then
|
||||
' Takes the first selection in multiple selections
|
||||
If oSelection.supportsService ("com.sun.star.sheet.SheetCellRanges") Then
|
||||
fnFindActiveDataRange = oSelection.getByIndex (0)
|
||||
' The only selection
|
||||
Else
|
||||
fnFindActiveDataRange = oSelection
|
||||
End If
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
' Finds the data range containing the single active cell
|
||||
aCellAddress = oSelection.getCellAddress
|
||||
oRanges = oSelection.getSpreadsheet.queryContentCells ( _
|
||||
com.sun.star.sheet.CellFlags.VALUE _
|
||||
+ com.sun.star.sheet.CellFlags.DATETIME _
|
||||
+ com.sun.star.sheet.CellFlags.STRING _
|
||||
+ com.sun.star.sheet.CellFlags.FORMULA)
|
||||
For nI = 0 To oRanges.getCount - 1
|
||||
oRange = oRanges.getByIndex (nI)
|
||||
aRangeAddress = oRange.getRangeAddress
|
||||
If aRangeAddress.StartRow <= aCellAddress.Row _
|
||||
And aRangeAddress.EndRow >= aCellAddress.Row _
|
||||
And aRangeAddress.StartColumn <= aCellAddress.Column _
|
||||
And aRangeAddress.EndColumn >= aCellAddress.Column Then
|
||||
oDoc.getCurrentController.select (oRange)
|
||||
fnFindActiveDataRange = oRange
|
||||
Exit Function
|
||||
End If
|
||||
Next nI
|
||||
' Not in a data cell range
|
||||
End Function
|
||||
|
||||
177
_1CorRel.vb
177
_1CorRel.vb
@ -3,13 +3,167 @@
|
||||
|
||||
Option Explicit
|
||||
|
||||
' subRunCorrelation: Runs the Pearson’s correlation coefficient.
|
||||
Sub subRunCorrelation As Object
|
||||
Dim oRange As Object
|
||||
Dim mLabels () As String, nI As Integer, mSelected (0) As Integer
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oListModel1 As Object, oListModel2 As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim nColumn As Integer, oRange1 As Object, oRange2 As Object
|
||||
Dim oSheets As Object, sSheetName As String, sExisted As String
|
||||
Dim oSheet As Object
|
||||
|
||||
' Asks the user for the data range
|
||||
oRange = fnAskDataRange (ThisComponent)
|
||||
If IsNull (oRange) Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim mLabels (oRange.getColumns.getCount - 1) As String
|
||||
For nI = 0 To oRange.getColumns.getCount - 1
|
||||
mLabels (nI) = oRange.getCellByPosition (nI, 0).getString
|
||||
Next nI
|
||||
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 80)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 2/2: Specify the data")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "First score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptGroup", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel1 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel1.setPropertyValue ("PositionX", 5)
|
||||
oListModel1.setPropertyValue ("PositionY", 15)
|
||||
oListModel1.setPropertyValue ("Height", 10)
|
||||
oListModel1.setPropertyValue ("Width", 85)
|
||||
oListModel1.setPropertyValue ("Dropdown", True)
|
||||
oListModel1.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 0
|
||||
oListModel1.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstGroup", oListModel1)
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 30)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Second score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptScore", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel2 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel2.setPropertyValue ("PositionX", 5)
|
||||
oListModel2.setPropertyValue ("PositionY", 40)
|
||||
oListModel2.setPropertyValue ("Height", 10)
|
||||
oListModel2.setPropertyValue ("Width", 85)
|
||||
oListModel2.setPropertyValue ("Dropdown", True)
|
||||
oListModel2.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 1
|
||||
oListModel2.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstScore", oListModel2)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oButtonModel.setPropertyValue ("DefaultButton", True)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
nColumn = oListModel1.getPropertyValue ("SelectedItems") (0)
|
||||
oRange1 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
nColumn = oListModel2.getPropertyValue ("SelectedItems") (0)
|
||||
oRange2 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
|
||||
' Checks the existing report
|
||||
oSheets = ThisComponent.getSheets
|
||||
sSheetName = oRange1.getSpreadsheet.getName
|
||||
sExisted = ""
|
||||
If oSheets.hasByName (sSheetName & "_correl") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_correl"""
|
||||
End If
|
||||
If sExisted <> "" Then
|
||||
sExisted = Right (sExisted, Len (sExisted) - 2)
|
||||
If InStr (sExisted, ",") > 0 Then
|
||||
sExisted = "Spreadsheets " & sExisted & " exist. Overwrite?"
|
||||
Else
|
||||
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
|
||||
End If
|
||||
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
|
||||
If nResult = IDNO Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Drops the existing report
|
||||
If oSheets.hasByName (sSheetName & "_correl") Then
|
||||
oSheets.removeByname (sSheetName & "_correl")
|
||||
End If
|
||||
End If
|
||||
|
||||
' Reports the paired T-test.
|
||||
subReportCorrelation (ThisComponent, oRange1, oRange2)
|
||||
|
||||
' Makes the report sheet active.
|
||||
oSheet = oSheets.getByName (sSheetName & "_correl")
|
||||
ThisComponent.getCurrentController.setActiveSheet (oSheet)
|
||||
End Sub
|
||||
|
||||
' subTestCorrelation: Tests the Pearson’s correlation coefficient report
|
||||
Sub subTestCorrelation
|
||||
Dim oDoc As Object, oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
Dim oSheet As Object, oXRange As Object, oYRange As Object
|
||||
|
||||
oDoc = fnFindStatsTestDocument
|
||||
If oDoc = Null Then
|
||||
If IsNull (oDoc) Then
|
||||
MsgBox "Cannot find statstest.ods in the opened documents."
|
||||
Exit Sub
|
||||
End If
|
||||
@ -24,12 +178,13 @@ Sub subTestCorrelation
|
||||
oSheets.removeByName (sSheetName & "_correl")
|
||||
End If
|
||||
oSheet = oSheets.getByName (sSheetName)
|
||||
oRange = oSheet.getCellRangeByName ("B3:C13")
|
||||
subReportCorrelation (oDoc, oRange)
|
||||
oXRange = oSheet.getCellRangeByName ("B3:B13")
|
||||
oYRange = oSheet.getCellRangeByName ("C3:C13")
|
||||
subReportCorrelation (oDoc, oXRange, oYRange)
|
||||
End Sub
|
||||
|
||||
' subReportCorrelation: Reports the Pearson’s correlation coefficient
|
||||
Sub subReportCorrelation (oDoc As Object, oDataRange As Object)
|
||||
Sub subReportCorrelation (oDoc As Object, oDataXRange As Object, oDataYRange As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim mNames () As String, nI As Integer, nSheetIndex As Integer
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
@ -44,7 +199,7 @@ Sub subReportCorrelation (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellN As String, sCellR As String
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
sSheetName = oDataXRange.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
@ -54,11 +209,11 @@ Sub subReportCorrelation (oDoc As Object, oDataRange As Object)
|
||||
oSheets.insertNewByName (sSheetName & "_correl", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_correl")
|
||||
|
||||
nN = oDataRange.getRows.getCount - 1
|
||||
sCellXLabel = fnGetRangeName (oDataRange.getCellByPosition (0, 0))
|
||||
sCellsXData = fnGetRangeName (oDataRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
sCellYLabel = fnGetRangeName (oDataRange.getCellByPosition (1, 0))
|
||||
sCellsYData = fnGetRangeName (oDataRange.getCellRangeByPosition (1, 1, 1, nN))
|
||||
nN = oDataXRange.getRows.getCount - 1
|
||||
sCellXLabel = fnGetRangeName (oDataXRange.getCellByPosition (0, 0))
|
||||
sCellsXData = fnGetRangeName (oDataXRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
sCellYLabel = fnGetRangeName (oDataYRange.getCellByPosition (0, 0))
|
||||
sCellsYData = fnGetRangeName (oDataYRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
|
||||
' Obtains the format parameters for the report.
|
||||
nFormatN = fnQueryFormat (oDoc, "#,##0")
|
||||
|
||||
178
_2PTTest.vb
178
_2PTTest.vb
@ -1,14 +1,169 @@
|
||||
' _2PTTest: The macros to for generating the report of paired T-Test
|
||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-11
|
||||
|
||||
Option Explicit
|
||||
|
||||
' subRunPairedTTest: Runs the paired T-test.
|
||||
Sub subRunPairedTTest As Object
|
||||
Dim oRange As Object
|
||||
Dim mLabels () As String, nI As Integer, mSelected (0) As Integer
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oListModel1 As Object, oListModel2 As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim nColumn As Integer, oRange1 As Object, oRange2 As Object
|
||||
Dim oSheets As Object, sSheetName As String, sExisted As String
|
||||
Dim oSheet As Object
|
||||
|
||||
' Asks the user for the data range
|
||||
oRange = fnAskDataRange (ThisComponent)
|
||||
If IsNull (oRange) Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim mLabels (oRange.getColumns.getCount - 1) As String
|
||||
For nI = 0 To oRange.getColumns.getCount - 1
|
||||
mLabels (nI) = oRange.getCellByPosition (nI, 0).getString
|
||||
Next nI
|
||||
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 80)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 2/2: Specify the data")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "First score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptGroup", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel1 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel1.setPropertyValue ("PositionX", 5)
|
||||
oListModel1.setPropertyValue ("PositionY", 15)
|
||||
oListModel1.setPropertyValue ("Height", 10)
|
||||
oListModel1.setPropertyValue ("Width", 85)
|
||||
oListModel1.setPropertyValue ("Dropdown", True)
|
||||
oListModel1.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 0
|
||||
oListModel1.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstGroup", oListModel1)
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 30)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Second score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptScore", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel2 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel2.setPropertyValue ("PositionX", 5)
|
||||
oListModel2.setPropertyValue ("PositionY", 40)
|
||||
oListModel2.setPropertyValue ("Height", 10)
|
||||
oListModel2.setPropertyValue ("Width", 85)
|
||||
oListModel2.setPropertyValue ("Dropdown", True)
|
||||
oListModel2.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 1
|
||||
oListModel2.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstScore", oListModel2)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oButtonModel.setPropertyValue ("DefaultButton", True)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
nColumn = oListModel1.getPropertyValue ("SelectedItems") (0)
|
||||
oRange1 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
nColumn = oListModel2.getPropertyValue ("SelectedItems") (0)
|
||||
oRange2 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
|
||||
' Checks the existing report
|
||||
oSheets = ThisComponent.getSheets
|
||||
sSheetName = oRange1.getSpreadsheet.getName
|
||||
sExisted = ""
|
||||
If oSheets.hasByName (sSheetName & "_ttest") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_ttest"""
|
||||
End If
|
||||
If sExisted <> "" Then
|
||||
sExisted = Right (sExisted, Len (sExisted) - 2)
|
||||
If InStr (sExisted, ",") > 0 Then
|
||||
sExisted = "Spreadsheets " & sExisted & " exist. Overwrite?"
|
||||
Else
|
||||
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
|
||||
End If
|
||||
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
|
||||
If nResult = IDNO Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Drops the existing report
|
||||
If oSheets.hasByName (sSheetName & "_ttest") Then
|
||||
oSheets.removeByname (sSheetName & "_ttest")
|
||||
End If
|
||||
End If
|
||||
|
||||
' Reports the paired T-test.
|
||||
subReportPairedTTest (ThisComponent, oRange1, oRange2)
|
||||
|
||||
' Makes the report sheet active.
|
||||
oSheet = oSheets.getByName (sSheetName & "_ttest")
|
||||
ThisComponent.getCurrentController.setActiveSheet (oSheet)
|
||||
End Sub
|
||||
|
||||
' subTestPairedTTest: Tests the paired T-test report
|
||||
Sub subTestPairedTTest
|
||||
Dim oDoc As Object, oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
Dim oSheet As Object, oXRange As Object, oYRange As Object
|
||||
|
||||
oDoc = fnFindStatsTestDocument
|
||||
If oDoc = Null Then
|
||||
If IsNull (oDoc) Then
|
||||
MsgBox "Cannot find statstest.ods in the opened documents."
|
||||
Exit Sub
|
||||
End If
|
||||
@ -23,12 +178,13 @@ Sub subTestPairedTTest
|
||||
oSheets.removeByName (sSheetName & "_ttest")
|
||||
End If
|
||||
oSheet = oSheets.getByName (sSheetName)
|
||||
oRange = oSheet.getCellRangeByName ("B3:C15")
|
||||
subReportPairedTTest (oDoc, oRange)
|
||||
oXRange = oSheet.getCellRangeByName ("B3:B15")
|
||||
oYRange = oSheet.getCellRangeByName ("C3:C15")
|
||||
subReportPairedTTest (oDoc, oXRange, oYRange)
|
||||
End Sub
|
||||
|
||||
' subReportPairedTTest: Reports the paired T-test
|
||||
Sub subReportPairedTTest (oDoc As Object, oDataRange As Object)
|
||||
Sub subReportPairedTTest (oDoc As Object, oDataXRange As Object, oDataYRange As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim mNames () As String, nI As Integer, nSheetIndex As Integer
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
@ -45,7 +201,7 @@ Sub subReportPairedTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellN As String, sCellXYS As String, sCellR As String
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
sSheetName = oDataXRange.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
@ -55,11 +211,11 @@ Sub subReportPairedTTest (oDoc As Object, oDataRange As Object)
|
||||
oSheets.insertNewByName (sSheetName & "_ttest", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_ttest")
|
||||
|
||||
nN = oDataRange.getRows.getCount - 1
|
||||
sCellXLabel = fnGetRangeName (oDataRange.getCellByPosition (0, 0))
|
||||
sCellsXData = fnGetRangeName (oDataRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
sCellYLabel = fnGetRangeName (oDataRange.getCellByPosition (1, 0))
|
||||
sCellsYData = fnGetRangeName (oDataRange.getCellRangeByPosition (1, 1, 1, nN))
|
||||
nN = oDataXRange.getRows.getCount - 1
|
||||
sCellXLabel = fnGetRangeName (oDataXRange.getCellByPosition (0, 0))
|
||||
sCellsXData = fnGetRangeName (oDataXRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
sCellYLabel = fnGetRangeName (oDataYRange.getCellByPosition (0, 0))
|
||||
sCellsYData = fnGetRangeName (oDataYRange.getCellRangeByPosition (0, 1, 0, nN))
|
||||
|
||||
' Obtains the format parameters for the report.
|
||||
nFormatN = fnQueryFormat (oDoc, "#,##0")
|
||||
|
||||
196
_3ITTest.vb
196
_3ITTest.vb
@ -1,14 +1,175 @@
|
||||
' _3ITTest: The macros to for generating the report of independent T-Test
|
||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-24
|
||||
|
||||
Option Explicit
|
||||
|
||||
' subTestIndependentTTest: Tests the independent T-test report
|
||||
' subRunIndependentTTest: Runs the independent T-test.
|
||||
Sub subRunIndependentTTest As Object
|
||||
Dim oRange As Object
|
||||
Dim mLabels () As String, nI As Integer, mSelected (0) As Integer
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oListModel1 As Object, oListModel2 As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim nColumn As Integer, oRange1 As Object, oRange2 As Object
|
||||
Dim oSheets As Object, sSheetName As String, sExisted As String
|
||||
Dim oSheet As Object
|
||||
|
||||
' Asks the user for the data range
|
||||
oRange = fnAskDataRange (ThisComponent)
|
||||
If IsNull (oRange) Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim mLabels (oRange.getColumns.getCount - 1) As String
|
||||
For nI = 0 To oRange.getColumns.getCount - 1
|
||||
mLabels (nI) = oRange.getCellByPosition (nI, 0).getString
|
||||
Next nI
|
||||
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 80)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 2/2: Specify the data")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Group column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptGroup", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel1 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel1.setPropertyValue ("PositionX", 5)
|
||||
oListModel1.setPropertyValue ("PositionY", 15)
|
||||
oListModel1.setPropertyValue ("Height", 10)
|
||||
oListModel1.setPropertyValue ("Width", 85)
|
||||
oListModel1.setPropertyValue ("Dropdown", True)
|
||||
oListModel1.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 0
|
||||
oListModel1.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstGroup", oListModel1)
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 30)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptScore", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel2 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel2.setPropertyValue ("PositionX", 5)
|
||||
oListModel2.setPropertyValue ("PositionY", 40)
|
||||
oListModel2.setPropertyValue ("Height", 10)
|
||||
oListModel2.setPropertyValue ("Width", 85)
|
||||
oListModel2.setPropertyValue ("Dropdown", True)
|
||||
oListModel2.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 1
|
||||
oListModel2.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstScore", oListModel2)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oButtonModel.setPropertyValue ("DefaultButton", True)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
nColumn = oListModel1.getPropertyValue ("SelectedItems") (0)
|
||||
oRange1 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
nColumn = oListModel2.getPropertyValue ("SelectedItems") (0)
|
||||
oRange2 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
|
||||
' Checks the existing report
|
||||
oSheets = ThisComponent.getSheets
|
||||
sSheetName = oRange1.getSpreadsheet.getName
|
||||
sExisted = ""
|
||||
If oSheets.hasByName (sSheetName & "_ttest") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_ttest"""
|
||||
End If
|
||||
If oSheets.hasByName (sSheetName & "_ttesttmp") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_ttesttmp"""
|
||||
End If
|
||||
If sExisted <> "" Then
|
||||
sExisted = Right (sExisted, Len (sExisted) - 2)
|
||||
If InStr (sExisted, ",") > 0 Then
|
||||
sExisted = "Spreadsheets " & sExisted & " exist. Overwrite?"
|
||||
Else
|
||||
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
|
||||
End If
|
||||
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
|
||||
If nResult = IDNO Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Drops the existing report
|
||||
If oSheets.hasByName (sSheetName & "_ttest") Then
|
||||
oSheets.removeByname (sSheetName & "_ttest")
|
||||
End If
|
||||
If oSheets.hasByName (sSheetName & "_ttesttmp") Then
|
||||
oSheets.removeByname (sSheetName & "_ttesttmp")
|
||||
End If
|
||||
End If
|
||||
|
||||
' Reports the independent T-test.
|
||||
subReportIndependentTTest (ThisComponent, oRange1, oRange2)
|
||||
|
||||
' Makes the report sheet active.
|
||||
oSheet = oSheets.getByName (sSheetName & "_ttest")
|
||||
ThisComponent.getCurrentController.setActiveSheet (oSheet)
|
||||
End Sub
|
||||
|
||||
' subTestIndependentTTest: Tests the independent T-test report.
|
||||
Sub subTestIndependentTTest
|
||||
Dim oDoc As Object, oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
Dim oSheet As Object, oLabelColumn As Object, oScoreColumn As Object
|
||||
|
||||
oDoc = fnFindStatsTestDocument
|
||||
If oDoc = Null Then
|
||||
If IsNull (oDoc) Then
|
||||
MsgBox "Cannot find statstest.ods in the opened documents."
|
||||
Exit Sub
|
||||
End If
|
||||
@ -26,12 +187,13 @@ Sub subTestIndependentTTest
|
||||
oSheets.removeByName (sSheetName & "_ttesttmp")
|
||||
End If
|
||||
oSheet = oSheets.getByName (sSheetName)
|
||||
oRange = oSheet.getCellRangeByName ("A15:B34")
|
||||
subReportIndependentTTest (oDoc, oRange)
|
||||
oLabelColumn = oSheet.getCellRangeByName ("A15:A34")
|
||||
oScoreColumn = oSheet.getCellRangeByName ("B15:B34")
|
||||
subReportIndependentTTest (oDoc, oLabelColumn, oScoreColumn)
|
||||
End Sub
|
||||
|
||||
' subReportIndependentTTest: Reports the independent T-test
|
||||
Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
Sub subReportIndependentTTest (oDoc As Object, oLabelColumn As Object, oScoreColumn As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim mNames () As String, nI As Integer, nSheetIndex As Integer
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
@ -48,7 +210,7 @@ Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellF As String, sCellsN As String, sCellN As String
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
sSheetName = oLabelColumn.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
@ -58,7 +220,7 @@ Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
|
||||
oSheets.insertNewByName (sSheetName & "_ttesttmp", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_ttesttmp")
|
||||
oTempDataRange = fnCollectIndependentTTestData (oDataRange, oSheet)
|
||||
oTempDataRange = fnCollectIndependentTTestData (oSheet, oLabelColumn, oScoreColumn)
|
||||
|
||||
oSheets.insertNewByName (sSheetName & "_ttest", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_ttest")
|
||||
@ -527,7 +689,7 @@ Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
End Sub
|
||||
|
||||
' fnCollectIndependentTTestData: Collects the data for the independent T-test.
|
||||
Function fnCollectIndependentTTestData (oDataRange As Object, oReportSheet As Object) As Object
|
||||
Function fnCollectIndependentTTestData (oReportSheet As Object, oLabelColumn As Object, oScoreColumn As Object) As Object
|
||||
Dim nRow As Integer, nNRow As Integer, sCellZMean As String, sCellsN As String
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object
|
||||
Dim sCell As String, sLabel As String, sFormula As String
|
||||
@ -540,8 +702,8 @@ Function fnCollectIndependentTTestData (oDataRange As Object, oReportSheet As Ob
|
||||
|
||||
sCellXLabel = ""
|
||||
sCellYLabel = ""
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
oCell = oDataRange.getCellByPosition (0, nRow)
|
||||
For nRow = 1 To oLabelColumn.getRows.getCount - 1
|
||||
oCell = oLabelColumn.getCellByPosition (0, nRow)
|
||||
sLabel = oCell.getString
|
||||
If sLabel <> "" Then
|
||||
If sCellXLabel = "" Then
|
||||
@ -551,7 +713,7 @@ Function fnCollectIndependentTTestData (oDataRange As Object, oReportSheet As Ob
|
||||
If sLabel <> sXLabel And sCellYLabel = "" Then
|
||||
sCellYLabel = fnGetRangeName (oCell)
|
||||
sYLabel = sLabel
|
||||
nRow = oDataRange.getRows.getCount - 1
|
||||
nRow = oLabelColumn.getRows.getCount - 1
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@ -568,15 +730,15 @@ Function fnCollectIndependentTTestData (oDataRange As Object, oReportSheet As Ob
|
||||
' The data
|
||||
nNX = 0
|
||||
nNY = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
If oDataRange.getCellByPosition (0, nRow).getString = sXLabel Then
|
||||
For nRow = 1 To oLabelColumn.getRows.getCount - 1
|
||||
If oLabelColumn.getCellByPosition (0, nRow).getString = sXLabel Then
|
||||
nNX = nNX + 1
|
||||
sFormula = "=" & fnGetRangeName (oDataRange.getCellByPosition (1, nRow))
|
||||
sFormula = "=" & fnGetRangeName (oScoreColumn.getCellByPosition (0, nRow))
|
||||
oReportSheet.getCellByPosition (0, nNX).setFormula (sFormula)
|
||||
Else
|
||||
If oDataRange.getCellByPosition (0, nRow).getString = sYLabel Then
|
||||
If oLabelColumn.getCellByPosition (0, nRow).getString = sYLabel Then
|
||||
nNY = nNY + 1
|
||||
sFormula = "=" & fnGetRangeName (oDataRange.getCellByPosition (1, nRow))
|
||||
sFormula = "=" & fnGetRangeName (oScoreColumn.getCellByPosition (0, nRow))
|
||||
oReportSheet.getCellByPosition (1, nNY).setFormula (sFormula)
|
||||
End If
|
||||
End If
|
||||
|
||||
192
_4ANOVA.vb
192
_4ANOVA.vb
@ -1,14 +1,175 @@
|
||||
' _4ANOVA: The macros to for generating the report of ANOVA (Analyze of Variances)
|
||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-08-31
|
||||
|
||||
Option Explicit
|
||||
|
||||
' subRunANOVA: Runs the ANOVA (Analyze of Variances).
|
||||
Sub subRunANOVA As Object
|
||||
Dim oRange As Object
|
||||
Dim mLabels () As String, nI As Integer, mSelected (0) As Integer
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oListModel1 As Object, oListModel2 As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim nColumn As Integer, oRange1 As Object, oRange2 As Object
|
||||
Dim oSheets As Object, sSheetName As String, sExisted As String
|
||||
Dim oSheet As Object
|
||||
|
||||
' Asks the user for the data range
|
||||
oRange = fnAskDataRange (ThisComponent)
|
||||
If IsNull (oRange) Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim mLabels (oRange.getColumns.getCount - 1) As String
|
||||
For nI = 0 To oRange.getColumns.getCount - 1
|
||||
mLabels (nI) = oRange.getCellByPosition (nI, 0).getString
|
||||
Next nI
|
||||
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 80)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 2/2: Specify the data")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Group column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptGroup", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel1 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel1.setPropertyValue ("PositionX", 5)
|
||||
oListModel1.setPropertyValue ("PositionY", 15)
|
||||
oListModel1.setPropertyValue ("Height", 10)
|
||||
oListModel1.setPropertyValue ("Width", 85)
|
||||
oListModel1.setPropertyValue ("Dropdown", True)
|
||||
oListModel1.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 0
|
||||
oListModel1.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstGroup", oListModel1)
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 30)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Score column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptScore", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel2 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel2.setPropertyValue ("PositionX", 5)
|
||||
oListModel2.setPropertyValue ("PositionY", 40)
|
||||
oListModel2.setPropertyValue ("Height", 10)
|
||||
oListModel2.setPropertyValue ("Width", 85)
|
||||
oListModel2.setPropertyValue ("Dropdown", True)
|
||||
oListModel2.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 1
|
||||
oListModel2.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstScore", oListModel2)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oButtonModel.setPropertyValue ("DefaultButton", True)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
nColumn = oListModel1.getPropertyValue ("SelectedItems") (0)
|
||||
oRange1 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
nColumn = oListModel2.getPropertyValue ("SelectedItems") (0)
|
||||
oRange2 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
|
||||
' Checks the existing report
|
||||
oSheets = ThisComponent.getSheets
|
||||
sSheetName = oRange1.getSpreadsheet.getName
|
||||
sExisted = ""
|
||||
If oSheets.hasByName (sSheetName & "_anova") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_anova"""
|
||||
End If
|
||||
If oSheets.hasByName (sSheetName & "_anovatmp") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_anovatmp"""
|
||||
End If
|
||||
If sExisted <> "" Then
|
||||
sExisted = Right (sExisted, Len (sExisted) - 2)
|
||||
If InStr (sExisted, ",") > 0 Then
|
||||
sExisted = "Spreadsheets " & sExisted & " exist. Overwrite?"
|
||||
Else
|
||||
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
|
||||
End If
|
||||
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
|
||||
If nResult = IDNO Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Drops the existing report
|
||||
If oSheets.hasByName (sSheetName & "_anova") Then
|
||||
oSheets.removeByname (sSheetName & "_anova")
|
||||
End If
|
||||
If oSheets.hasByName (sSheetName & "_anovatmp") Then
|
||||
oSheets.removeByname (sSheetName & "_anovatmp")
|
||||
End If
|
||||
End If
|
||||
|
||||
' Reports the ANOVA (Analyze of Variances)
|
||||
subReportANOVA (ThisComponent, oRange1, oRange2)
|
||||
|
||||
' Makes the report sheet active.
|
||||
oSheet = oSheets.getByName (sSheetName & "_anova")
|
||||
ThisComponent.getCurrentController.setActiveSheet (oSheet)
|
||||
End Sub
|
||||
|
||||
' subTestANOVA: Tests the ANOVA (Analyze of Variances) report
|
||||
Sub subTestANOVA
|
||||
Dim oDoc As Object, oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
Dim oSheet As Object, oLabelColumn As Object, oScoreColumn As Object
|
||||
|
||||
oDoc = fnFindStatsTestDocument
|
||||
If oDoc = Null Then
|
||||
If IsNull (oDoc) Then
|
||||
MsgBox "Cannot find statstest.ods in the opened documents."
|
||||
Exit Sub
|
||||
End If
|
||||
@ -26,12 +187,13 @@ Sub subTestANOVA
|
||||
oSheets.removeByName (sSheetName & "_anovatmp")
|
||||
End If
|
||||
oSheet = oSheets.getByName (sSheetName)
|
||||
oRange = oSheet.getCellRangeByName ("A13:B35")
|
||||
subReportANOVA (oDoc, oRange)
|
||||
oLabelColumn = oSheet.getCellRangeByName ("A13:A35")
|
||||
oScoreColumn = oSheet.getCellRangeByName ("B13:B35")
|
||||
subReportANOVA (oDoc, oLabelColumn, oScoreColumn)
|
||||
End Sub
|
||||
|
||||
' subReportANOVA: Reports the ANOVA (Analyze of Variances)
|
||||
Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
Sub subReportANOVA (oDoc As Object, oLabelColumn As Object, oScoreColumn As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim nI As Integer, nJ As Integer
|
||||
Dim mNames () As String, nSheetIndex As Integer
|
||||
@ -54,7 +216,7 @@ Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellMeanDiff As String
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
sSheetName = oLabelColumn.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
@ -64,7 +226,7 @@ Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
|
||||
oSheets.insertNewByName (sSheetName & "_anovatmp", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_anovatmp")
|
||||
oTempDataRange = fnCollectANOVAData (oDataRange, oSheet)
|
||||
oTempDataRange = fnCollectANOVAData (oSheet, oLabelColumn, oScoreColumn)
|
||||
nGroups = oTempDataRange.getColumns.getCount / 3
|
||||
|
||||
oSheets.insertNewByName (sSheetName & "_anova", nSheetIndex + 1)
|
||||
@ -852,7 +1014,7 @@ Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
End Sub
|
||||
|
||||
' fnCollectANOVAData: Collects the data for the ANOVA (Analyze of Variances).
|
||||
Function fnCollectANOVAData (oDataRange As Object, oReportSheet As Object) As Object
|
||||
Function fnCollectANOVAData (oReportSheet As Object, oLabelColumn As Object, oScoreColumn As Object) As Object
|
||||
Dim nRow As Integer, nColumn As Integer, nI As Integer
|
||||
Dim nNRow As Integer, sCellZMean As String, sCellsN As String
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object
|
||||
@ -865,8 +1027,8 @@ Function fnCollectANOVAData (oDataRange As Object, oReportSheet As Object) As Ob
|
||||
|
||||
sLabels = " "
|
||||
nGroups = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
sLabel = oDataRange.getCellByPosition (0, nRow).getString
|
||||
For nRow = 1 To oLabelColumn.getRows.getCount - 1
|
||||
sLabel = oLabelColumn.getCellByPosition (0, nRow).getString
|
||||
If InStr (sLabels, " " & sLabel & " ") = 0 Then
|
||||
sLabels = sLabels & sLabel & " "
|
||||
nGroups = nGroups + 1
|
||||
@ -880,8 +1042,8 @@ Function fnCollectANOVAData (oDataRange As Object, oReportSheet As Object) As Ob
|
||||
|
||||
sLabels = " "
|
||||
nGroups = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
oCell = oDataRange.getCellByPosition (0, nRow)
|
||||
For nRow = 1 To oLabelColumn.getRows.getCount - 1
|
||||
oCell = oLabelColumn.getCellByPosition (0, nRow)
|
||||
sLabel = oCell.getString
|
||||
If InStr (sLabels, " " & sLabel & " ") = 0 Then
|
||||
sLabels = sLabels & sLabel & " "
|
||||
@ -902,8 +1064,8 @@ Function fnCollectANOVAData (oDataRange As Object, oReportSheet As Object) As Ob
|
||||
For nI = 0 To nGroups - 1
|
||||
mN (nI) = 0
|
||||
Next nI
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
sLabel = oDataRange.getCellByPosition (0, nRow).getString
|
||||
For nRow = 1 To oLabelColumn.getRows.getCount - 1
|
||||
sLabel = oLabelColumn.getCellByPosition (0, nRow).getString
|
||||
For nI = 0 To nGroups - 1
|
||||
If sLabel = mLabels (nI) Then
|
||||
nColumn = nI
|
||||
@ -911,7 +1073,7 @@ Function fnCollectANOVAData (oDataRange As Object, oReportSheet As Object) As Ob
|
||||
End If
|
||||
Next nI
|
||||
mN (nColumn) = mN (nColumn) + 1
|
||||
sFormula = "=" & fnGetRangeName (oDataRange.getCellByPosition (1, nRow))
|
||||
sFormula = "=" & fnGetRangeName (oScoreColumn.getCellByPosition (0, nRow))
|
||||
oCell = oReportSheet.getCellByPosition (nColumn, mN (nColumn))
|
||||
oCell.setFormula (sFormula)
|
||||
Next nRow
|
||||
|
||||
184
_5Chi2GoF.vb
184
_5Chi2GoF.vb
@ -1,14 +1,169 @@
|
||||
' _5Chi2GoF: The macros to for generating the report of Chi-square goodness of fit
|
||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-09-05
|
||||
|
||||
Option Explicit
|
||||
|
||||
' subRunChi2GoodnessOfFit: Runs the chi-square goodness of fit.
|
||||
Sub subRunChi2GoodnessOfFit As Object
|
||||
Dim oRange As Object
|
||||
Dim mLabels () As String, nI As Integer, mSelected (0) As Integer
|
||||
Dim oDialogModel As Object, oDialog As Object, nResult As Integer
|
||||
Dim oTextModel As Object, oListModel1 As Object, oListModel2 As Object
|
||||
Dim oButtonModel As Object
|
||||
Dim nColumn As Integer, oRange1 As Object, oRange2 As Object
|
||||
Dim oSheets As Object, sSheetName As String, sExisted As String
|
||||
Dim oSheet As Object
|
||||
|
||||
' Asks the user for the data range
|
||||
oRange = fnAskDataRange (ThisComponent)
|
||||
If IsNull (oRange) Then
|
||||
Exit Sub
|
||||
End If
|
||||
ReDim mLabels (oRange.getColumns.getCount - 1) As String
|
||||
For nI = 0 To oRange.getColumns.getCount - 1
|
||||
mLabels (nI) = oRange.getCellByPosition (nI, 0).getString
|
||||
Next nI
|
||||
|
||||
' Creates a dialog
|
||||
oDialogModel = CreateUnoService ( _
|
||||
"com.sun.star.awt.UnoControlDialogModel")
|
||||
oDialogModel.setPropertyValue ("PositionX", 200)
|
||||
oDialogModel.setPropertyValue ("PositionY", 200)
|
||||
oDialogModel.setPropertyValue ("Height", 80)
|
||||
oDialogModel.setPropertyValue ("Width", 95)
|
||||
oDialogModel.setPropertyValue ("Title", "Step 2/2: Specify the data")
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 5)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Group (column) column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptGroup", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel1 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel1.setPropertyValue ("PositionX", 5)
|
||||
oListModel1.setPropertyValue ("PositionY", 15)
|
||||
oListModel1.setPropertyValue ("Height", 10)
|
||||
oListModel1.setPropertyValue ("Width", 85)
|
||||
oListModel1.setPropertyValue ("Dropdown", True)
|
||||
oListModel1.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 0
|
||||
oListModel1.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstGroup", oListModel1)
|
||||
|
||||
' Adds the prompt.
|
||||
oTextModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlFixedTextModel")
|
||||
oTextModel.setPropertyValue ("PositionX", 5)
|
||||
oTextModel.setPropertyValue ("PositionY", 30)
|
||||
oTextModel.setPropertyValue ("Height", 10)
|
||||
oTextModel.setPropertyValue ("Width", 85)
|
||||
oTextModel.setPropertyValue ("Label", "Event (row) column:")
|
||||
oTextModel.setPropertyValue ("MultiLine", True)
|
||||
oTextModel.setPropertyValue ("TabIndex", 1)
|
||||
oDialogModel.insertByName ("txtPromptScore", oTextModel)
|
||||
|
||||
' Adds the drop down list
|
||||
oListModel2 = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlListBoxModel")
|
||||
oListModel2.setPropertyValue ("PositionX", 5)
|
||||
oListModel2.setPropertyValue ("PositionY", 40)
|
||||
oListModel2.setPropertyValue ("Height", 10)
|
||||
oListModel2.setPropertyValue ("Width", 85)
|
||||
oListModel2.setPropertyValue ("Dropdown", True)
|
||||
oListModel2.setPropertyValue ("StringItemList", mLabels)
|
||||
mSelected (0) = 1
|
||||
oListModel2.setPropertyValue ("SelectedItems", mSelected)
|
||||
oDialogModel.insertByName ("lstScore", oListModel2)
|
||||
|
||||
' Adds the buttons.
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 5)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.CANCEL)
|
||||
oDialogModel.insertByName ("btnClose", oButtonModel)
|
||||
|
||||
oButtonModel = oDialogModel.createInstance ( _
|
||||
"com.sun.star.awt.UnoControlButtonModel")
|
||||
oButtonModel.setPropertyValue ("PositionX", 50)
|
||||
oButtonModel.setPropertyValue ("PositionY", 60)
|
||||
oButtonModel.setPropertyValue ("Height", 15)
|
||||
oButtonModel.setPropertyValue ("Width", 40)
|
||||
oButtonModel.setPropertyValue ("PushButtonType", _
|
||||
com.sun.star.awt.PushButtonType.OK)
|
||||
oButtonModel.setPropertyValue ("DefaultButton", True)
|
||||
oDialogModel.insertByName ("btnOK", oButtonModel)
|
||||
|
||||
' Adds the dialog model to the control and runs it.
|
||||
oDialog = CreateUnoService ("com.sun.star.awt.UnoControlDialog")
|
||||
oDialog.setModel (oDialogModel)
|
||||
oDialog.setVisible (True)
|
||||
nResult = oDialog.execute
|
||||
oDialog.dispose
|
||||
|
||||
' Cancelled
|
||||
If nResult = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
nColumn = oListModel1.getPropertyValue ("SelectedItems") (0)
|
||||
oRange1 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
nColumn = oListModel2.getPropertyValue ("SelectedItems") (0)
|
||||
oRange2 = oRange.getCellRangeByPosition ( _
|
||||
nColumn, 0, nColumn, oRange.getRows.getCount - 1)
|
||||
|
||||
' Checks the existing report
|
||||
oSheets = ThisComponent.getSheets
|
||||
sSheetName = oRange1.getSpreadsheet.getName
|
||||
sExisted = ""
|
||||
If oSheets.hasByName (sSheetName & "_chi2") Then
|
||||
sExisted = sExisted & ", """ & sSheetName & "_chi2"""
|
||||
End If
|
||||
If sExisted <> "" Then
|
||||
sExisted = Right (sExisted, Len (sExisted) - 2)
|
||||
If InStr (sExisted, ",") > 0 Then
|
||||
sExisted = "Spreadsheets " & sExisted & " exist. Overwrite?"
|
||||
Else
|
||||
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
|
||||
End If
|
||||
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
|
||||
If nResult = IDNO Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' Drops the existing report
|
||||
If oSheets.hasByName (sSheetName & "_chi2") Then
|
||||
oSheets.removeByname (sSheetName & "_chi2")
|
||||
End If
|
||||
End If
|
||||
|
||||
' Reports the chi-square goodness of fit
|
||||
subReportChi2GoodnessOfFit (ThisComponent, oRange1, oRange2)
|
||||
|
||||
' Makes the report sheet active.
|
||||
oSheet = oSheets.getByName (sSheetName & "_chi2")
|
||||
ThisComponent.getCurrentController.setActiveSheet (oSheet)
|
||||
End Sub
|
||||
|
||||
' subTestChi2GoodnessOfFit: Tests the chi-square goodness of fit report
|
||||
Sub subTestChi2GoodnessOfFit
|
||||
Dim oDoc As Object, oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
Dim oSheet As Object, oColumnColumn As Object, oRowColumn As Object
|
||||
|
||||
oDoc = fnFindStatsTestDocument
|
||||
If oDoc = Null Then
|
||||
If IsNull (oDoc) Then
|
||||
MsgBox "Cannot find statstest.ods in the opened documents."
|
||||
Exit Sub
|
||||
End If
|
||||
@ -23,12 +178,13 @@ Sub subTestChi2GoodnessOfFit
|
||||
oSheets.removeByName (sSheetName & "_chi2")
|
||||
End If
|
||||
oSheet = oSheets.getByName (sSheetName)
|
||||
oRange = oSheet.getCellRangeByName ("A7:B192")
|
||||
subReportChi2GoodnessOfFit (oDoc, oRange)
|
||||
oColumnColumn = oSheet.getCellRangeByName ("A7:A192")
|
||||
oRowColumn = oSheet.getCellRangeByName ("B7:B192")
|
||||
subReportChi2GoodnessOfFit (oDoc, oColumnColumn, oRowColumn)
|
||||
End Sub
|
||||
|
||||
' subReportChi2GoodnessOfFit: Reports the chi-square goodness of fit
|
||||
Sub subReportChi2GoodnessOfFit (oDoc As Object, oDataRange As Object)
|
||||
Sub subReportChi2GoodnessOfFit (oDoc As Object, oColumnColumn As Object, oRowColumn As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim nI As Integer, nJ As Integer, nJ1 As Integer, nJ2 As Integer
|
||||
Dim mNames () As String, nSheetIndex As Integer
|
||||
@ -54,7 +210,7 @@ Sub subReportChi2GoodnessOfFit (oDoc As Object, oDataRange As Object)
|
||||
Dim sSE2 AS String, nTotalColumns As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
sSheetName = oColumnColumn.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
@ -64,21 +220,21 @@ Sub subReportChi2GoodnessOfFit (oDoc As Object, oDataRange As Object)
|
||||
oSheets.insertNewByName (sSheetName & "_chi2", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_chi2")
|
||||
|
||||
sCellsJData = fnGetRangeName (oDataRange.getCellRangeByPosition (0, 1, 0, oDataRange.getRows.getCount - 1))
|
||||
sCellsIData = fnGetRangeName (oDataRange.getCellRangeByPosition (1, 1, 1, oDataRange.getRows.getCount - 1))
|
||||
sCellsJData = fnGetRangeName (oColumnColumn.getCellRangeByPosition (0, 1, 0, oColumnColumn.getRows.getCount - 1))
|
||||
sCellsIData = fnGetRangeName (oRowColumn.getCellRangeByPosition (0, 1, 0, oRowColumn.getRows.getCount - 1))
|
||||
|
||||
' Counts the number of groups and events
|
||||
sLabelsColumn = " "
|
||||
sLabelsRow = " "
|
||||
nGroups = 0
|
||||
nEvents = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
sLabel = oDataRange.getCellByPosition (0, nRow).getString
|
||||
For nRow = 1 To oColumnColumn.getRows.getCount - 1
|
||||
sLabel = oColumnColumn.getCellByPosition (0, nRow).getString
|
||||
If InStr (sLabelsColumn, " " & sLabel & " ") = 0 Then
|
||||
sLabelsColumn = sLabelsColumn & sLabel & " "
|
||||
nGroups = nGroups + 1
|
||||
End If
|
||||
sLabel = oDataRange.getCellByPosition (1, nRow).getString
|
||||
sLabel = oRowColumn.getCellByPosition (0, nRow).getString
|
||||
If InStr (sLabelsRow, " " & sLabel & " ") = 0 Then
|
||||
sLabelsRow = sLabelsRow & sLabel & " "
|
||||
nEvents = nEvents + 1
|
||||
@ -96,15 +252,15 @@ Sub subReportChi2GoodnessOfFit (oDoc As Object, oDataRange As Object)
|
||||
sLabelsRow = " "
|
||||
nJ = 0
|
||||
nI = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
oCell = oDataRange.getCellByPosition (0, nRow)
|
||||
For nRow = 1 To oColumnColumn.getRows.getCount - 1
|
||||
oCell = oColumnColumn.getCellByPosition (0, nRow)
|
||||
sLabel = oCell.getString
|
||||
If InStr (sLabelsColumn, " " & sLabel & " ") = 0 Then
|
||||
sLabelsColumn = sLabelsColumn & sLabel & " "
|
||||
mCellLabelColomn (nJ) = fnGetRangeName (oCell)
|
||||
nJ = nJ + 1
|
||||
End If
|
||||
oCell = oDataRange.getCellByPosition (1, nRow)
|
||||
oCell = oRowColumn.getCellByPosition (0, nRow)
|
||||
sLabel = oCell.getString
|
||||
If InStr (sLabelsRow, " " & sLabel & " ") = 0 Then
|
||||
sLabelsRow = sLabelsRow & sLabel & " "
|
||||
|
||||
Loading…
Reference in New Issue
Block a user