10. Aplicatie ce sa uneasca printr-o linie oricare 2 puncte aflate pe suprafata client. Nr de puncte introduse de la tastatura, dar pozitia lor generata aleator. Culorile pentru trasare linie si fundal alese dintr-un combobox. MTB Se construiesc 2 comboBox-uri numite "Culoare back" si "Culoare linie" Se construieste un field numit "Nr" in care se introduce numarul de puncte Se construieste si un buton care da startul Background-ul este numit "back" Page Script (nu merge, asa ca mai bine dati acest text in Command Window) -------------------------- to handle enterPage set dropDownItems of comboBox "Culoare back" to "Alb" put CRLF & "Gri" after dropDownItems of comboBox "Culoare back" put CRLF & "Albastru" after dropDownItems of comboBox "Culoare back" set selectedItem of comboBox "Culoare back" to 1 set dropDownItems of comboBox "Culoare linie" to "Negru" put CRLF & "Rosu" after dropDownItems of comboBox "Culoare linie" set selectedItem of comboBox "Culoare linie" to 1 end comboBox "Culoare back" Script --------------------------- to handle selectChange conditions when my text = "Alb" set rgbFill of Background "back" to 255,255,255 when my text = "Gri" set rgbFill of Background "back" to 155,155,155 when my text = "Albastru" set rgbFill of Background "back" to 0,255,255 end conditions end button Script -------------------------- to handle buttonClick local puncte[] culoare = text of comboBox "Culoare linie" nrpuncte = text of Field "Nr" step i from 1 to 2*nrpuncte by 2 puncte[i]=random(7900) puncte[i+1] = random(5900) end step -- Solutia curenta leaga punctele secvential -- Pentru a lega toate punctele intre ele mai puneti un step si folositi -- vectorul puncte[] in care se afla coordonatele lor step i from 1 to 2*nrpuncte-2 by 2 draw line from puncte[i],puncte[i+1] to puncte[i+2],puncte[i+3] conditions when culoare="Negru" rgbStroke of selection = 125,125,125 when culoare="Rosu" rgbStroke of selection = 255,0,0 end conditions end step end