X
xiaorang
Unregistered / Unconfirmed
GUEST, unregistred user!
我们现在做一个小的软件公司，大部分的开发自己完成，但有时出现工作多的时候，希望能找到一些朋友帮忙开发。但内容基本上属于比较初级的，一般是详细设计已经做好，以编码和界面工作为主，标底较小，所以也不太适合以整体外包的形式合作。为了提高交流效率，当然希望能有较稳定、长期的合作者，而且一旦工作开始，就希望尽快找到人，但工作时多时少也是一个问题。结算方式也是一个问题，单次结算每次量比较小，又比较频繁，增加许多麻烦和费用。
希望大家能给我们提一些好的建议。我想这也有利于软件业内逐步形成有效的兼职合作体系，人才更自由的流动，更多的增收机会和资源充分共享。
顺便说一下，我公司使用的开发语言是Delphi。
-------------------------------------------------------------------------------
这里有几个题目模块，请感兴趣的朋友估计一下开发工作量时间和费用，以便在此方面达成共识。
题目一：写函数（模拟桌面背景）
procedure DrawPic2(aCanvas: TCanvas;
aBmp: TBitmap;
aWidth, aHeight, aStyle: integer);
参数说明：
aCanvas: 画图用
aBmp: 背景图片
aWidth, aHeight: 显示区域的实际尺寸
aStyle: 模式（1/平铺；2/居中；3/拉伸）
函数功能：
将显示区域想象为整个桌面（800*600），将图片缩小显示，以表现出不同模式的效果。
题目二：一个对象写其保存与读取的代码
TScoreItem= record
Score: integer;
// 排序成绩
Name: ShortString;
// 姓名
sDate: TDateTime;
// 时间
Level: integer;
// 分类
Desc: ShortString;
// 具体描述
FileName: ShortString;
// 样本文件名
end;
THiScore= class(TList)
private
function GetItems(Index: Integer): TScoreItem;
procedure SetItems(Index: Integer;
AItem: TScoreItem);
function Compare(aItem1, aItem2: TScoreItem): integer;
public
property Items[Index: Integer]: TScoreItem read GetItems write SetItems;
default;
procedure SaveToFile(aFileName: string);
// 待写过程
procedure LoadFromFile(aFileName: string);
// 待写过程
end;
希望大家能给我们提一些好的建议。我想这也有利于软件业内逐步形成有效的兼职合作体系，人才更自由的流动，更多的增收机会和资源充分共享。
顺便说一下，我公司使用的开发语言是Delphi。
-------------------------------------------------------------------------------
这里有几个题目模块，请感兴趣的朋友估计一下开发工作量时间和费用，以便在此方面达成共识。
题目一：写函数（模拟桌面背景）
procedure DrawPic2(aCanvas: TCanvas;
aBmp: TBitmap;
aWidth, aHeight, aStyle: integer);
参数说明：
aCanvas: 画图用
aBmp: 背景图片
aWidth, aHeight: 显示区域的实际尺寸
aStyle: 模式（1/平铺；2/居中；3/拉伸）
函数功能：
将显示区域想象为整个桌面（800*600），将图片缩小显示，以表现出不同模式的效果。
题目二：一个对象写其保存与读取的代码
TScoreItem= record
Score: integer;
// 排序成绩
Name: ShortString;
// 姓名
sDate: TDateTime;
// 时间
Level: integer;
// 分类
Desc: ShortString;
// 具体描述
FileName: ShortString;
// 样本文件名
end;
THiScore= class(TList)
private
function GetItems(Index: Integer): TScoreItem;
procedure SetItems(Index: Integer;
AItem: TScoreItem);
function Compare(aItem1, aItem2: TScoreItem): integer;
public
property Items[Index: Integer]: TScoreItem read GetItems write SetItems;
default;
procedure SaveToFile(aFileName: string);
// 待写过程
procedure LoadFromFile(aFileName: string);
// 待写过程
end;
