|
源代码已经彻底公开！stock生不逢时，6年心血毁于一旦！ 股票软件源代码免费公开！反正大家没有钱赚！含选股器的设计和开发） 因为找不到合作伙伴，也没有资金自己搞公司所以只能把6年的开发心血如此发泄一下！ 因为我一不是程序员，二不是江书记亲戚，所以没有办法实现自己的理想，所以我的开发热情只能通过源代码来表达！我还有许多程序，准备一一发布！ #include <conio.h> #include <ctype.h> #include <stdlib.h> #include <stdio.h> #include <string.h> #include <dos.h> #include <dir.h> #include <time.h> #include <graphics.h> #include <share.h> #include <math.h> float boll_g=1.667; char *s16;void hxs(int x16,long int y16,char *s16,int color); void dis24hz(int x16,long int y16,char *p,int color);void *arrow; struct ffblk ffblk;time_t t;struct tm s; double tmp,fd[5],xx,yy,zg,zd,zz,bb,bb1,zz1,zz2;//,zbs[1000][3]; int cc,aa,zs0[1000][5],j=0,key=0,gd,gm,i,zj=0,done,d[5],w=1,zdzt=0,x16,kk,cz,sum,cg, bc=1,ts=70,kd=10,tz=0,xz,zb=0,ls,sjgs=0,zdj,bs,spss,spjg,zsp;//qx[240][2] long int zdl,k,bigl,bigl1,x,y,x1,y1,z,z1,cjl,cjl0[1000],cjl1[1000],c[10],lj[30][8],y16,mm[6],fdd; unsigned char rq[]="000000",rq0[]=" ",ch[]=" ",ch0[39],f[39],ff[39], cch,kzm[5],ml[5],cs[4][39],ch1[]=" ",ch2[]=" ",ch3[]=" ",mc[8], ccc[]=" ",ch8[80],fmlj[4],rq1[9],pf,enter, chh[]=" ";//f5钱龙K线 ch键盘输入 ch1名称表 ch2保存 ch3纯表 chh,cch临时 FILE *fas,*fp,*f1,*f3,*f2; //,*f4,*f5f3为逐日K线 f1为名称表 f2为临时名称表 f4生成K线 void da(void) {struct date da1;getdate(&da1); sprintf(rq1,"%4d%02d%02d",da1.da_year,da1.da_mon,da1.da_day);return;} void disp_tx(void); //显示一个图象菜单 void zxfs(void); #include "xt.c" #include "zb.c" #include "px.c" void main(void) { da(); w=bc=1;ts=75;kd=10;tz=zb=sjgs=j=key=zj=zdzt=0; fp=_fsopen("hzk16","rb",SH_DENYNO);fas=_fsopen("asc16","rb",SH_DENYNO); s.tm_sec=s.tm_min=s.tm_hour=s.tm_wday=s.tm_yday=s.tm_isdst=1; detectgraph(&gd,&gm); kd=580/ts; directvideo=0; initgraph(&gd,&gm," "); hxs(18*8,3*20,"行 情 快 车 盘 胜 股 票 分 析 系 统 (4.0)",14); hxs(8*8,6*20,"本系统为一股票分析软件，起到辅助分析行情的作用，其主要功能如下：",3); hxs(8*8,8*20,"１、数据格式袖珍：数据结构比流行分析系统小2到3倍,选股速度飞快.",3); hxs(8*8,10*20,"２、提供智能选股：采用自行研制盘局突破形态选股,具备较高成功率.",3); hxs(8*8,12*20,"３、提供模拟买卖：利用翻页定位和Ｋ线的平移,可进行复盘模拟选股.",3); hxs(8*8,16*20," 阿华证券软件工作室 主页:www.hu.zj.cninfo.net/~stock",4); textcolor(3); gotoxy(68,25);getch(); //读参数设置文件 if ((f1=_fsopen("cs.dat","rt",SH_DENYNO))==0) {fclose(f1); f1=_fsopen("cs.dat","wb+",SH_DENYNO);cch=e; fwrite(&cch,1,1,f1);pf=c;fwrite(&pf,1,1,f1); sprintf(chh,"slon");fwrite(&chh,6,1,f1);fclose(f1); } f1=_fsopen("cs.dat","rt",SH_DENYNO);fseek(f1,0,2);k=ftell(f1)-4;rewind(f1); fread(&cch,1,1,f1);sjgs=cch-97;fread(&pf,1,1,f1);//sjgs=0; for (i=0;i<k;i++) {fread(&cch,1,1,f1);sprintf(ccc,"%c",cch);strcat(ff,ccc);} switch(sjgs) {case 0:sprintf(cs[1],"\\%s",ff);sprintf(cs[2],"\\%s",ff);break; case 1:sprintf(cs[1],"\\%s\\data\\shase",ff);sprintf(cs[2],"\\%s\\data\\sznse",ff);break; case 2:sprintf(cs[1],"\\%s",ff);sprintf(cs[2],"\\%s",ff);break; |
