Есть люди которые разбираются в java скриптах? Пишите ЛС! Нужна ваша помощь
Есть знатоки? 24.06.09 Ответов: 5
Господа программисты! У меня вопрос – каким образом вы делаете возможным обмен сообщениями между пользователями? А то я пишу класс на PHP для этого. Если кого заинтересует, могу скинуть, когда закончу.
Кодировка в Apache 2.2 24.06.09 Ответов: 14
Народ кто знает в каком файле в apache 2.2 настроить кодировку по умолчанию utf-8. Фаил conf и остальные смотрел,default charset не нашел.
Всем привет! Я только начинаю работать в сабже, до этого все больше VB.NET, php… Вот, собственно, такой вопрос – как в сабже выполнить консольную команду в фоновом режиме и считать первую вернувшуюся строку? Если более конкретно – надо получить адрес первого узла при трассировке любого ip. То есть выполнить команду, к примеру, tracert ya.ru и, как только получена первая строка с ip-адресом ближайшего узла, прекратить выполнение команды, а полученные данные сохранить в буфере для последующей работы. Да, буду крайне признателен, если скажете, где можно почитать маны по работе с консолью из сабжа.
Люди помогите дописать прогу какаета фигняс процедурой pr_knopka 23.06.09 Ответов: 9
Program nards;
Uses crt,graph,mouse_os;
Const
kolvo_punkt=3;
name_punkt:array[1..kolvo_punkt] of string =('Play','Infomation','Exit');
Type
xy=record
x:integer;
y:integer;
end;
Var
zam,m,z:integer;
pos:array [1..12,1..24] of xy;
mesto_fishek:array [1..12,1..24] of integer;
sucs:boolean;
n,c,d,xto:integer;
x,y,h,v:integer;
lt,rt,ct:boolean;
kolvo,t:longint;
but:integer;
punkt,driver,mode,i,k:integer;
key:char;
s,s1:string;
procedure load;
var i:integer; ch:char;
begin
cleardevice;
setbkcolor (0);
setcolor(2);
outtextxy(300,390,'Starting game');
setfillstyle(4,4);
for i:=50 to 590 do
begin
bar(50,400,i,402);
delay(1000);
end;
setfillstyle(1,0);
bar(1,1,640,480);
outtextxy(320,240,'To start game please " press Enter "');
repeat
ch:=readkey;
until ch=#13;
cleardevice;
End;
Procedure menu (numb_punkt:integer);
Const
h_punkt=30;
h_prom=20;
w_punkt=100;
x_beg=300-round(w_punkt/2);
h_menu=h_punkt-kolvo_punkt+h_prom+(kolvo_punkt-1);
y_beg=200-round(h_menu/2);
Var i,x2,y1,y2:integer;
Begin
for i:=1 to kolvo_punkt do
begin
if i=numb_punkt then setfillstyle(6,2) else setfillstyle(7,14);
y1:=y_beg+(h_punkt+h_prom)*(i-1);
x2:=x_beg+w_punkt;
y2:=y1+h_punkt;
bar3d(x_beg,y1,x2,y2,3,topon);
settextjustify(1,1);
outtextxy(300,y1+round(h_punkt/2),name_punkt[i]);
end;
End;
Procedure draw_desk;
var i:integer;
Begin
setfillstyle(1,6);
bar(0,0,440,280);
setfillstyle(1,15);
bar(20,20,420,260);
setfillstyle(1,6);
bar(210,20,220,260);
setcolor(15);
setfillstyle(1,15);
for i:=1 to 6 do pieslice (32*i,20,0,360,10);
for i:=1 to 6 do pieslice (32*i,280-20,0,360,10);
for i:=1 to 6 do pieslice (205+32*i,20,0,360,10);
for i:=1 to 6 do pieslice (205+32*i,280-20,0,360,10);
end;
Procedure kubik(a,b:integer);
Begin
randomize;
setcolor(2);
if (a<1) and (b<1) then
begin
a:=random(6)+1;
b:=random(6)+1;
end;
c:=a;
d:=b;
if a=1 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (455,22,0,360,4);
end;
if a=2 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (451,22,0,360,2);
pieslice (459,22,0,360,2);
end;
if a=3 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (449,17,0,360,2);
pieslice (455,22,0,360,2);
pieslice (461,27,0,360,2);
end;
if a=4 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (451,17,0,360,2);
pieslice (460,17,0,360,2);
pieslice (460,27,0,360,2);
pieslice (451,27,0,360,2);
end;
if a=5 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (451,17,0,360,2);
pieslice (460,17,0,360,2);
pieslice (460,27,0,360,2);
pieslice (451,27,0,360,2);
pieslice (455,22,0,360,2);
end;
if a=6 then
begin
setfillstyle (1,14);
bar3d (445,12,465,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (450,17,0,360,2);
pieslice (460,17,0,360,2);
pieslice (455,17,0,360,2);
pieslice (450,27,0,360,2);
pieslice (460,27,0,360,2);
pieslice (455,27,0,360,2);
end;
if b=1 then
begin
setfillstyle (1,14);
bar3d (475,12,495,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (485,22,0,360,4);
end;
if b=2 then
begin
setfillstyle (1,14);
bar3d (475,12,495,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (481,22,0,360,2);
pieslice (489,22,0,360,2);
end;
if b=3 then
begin
setfillstyle (1,14);
bar3d (475,12,495,32,10,true);
setcolor(2);
setfillstyle(1,2);
pieslice (479,17,0,360,2);
pieslice (485,22,0,360,2);
pieslice (491,
Форум на //beneto.ru 22.06.09 Ответов: 21
Смотрим опрос или отписываемся…
Помогите! ASP сервис + Flash9 21.06.09 Ответов: 204
Помогите мне пожалуйста:
Мне надо создать ЛОКАЛЬНЫЙ ASP сервер.
Создать приложение на FLASH 9, в котором есть одна кнопочка, при нажатии которой отправляется запрос на ASP сервер, и по этому запросу получает какие-то данные (переменные).
Преподаватель обьяснял: Есть браузер, в нем флеш приложение, и надо получить данные с асп сервера…
Я буду делать на C# в Visual studio 2005.
Помогите мне пожалуйста.
Очень надо
Распознование текста со сканера 20.06.09 Ответов: 10
Есть такое задание: нужно с паспорта взять данные и заполнить ихв форму. Как это можно реализовать на Delphi / VС++? Как понимаю нужно использовать TWAIN, но здесь получим просто рисунок,а мне нужен текст…
Требуются подкастеры 20.06.09 Ответов: пока нет
Так как здесь можно встретить много умных людей, пишу сюда. Требуются подкастеры, или бывалые или только начинающие ,для создания подкаст шоу, для новостного сайта. Подкасты будут ИТ тематики, новости, релизы и т.д. Кому интересно пишите в ЛС.
Посоветуйте учебники по PHP 19.06.09 Ответов: 27
Неплохо программирую на C\С++\С#, но возникла необходимость в PHP, ни одной строчки кода на нем не писал. Хотелось бы учебник в котором описывается создание какого нибудь конкретного сайта с нуля, а не просто справочник по Php
Киньте пожалуйста ссылку на сайты где можно скачать книгу по VisualStudio 2008, а то я уже весь нет перерыл и нифига не нашел!
jetAudio. Вытаскивание информации о проигрываемом треке. Delphi. 19.06.09 Ответов: 48
Доброго, товарищи) не подскажете ли, каким образом можно реализовать сабж? С винампом и прочими плеерами, эмулирующими его окно, проблем нет, а вот с jetAudio и Windows Media Player'ом – проблема.. нагуглил несколько наработок для этого, но были они на сях, с которыми я не дружу, поскольку вообще в целом прикладным кодерством не занимаюсь, просто необходимо быстро составить вот такую программулину) Заранее благодарен за толковые ответы.