建站
咨詢
售后
建站咨詢
新聞中心
如何用VB.NET畫(huà)同心圓
窗體上添加一個(gè)按鈕，在該按鈕的單擊事件里編寫(xiě)代碼如下：
成都創(chuàng)新互聯(lián)電話聯(lián)系：18980820575，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)，成都創(chuàng)新互聯(lián)網(wǎng)頁(yè)制作領(lǐng)域十余年，包括成都廣告制作等多個(gè)方面擁有多年的網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)，選擇成都創(chuàng)新互聯(lián)，為網(wǎng)站錦上添花。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'聲明窗體的Me.CreateGraphics對(duì)象
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim Cx As Integer = 150 '圓心的X坐標(biāo)
Dim Cy As Integer = 150 '圓心的Y坐標(biāo)
Dim R As Integer '圓的半徑
'繪制半徑為R的圓
For R = 5 To 100 Step 5
MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))
Next
End Sub
‘用黑色畫(huà)筆繪制一組同心圓，半徑從5開(kāi)始，增量為5。
說(shuō)明：
DrawEllipse是VB.Net的Graphics類(lèi)的繪制橢圓的方法；他有幾種格式，上面使用的是一種；
DrawEllipse（畫(huà)筆的顏色，繪制橢圓所需要的矩形區(qū)域）
其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個(gè)數(shù)值確定，第1個(gè)數(shù)值，確定該區(qū)域左上角的X坐標(biāo)，第2個(gè)數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個(gè)數(shù)值，確定該區(qū)域的寬度，第4個(gè)數(shù)值，確定該區(qū)域的高度。
例如1：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))
就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長(zhǎng)為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過(guò)數(shù)學(xué)計(jì)算，知道如何繪制了。
同理例如2：
DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))
就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長(zhǎng)軸為100，短軸為50的內(nèi)切橢圓。
vb.net 計(jì)算圓周率公式
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
Dim?s?As?Double
Dim?n?As?Integer
s?=?2
For?n?=?1?To?10000
s?=?s?*?(2?*?n)?^?2?/?(2?*?n?-?1)?/?(2?*?n?+?1)
Next?n
MsgBox("圓周率π的值是"??s)
End?Sub
VB.net的開(kāi)方運(yùn)算
VB的運(yùn)算順序是：先乘除、后加減，有括號(hào)的先算括號(hào)內(nèi)，有負(fù)號(hào)的先算負(fù)號(hào)。
請(qǐng)你比較一下這個(gè)運(yùn)算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
這樣就會(huì)發(fā)現(xiàn)，你的代碼中括號(hào)的位置錯(cuò)了。
正確的應(yīng)該是： Math.Sqrt((n + 1) / n - 1)
VB.net當(dāng)中用數(shù)學(xué)函數(shù)math.sin出現(xiàn)的問(wèn)題
-1.52341E-13
科學(xué)計(jì)數(shù)法，10的-13次方表示此數(shù)已經(jīng)接近于0了，應(yīng)該是single類(lèi)型的精度導(dǎo)致的，你把精度設(shè)置適當(dāng)應(yīng)該就可以了。
VB.NET 如何繪制數(shù)學(xué)代數(shù)式（公式、方程、函數(shù)解析式等）？
絕對(duì)值是“|”，可以直接顯示，同理對(duì)數(shù)可用log(x)代替，根號(hào)和其他不支持顯示。
如果要顯示數(shù)學(xué)式子，只能畫(huà)吧。
計(jì)算時(shí)可用“^”求冪或求根，“/”表示除法和分?jǐn)?shù)線，還有math類(lèi)。
網(wǎng)頁(yè)名稱(chēng)：vb.net數(shù)學(xué),net 數(shù)學(xué)
文章URL：http://ef60e0e.cn/article/hohsoh.html
