这段代码是自己写的。你可以看看周振红的书《Intel Visual Fortran应用程序开发》 http://fcode.cn/resource_ebook-2-1.html |
li913 发表于 2014-12-28 16:12 非常感谢,您这段代码是您自己写的还是什么资料上的呢? 如果是资料上的,能否把资料分享一下,我从网上没有找到比较全的Quickwin的资料,再次谢谢 |
本帖最后由 li913 于 2014-12-28 16:23 编辑 [Fortran] 纯文本查看 复制代码 program draw use IFQWin implicit none real(8)::upx=-10.0,downx=10.0,upy=10.0,downy=-10.0 integer::status logical(2)::finvert=.TRUE. type(wxycoord)::wt real(8)::wx1,wy1,wx2,wy2,wx3,wy3,wx4,wy4 wx1=-1.0;wy1=1.0;wx2=1.0;wy2=-1.0 wx3=3.0;wy3=1.0;wx4=5.0;wy4=-1.0 status=setwindow(finvert,upx,upy,downx,downy) call moveTo_w(upx,0.0_8,wt) status=lineto_w(downx,0.0_8) call moveTo_w(0.0_8,downy,wt) status=lineto_w(0.0_8,upy) status=ellipse_w($gborder,wx1,wy1,wx2,wy2) status=ellipse_w($gborder,wx3,wy3,wx4,wy4) end program draw |
graphy.png (67.66 KB, 下载次数: 295)
vvt 发表于 2014-12-28 12:51 初次发帖,考虑不周。已将程序复制,谢谢! |
最好是复制粘贴代码,而不是截图。。不然我没法帮你调试。除非我重新输一遍代码 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-2 19:30