This miniprogram calculates the sum of a row of integers.
You need 1 textarea, 1 textbox and 1 commandbutton to get the program going.
You can also add negative integers.
Very helpful is the Splitcommand and the Stringarray String[]
The Code
PUBLIC SUB Button1_Click() DIM text AS String DIM summe AS Float DIM Elt AS String[] DIM Sb AS String text = textarea1.Text Elt = Split(text,Chr(10)) FOR EACH Sb IN Elt summe = summe + Val(sb) NEXT textbox1.Text = summe END
-- ReinerHoffmann - 31 Jan 2004