prog_ui.cpp

用遗传算法解决01背包问题

// Copyright by Guo Ce, Sun Yat-sen University

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#include "comdef.cpp"
#pragma hdrstop

#include "prog_ui.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tform_main *form_main;

//---------------------------------------------------------------------------
extern double cp, mp;
extern int showprocess;
extern int gener_num;
extern int gene_number;
int gene_length;
int bag_capacity;

typedef struct Item
{
    int weight;
    int value;
} ITEM;

void run_ga ();
void run_greedy ();
void textout (AnsiString s);

ITEM items[MAXITEMS];


//---------------------------------------------------------------------------
void textout (AnsiString s)
{
    form_main->text_result->Lines->Add(s);
}


//---------------------------------------------------------------------------
__fastcall Tform_main::Tform_main(TComponent* Owner)
        : TForm(Owner)
{
}


//---------------------------------------------------------------------------
void __fastcall Tform_main::btn_openClick(TObject *Sender)
{
    char *strfn;
    int i;
    FILE *input;

    if (dlg_open->Execute())
    {
        btn_ga->Enabled = 1;
        btn_greedy->Enabled = 1;
        textout ("文件" + dlg_open->FileName + "载入完毕。");

        strfn = dlg_open->FileName.c_str();
        input = fopen (strfn, "r");
        fscanf (input, "%d%d", &gene_length, &bag_capacity);
        for (i=0; i<gene_length; i++)
            fscanf (input, "%d%d", &items[i].weight, &items[i].value);
        fclose (input);
    }

    btn_save->Enabled = True;
}


//---------------------------------------------------------------------------
void __fastcall Tform_main::btn_gaClick(TObject *Sender)
{
    gene_number = StrToInt(t_ngene->Text);
    gener_num = StrToInt(t_ng->Text);
    mp = StrToFloat(t_mp->Text);
    cp = 1-StrToFloat(t_co->Text);
    showprocess = cb_sp->Checked;

    run_ga ();
}


//---------------------------------------------------------------------------
void __fastcall Tform_main::btn_greedyClick(TObject *Sender)
{
    run_greedy ();
}
//---------------------------------------------------------------------------


void __fastcall Tform_main::btn_saveClick(TObject *Sender)
{
    if (dlg_save->Execute())
        text_result->Lines->SaveToFile(dlg_save->FileName);
}
//---------------------------------------------------------------------------