Компьютерное моделирование беспроводных AD-HOC сетей для целей расчета времени связи мобильных абонентов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
(Time);:=DateToStr(Date);.Caption:=Начало: +Data+ +TimeStart;.Enabled:=False;
4 then.Width:=266">// Label1.Visible:=True;:=False;:=StrToInt(LabeledEdit2.Text);.RowCount:=ks+1;i:=1 to StringGrid2.RowCount-1 doj:=0 to StringGrid2.ColCount-1 do.Cells[j,i]:=;ks>4 then.Width:=266
StringGrid2.Width:=247;
end;
//чтоб нельзя было использовать паузу
Button1.Enabled:=False;.Enabled:=False;
Timer1.Enabled then.Caption:=Продолжить;.Enabled:=false;.Enabled:=True;.Caption:=Пауза;.Enabled:=true;.Enabled:=False;.Checked:=False;Click(Sender);;;TForm1.Button4Click(Sender: TObject);i:integer;.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;
//GroupBox.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;Button4.Caption=Очистить then.Caption:=Стоп;.Caption:=Стоп;i:=1 to StringGrid1.RowCount-1 do.Cells[0,i]:=;.Cells[1,i]:=;.Cells[2,i]:=;.Cells[3,i]:=;.Cells[4,i]:=;.Cells[5,i]:=;.Cells[6,i]:=;;.Caption:=Стоп;;;.Enabled:=false;:=TimeToStr(Time);.Caption:=Label1.Caption+#13+Конец: + TimeEnd;1.Enabled:=True;
// MessageDlg(Преждевременная остановка испытания!+#13+Полученные данные не будут сохранены!,mtInformation,[mbOk],0);
try
if N7.Enabled then
if MessageDlg(Преждевременная остановка испытания!+#13+Сохранить полученные данные,mtConfirmation,[mbYes,mbNo],0)=mrYes then
AddDate;
Except
MessageDlg(Ошибка при добавление данных в БД,mtError,[mbCancel],0)
9))and(key50 then(Максимальное количество узлов 50,mtInformation,[mbOk],0);;;StrToInt(LabeledEdit1.Text)<2 then(Минимальное количество узлов 2,mtInformation,[mbOk],0);;;
Button5Click(Sender);
//очитска памяти динамических массивов
6 then.Width:=273.Width:=255;.RowCount:=k+1;.RowCount:=k;k>=3 then">// S2:=nil;i:=0 to k-1 do[i]:=nil;:=nil;LabeledEdit1.Text= then(Введите количество узлов,mtInformation,[mbOk],0);;;:=StrToInt(LabeledEdit1.Text);k>6 then.Width:=273.Width:=255;.RowCount:=k+1;.RowCount:=k;k>=3 then
// создание массива площадей
// SetLength(S2,k);
// создание массива связей
SetLength(Connect,k);
for i:=0 to k-1 do(Connect[i],k);[i,i]:=2;;
//очистка зоны проприсовки.Canvas.Brush.Style:=bsSolid;.Canvas.Pen.Color:=RGB(255,255,255);
// Image1.Canvas.Brush.Color:=RGB(255,255,255);.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);i:=1 to k do
//задание случайных велечин;:=random(Image1.Width);:=random(Image1.Height);:=random(Image1.Width);:=random(Image1.Height);
// S2[i-1]:=Round(Par[2]+random(Par[3]-Par[2]));:=Round(Par[2]+random(Par[3]-Par[2]));//Round(sqrt(S2[i-1]/(2*Pi)));:=RoundTo(Par[4]+random*(Par[5]-Par[4]),-1);
//запсиь величин в таблицу.Cells[0,i]:=IntToStr(i);.Cells[1,i]:=IntToStr(x);.Cells[2,i]:=IntToStr(y);.Cells[3,i]:=IntToStr(x1);.Cells[4,i]:=IntToStr(y1);.Cells[5,i]:=FloatToStr(v);.Cells[6,i]:=IntToStr(r);
//запись начальны параметров.Cells[0,i-1]:=IntToStr(i);.Cells[1,i-1]:=IntToStr(x);.Cells[2,i-1]:=IntToStr(y);.Cells[3,i-1]:=IntToStr(x1);.Cells[4,i-1]:=IntToStr(y1);.Cells[5,i-1]:=FloatToStr(v);.Cells[6,i-1]:=IntToStr(r);
//прорисовка узла i
// Image1.Canvas.Pen.Width:=1;.Canvas.Brush.Style:=bsSolid;.Canvas.Brush.Color:=RGB(255,0,0);.Canvas.Pen.Color:=RGB(255,0,0);.Canvas.Ellipse(x-2,y-2,x+2,y+2);.Canvas.Brush.Style:=bsClear;.Canvas.TextOut(x,y-10,IntToStr(i));.Canvas.Pen.Color:=RGB(0,255,0);:=Round(r/sqrt(Pix));.Canvas.Ellipse(x-rPix,y-rPix,x+rPix,y+rPix);;.Caption:=;.Enabled:=True;.Enabled:=False;.Caption:=Начать;.Enabled:=True;.Caption:=Очистить;.Enabled:=False;.Caption:=Начать;.Caption:=Начать;.Enabled:=True;.Enabled:=True;.Caption:=Очистить;.Caption:=Очистить;.Enabled:=True;.Enabled:=True;.Enabled:=False;.Enabled:=False;
// GroupBox.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;
9)) and not(Key=#8) then:=#0;;TForm1.FormCanResize(Sender: TObject; var NewWidth,: Integer; var Resize: Boolean);raz:integer;not(Button1.Enabled) and (Button4.Caption=Стоп) and Button4.Enabled then:=false;;;(Width=NewWidth) and (Height=NewHeight) then;(NewWidth9)) and not(Key=#8) then:=#0;;TForm1.FormCanResize(Sender: TObject; var NewWidth,: Integer; var Resize: Boolean);raz:integer;not(Button1.Enabled) and (Button4.Caption=Стоп) and Button4.Enabled then:=false;;;(Width=NewWidth) and (Height=NewHeight) then;(NewWidth<686) or (NewHeight<623) then:=false;;;:=NewWidth-Width;.Left:=ProgressBar1.Left+raz;.Width:=Image1.Width+raz;.Height:=Image1.Height+(NewHeight-Height);.Left:=StringGrid1.Left+raz;.Left:=Label1.Left+raz;.Left:=Label8.Left+raz;.Left:=CheckBox1.Left+raz;.Left:=LabeledEdit1.Left+raz;.Left:=Button2.Left+raz;.Left:=LabeledEdit2.Left+raz;.Left:=Button1.Left+raz;.Left:=Button4.Left+raz;.Left:=StringGrid2.Left+raz;.Left:=Button3.Left+raz;;TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);
9)) and (key<>#8) then:=#0;;TForm1.Button6Click(Sender: TObject);.Visible:=False;.Text:=IntToStr(Par[0]);.Text:=IntToStr(Par[1]);.Text:=IntToStr(Par[2]);.Text:=IntToStr(Par[3]);.Text:=IntToStr(Par[4]);.Text:=IntToStr(Par[5]);;TForm1.Button7Click(Sender: TObject);Patch:string;LabeledEdit5.Text= then(Введите имя Базы Данных!,mtConfirmation,[mbOK],0):=ExtractFilePath(Application.ExeName)+\БД\;not CopyFile(PWideChar(Patch+#.mdb),PWideChar(Patch+LabeledEdit5.Text+.mdb),True) then MessageDlg(База с таким именем уже существует! Перезаписать?,mtConfirmation,[mbNo,mbYes],0)=mrYes then(PWideChar(Patch+#.mdb),PWideChar(Patch+LabeledEdit5.Text+.mdb),False);(Patch+LabeledEdit5.Text+.mdb,128);.FormCreate(N19);.Visible:=False;;;TForm1.Button8Click(Sender: TObject);.Visible:=False;;TForm1.Button5Click(Sender: TObject);q,w:Real;(Edit1.Text=) or (Edit2.Text=) or (Edit3.Text=) or (Edit4.Text=)(LabeledEdit3.Text=) or (LabeledEdit4.Text=)then">// FS:=Form1.Width;;TForm1.N16Click(Sender: TObject);not(Button1.Enabled) and (Button4.Caption=Стоп) and Button4.Enabled then;N16.Checked then.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Width:=Form1.Width-295;.Checked:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Width:=Form1.Width-25;.Checked:=True;;.Height:=Form1.Height-6