kus2nd's mumbling

scrapbook (related to PCOMM)

2007-10-31T21:29:00.000+07:00

For Personal Communications, the host name must be the name of an existing .ws profile. Normally the .ws profile files are found in the private subdirectory of the Personal Communications install directory.
Personal Communications supports ActiveX/OLE 2.0-compliant containers such as Lotus Notes(R), Lotus WordPro, and Microsoft Word.
If you are interested in writing an application that includes Personal Communications as an object within your ActiveX/OLE 2.0 compliant program, refer to the Host Access Class Library (HACL) programming manual.

References:
http://www4.devon.gov.uk/connect/en/doc/beans/ActiveX.html
http://publib.boulder.ibm.com/infocenter/pcomhelp/v5r9/index.jsp?topic=/com.ibm.pcomm.doc/books/html/quick_beginnings05.htm

links of online books

2007-06-18T19:18:00.000+07:00

Thinking in Java (3rd Edition) by Bruce Eckel http://www.mindview.net/Books/TIJ/

TeX on Mac OS X

2006-06-02T22:24:00.000+07:00

am installing TeX on my iBook ^^
yeah.. luv my iBook G4 a lot.. it's lighter than my pervious laptop (NEC Versa M400), well the first reason why I bought iBook coz my previous laptop is broken (I had to change the motherboard) so... I decided to buy a new one. My sis recommended iBook G4, coz her friend has one and the price is affordable. And here I am listening to iTune radio ;)

oh rite.. I was going to write links for myself :d gonna print and read it up tmrw

TeX on Mac OS X : http://ii2.sourceforge.net/tex-index.html

Tex formatting information (for beginner) : http://www.tug.org/tex-archive/info/beginlatex/html/preface.html#preface

my scrapbook before interim poster presentation ;p

2006-03-02T18:04:00.000+07:00

Notes To reduce the effect of a noisy image on the operator output, a smoothing operator (a Gaussian blur, for example) is often applied prior to the Laplacian operator. Blurring is a process of averaging a point with its neighbors. Gaussian G_sigma(x) = (1/ sqrt(2 PI) sigma) e^(-x^2 / 2 sigma^2) Here sigma represents the standard deviation. Increasing sigma makes the shape of the Gaussian shorter and wider without changing the area under the curve (the area under G(x) is always 1). When convolved with another function, larger values of sigma provide a stronger blur. References: (accessed date:March 2, 2006) Image Processing http://www.reed.edu/~nobles/thesis/node3.html Gradient Based Method (edge detection http://homepages.inf.ed.ac.uk/rbf/CVonline/LOCAL_COPIES/MARSHALL/node28.html

how to install DJGPP

2005-12-27T17:53:00.000+07:00

Currently I'm studying J.R.Parkers's book entitled "Algorithms for Image Processing and Computer Vision". This book(+CD) contains explanation and source codes on Image Processing. It is written that the compiler (DJGPP, gcc compiler for windows) is also included in the CD. I've tried to install the DJGPP from the CD, but at first I failed because I was using winzip to extract the zip files creating unnecessary folders, i.e. I unzipped file DJDEV112.ZIP with winzip and the winzip extracted this zip file into a folder called DJDEV112. Then I searched for DJGPP in google and found this page: http://www.delorie.com/djgpp/ Next, I clicked the "zip picker" link, after that, clicked the "Tell me which files I need" and downloaded unzip32.exe. By doing this, I thought my problem was solved, because all the files was in the right folders. However, when I run gcc.exe, an error showed up:

C:\djgpp\bin>gcc
Stack Fault at eip=21fe
eax=00000301 ebx=000063b4 ecx=00000000 edx=0000ffff esi=0000046d edi=0000ad8a
ebp=0000ffca esp=000519d4 cs=19f ds=17f es=17f fs=0 gs=0 ss=1b7 cr2=00001fd8
Call frame traceback EIPs:
  0x000021fe
  0xffdc0001

I thought ok, may be this bin files are not compatible with windows xp, so I downloaded the zip files (djgpp v2) in the DJGPP Zip File Picker Results, run unzip32 on all the zip files and.. yes.. gcc run properly. Then I tried to compile canny.c from CH1 in Parker's CD, but there was an error that graphics.h was not found. So, I copied graphics.h from the CD (gnu/include/graphics.h) to djgpp/include in my harddrive.. and everything works fine.

how to get last day of month in VBScript

2004-09-15T11:35:00.000+07:00

To get today's date, we can use now or date function in VBScript. Actually now function returns current date and time of your computer (i.e. Wednesday, September 15, 2004 13:09:23), while date returns only the date in mm/dd/yyyy (i.e. 9/15/2004). That's how we get current date.
So how to get the last day of this month? First, let's see DateSerial(Year, Month, Day) function. DateSerial(2004,9,15) returns 9/15/2004. We could use this function to get the last day of this month. The following codes show how to do this.

theday = date
lastdayofthemonth = DateSerial(Year(theday), _
   Month(theday) + 1, 0)

My explaination for this is we want to define a date where the date is the 0th date of next month, or in other words the last date of the month before next month (this month). You can also use this code to find the last day of another month by changing theday variable.
The next topic I want to discuss from this paragraph is a little bit different from the above paragraphs. It's about how to get the last day of each month from the database. For example, I have a table that contains date and how many visitors I have until that date. I want to have data of total visitors I have until the last day of each month. Not only that, I also want to have data of total visitors until the last day of each year, and data of visitors each day. The following code is under assumption that the data already ordered by date descending (for the latest to the oldest)

dim county1, countm1, countd1
dim countylast, countmlast, countdlast 
dim tgl2
tgl2 = date
countylast = Year(tgl2)
countmlast = Month(tgl2)
countdlast = Day(tgl2)

Dim arramt, arrctr
arramt = 1 
arrctr = 0
Redim arrdt0(arramt)
Redim arrdt1(arramt)

do while not rs.EOF
   if radioch="permonth" or radioch="peryear" then
      county1 = Year(rs.Fields("xdate"))
      countm1 = Month(rs.Fields("xdate"))
      countd1 = Day(rs.Fields("xdate"))
   end if
   if ((radioch="peryear" and county1<=countylast) or _
      (radioch="permonth" and county1<=countylast and _
      countm1<=countmlast) or radioch="perday") then
      if radioch="peryear" then
         if county1<countylast then 
            countylast = county1 - 1
         else
            countylast = countylast - 1 
         end if		
      elseif radioch="permonth" then
         if countm1<countmlast then
            countmlast = countm1 - 1
         else
            countmlast = countmlast -1
         end if
         if countmlast=0 then 
            if county1<countylast then 
               countylast = county1 - 1
            else
               countylast = countylast - 1 
            end if
            countmlast=12
         end if
      end if
     
      if arrctr>=arramt then
         arramt = arramt+5
         redim preserve arrdt0(arramt)
         redim preserve arrdt1(arramt)
      end if
      arrdt0(arrctr)=rs.fields("xdate").Value
      arrdt1(arrctr)=cLng(rs.fields("xvisitor").Value)
      arrctr = arrctr+1
   end if

   rs.MoveNext
loop

I keep the data I want into an array. If variable radioch is set to "perday" then data total visitor each day will be kept. If variable radioch is set to "permonth" then data total visitor on last day for each month will be kept. If variable radioch is set to "peryear" then data total visitor on last day for each year will be kept.
Critics, suggestions, and comments always welcomed.

Keeping temporary data using array in VBScript

2004-09-14T10:38:00.000+07:00

To declare an array, use the following expression:

dim arrdt()

dim arrdt2(20)

for 1-dimension array that can contain 20 variables
or

dim arrdt3(3,10)

for 2-dimension array that can contain 3*10 variables.
You can set an array up to 60 dimensions. If I don't know how big the data will be, so I don't know how big should I set the array size, what should I do? First, just set the array size to 1 (you could set this into 5, or 10 or whatever you want though). Then, set array counter into 0 (because the lower bound of an array is 0).

Dim arramt, arrctr
arramt = 1 
arrctr = 0

After that, resize the array size.

Redim arrdt(arramt)

Everytime you insert a variable into the array, make sure whether the array is big enough to keep the variable. If it is not big enough, make it bigger by resizing the array, remember to use the "preserve" keyword to keep the data inside the array. Also make sure that the number that will be used to resize the array is bigger than the original array size.

if arrctr>=arramt then
   arramt = arramt + 5
   ReDim Preserve arrdt(arramt)	
end if

And then, set the array content and increase arrctr (add arrctr by one).

arrdt(arrctr) = something_you_want_to_keep
arrctr = arrctr + 1

After you insert all the variables into the array, you'll know that you have (arrctr-1) variables inside the array.

Using JavaScript Cookies and ASP Session to Maintain Last Page Accessed By Each User

2004-09-10T13:16:00.000+07:00

We know that we could just use Request.ServerVariables("URL") to find out the url accessed by user in ASP page. If a user opens more than one ASP page, what should we do? Keep it in a session variable, for example:

Session("lastpage") = Request.ServerVariables("URL") _
 & "?" & Request.ServerVariables("QUERY_STRING")

The variable behind the question mark (?) is server variables called query string which is used by calling Request.queryString("the_var_we_made"). So now we already have variable that keeps last pages accessed by user on the server side. Then, I want to use this variable so I can check if the page being viewed is the last page user accessed from the server. May be you would say, hey, the page being viewed IS the last page user accessed. Nope, a user can click the "back" button in a browser, or open a new window and then return to the first page without notices that it's not the last page he/she accessed from the server. And I have a problem with my web services which is the excel data that will be created in my web services is only the last data requested in the last page accessed from the server, coz I use session to keep the last data. My solution to resolve this problem is by keeping a variable on client side using javascript cookies, then give warning to user is the page clicked and lastpage are not the same and reload the page that is clicked by user. Put this code in each page:

<% Session("lastpage") = Request.ServerVariables("URL") _
   & "?" & Request.ServerVariables("QUERY_STRING") %>
<SCRIPT type=text/javascript>
<!--
document.cookie="lastpage="+"<% = Session("lastpage) %>";
//-->
</script>

Then, in the create_excel page (To create an excel file, user have to click on a link and then create_excel.asp page will be opened) I put this code:

<SCRIPT type=text/javascript>
<!--
function to_reload()
{
   var search2="lastpage=";
   offset=document.cookie.indexOf(search2);
   if (offset != -1) 
   { 
      offset += search2.length
      end = document.cookie.indexOf(";", offset);
      if (end == -1) end = document.cookie.length;
      if (document.cookie.substring(offset,end)
         !="<% =Session("lastpage") %>") 
      {
         window.opener.location.reload();
         alert("Data not ready! Please wait " 
            + "until finish reloading the page " 
            + "then click 'create excel' again")
         window.close();
      }
   }
}
to_reload();
//-->
</script>

The disadvantage of this solution is, user using browser that doesn't support cookies or the cookies is not enabled can not use this feature. One more thing, if you ask me, why don't you just use Request.Cookies in ASP instead of javascript cookies. Well, that time (when I create the above script) I didnn't know that there is cookies usage in ASP. Silly me :P

formatting number in VBScript

2004-09-09T14:00:00.000+07:00

My current work is to display data statistics or data reporting, so my work always shows tables of numbers and charts. The numbers involved here could be millions, billions or even trillions. For a user friendly looks (display), I have to convert from 123456789.01 into 123,456,789.01 (using commas). I'm using ASP with VBScript for my current work and here is my source code for converting numbers into numbers with commas.

function commanum (valori)
   dim retval0, val0, val0temp
   if inStr(valori,".")>0 then
      val0=Left(valori, inStr(valori,".")-1)
      val0temp = _
         Right(valori, len(valori)-inStr(valori,".")+1)
   else	
      val0 = valori
      val0temp=""
   end if
   if val0<>"-" and val0<>"" and isNumeric(val0) then
      if val0 >= 1000 then
         dim n, valtemp, i, deltemp, valx
         valtemp = val0
         n = 0
         while valtemp>=1000
            valtemp = int(valtemp/1000)
            n = n + 1
         wend
         deltemp = 1000
         for i=1 to n
            retval0 = commanum1(val0, deltemp, ",") _
               & retval0
            val0 = int( val0 / 1000)
            if (val0>0) then
               valx = val0
            end if
         next
         retval0 = valx & retval0
      else 
         retval0 = val0
      end if
   else
      retval0 = val0
   end if
   commanum = retval0&val0temp
end function

function commanum1 (val1, delim, comma)
   if val1 >= delim then
      commanum1 = comma & right(val1,len(delim)-1)
   else 
      commanum1 = val1
   end if
end function

To use the function, first you have to convert the variable into number (using cDbl or cLng) if the variable is not a number. For example:

Response.write commanum(cDbl("50549455490260"))

And the result will be: 50,549,455,490,260 Okay, formating numbers using commas is done. How about rounding off a number with 2 decimal behind a dot? You can say that it's so easy. Just use round function that already defined in VBScript. But I have my own problem. Using VBScript's round function, if the last decimal (behind the dot) is "0", then that "0" is removed. For example, round(1234.50123,2) will results 1234.5 Where is my last zero here? Why should I concern about this zero? Well, as I've told you, my works involved table of numbers, if the zero is not shown, numbers in a column which are justified to the right will have a bumpy-looks. For example:

Looks bad, huh? This is my solution for the zero problem:

function round_into(val1, val2, val3)
   dim tempround
   tempround = round(val1,val2) & ""
   if val3>0 then
      if inStr(tempround,".")=0 then
         tempround=tempround & "."
      end if
      do while (len(tempround)-inStr(tempround,"."))<val3
         tempround = tempround & "0"
      loop
   end if
   round_into = tempround
end function      

function round_into_kus(val1, val2)
   round_into_kus = round_into(val1, val2, val2)
end function

Gee, don't know if this is the best solution, but it works. Okey then, jyaaa ne.

how to create MS-DOS batch for deleting file/folder

2004-09-01T15:40:00.000+07:00

Creating batch for deleting file/folder sounds so easy. So what's the problem here? Well, the problem is, I want to have a batch file to create folder once a day, with folder naming rule: yyyy-mm-dd (i.e.: 2004-09-01 for August 1, 2004) and to delete a 2-days-ago-folder (i.e.: today is 2004-09-01, I want to delete folder 2004-08-30). What made me confuse at first is how to get the date with format date I want. The code below is the answer:

for /f "tokens=2-4 delims=/ " %%f in ('date /t') do (
  set mm=%%f
  set dd=%%g
  set yyyy=%%h
)

The second step is how to get 2 days ago date. I searched the internet (google.com) and found experts-exchange.com In that page, there is solution for getting 4 days ago date. Thanks to them (TrueBlue and SteveGTR) who contributed for the question and the solution in that page, I managed to finish my batch file. Here is the batch file:

@echo off
::Get todays date
call :mmddnt

:: remember to change the path you want
:: attempting to delete old directory 
::   (..\dirs\%yyyy%-%mm%-%dd%)
del "..\dirs\%yyyy%-%mm%-%dd%\*.xls"
rmdir "..\dirs\%yyyy%-%mm%-%dd%"
echo attempting to make directory
mkdir "..\dirs\%yyyy0%-%mm0%-%dd0%"

goto :eof

:mmddnt

::begin SteveGTR source code

for /f "tokens=2-4 delims=/ " %%f in ('date /t') do (
  set mm=%%f
  set dd=%%g
  set yyyy=%%h
)

set dd0=%dd%
set mm0=%mm%
set yyyy0=%yyyy%

REM Substract 2 days 
set /A dd=1%dd% - 102
set /A mm=1%mm% - 100

if /I %dd% GTR 0 goto DONE

set /A mm=%mm% - 1

if /I %mm% GTR 0 goto ADJUSTDAY

set /A mm=12
set /A yyyy=%yyyy% - 1

:ADJUSTDAY

if %mm%==1 goto SET31
if %mm%==2 goto LEAPCHK
if %mm%==3 goto SET31
if %mm%==4 goto SET30
if %mm%==5 goto SET31
if %mm%==6 goto SET30
if %mm%==7 goto SET31
if %mm%==8 goto SET31
if %mm%==9 goto SET30
if %mm%==10 goto SET31
if %mm%==11 goto SET30
if %mm%==12 goto SET31

:SET31

set /A dd=31 + %dd%

goto DONE

:SET30

set /A dd=30 + %dd%

goto DONE

:LEAPCHK

set /A tt=%yyyy% %% 4

if not %tt%==0 goto SET28

set /A tt=%yyyy% %% 100

if not %tt%==0 goto SET29

set /A tt=%yyyy% %% 400

if %tt%==0 goto SET29

:SET28

set /A dd=28 + %dd%

goto DONE

:SET29

set /A dd=29 + %dd%

:DONE

if /i %dd% LSS 10 set dd=0%dd%
if /i %mm% LSS 10 set mm=0%mm%

::end SteveGTR source code

I've been thinking lately, I always depends on google when I'm stuck with my source code. Sometimes I think that this is not good, I mean, it looks like I copy paste some part of other's source code for my works, and you can say that it's not my own works 100%. Or in rude sentence, you can say it's like stealing some part of other's source code. That's why usually, I search it from tutorial pages, because that's what the purpose of the pages anyway. Anyone can learn from tutorial pages, but not to copy 100% from the source code, plus I should write the author name if there is GPL license for the code, right guys ^_~

how to copy table from other database in oracle

2004-08-31T08:08:00.000+07:00

In the past, I had difficulty in copying tables from other database both using oracle. I didn't know that it is just so simple, using this code:

copy from username1/passwd1@tnsname1 -
to username2/passwd2@tnsname2 -
insert username2.table2 (table2_column1, -
table2_column2, ..., table2_columnn) -
using select table1_columna, table1_columnb, -
..., table1_columnx -
from table1 where .... ;

note: tnsname1 is the source database, table1 is the source table, tnsname2 is the destination database, table2 is the destination table. How to make a summary table from many tables? From the above code, just change the query by adding other table name, the columns and how the tables joining or grouping is made. For example:

copy from username1/passwd1@tnsname1 -
to username2/passwd2@tnsname2 -
insert username2.summ_employee_sallaries (name, id, -
position, sallary) -
using select E.employee_name, E.employee_id, -
S.position_desc, S.amount -
from employees E, sallaries S -
where E.employee_position_id=S.position_id;

The above code shows that employee sallary depends on employee position (though usually in the real world same position doesn't mean you will get the same amount of sallary, right?). Remember, all destination columns should be included in the code, or it won't work.

iframe

2004-08-16T14:50:00.000+07:00

If you are new to iframe (inline frames), read iframe tutorial by Ross Shannon (http://www.yourhtmlsource.com/frames/inlineframes.html). It helped me writing html code for iframe. Here is the page I've created using iframe. In that page, the second chart will change according to the option chosen from the drop down menu. That page is a part of the main page for the website of the company where I've been working for.

another good link for designing layout

2004-08-09T18:18:00.000+07:00

http://www.dezwozhere.com/links.html Found it 2 weeks ago when I looked for tutorial about making 2-col layout without using tables. Many tutorials from basic tutorial, CSS guides, until CSS Layout Resources. The reason why I don't want to use tables anymore is because it is really difficult to change my layout, I have to check on every <tr> and <td> tags, to which table they belong to. Plus, it is really troublesome to close all the <tr> and <td> tags. One miss <tr> or <td> tags would cause messy layout. So, I think css is a better way for designing layout.

This saturday plan

2004-07-22T11:38:00.000+07:00

This week on saturday I will meet my friend's client. My friend, Franky, is my junior high school friend, and recently I've just met with him again after all this years (we are not in the same school anymore since graduated from junior high school). We met at Husada Hospital, he told me that he has his own company, he is also a web programmer. When he know that I am also using ASP for my project, he told me that he is also using ASP and XML. Then he requested me to help handling one of his projects. He is a lone ranger for his own company, whoops, I mean he is the only worker for his own company. Well, my dream is to make my own corporation, so, I think I can learn something if I join him. Sooo.. I told him that I would try to help his projects. Two days ago he sent me message asking whether I have spare time on this Saturday, and I answered yes. He invited me to come with him to one of his client's company for maintanance. He said his client usually will give a lot of critics and comments for upgrading the application. I feel a little bit nervous about this Saturday meeting, but I'm looking forward for it 8-)

kyou nihongo de kakimashou

2004-07-15T13:26:00.000+07:00

Kinou ha isogashikute, nanimo kakimasen deshita. Kaisha de, saki hodo "server" no "statistic" ("how many visitor, what pages visited, how many hits", nado) wo "implement" shimashita. "Implement" to ittemo, saisho kara tsukuru deha naku, Rod Denisyuk no "code" wo tsukaimashita. ...kompyuta to no kankei koto ha nihongo de setsumei muzukashii na... I got it from www.15seconds.com in an issue called Implementing a Statistics Server with ASP By Rod Denisyuk Denisyuk-san ni kansha shimasu. Benkyou ni narimashita.

My new blog

2004-07-13T09:19:00.000+07:00

Finally, I have my own blog. Most of my friend have their own blog and when I read their blogs, I always found interesting stories. So I told myself, someday I should have my own blog. And here it is. Then, what to write in my blog? hmmm... let's write about my activities, mostly in my office. Currently I'm working on layout for my project. Look's like my supervisor did not satisfied with the layout I've made. Well, may be it's all because the layout is tooo simpel. I don't really like designing layout anyways.. I always lack of creativity when I design anything. That's why I want to say : I hate designing layouts :( So.. here I am, browsing sites about designing layout. I found an interesting site. It's called quirksmode.org. "It contains more than 150 pages with CSS and JavaScript tips and tricks, and is one of the best sources on the WWW for studying and defeating browser incompatibilities." Okay, gonna work on my layout now..