VB6的绘图方法与常用函数

VB6的繪圖方法與常用函數常用繪圖方法（Method）指令ClsClearScreen，清除螢幕用點、線、圓….等繪圖方法所畫出的圖形或是用Print輸出的字串，都可以用Cls方法來加以清除。語法[Object].Cls物件.Cls常用繪圖方法、指令(續)Pset用來畫任意顏色的點語法[Object.]Pset[Step](X,Y)[,color]其中的X,Y是單精度變數，因此可以使用小數數值、變數。如果不指定color引數，就以ForeColor屬性的顏色為顏色。如果將color引數，設定為BackColor就會有「消除」的效果。常用繪圖方法、指令(續)Point可以讀取任意點的顏色值語法[Object.]Point(X,Y)Picture1AutoRedraw:TrueDrawWidth:5常用繪圖方法、指令(續)Line畫一條線語法B：畫框BF：畫框且填滿[Object.]Line[[Step](X1,Y1)]–[Step](X2,Y2),[Color][,B[F]]]Line(X1,Y1)-(X2,Y2)Line–(X1,Y1)常用繪圖方法、指令(續)Circle畫圓語法Radius：半徑Start：弧的起點End：弧的終點Aspec：長短軸比[Object.]CircleStep(X,Y),Radius,Color,Start,End,Aspec牛刀小試(1)試寫一程式，模擬小畫家的噴霧、畫筆與畫線的功能牛刀小試(1)---續Picture1Box*1Shape*16CommandButton*8牛刀小試(1)---續屬性設定PictureBox(Picture1)AutoRedraw：TrueAppearance：0–平面BorderStyle：1–單線固定ScaleMode：3–像素Shape(Shape1(0)~(15))CommandButton(Command1~5)Caption：如圖示Command4(0)~(3)表示線條寬度設定牛刀小試(1)---續全域變數宣告：mode1噴霧、2畫筆、3畫線ttt滑鼠左鍵點選的狀態0第一次點選、1第二次點選xx,yy記錄滑鼠第一次點選的座標selcolor從調色盤選取的顏色值ttt的起始值設為0Picture1的起始線條寬度為1填充Shape1，建立調色盤當滑鼠的左鍵點選調色盤後，將色碼值指派給selcolor變數牛刀小試(1)---續當按下Command1設定為「噴霧」當按下Command2設定為「畫筆」當按下Command3設定為「畫筆」當按下Command4(0)~(3)時按所對應Index的Caption設定Picture1的線條寬度當按下Command5時，清空Picture1的內容牛刀小試(1)---續當mode=1時(噴霧)，以滑鼠所點選的位置座標為中心，上下左右各延伸十個像素，以亂數取20個座標點，分別畫上一點當mode=2時(畫筆)，以滑鼠第一次點選的位置為基準繪上一點，並令ttt變數值為1，倘若第二次點選滑鼠，則令ttt變數值為0當mode=3時(畫線)，以滑鼠第一次點選的位置為基準繪上一點，並令ttt變數值為1，以xx及yy變數記錄起點，倘若第二次點選滑鼠，則令ttt變數值為0，且於(xx,yy)到第二次的點選點繪製一條線當mode=2且ttt=1時，移動滑鼠的同時，於Picture1上繪製前一個座標到目前座標間的線條常用的字串函數Left()傳回字串左邊指定數量的字元語法Left_str=Left(Str,n)將Str字串的左邊n個字元放到Left_str中n為小數時，則系統會自動將n以四捨五入轉成整數型態如果n>Str的長度時，將傳回全部字串Str=“ABCDEFG”sss=Left(Str,3)sss=“ABC”常用的字串函數(續)Right()傳回字串右邊指定數量的字元語法Right_str=Right(Str,n)將Str字串的右邊n個字元放到Right_str中n為小數時，則系統會自動將n以四捨五入轉成整數型態如果n>Str的長度時，將傳回全部字串Str=“ABCDEFG”sss=Right(Str,3)sss=“EFG”常用的字串函數(續)Mid()傳回字串中間指定數量的字元語法Mid_str=Mid(Str,n)將Str字串的第n個字元起後的全部字元放到Mid_str中Mid_str=Mid(Str,n,m)將Str字串的第n個字元起後的m個字元放到Mid_str中Str=“ABCDEFG”sss=Mid(Str,3)sss=“CDEFG”Str=“ABCDEFG”sss=Mid(Str,3,4)sss=“CDEF”常用的字串函數(續)Len()傳回字串的長度語法Len_str=Len(Str)將Str字串長度的值放到Len_str中Str=“ABCDEFG”sss=Len(Str)sss=7常用的字串函數(續)LTrim()、Trim()、RTrim()刪除字串中的空白字元L_str=LTrim(Str)傳回Str字串左邊不含空白字元的字串T_str=Trim(Str)傳回Str字串左右兩邊不含空白字元的字串R_str=RTrim(Str)傳回Str字串右邊不含空白字元的字串Str=“ABCD”sss=LTrim(Str)sss=“ABCD”Str=“ABCD”sss=RTrim(Str)sss=“ABCD”Str=“ABCD”sss=Trim(Str)sss=“ABCD”常用的字串函數(續)Space()重複空白字元語法Space_str=Space(n)傳回n個空白的字元Str1=“ABCD”Str2=“EFGH”sss=Str1+Space(3)+Str2sss=“ABCDEFGH”常用的字串函數(續)String()重複特定字元語法String_str=String(n,Str)傳回n個Str字串的第一個字元Str=“ABCD”sss=String(4,Str)sss=“AAAA”常用的字串函數(續)Asc()字元轉成Ascii碼語法Asc_str=Asc(Str)傳回Str字串的第一個字元轉成Ascii碼Chr()Ascii碼轉成字元語法Chr_str=Chr(Str)將數值資料轉成相對應的Ascii字元Str=“ABCD”sss=Asc(Str)sss=65Str=65sss=Chr(Str)sss=“A”常用的字串函數(續)Tab()定位函數語法Tab(n)目前游標所在行的最前面開始，向右邊移動n個位置與Print指令搭配使用Spc()移位函數語法Spc(n)目前游標所在位置開始，向右邊插入n個空白字元與Print指令搭配使用常用的轉換函數Int_str=Val(Str)將字串轉為數值型態Str_str=Str(Int)將數值轉為字串型態CV=FormatCurrency(X,n,vbTrue或vbFalse)將數值資料轉為貨幣值格式FP=FormatPercent(X,n,vbTrue或vbFalse)將數值資料格式化為百分比格式數值資料小數位數vbTrue：小數點前要補0vbFalse：小數點前不補0常用的轉換函數(續)FN=FormatNumber(X,n,vbTrue或vbFalse)將數值資料格式化DV=FormatDateTime(X,[顯示日期時間的格式])假令X=#5/5/200310:10:19PM#則顯示日期時間的格式為0日期與時間2003/5/5PM10:10:191完整日期2003年5月5日2簡短日期2003/5/53完整時間PM10:10:19424小時格式22:10常用的轉換函數(續)Week_name=WeekdayName(Str)傳回星期的名稱給Week_nameMonth_name=MonthName(Str)傳回月份的名稱給Month_nameReverse_str=StrReverse(Str)將字串Str反轉後回傳給Reverse_strJoin_str=Join(Str_Array,[d])將字串陣列組合成一個字串，d代表分隔字元常用的數學函數Abs(X)Sin(X)Cos(X)Tan(X)Atn(X)Exp(X)Log(X)Rnd(X)Sgn(X)CInt(X)Clog(X)Int(X)Fix(X)Sqr(X)Hex(X)Oct(X)Round(X,n)求整數值三角函數求絕對值指數函數自然對數亂數函數符號函數轉為整數函數轉為長整數函數求平方根16進位函數8進位函數依指定求出小數點位數並四捨五入常用的日期時間函數Date目前的系統日期Time目前的系統時間Now目前的系統日期與時間常用的日期時間函數(續)Timer傳回一Single型態的數值，其內容為從前一個午夜算起到現在所經過的秒數。Year(date)：傳回date變數的年份Month(date)：傳回date變數的月份Day(date)：傳回date變數的日期Hour(time)：傳回time變數的小時Minute(time)：傳回time變數的分鐘Second(time)：傳回time變數的秒鐘範例試設計一萬年曆程式陽曆為何有閏年的安排？有何規律性？

陽曆訂地球繞太陽公轉一周為一年，全年合計365日，稱為平年（平均太陽年的簡稱），但實際上地球繞日公轉一周平均為365.2422日，因此每積四年就會多出約0.9688日，為了使曆法能配合天象，規定當西元年數是四的倍數時，二月就增加1天成29天，該年稱為閏年，又因此法每四年又會多加0.03日左右，故再規定每四百年需減3天，當西元年數逢百年的倍數時，必需是400的倍數才是閏年，如1700、1800、1900都是平年，只有2000年能被400整除才是閏年。閏年的規則西元年數為4的倍數者閏100的倍數者不閏但400的倍數者閏所有的年可被4整除的年可被100整除的年可被400整除的年閏年平年西元元年一月一日是星期幾?星期一因此…西元元年一月三十一日是星期?31mod7=3星期三西元元年二月十日是星期?(31+10)mod7=6星期六西元二年一月十三日是星期?(365+13)mod7=0星期日版面配置ComboBox[Combo1]ComboBox[Combo2]Label[Label1(0)]Label[Label3]Label[Label2]Label[Label1(1)]CommandButton[Command1(0)~Command1(36)]CommandButton[Command2]所使用的變數year(型態為long)欲查詢的西元年month(型態為integer)欲查詢的月份day(型態為long)自西元元年一月一日至欲查詢的西元年月的第一天的總天數例如：欲查詢2001年12月，則day為西元元年1月1日至2001年12月1日的總天數month_day(型態為variant)一個儲存平年各月份天數的一維陣列(31,28,31,30,31,30,31,31,30,31,30,31)程式開始執行時的初值設定在Combo1中加入1999年至2010年的選項在Combo2中加入1月至12月的選項按平年各月的天數來設定month_day這個陣列的初始值Month_day01234567891011相對月份123456789101112相對天數312831303130313130313031CommandButton2的內容PrivateSubCommand2_Click()IfMsgBox("是否確定離開??",vbOKCancel+vbQuestion,"離開")=vbOKThenEndEndIfEndSubCommandButton1要做什麼？用來顯示月曆以複製方式建立Command1(0)~Command1(36)程式核心—ComboBox2希望當選定月份後立即顯示相對於所選年月的月曆因此，整個動作的重心就該放在ComboBox2ComboBox2的內容滑鼠左鍵點選Combo2兩次出現Combo2_Change()這不是所要的Combo2_Click才是所要的副程式段ComboBox2的內容(續)ComboBox2的內容(續)year=Val(Combo1.Text)month=Val(Combo2.Text)Fori=0To36Command1(i).Caption=""Nexti令變數year等於Combo1所點選的年份，並透過Val函數將其轉換為數值令變數month等於Combo2所點選的月份，並透過Val函數將其轉換為數值將Command1(0)到Command1(36)上Caption所顯示的值清空ComboBox2的內容(續)day=(year-1)*365+(year-1)/4-(year-1)/100+(year-1)/400計算所欲查詢的年份前一年至西元元年的總天數假設欲查詢的是2001年12月，year=2001則從西元1年1月1日到西元2000年12月31日共計有2000*365+2000/4-2000/100+2000/400=730000+500–20+5=730485天先將每年都當作平年(365天)，計算總天數其中共計有幾個閏年ComboBox2的內容(續)If((yearMod4=0AndyearMod100<>0)Or(yearMod100=0AndyearMod400=0))Thenmonth_day(1)=29Elsemonth_day(1)=28EndIfFori=0Tomonth-2day=day+month_day(i)Nexti假如所欲查詢的年份(2001)為閏年的話則其2月有29天，否則為28天累計總天數至欲查詢的前一個月的最後一天(11月30日)730485+31+28+31+30+31+30+31+31+30+31+30=730485+334=730819天ComboBox2的內容(續)Ifyear>1911ThenLabel2.Caption="民國"+Str(year-1911)+"年"+Str(month)+"月"ElseLabel2.Caption="民國前"+Str(Abs(1912-year))+"年"+Str(month)+"月"EndIfday=day+1week=dayMod7假如欲查詢的年份大於1911年則Label2顯示民國年份及月份(民國90年12月)否則顯示民國前年份及月份(民國前5年8月)累計天數至欲查詢的當月第一天730819+1=730820天計算欲查詢的年月第一天為星期幾(2000年12月1日)730820mod7=6(星期六)餘數與星期對照表餘數0123456星期日一二三四五六ComboBox2的內容(續)Fori=0Toweek-1Command1(i).Visible=FalseNextIFori=week+month_day(month-1)To36Command1(i).Visible=FalseNexti

將不需顯示的CommandButton隱藏ComboBox2的內容(續)Fori=1Tomonth_day(month-1)Command1(week+i-1).Visible=TrueCommand1(week+i-1).Caption=iNexti依序將日期填註到每一個相對的CommandButton中本章結束TheEnd谢谢观看/欢迎下载BYFAITHIMEANAVISIONOFGOODONECHERISHESANDTHEENTHUSIASMTHATPUSHESONETOSEEKITSFULFILLMENTREGARDLESSOFOBSTACLES.BYFAITHIBYFAITH一本万利工程1、背景驱动2、盈利策略3、选菜试菜4、价值创造5、完美呈现6、成功面试7、持续改造（一）、一本万利工程的背景驱动

1、什么是一本万利

2、餐饮时代的变迁菜单经验的指导方针运营市场定位的体现经营水平的体现体现餐厅的特色与水准沟通的工具餐厅对顾客的承诺菜单承诺的六大表现1、名字的承诺2、质量的承诺3、价格的承诺4、规格标准的承诺5、外文翻译的准确6、保证供应的承诺

1、顾客满意度餐厅价值、价格、合理感、愉快感、安心感、美味感、便利感、满足感、有价值感、喜悦感、特别感2-2、初期投资餐厅面积、保证金、设备投资、店铺装潢、器具用品投资、制服选定、菜单制作2-1、开业准备厨具、供应商选定、设计、用品选定、餐厅配置、员工训练、餐厅气氛、促销方式3、经营数据营业额、客流量、成本率、人均消费、顾客回头率、出品速度、人事费用菜单内容决定决定相关相关决定决定决定决定以菜单为导向的硬件投资

1、餐厅的装修风格2、硬件设施服务操作3、餐厅动线4、餐具与家俬5、厨房布局6、厨房设备菜单设计正果1、能诱导顾客购买你想让他买的餐点2、能迅速传达餐厅要表达的东西3、双赢：顾客喜欢、餐厅好卖餐厅时代的变迁食物时代硬体时代软体时代心体时代食物食品饥食饱食品质挑食品味品食品德惧食体验人们正在追寻更多的感受，更多的意义更多的体验，更多的幸福（二）盈利策略1、组建工程团队2、确定核心价值3、确定盈利目标4、确定客单价5、设计盈利策略6、确定核心产品谁来设计菜单？产品=做得出来的物品商品=卖得出去的物品商家=产品具备商品附加值物（什么产品）+事（满足顾客何种需求）从物到事从食物到餐饮从吃什么到为什么吃产品本身决定一本，产品附加值决定万利从生理到心理从物质到精神从概念到五觉体验创造产品的五觉附加值体验何来

一家企业以服务为舞台以商品为道具，让消费者完全投入的时候，体验就出现了PART01物=你的企业卖什么产品+事=能满足顾客何种需求？确定核心价值理念核心价值理念1、卖什么样的菜2、卖什么样的氛围？3、如何接待顾客？卖给谁？卖什么事？卖什么价？企业目标的设定1、理论导向的目标设定2、预算3、制定利润目标费用营业额亏损区利润区临界点变动费用总费用营业额曲线费用线X型损益图利润导向的目标设定确定目标设定营业收入=固定成本+目标利润1-变动成本率-营业税率例：A餐厅每月固定成本40万，变动成本50%，营业税率5.5%，目标利率每月8万，问A餐厅的月营业收入：月营收入=（40+8）÷（1-50%-5.5%）=48÷0.445=108万测算损益平衡点保本线=固定成本1-变动成本率-营业税率例：A餐厅保本线=40÷（1-50%-5.5%）

=40÷0.445

=90万定价的三重意义2、向竞争对手发出的信息和信号1、是利润最大化和最重要的决定因素3、价格本事是价值的体现定价由此开始1、评估产品、服务的质量2、寻求顾客价值与平衡点3、以价值定义市场确定客单价盈利占比策略

占比策略内部策略销售占比占比策略内部策略10%40%10%20%20%（三）、选菜试菜1、ABC产品分析2、产品的确定（食材、口味、烹调、餐饮）3、成本的确定ABC分析策略毛利率营业额CBACABBACCCAA营业额C毛利A优化、提升增加销售双A双赢ABC顾客商品涨价保留亏本商品删营业额A毛利C顾客超额、成本过高有意义的保留无意义的删除双C双输菜单内容选择的标准因素成本设备厨师技术操作空间菜系风格吻合度品质可控度原料供应顾客喜好菜单协议度（销售目标、颜色、口味、造型、营养等）产品类别确定的四个方面1、按食材确定比例2、按口味确定比例3、按烹饪确定比例4、按餐饮确定比例

（无酒精饮品、含酒精饮品比例）框架依据操作依据目标依据成本依据试口味成本操作第一次试菜的内容精确的成本核算—五个关键词1、净料率（一料一控、一料多档）2、调味料成本（单件产品、批量产品）3、燃料成本4、统一计量单位5、标准食谱成本卡试口味餐具造型色彩第二次试菜的内容四料构成表1、符合思想审定2、符合目标审定3、符合定位审定4、符合框架审定四平构成表(四)、创造价值1、定价策略的确定2、提升双A核心产品的附加值3、增加更多的顾客选择性顾客会记住的价格最低价人均消费热门畅销品商品较多的价格带最高价产品价格和观念价值永远是不一样的，体验经济时代出售的不是产品价格，而是观念定价与确定价格的区别确定价格产品、服务主导思路确定一个易于销售的价格由企业根据成本以及和其他企业的比较确定定价基于顾客的价值私立评估价值、确定等级在顾客和企业的来往过程中确定企业定价三大策略1、薄利多销策略2、相对稳定价格策略3、高价位价格策略提升产品附加值的“十大绝招”三好七增名字好卖相故事服务选择文案时间体验健康推广感觉“附加值”提升产品附加值的“两大前提”一好味道二品质确定好卖相美色器形设摄状增健康少油汤汁盐多有机养生品种增时间原材料生长原材料获得制作耗时美味时间要求增文案—文字叙述九问1、餐点是什么？2、如何烹调制作？3、如何呈现？4、有何故事？5、有否独特的口味？6、有否体现品质等级？7、食材的来源？8、有何独特的体验？9、对人有何好处？一料多烹多吃多味增选择增推广易拉宝台卡小画册传媒宣传销售人员介绍POP（五）、完美呈现1、专业团队的选择与合作2核心价值的呈现平面