Generator liczb losowych z kolorowaniem tła komórek

Stronę tą wyświetlono już: 1434 razy

Czas najwyższy stworzyć pierwsze makro w OpenOffice Calc, które wygeneruje losowe liczby zmiennoprzecinkowe z zakresu od 0 do 1 i pokoloruje komórki, w których zostaną one zapisane. Makro i funkcje stworzone zostaną lokalnie (co to znaczy zostało omówione na stronie OpenOffice - własne funkcje).

W utworzonym lokalnym module należy zamieścić następujący kod:
Listing 1
  1. Function SetColor(k as double, w as double)
  3. Dim document as object
  4. Dim dispatcher as object
  6. document = ThisComponent.CurrentController.Frame
  7. dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  9. Dim args2(0) as new com.sun.star.beans.PropertyValue
  11. args(0).Name = "BackgroundColor"
  12. args(0).Value = Int(255 * w / k) * 256 * 256 + Int(255 - 255 * w / k) * 256
  13. dispatcher.executeDispatch(document, ".uno:BackgroundColor","",0,args())
  15. End Function
  17. Sub Generator
  19. Dim document as object
  20. Dim dispatcher as object
  22. document = ThisComponent.CurrentController.Frame
  23. dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  25. Dim args(0) as new com.sun.star.beans.PropertyValue
  26. args(0).Name = "ToPoint"
  27. args(0).Value = "$B$2"
  29. dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args())
  31. Dim i as integer
  32. Dim j as integer
  34. For j = 1 To 10
  35. For i = 1 To 10
  36. Dim str as string
  37. Dim w as double
  39. w = rnd()
  40. str = w
  42. args(0).Name = "StringName"
  43. args(0).Value = str
  45. dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args())
  47. SetColor(1, w)
  49. dispatcher.ExecuteDispatch(document, ".uno:GoDown", "" , 0 ,Array())
  50. Next i
  51. For i = 1 To 10
  52. dispatcher.ExecuteDispatch(document, ".uno:GoUp", "", 0, Array())
  53. Next i
  54. dispatcher.ExecuteDispatch(document, ".uno:GoRight", "", 0, Array())
  55. Next j
  57. End Sub

a następnie zapisać dokument. Teraz w arkuszu kalkulacyjnym programu Calc należy wybrać z menu pozycję Widok->Paski narzędzi->Formanty. Na pasku narzędziowym Formanty jeżeli nie są aktywne ikonki formantów należy kliknąć ikonę Włącz/Wyłącz tryb projektu a następnie wybrać formant przycisku i narysować go w arkuszu kalkulacyjnym. Na przycisku kliknąć ppm i z menu podręcznego wybrać pozycję Formant. Pojawi się okno Właściwości: Przycisk w zakładce Ogólne zmienić należy  pole Etykieta na tekst np. Generuj liczby losowe. W zakładce Wydarzenia dla pozycji Zatwierdź działanie kliknąć przycisk z trzema kropkami, by wyświetliło się okno dialogowe Przypisz działanie zaznaczyć pozycję Zatwierdź działanie i kliknąć przycisk Makro... Teraz przypisać należy makro Generator znajdując po lewej stronie moduł, z którego ono pochodzi a po prawej z listy wybierając makro o tejże nazwie. Kliknąć należy OK i zamknąć pozostałe okna. Teraz na pasku formantów przełączyć tryb projektowania i już można sprawdzić, czy działa.

Rys. 1
Ilustracja końcowego efektu działania makra generującego liczby losowe i koloryzujące komórki według ich wartości.

P.S.

Na wszelki wypadek, co by nie było, że sknerą jestem w załączniku zamieszczam gotowy dokument z generatorem liczb losowych.

A może by tak jeszcze zrobić losowanie z sortowaniem? - a proszę bardzo, oto i ono:

Listing 2
  1. Sub generator2
  3. Redim liczby(99) as double
  5. Dim i as integer
  7. ' Wczytywanie maksymalnej wartości losowania'
  9. Dim maximum as double
  11. arkusz = thisComponent.currentController.getActiveSheet()
  13. maksimum = arkusz.getCellRangeByName("C16").Value
  15. If maksimum <= 0 Then ' Jeżeli maksimum jest mniejsze lub równe zero to'
  16. exit sub ' zakończ działanie makra'
  17. End If
  19. ' losowanie 100 liczb'
  20. For i = 0 To 99
  21. liczby(i) = rnd() * maksimum ' z zakresu od 0 do maksimum'
  22. Next i
  24. ' sortowanko liczb'
  25. Dim k as long
  27. Do
  28. k = 0
  29. For i = 0 To 98
  30. If (liczby(i) > liczby(i + 1)) Then
  31. Dim a as double
  32. a = liczby(i)
  33. liczby(i)= liczby(i + 1)
  34. liczby(i + 1) = a
  35. k = k + 1
  36. End If
  37. Next i
  38. Loop While(k > 0)
  39. ' koniec sortowanka liczb'
  41. ' Wpisywanie wylosowanych liczb w komórki arkusza'
  42. For i = 0 To 99
  43. arkusz.GetCellByPosition(1 + (i mod 10),1 + Int(i / 10)).Value = liczby(i)
  44. Next i
  45. ' Koniec wspisywania'
  47. ' Kolorowanie komórek według ich wartości'
  48. Dim j as integer
  50. Dim document as object
  51. Dim dispatcher as object
  53. document = ThisComponent.CurrentController.Frame
  54. dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  56. Dim args(0) as new com.sun.star.beans.PropertyValue
  57. args(0).Name = "ToPoint"
  58. args(0).Value = "$B$2"
  60. dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args())
  62. For j = 1 To 10
  63. For i = 1 To 10
  64. SetColor(maksimum, liczby(j - 1 + (i - 1) * 10))
  66. dispatcher.ExecuteDispatch(document, ".uno:GoDown", "" , 0 ,Array())
  67. Next i
  68. For i = 1 To 10
  69. dispatcher.ExecuteDispatch(document, ".uno:GoUp", "", 0, Array())
  70. Next i
  71. dispatcher.ExecuteDispatch(document, ".uno:GoRight", "", 0, Array())
  72. Next j
  73. 'Koniec kolorowania'
  75. End Sub

Załączniki:

Makro

Komentarze