Apache OpenOffice Community Forum

Code: Select all

Function RandomLetter() As String
	RandomLetter = Chr(Asc("A") + Int(26*Rnd))
End Function

Code: Select all

Function RandomLine(n As Integer) As String
	Dim i As Integer
	Dim s As String
	
	s = ""
	for i = 1 to n
		s = s & RandomLetter
		if i < n then
			s = s & " "
		endif
	next i
	RandomLine = s
End Function

Code: Select all

Sub PlotEyeChart(Slide as Integer)
    
    Dim Doc as Object
    Dim TextBox As Object
    Dim tCursor As Object
    Dim tHeight As Single
    Dim d As Object
    Dim p as new com.sun.star.awt.Point
    Dim s as new com.sun.star.awt.Size
    Dim h As Long
    Dim w As Long
	Dim i As Integer
	                  
    Doc = ThisComponent
    EraseSlide(Slide)
    d = Doc.Drawpages(Slide)
    
	TextBox = Doc.createInstance("com.sun.star.drawing.TextShape")
	TextBox.TextAutoGrowWidth = False
	TextBox.TextAutoGrowHeight = False
	
	d.add(TextBox)
        
    s.Width = d.Width
    s.Height = d.height
    TextBox.setSize(s)
    
	p = TextBox.Position
	p.X = 0
    P.Y = 0
    TextBox.setPosition(p)
    TextBox.ParaAdjust = com.sun.star.style.ParagraphAdjust.CENTER
    tHeight = 192
    tCursor = TextBox.createTextCursor()
    tCursor.gotoStart(False)
    for i = 1 to 8
    	tCursor.ParaAdjust = com.sun.star.style.ParagraphAdjust.CENTER
    	tCursor.CharHeight = tHeight
 	tCursor.String=RandomLine(i)
    	tCursor.goRight(1,False)
    	tCursor.String=Chr(13)
    	tCursor.goRight(1,False)
    	tHeight = .6667*tHeight
    next i
End Sub

Code: Select all

Function RandomLetter() As String
	Dim AllowedChars As String
	
	AllowedChars = "ABCDEFGHIJKLMNOP" 
	RandomLetter = Mid(AllowedChars,Int(16*Rnd)+1,1)
End Function

Code: Select all

Function RandomLine(n As Integer) As String
	Dim i As Integer
	Dim r As String
	Dim s As String
	if n > 0 and n <= 16 then
		s = ""
		s = s & RandomLetter & " "
		for i = 1 to n - 1
			r = RandomLetter
			do while InStr(s,r) > 0
				r = RandomLetter
			loop
			s = s & r
			if i < n then
				s = s & " "
			endif
		next i
		RandomLine = s
	else
		MsgBox("Illegal argument to RandomLine")
		RandomLine = "XXXXXXXXXXXXXXXX"
	endif
		
End Function

Code: Select all

Sub addListener
Doc = ThisComponent
Presentation = Doc.Presentation
Listener = createUnoListener("EV_","com.sun.star.presentation.XSlideShowListener")
Presentation.Start()
Controller = Presentation.Controller
Controller.addSlideShowListener(Listener)
end sub

Sub EV_paused(oEv)
End Sub

Sub EV_resumed(oEv)
End Sub

Sub EV_slideTransitionStarted(oEv)
'Print "HERE I AM!"
End Sub

Sub EV_slideTransitionEnded(oEv)
End Sub

Sub EV_slideAnimationEnded(oEv)
End Sub

Sub EV_slideEnded(oEv)
End Sub

Sub EV_hyperLinkClicked(oEv)
End Sub

Sub EV_disposing(oEv)
End Sub

Code: Select all

Function RandomLine(n As Integer) As String
	Dim i As Integer
	Dim r As String
	Dim s As String
	if n > 0 and n <= 16 then
		s = ""
		s = s & RandomLetter & " "
		i = 1
		do while i < n 
			r = RandomLetter
			do while InStr(s,r) > 0
				r = RandomLetter
			loop
			s = s & r & " "
			i = i + 1
		loop
		RandomLine = trim(s)
	else
		MsgBox("Illegal argument to RandomLine")
		RandomLine = "XXXXXXXXXXXXXXXX"
	endif
		
End Function

Code: Select all

    tCursor = TextBox.createTextCursor()
    tCursor.CharFontName = "Sloan"  ' add this line
    tCursor.gotoStart(False)

Code: Select all

Type EyeChart
	ChartLines As Integer  	'Rows of characters on the chart
	CharsPerLine			'Array of number of characters on each line
	LineHeights				'Array of heights in points for each line
End Type

Code: Select all

Global Charts(2) As EyeChart

Sub Main
	Dim i As Integer
	
	Charts(0).ChartLines = 3
	Charts(0).CharsPerLine = Array(4,4,4)
	Charts(0).LineHeights = Array(54,42,34)
	Charts(1).ChartLines = 3
	Charts(1).CharsPerLine = Array(4,4,4)
	Charts(1).LineHeights = Array(30,25,22)
	Charts(2).ChartLines = 1
	Charts(2).CharsPerLine = Array(4)
	Charts(2).LineHeights = Array(52)
	for i = 0 to 2
		PlotEyeChart(i,Charts(i))
	next i
	addlistener
End Sub

Code: Select all

Sub EV_slideTransitionStarted(oEv)
	Dim Slide As Integer
	
	Slide = oController.getCurrentSlideIndex
	PlotEyeChart(Slide, Charts(Slide))
End Sub