Pages - Menu

Pages - Menu

Kamis, 21 Desember 2006

OOo CALC Basic

Perhitungan ataupun perencanaan dalam bidang struktur gedung maupun sipil mutlak membutuhkan suatu alat bantu. Pemograman dibutuhkan untuk efisiensi maupun menyelesaikan permasalahan. Pada saat awal tahun study saya berkenalan dengan pemrograman FORTRAN, saya belajar menyelesaikan permasalahan analisa simple beam, bahasanya menyenangkan tapi saya agak kesulitan saat menggunakan data input, karena harus menggunakan aturan tertentu. Lagipula saat itu, saya kesulitan karena belum mempunyai komputer sendiri. Sampai akhirnya saya di tahun 2000 saya berkenalan dengan MS Excel VBE, itupun belum selesai dipelajari semua karena buku referensi yg kurang. Permasalahannya pada cara data input dan output berbeda dengan Vsiual Basic (stand alone).

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.

.

.

Tidak ada komentar:

Posting Komentar