变量 线间隔 为 整数型 =45

事件 主窗口.创建完毕()

         画板1.背景颜色=无色

         主窗口.添加菜单("画正弦曲线",-1)

         主窗口.添加菜单("退出",-1)

         变量 坐标 为 文本型

         变量 计数1 为 双精度小数型

         变量 计数2 为 双精度小数型

         画板1.清空()

         '画横线

         变量循环首 计数2=2*线间隔 至 12*线间隔 步进 线间隔

                   坐标=整数到文本( 2*(5-((计数2-2*线间隔)/线间隔)))

                   如果 坐标="0" 则

                            画板1.画笔颜色=黄色

                   否则

                            画板1.画笔颜色=绿色

                   结束 如果

                   画板1.画文字(线间隔,计数2+3,坐标)

                   变量循环首 计数1=线间隔*2 至 28*线间隔 步进 0.5

                       画板1.画圆(计数1,计数2,1)

                   变量循环尾

         变量循环尾

         '画竖线

         变量循环首 计数1=线间隔*2 至 28*线间隔 步进 线间隔

                   坐标=整数到文本(计数1/线间隔-2)

                   画板1.画笔颜色=绿色

                   变量循环首 计数2 = 2*线间隔 至 12*线间隔 步进 0.5

                            画板1.画圆(计数1,计数2,1)

                   变量循环尾

                   如果 到整数( 坐标)<26 则

                            画板1.画笔颜色=红色

                            如果 到整数(坐标)<10 则

                                     画板1.画文字(计数1-6,7*线间隔+20,坐标)

                            否则

                                     画板1.画文字(计数1-12,7*线间隔+20,坐标)

                            结束 如果

                   结束 如果

         变量循环尾

结束 事件

过程 画正弦曲线(周期 为 整数型,偏移 为 整数型)

         变量 计数1 为 双精度小数型

         变量循环首 计数1=线间隔*2 至 28*线间隔 步进 0.5

                   画板1.画圆(计数1,-5*线间隔*求正弦((计数1+(偏移-2)*线间隔)/(线间隔*周期/6.2831852))+7*线间隔,1)

         变量循环尾             

结束 过程

事件 主窗口.菜单被选择(菜单名 为 文本型)

         如果 菜单名="画正弦曲线" 则

                   画正弦曲线(20,0)

         否则

                   结束程序()

         结束 如果

结束 事件