Kini saya telah bermigrasi ke OpenOffice.org dengan fasilitas perograman BASIC pada OOo CALC membuat optimis akan dapat membantu menyelesaikan masalah perhitungan saya. Contoh sederhana ditampilkan berikut.
REM ***** BASIC *****
Sub InputCell
Dim oDocument As Object
Dim oSheet As Object
Dim oCellA1 As Object
Dim oCellA2 As Object
Dim oCellA3 As Object
Dim oCellA4 As Object
Dim X As Integer
Dim Y As Integer
oDocument=ThisComponent
oSheet=oDocument.Sheets.getByName("Sheet1")
REM Mengisi Cell A1 dengan Nilai 100
oCellA1= oSheet.getCellByPosition(0,0)'A1
oCellA1.setValue(100)
REM Mengisi Cell A2 dengan Tulisan TEST
oCellA2 = oSheet.getCellByPosition(0,1)'A2
oCellA2.setString("Test")
REM Mengisi Cell A3 dengan Rumus Akar dari A1/2
oCellA3 = oSheet.getCellRangeByName("A3")
oCellA3.setFormula("=sqrt(A1/2)")
Y = 5
X = (3*Y)-9
REM Mengisi Cell A4 dengan hasil perhitungan X
oCellA4 = oSheet.getCellRangeByName("A4")
oCellA4.setValue(X)
End Sub
Sedangkan tampilan dari lembar kerja Spreadsheet (Sheet1) seperti ini.
.
.
0 komentar:
Posting Komentar