Графы (Гамильтонов цикл)

@samalil · Регистрация: 03.06.2013

Доброй ночи! Не сплю вторую ночь. Не могу адекватно впихнуть код программы в C++ Builder и меня это уже бесит и я скоро умру, если дело не пойдет дальше. Помогите...

Вот какая должна получиться прога в результате..

C++

#include <vcl.h>    //необходимые директивы
#pragma hdrstop
#include "Main.h"
#include <stdio.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Main *F_Main;    //указатель на форму
int numev=0;    //счетчик, необходимый для смены состояний построения графа
int xy[2][50];  //массив для хранения координат вершин на экране
int kv = 0; //количество вершин
int line;   //переменная, необходимая для формирования матрицы смежности
bool select=false;  
char **matrix;      //выделение памяти для будущей матрицы смежности
AnsiString way; //строка для вывода результатов в файл и на экран
int *buf;   //указатель на буфер
bool mark=false;
int kvdel=0;
FILE *F;    //указатель на файл для вывода промежуточных результатов
//---------------------------------------------------------------------------
__fastcall TF_Main::TF_Main(TComponent* Owner)
        : TForm(Owner)
{     Status->Caption="Статус:\n\n...отмечаем вершины..."; //начальный статус
}
//---------------------------------------------------------------------------
// функция построения графа на компоненте TImage
void __fastcall TF_Main::DeskClick(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if (numev==0)   //если нажатий на кнопку «Далее» не производилось, то
        {
 
                Desk->Canvas->Pen->Color=clBlack;   //цвет=черный
                Desk->Canvas->Pen->Width=10;    //толщина пера=10 пикселей
                Desk->Canvas->MoveTo(X,Y);  //ставится точка
                Desk->Canvas->LineTo(X,Y);
                xy[0][kv]=X; //координаты вершины заносятся в массив
                xy[1][kv]=Y;
                Desk->Canvas->TextOutA(X+10, Y+10, AnsiString(kv=kv+1));
        //рядом выводится номер вершины
        }
        if (numev==1) //построение ребер
        {
            for (int i=0; i<kv; i++)
            {
                if ((X>(xy[0][i]-5))&&(X<(xy[0][i]+5)))
                {
                    if ((Y>(xy[1][i]-5))&&(Y<(xy[1][i]+5)))
                    {
                        if (select==false) //если вершина отмечена первой
                        {
                            Desk->Canvas->Pen->Color=clGray; //отметить ее серым цветом
                            Desk->Canvas->Pen->Width=7;
                            Desk->Canvas->MoveTo(xy[0][i],xy[1][i]);
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]);
                            line=i; //занести в переменную номер вершины
                            select=true; //поставить отметку, что одна вершина уже выделена
                        }
                        else //иначе
                        {
                            Desk->Canvas->Pen->Color=clBlack;
                            Desk->Canvas->Pen->Width=10;
                            Desk->Canvas->MoveTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->LineTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->Pen->Width=3;
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]); //провести линию
                            matrix[line][i]=1; //поставить отметку о ребре в матрице смежности
                            matrix[i][line]=1;
                            select=false; //ребро построено, выделенных вершин нет
                        }
                        break; 
                    }
                }
            }
        }
}    
//---------------------------------------------------------------------------
//Функция обработки события кнопки «Далее»
void __fastcall TF_Main::BNextClick(TObject *Sender)
{
if (numev==0) //если нажатие производится в первый раз
{
    matrix=new char* [kv];  //создать массив для матрицы смежности
    for (int i=0; i<kv; i++) //обнулить этот массив
    {
        matrix[i]=new char [kv];
        for (int j=0; j<kv; j++)
        {
            matrix[i][j]=0;
        }
    }
    Status->Caption="Статус:\n\n...отмечаем ребра..."; //сменить статус
} 
if (numev==1) //повторное нажатие на кнопку
{
    Status->Caption="Статус:\n\n Готово!"; //смена статуса
    BNext->Enabled=false;
    ResCap->Caption="Результаты:";
    Gamilton(); //вывов функции Gamilton
}
numev++; //увеличение счетчика событий на единицу
}
//---------------------------------------------------------------------------
//Функция поиска гамильтоновых циклов
void __fastcall TF_Main::Gamilton(void)
{
    buf=new int[kv]; //создание буфера
    buf[0]=0;
    for (int i=0; i<kv; i++) //обнуление буфера
    {
        buf[i]=NULL;
    }
    
    F=fopen("Process.txt","wt"); //создание файла для записи
    Ways(0, 1); //вызов функции для поиска новых вершин в цепи
    
}
//---------------------------------------------------------------------------
// Функция для поиска новых вершин в цепи
void __fastcall TF_Main::Ways(int ver, int num)
{
    select=false;
    if (mark==true) //если вершины уже удалялись
    {
        kvdel=buf[num]; //начинать отсчет вершин с
    }
    else kvdel=0; //иначе обнулить этот счетчик
    mark=false;
    for (int i=kvdel; i<kv; i++)    //цикл поиска возможных вершин
    {
        if (matrix[ver][i]==0) continue; //если нет ребра, следующий
        if (Repeat(i,num)) continue;    //если вершина уже была, следующий
        if (i==buf[num]) continue;
        ver=i;
        select=true; //отметка, что вершину нашли
        break;
    }
    if (select==true)   //если вершина найдена
    {
        buf[num]=ver;   //добавить ее в цепь
            num++;  //увеличить счетчик
            Ways(ver, num); //рекурсивно вызвать с новыми параметрами
     }
    else    //если вершина не найдена
    {
        if (num==kv)    //если длина цепи равна количеству вершин
        {
            way=buf[0]+1;   
            for (int i=1; i<kv; i++)
            {
                way+=',';
                    way+=buf[i]+1;
            }
            if (matrix[buf[kv-1]][0]!=0) way+=",1";
            Results->Items->Add(way);   //вывод результата на экран
            way+='\n';
            fprintf(F,way.c_str()); //вывод в файл
        }
       way=buf[0]+1; 
        for (int i=1; i<num; i++)
            {
                way+=',';
                way+=buf[i]+1;
 
            }
            way+='\n';
             fprintf(F,way.c_str());   //вывод промежуточных результатов в файл
        num--;  //уменьшаем счетчик
        mark=false;
        if (num!=0) //если счетчик вершины не равен 0
        {
if (num!=kv-1) buf[num+1]=NULL; //и не равен количеству вершин, то обнулить
// следующую ячейку буфера
            mark=true;  //отметка о удалении вершины
            Ways(buf[num-1], num);  //поиск следующей вершины
        }
        else fclose(F); //все циклы найдены, закрыть файл
    }
}
//---------------------------------------------------------------------------
// Функция проверки на повторы вершин в цепи
int __fastcall TF_Main::Repeat(int i, int num)
{
    for (int j=0; j<num; j++)   //цикл поиска такой же вершины
    {
        if (buf[j]==i) return 1;    //если  такая найдена, то повтор есть
        }
    }
    return 0;   //нет повтора
}

Что я должен сделать для результативного ответа на мою тему?

LK · 03.06.2013, 02:41

Сообщение от samalil

Что я должен сделать для результативного ответа на мою тему?

- предоставить все имеющиеся у вас материалы, в частности, файл Main.h, чтобы не угадывать, какие компоненты используются, указать, откуда берутся "координаты вершин", что-нибудь еще из имеющего отношение к вопрсу, это уже вам виднее.

В идеале, хорошо бы прикрепить имеющийся у вас проект, но, как я понимаю, именно в создании подобного проекта вы испытываете затруднения.

И, главное, понятно обяснить, что означает:

Сообщение от samalil

Не могу адекватно впихнуть код программы в C++ Builder

Если указанные данные будут предоставлены, могу попытаться вам помочь.

@samalil · 03.06.2013, 03:04 **[ТС]**

Грубо говоря, у меня есть только этот код и скрин. прошу что-нибудь ответить. спасибо

LK · 03.06.2013, 03:30

samalil, я уже пытаюсь воспроизвести, не обещаю, что будет быстро, но к утру будет, потому мой вам настоятельный совет - идите отдыхать, все остальное можно будет обсудить/уточнить утром, со мной, или другими пользователями.

Но сперва все же дайте мне ответ на вопрос: что означает:

Не могу адекватно впихнуть код программы в C++ Builder

? Вы не можете воспроизвести проект ? И второе: у вас C++ Builder 6 или другая версия?

@samalil · 03.06.2013, 03:36 **[ТС]**

Как так? отдыхать, когда совсем не знакомый человек сам не спит и пытается помочь?!
Я думал просто скопировать-вставить-запустить.. но данный алгоритм не сработал... нужно, как оказалось, еще и знать, как это делать.
Да, С++ 6

LK · 03.06.2013, 03:41

да, просто скопировать не получиться, но - не все так безнадежно, будем надеяться

, только если есть ошибки в самом коде, то на данном этапе я их исправлять не обещаю.

samalil, то, что вы будете себя там изматывать бдением, будет только мешать, поскольку я буду спешить и не буду думать

, а вам пользы и от того, и от другого - никакой, короче - марш спать

.

LK · 03.06.2013, 06:25

Проектик сделал. Компилируется. Ошибок и предупрежений нет. Даже ставит точки, но ребра не рисует. Не вникал.

В оригинале отсутствует обработчик и код кнопки "Очистить".

В моем билдере в обработчике клика в имейдж нет в параметрах координат мышиного курсора, которые присутствуют в оригинале:

C++

1
2
3

// оригинал обработчика:
// функция построения графа на компоненте TImage
void __fastcall TF_Main::DeskClick(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

, использован обработчик нажатия клавиши мыши:

C++

1 2	// функция построения графа на компоненте TImage void __fastcall TF_Main::DeskMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

Main.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h> // необходимые директивы
#pragma hdrstop
#include <stdio.h>
 
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Main *F_Main;
 
int numev = 0; // счетчик, необходимый для смены состояний построения графа
int xy[2][50]; // массив для хранения координат вершин на экране
int kv = 0; // количество вершин
int line; // переменная, необходимая для формирования матрицы смежности
bool select = false;
char **matrix; // выделение памяти для будущей матрицы смежности
AnsiString way; // строка для вывода результатов в файл и на экран
int *buf; // указатель на буфер
bool mark = false;
int kvdel = 0;
FILE *F; //указатель на файл для вывода промежуточных результатов
 
//---------------------------------------------------------------------------
__fastcall TF_Main::TF_Main(TComponent* Owner)
  : TForm(Owner)
{
  Status->Caption = "Статус:\n\n...отмечаем вершины..."; // TLabel Name=Status, начальный статус
// следующее можно укзать в Инспекторе Объектов, со своими параметрами
  F_Main->Height = 512; // TForm Neme=F_Main, Height
  F_Main->Width = 575; // TForm  Width
  F_Main->Caption = "Графы - Гамильтонов цикл"; // TForm Caption
  ResCap->Font->Style = ResCap->Font->Style << fsBold; // TLabe2 Name=ResCap
  ResCap->Caption = "Готово!";
  Desk->Align = alLeft; // TImage Name=Desk, Align
  Desk->Width = 400; // TImage Width
  Desk->Left = 406; // TImage Left
  Desk->Canvas->Brush->Color = Desk->Canvas->Brush->Color << clWhite;  // заливаем канву TImage белым
  BNext->Caption = "Далее"; // TButton Name=BNext
  BNext->Width = 150; // TButton Width
  BNext->Left = 406; // TButton Left
  BClear->Width = 150; // TButton Name=BClear, добавлена
  BClear->Left = 406; // TButton Left
  BClear->Caption = "Очистить"; // TButton Caption
  Results->Width = 150; // TMemo Name=Results, Caption
  Results->Left = 406; // TButton TMemo
}
//---------------------------------------------------------------------------
// функция построения графа на компоненте TImage
void __fastcall TF_Main::DeskMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (numev==0) { // если нажатий на кнопку «Далее» не производилось, то
    Desk->Canvas->Pen->Color=clBlack; // цвет=черный
    Desk->Canvas->Pen->Width=10; // толщина пера=10 пикселей
    Desk->Canvas->MoveTo(X,Y); // ставится точка
    Desk->Canvas->LineTo(X,Y);
    xy[0][kv]=X; // координаты вершины заносятся в массив
    xy[1][kv]=Y;
    Desk->Canvas->TextOutA(X+10, Y+10, AnsiString(kv=kv+1));
    // рядом выводится номер вершины
  }
  if (numev == 1) { // построение ребер
    for (int i=0; i<kv; i++) {
      if ((X>(xy[0][i]-5))&&(X<(xy[0][i]+5))) {
        if ((Y>(xy[1][i]-5))&&(Y<(xy[1][i]+5))) {
          if (select==false) { // если вершина отмечена первой
            Desk->Canvas->Pen->Color = clGray; // отметить ее серым цветом
            Desk->Canvas->Pen->Width = 7;
            Desk->Canvas->MoveTo(xy[0][i],xy[1][i]);
            Desk->Canvas->LineTo(xy[0][i],xy[1][i]);
            line=i; // занести в переменную номер вершины
            select = true; // поставить отметку, что одна вершина уже выделена
          }
          else { //иначе
            Desk->Canvas->Pen->Color = clBlack;
            Desk->Canvas->Pen->Width = 10;
            Desk->Canvas->MoveTo(xy[0][line],xy[1][line]);
            Desk->Canvas->LineTo(xy[0][line],xy[1][line]);
            Desk->Canvas->Pen->Width = 3;
            Desk->Canvas->LineTo(xy[0][i],xy[1][i]); // провести линию
            matrix[line][i] = 1; // поставить отметку о ребре в матрице смежности
            matrix[i][line] = 1;
            select = false; // ребро построено, выделенных вершин нет
          }
          break;
        }
      }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TF_Main::DeskClick(TObject *Sender)
{
// оригинал обработчика:
//void __fastcall TF_Main::DeskClick(TObject *Sender, TMouseButton Button,
//      TShiftState Shift, int X, int Y)
/*
  if (numev==0) { // если нажатий на кнопку «Далее» не производилось, то
    Desk->Canvas->Pen->Color=clBlack; // цвет=черный
    Desk->Canvas->Pen->Width=10; // толщина пера=10 пикселей
    Desk->Canvas->MoveTo(X,Y); // ставится точка
    Desk->Canvas->LineTo(X,Y);
    xy[0][kv]=X; // координаты вершины заносятся в массив
    xy[1][kv]=Y;
    Desk->Canvas->TextOutA(X+10, Y+10, AnsiString(kv=kv+1));
    // рядом выводится номер вершины
  }
  if (numev == 1) { // построение ребер
    for (int i=0; i<kv; i++) {
      if ((X>(xy[0][i]-5))&&(X<(xy[0][i]+5))) {
        if ((Y>(xy[1][i]-5))&&(Y<(xy[1][i]+5))) {
          if (select==false) { // если вершина отмечена первой
            Desk->Canvas->Pen->Color = clGray; // отметить ее серым цветом
            Desk->Canvas->Pen->Width = 7;
            Desk->Canvas->MoveTo(xy[0][i],xy[1][i]);
            Desk->Canvas->LineTo(xy[0][i],xy[1][i]);
            line=i; // занести в переменную номер вершины
            select = true; // поставить отметку, что одна вершина уже выделена
          }
          else { //иначе
            Desk->Canvas->Pen->Color = clBlack;
            Desk->Canvas->Pen->Width = 10;
            Desk->Canvas->MoveTo(xy[0][line],xy[1][line]);
            Desk->Canvas->LineTo(xy[0][line],xy[1][line]);
            Desk->Canvas->Pen->Width = 3;
            Desk->Canvas->LineTo(xy[0][i],xy[1][i]); // провести линию
            matrix[line][i] = 1; // поставить отметку о ребре в матрице смежности
            matrix[i][line] = 1;
            select = false; // ребро построено, выделенных вершин нет
          }
          break;
        }
      }
    }
  }
*/
}
//---------------------------------------------------------------------------
//Функция обработки события кнопки «Далее»
void __fastcall TF_Main::BNextClick(TObject *Sender)
{
  if (numev==0) { // если нажатие производится в первый раз
    matrix=new char* [kv]; // создать массив для матрицы смежности
    for (int i=0; i<kv; i++) { // обнулить этот массив
      matrix[i]=new char [kv];
      for (int j=0; j<kv; j++) {
        matrix[i][j]=0;
      }
    }
    Status->Caption="Статус:\n\n...отмечаем ребра..."; // сменить статус
  }
  if (numev==1) { // повторное нажатие на кнопку
    Status->Caption = "Статус:\n\n Готово!"; //смена статуса
    BNext->Enabled = false;
    ResCap->Caption = "Результаты:";
    Gamilton(); // вывов функции Gamilton
  }
  numev++; //увеличение счетчика событий на единицу
}
//---------------------------------------------------------------------------
//Функция обработки события кнопки «Очистить» - "очистка" канвы Image - заливка белым
void __fastcall TF_Main::BClearClick(TObject *Sender)
{
//  BNext->Enabled = true;
//  PatBlt(Desk->Canvas->Handle,
//         0,
//         0,
//         Desk->ClientWidth,
//         Desk->ClientHeight,
//         WHITENESS);
}
//---------------------------------------------------------------------------
// Приватные функции. Прототипы объявлены в заголовочном файле Main.h
//Функция поиска гамильтоновых циклов
void __fastcall TF_Main::Gamilton(void)
{
  buf=new int[kv]; // создание буфера
  buf[0] = 0;
  for (int i=0; i<kv; i++) { // обнуление буфера
    buf[i]=NULL;
  }
  F=fopen("Process.txt","wt"); //создание файла для записи
  Ways(0,1); //вызов функции для поиска новых вершин в цепи
}
//---------------------------------------------------------------------------
// Функция для поиска новых вершин в цепи
void __fastcall TF_Main::Ways(int ver, int num)
{
  select = false;
  if (mark == true) { // если вершины уже удалялись
    kvdel=buf[num]; //начинать отсчет вершин с
  }
  else kvdel = 0; // иначе обнулить этот счетчик
  mark = false;
  for (int i=kvdel; i<kv; i++) { // цикл поиска возможных вершин
    if (matrix[ver][i]==0) continue; // если нет ребра, следующий
    if (Repeat(i,num)) continue; // если вершина уже была, следующий
    if (i==buf[num]) continue;
    ver=i;
    select=true; // отметка, что вершину нашли
    break;
  }
  if (select==true) { // если вершина найдена
    buf[num]=ver; // добавить ее в цепь
    num++;  //увеличить счетчик
    Ways(ver, num); // рекурсивно вызвать с новыми параметрами
   }
  else { // если вершина не найдена
    if (num==kv) { // если длина цепи равна количеству вершин
      way=buf[0]+1;
      for (int i=1; i<kv; i++) {
        way += ',';
        way += buf[i]+1;
      }
      if (matrix[buf[kv-1]][0]!=0) way += ",1";
      Results->Items->Add(way); // вывод результата на экран
      way += '\n';
      fprintf(F,way.c_str()); //вывод в файл
    }
    way = buf[0]+1;
    for (int i=1; i<num; i++) {
      way += ',';
      way += buf[i]+1;
    }
    way += '\n';
    fprintf(F,way.c_str());   //вывод промежуточных результатов в файл
    num--;  //уменьшаем счетчик
    mark = false;
    if (num!=0) { //если счетчик вершины не равен 0
      if (num!=kv-1) buf[num+1]=NULL; // и не равен количеству вершин, то обнулить
                                      // следующую ячейку буфера
        mark=true;  //отметка о удалении вершины
        Ways(buf[num-1], num);  //поиск следующей вершины
      }
      else fclose(F); //все циклы найдены, закрыть файл
//    }
  }
}
//---------------------------------------------------------------------------
// Функция проверки на повторы вершин в цепи
int __fastcall TF_Main::Repeat(int i, int num)
{
  for (int j=0; j<num; j++) {   //цикл поиска такой же вершины
    if (buf[j]==i) return 1;    //если  такая найдена, то повтор есть
  }
//  }
  return 0;   //нет повтора
}
//---------------------------------------------------------------------------

Main.h

C++

//---------------------------------------------------------------------------
 
#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TF_Main : public TForm
{
__published:  // IDE-managed Components
  TLabel *Status;
  TImage *Desk;
  TButton *BNext;
  TButton *BClear;
  TLabel *ResCap;
  TListBox *Results;
  void __fastcall DeskClick(TObject *Sender);
  void __fastcall BNextClick(TObject *Sender);
  void __fastcall BClearClick(TObject *Sender);
  void __fastcall DeskMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
private:  // User declarations
public:    // User declarations
  __fastcall TF_Main(TComponent* Owner);
  // свои функции
  void __fastcall Gamilton(void);
  void __fastcall Ways(int ver, int num);
  int __fastcall Repeat(int i, int num);
};
//---------------------------------------------------------------------------
extern PACKAGE TF_Main *F_Main;
//---------------------------------------------------------------------------
#endif

Архив с проектом в приложении, делался в RAD XE, в данном случае это значения не имеет.

@samalil · 03.06.2013, 10:05 **[ТС]**

Не могу запустить..Кнопка запуска не активна

Добавлено через 1 час 16 минут
Кнопка запуска уже активна...Нажимаю запуск, компилирует...пропадают на 1 секунду окна "дерево" и "инспектор" и дальше ничего не происходит..... (как будто и не нажимал РАН)

LK · 03.06.2013, 11:14

Вы перенесли проект в Билдер6 - как (?) переносили, или каким-то образом запустили мой для ХЕ? Опишите более-менее в деталях последоватльность ваших действий. У меня все работает, пример тому - компилированный ЕХЕ в архиве.

@nick42 · 03.06.2013, 11:57

samalil, у меня почему-то получилось в BCB 6 с тем, что любезно предоставил LK. Посмотрите в архиве

@samalil · 03.06.2013, 13:30 **[ТС]**

ЕХЕ в Архиве у Вас, Ник, запустился без проблем и все идеально прост
А вот в Билдере компилит и выдает ошибку [Linker Fatal Error] Fatal: Unable to open file 'ACNTBCB6_R.LIB'

@nick42 · 03.06.2013, 13:46

Сообщение от samalil

ЕХЕ в Архиве у Вас, Ник, запустился без проблем и все идеально прост
А вот в Билдере компилит и выдает ошибку [Linker Fatal Error] Fatal: Unable to open file 'ACNTBCB6_R.LIB'

это все "наследие проклятого прошлого"... Попробуйте заменить Project2.bpr вот этим...

@samalil · 03.06.2013, 15:02 **[ТС]**

Все работает отлично! Правда кнопка "Сброс" не работает. Не могли бы Вы поправить маленькую неисправность?

LK · 03.06.2013, 15:11

samalil, неисправность - это нерабочая кнопка "Сброс", или какая другая?

@samalil · 03.06.2013, 15:22 **[ТС]**

ну да..она самая

LK · 03.06.2013, 15:42

если не секрет, вы где код брали? может, там еще чего есть, типа кода внопки "Очитить"

LK · 03.06.2013, 16:32

очистить не сложно:

C++

//---------------------------------------------------------------------------
//Функция обработки события кнопки «Очистить» - "очистка" канвы Image - заливка белым
void __fastcall TF_Main::BClearClick(TObject *Sender)
{
//  BNext->Enabled = true;
  Desk->Canvas->Brush->Color = clWhite;
  Desk->Canvas->FillRect(Desk->Canvas->ClipRect);
}
//---------------------------------------------------------------------------

но только до нажатия кнопки "Далее", при этом счетчик вершин не сбрасывается на ноль. думайте

LK · 03.06.2013, 16:35

аналогичная, но лучшая Программа Графы

@nick42 · 03.06.2013, 16:55

Сообщение от samalil

Все работает отлично! Правда кнопка "Сброс" не работает. Не могли бы Вы поправить маленькую неисправность?

Если имеется в виду клавиша DClear , то возможно вот так устроит__

C++

void __fastcall TF_Main::BClearClick(TObject *Sender)
{
   BNext->Enabled = true;
   Results->Clear() ;
   numev = 0;  kv = 0;
// PatBlt(Desk->Canvas->Handle,0,0,Desk->ClientWidth,Desk->ClientHeight,WHITENESS);
   Status->Caption = "Ñòàòóñ:\n\n...îòìå÷àåì âåðøèíû...";
   TRect RE; RE.left = 0; RE.top = 0;
   RE.right = Desk->Width ; RE.bottom = Desk->Height ;
   Desk->Picture->Bitmap->Canvas->Brush->Color = clWhite;
   Desk->Picture->Bitmap->Canvas->FillRect(RE);
}

(очистка поля Desk у LK красивее сделана...)

LK · 03.06.2013, 16:58

Сообщение от LK

BClear

, а то уважаемый samalil выдвинет претензии в связи с отсутствием кнопки

Сообщение от nick42

DClear

.

Не по теме:

давно никому здесь так не угождали, как уважаемому samalil.... с чего бы это :scratch: ?

LK Заблокирован
	03.06.2013, 16:35	18
	аналогичная, но лучшая Программа Графы 1

LK Заблокирован
	03.06.2013, 02:41	2
	Сообщение от samalil Что я должен сделать для результативного ответа на мою тему? - предоставить все имеющиеся у вас материалы, в частности, файл Main.h, чтобы не угадывать, какие компоненты используются, указать, откуда берутся "координаты вершин", что-нибудь еще из имеющего отношение к вопрсу, это уже вам виднее. В идеале, хорошо бы прикрепить имеющийся у вас проект, но, как я понимаю, именно в создании подобного проекта вы испытываете затруднения. И, главное, понятно обяснить, что означает: Сообщение от samalil Не могу адекватно впихнуть код программы в C++ Builder Если указанные данные будут предоставлены, могу попытаться вам помочь. 1

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 03:04 [ТС]	3
	Грубо говоря, у меня есть только этот код и скрин. прошу что-нибудь ответить. спасибо 0

LK Заблокирован
	03.06.2013, 03:30	4
	samalil, я уже пытаюсь воспроизвести, не обещаю, что будет быстро, но к утру будет, потому мой вам настоятельный совет - идите отдыхать, все остальное можно будет обсудить/уточнить утром, со мной, или другими пользователями. Но сперва все же дайте мне ответ на вопрос: что означает: Не могу адекватно впихнуть код программы в C++ Builder ? Вы не можете воспроизвести проект ? И второе: у вас C++ Builder 6 или другая версия? 2

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 03:36 [ТС]	5
	Как так? отдыхать, когда совсем не знакомый человек сам не спит и пытается помочь?! Я думал просто скопировать-вставить-запустить.. но данный алгоритм не сработал... нужно, как оказалось, еще и знать, как это делать. Да, С++ 6 0

LK Заблокирован
	03.06.2013, 03:41	6
	да, просто скопировать не получиться, но - не все так безнадежно, будем надеяться , только если есть ошибки в самом коде, то на данном этапе я их исправлять не обещаю. samalil, то, что вы будете себя там изматывать бдением, будет только мешать, поскольку я буду спешить и не буду думать , а вам пользы и от того, и от другого - никакой, короче - марш спать . 1

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 10:05 [ТС]	8
	Не могу запустить..Кнопка запуска не активна Добавлено через 1 час 16 минут Кнопка запуска уже активна...Нажимаю запуск, компилирует...пропадают на 1 секунду окна "дерево" и "инспектор" и дальше ничего не происходит..... (как будто и не нажимал РАН) 0

LK Заблокирован
	03.06.2013, 11:14	9
	Вы перенесли проект в Билдер6 - как (?) переносили, или каким-то образом запустили мой для ХЕ? Опишите более-менее в деталях последоватльность ваших действий. У меня все работает, пример тому - компилированный ЕХЕ в архиве. 0

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 13:30 [ТС]	11
	ЕХЕ в Архиве у Вас, Ник, запустился без проблем и все идеально прост А вот в Билдере компилит и выдает ошибку [Linker Fatal Error] Fatal: Unable to open file 'ACNTBCB6_R.LIB' 0

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 15:02 [ТС]	13
	Все работает отлично! Правда кнопка "Сброс" не работает. Не могли бы Вы поправить маленькую неисправность? 0

LK Заблокирован
	03.06.2013, 15:11	14
	samalil, неисправность - это нерабочая кнопка "Сброс", или какая другая? 0

@samalil 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 10
	03.06.2013, 15:22 [ТС]	15
	ну да..она самая 0

LK Заблокирован
	03.06.2013, 15:42	16
	если не секрет, вы где код брали? может, там еще чего есть, типа кода внопки "Очитить" 0

LK Заблокирован
	03.06.2013, 16:58	20
	Сообщение от LK BClear , а то уважаемый samalil выдвинет претензии в связи с отсутствием кнопки Сообщение от nick42 DClear . Не по теме: давно никому здесь так не угождали, как уважаемому samalil.... с чего бы это :scratch: ? 0