OpenOffice.info

Code: Alles auswählen

Sub Sort
   Dim Entry(1 To 6) As String
   Dim Count As Integer
   Dim Count2 As Integer
   Dim Temp As String
   Entry(1) = "Patty"
   Entry(2) = "Kurt"
   Entry(3) = "Thomas"
   Entry(4) = "Michael"
   Entry(5) = "David"
   Entry(6) = "Cathy"
   
      For Count = 1 To 6
         For Count2 = Count + 1 To 6
            If Entry(Count) > Entry(Count2) Then
            Temp = Entry(Count)
            Entry(Count) = Entry(Count2)
            Entry(Count2) = Temp
            End If
         Next Count2
      Next Count
               
     For Count = 1 To uBound(Entry())
         s = s & entry(count) & chr(13)
     Next Count   
     msgbox s
 End Sub 

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Sort
	Dim Entry(1 To 6) As String
	Dim Count As Integer
	Dim Count2 As Integer
	Dim Temp As String
	Entry(1) = Patty
	Entry(2) = Kurt
	Entry(3) = Thomas
	Entry(4) = Michael
	Entry(5) = David
	Entry(6) = Cathy
	
		For Count = 1 To 6
			For Count2 = Count + 1 To 6 
				If Entry(Count) > Entry(Count2) Then 
				Temp = Entry(Count) 
				Entry(Count) = Entry(Count2) 
				Entry(Count2) = Temp 
				End If 
				Next Count2 
				Next Count
					
			For Count = 1 To 6 
			Print Entry(Count)
			Next Count   
	End Sub

Code: Alles auswählen

REM Das Makro
sub Beispiel_makro
  oDoc = thisComponent  'Zugiff auf das Dokument
  oSheet = oDoc.sheets(0)  'Erstes Tabellenblatt
  oZelleA = oSheet.getCellRangeByName("A1")   'Zelle A1
  oZelleB = oSheet.getCellRangeByName("B1")   'Zelle B1
  iWertA = oZelleA.value   'Wert (Zahl) der Zelle A1 (Achtung: Ganzzahl!)
  iWertB = oZelleB.value   'Wert (Zahl) der Zelle B1 (Achtung: Ganzzahl!)
  REM Jetzt die Schleife
  for i = 0 to 20   '20 Durchgänge
      oZelleA.value = oZelleA.value + 1   'eins mehr, wird angezeigt
      if (oZelleA.value MOD 2) = 0 then   'gerade Zahl
          oZelleB.value = oZelleB.value + 1
      end if
      wait(1000)   ' eine Sekunde warten - sonst siehst du nix
  next
end sub

Code: Alles auswählen

 sub Hauptprogramm
  dim p1,p2,p3,p4,p5,p6,p7 Deine sieben unveränderten Parameter
  dim p8 'dein veränderlicher Parameter
  REM jetzt Werte zuweisen
  p1 = 4 : p2 = 5 : P3 = 7 ...
  p8 = 1
  REM deine Schleife
  for i = 0 to 1000
       Erg = rechnen(p1,p2,p3,p4,p5,p6,p7,p8)
       if erg <0 then
          p8 = p8 +1     'Parameter um eins erhöhen, wenn erg. negativ
       end if
       REM ändern der sonstigen Parameter
       p1 = p1 + i
       p2 = p2 - i
       ....
  next
  msgbox erg
end sub

REM deine Rechenfunktion
function rechnen(z1, z2, z3, z4, z5, z6, z7, z8)
    REM hier jetzt deine Rechenoperation
     rechnen = (z1+z2)/z3 * z5 + z6 ...    
end function