vb.net小項(xiàng)目,vb編程小程序

vs2008中創(chuàng)建的的VB.net項(xiàng)目如何分模塊設(shè)計(jì)

你這個(gè)問題不怎么號(hào)回答，實(shí)際上一個(gè)項(xiàng)目可以分成N個(gè)小項(xiàng)目，具體如何劃分需要根據(jù)經(jīng)驗(yàn)以及具體情況具體分析，這方面有專門的書籍來論述，不是一兩句能講清楚。這里只是講一下劃，下圖，rocket項(xiàng)目劃分為bootcode?rbuild......等5個(gè)子項(xiàng)目，每個(gè)子項(xiàng)目可以完成自己功能?，總項(xiàng)目調(diào)用這些子項(xiàng)目的功能。

10年積累的成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營銷網(wǎng)站建設(shè)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先建設(shè)網(wǎng)站后付款的網(wǎng)站建設(shè)流程，更有馬邊彝族免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

期末老師讓做一個(gè)比較有創(chuàng)意的vb.net小軟件，無從下手！求幫忙

隨手做了個(gè)打地鼠，代碼拿去吧。

下圖是10x10超大窗體“打地鼠”

直接新建個(gè)窗體，覆蓋全部代碼，不需要拖控件，全部動(dòng)態(tài)創(chuàng)建了。

參數(shù)都在前面幾行，可以隨便改。

格子寬和高是70，間距20，因此橫格子和豎格子不要超過10，不然窗體會(huì)擴(kuò)張到非常大的程度。

調(diào)整時(shí)鐘的Interval可決定地鼠的出現(xiàn)頻率，你可以修改變化概率?=?15這句話改變出現(xiàn)幾率。

Public?Class?Form1

Dim?橫格子?=?4

Dim?豎格子?=?4

Dim?背景色?=?Color.Bisque

Dim?打中色?=?Color.LawnGreen

Dim?失誤色?=?Color.Red

Dim?按鈕(橫格子,?豎格子)?As?Button

Public?WithEvents?時(shí)鐘?As?New?Timer?With?{.Interval?=?400}

Public?WithEvents?分?jǐn)?shù)板?As?New?Label?With?{.AutoSize?=?False,?.Width?=?120,?

.Height?=?26}

Dim?字體?=?New?Font("黑體",?14)

Dim?隨機(jī)數(shù)?As?New?Random

Dim?打中數(shù)?As?Integer?=?0

Dim?分?jǐn)?shù)?As?Integer?=?0

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Me.Font?=?字體

For?x?=?1?To?橫格子

For?y?=?1?To?豎格子

按鈕(x,?y)?=?New?Button()

Me.Controls.Add(按鈕(x,?y))

按鈕(x,?y).Width?=?70

按鈕(x,?y).Height?=?70

按鈕(x,?y).Text?=?""

按鈕(x,?y).Location?=?New?Point((x?-?1)?*?(按鈕(x,?y).Width?+?20)?+?

20,?(y?-?1)?*?(按鈕(x,?y).Height?+?20)?+?20)

按鈕(x,?y).Name?=?String.Format("Button_{0}_{1}",?x,?y)

按鈕(x,?y).BackColor?=?背景色

按鈕(x,?y).FlatStyle?=?FlatStyle.Flat

按鈕(x,?y).Tag?=?0

AddHandler?按鈕(x,?y).Click,?AddressOf?按鈕點(diǎn)擊

Me.Text?=?"打地鼠"??"??[空格鍵暫停]"

Me.KeyPreview?=?True

Dim?k?=?按鈕(橫格子,?豎格子)

Me.Width?=?k.Left?+?k.Width?+?40

Me.Height?=?k.Top?+?k.Height?+?65

Me.Controls.Add(分?jǐn)?shù)板)

分?jǐn)?shù)板.Location?=?New?Point(Me.Width?/?2?-?25,?0)

分?jǐn)?shù)板.Text?=?"分?jǐn)?shù)牌"

時(shí)鐘.Enabled?=?True

End?Sub

Private?Sub?按鈕點(diǎn)擊(sender?As?Object,?e?As?EventArgs)

If?時(shí)鐘.Enabled?=?False?Then?Exit?Sub

Dim?控件名?=?CType(sender,?Button).Name.Split("_")

Dim?x?=?CInt(控件名(1))?'截取_分割的第二部分Button_{0}_{1}

Dim?y?=?CInt(控件名(2))?'截取_分割的第三部分Button_{0}_{1}

If?按鈕(x,?y)?IsNot?Nothing?Then

If?按鈕(x,?y).Text?=?"地鼠"?Then

打中數(shù)?=?打中數(shù)?+?1

分?jǐn)?shù)?=?分?jǐn)?shù)?+?20

按鈕(x,?y).Text?=?打中數(shù)??"!"

分?jǐn)?shù)板.Text?=?"得分："??分?jǐn)?shù)

按鈕(x,?y).BackColor?=?打中色

按鈕(x,?y).Tag?=?1

ElseIf?按鈕(x,?y).Text?=?""?Then

分?jǐn)?shù)?=?分?jǐn)?shù)?-?20

If?分?jǐn)?shù)??0?Then?分?jǐn)?shù)?=?0

分?jǐn)?shù)板.Text?=?"得分："??分?jǐn)?shù)

按鈕(x,?y).Text?=?"亂打!"

按鈕(x,?y).BackColor?=?失誤色

按鈕(x,?y).Tag?=?2

End?If

End?Sub

Private?Sub?時(shí)鐘_Tick(sender?As?Object,?e?As?EventArgs)?Handles?時(shí)鐘.Tick

For?x?=?1?To?橫格子

For?y?=?1?To?豎格子

Dim?變化概率?=?隨機(jī)數(shù).Next(1,?100)

If?變化概率?=?40?Then

If?按鈕(x,?y).Tag?=?1?Or?按鈕(x,?y).Tag?=?2?Then

按鈕(x,?y).Text?=?""

按鈕(x,?y).BackColor?=?背景色

按鈕(x,?y).Tag?=?0

End?If

If?變化概率?=?15?Then

If?按鈕(x,?y).Text?=?"地鼠"?Then

按鈕(x,?y).Text?=?""

ElseIf?按鈕(x,?y).Text?=?""?Then

按鈕(x,?y).Text?=?"地鼠"

End?If

End?Sub

Private?Sub?Form1_KeyUp(sender?As?Object,?e?As?KeyEventArgs)?Handles?

MyBase.KeyUp

If?e.KeyCode?=?Keys.Space?Then?時(shí)鐘.Enabled?=?Not?時(shí)鐘.Enabled

End?Sub

End?Class

如滿意，請(qǐng)采納，謝謝。

求寫一個(gè)VB.Net小程序

隨機(jī)生成2-5階方陣：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim d(,) As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Randomize()

n = Int(4 * Rnd() + 2)

ReDim d(n, n)

Label1.Text = ""

For i = 1 To n

For j = 1 To n

d(i, j) = Int(Rnd() + 0.5)

Label1.Text = Label1.Text d(i, j) " "

Label1.Text = Label1.Text vbCrLf

End Sub

誰能幫我用VB.net做個(gè)簡(jiǎn)單的游戲設(shè)計(jì)啊,我快愁死了

這是個(gè)vb6的BINGO小游戲的代碼如果要源程序去我資料里找我網(wǎng)盤的地址下載bingo.rar

因?yàn)闆]有任何第三方控件，可以直接轉(zhuǎn)成vb.net的！~

Option Explicit

Private iSumA As IntegerPrivate iSumB As Integer

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Call S_Clear(1)

If F_CheckAll = False Then Exit Sub

For j = 0 To 3

For i = 0 To 3

If Val(Text(j).Text) = Val(Label(i).Caption) Then

If i = j Then

iSumA = iSumA + 1

Else

iSumB = iSumB + 1

End If

Call S_Show

End Sub

Private Sub S_Clear(Optional iKB As Integer = 0)

Dim i As Integer

If iKB = 0 Then

For i = 0 To 3

Label(i).Caption = ""

Text(i).Text = ""

End If

iSumA = 0

iSumB = 0

Label5.Caption = ""

End Sub

Private Sub S_Start()

Dim i As Integer

For i = 0 To 3

Label(i).Visible = False

Label(i).Caption = F_iGetRandomize(i)

End Sub

Private Sub S_Show()

Dim stemp As String

Dim i As Integer

For i = 1 To iSumA

stemp = stemp "A"

For i = 1 To iSumB

stemp = stemp "B"

If iSumA + iSumB = 0 Then

Label5.Caption = "0000"

Else

Label5.Caption = stemp

End If

If iSumA = 4 Then

For i = 0 To 3

Label(i).Visible = False

Label(i).Caption = F_iGetRandomize(i)

MsgBox "Bingo", vbOKOnly, "Flying Frog"

Command2.Value = True

DoEvents

Text(0).SetFocus

End If

End Sub

Private Sub Command2_Click()

Call S_Clear

Call S_Start

End Sub

Private Sub Form_Load()

Call S_Clear

Call S_Start

End Sub

Private Function F_iGetRandomize(ByVal iKB As Integer) As Integer

Dim num As Integer

Start:

Randomize

num = Rnd * (9 - 1) + 1

Select Case iKB

Case 0

F_iGetRandomize = num

Case 1

If num Val(Label(0).Caption) And _

num Val(Label(2).Caption) And _

num Val(Label(3).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

Case 2

If num Val(Label(0).Caption) And _

num Val(Label(2).Caption) And _

num Val(Label(3).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

Case 3

If num Val(Label(0).Caption) And _

num Val(Label(1).Caption) And _

num Val(Label(2).Caption) Then

F_iGetRandomize = num

Else

GoTo Start

End If

End Select

End Function

Private Function F_CheckText(ByVal iIndex As Integer) As Boolean

F_CheckText = False

If Val(Text(iIndex).Text) = 0 Then

Text(iIndex).SetFocus

MsgBox "Must Input", vbCritical, "Flying Frog"

Exit Function

End If

Select Case iIndex

Case 0

If Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 1

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 2

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(3).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

Case 3

If Val(Text(iIndex).Text) = Val(Text(0).Text) Or _

Val(Text(iIndex).Text) = Val(Text(1).Text) Or _

Val(Text(iIndex).Text) = Val(Text(2).Text) Then

Text(iIndex).SetFocus

MsgBox "Same Number", vbCritical, "Flying Frog"

Exit Function

End If

End Select

F_CheckText = True

End Function

Private Function F_CheckAll() As Boolean

Dim i As Integer

F_CheckAll = False

For i = 0 To 3

If F_CheckText(i) = False Then Exit Function

F_CheckAll = True

End Function

Private Sub Text_GotFocus(Index As Integer)

Text(Index).SelStart = 0

Text(Index).SelLength = Len(Text(Index).Text)

End Sub

Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

If F_CheckText(Index) = False Then Exit Sub

End If

S_gKeySend (KeyCode)

End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)

KeyAscii = F_gKeypressNumber(Text(Index), KeyAscii, 1)

End Sub

vb.net 如何在一個(gè)項(xiàng)目中創(chuàng)建類，并且使用他?

在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。

示例：

public class form1

‘創(chuàng)建一個(gè)屬于form的子類，名稱為【類名】。

public class 類名

’定義類成員text

public text as string

end class

‘定義一個(gè)【類名】類的公共變量。

dim 類名1 as 類名

’定義一個(gè)過程，使用【類名】類的text成員

public sub 過程

‘實(shí)例化【類名1】

類名1=new 類名

類名1.text=“賦值”

’定義一個(gè)【新類】類的私用變量，并實(shí)例化。

dim 新類1 as new 新類

新類1.name=“一個(gè)字符串”

新類1.age=12

end sub

end class

‘’‘創(chuàng)建一個(gè)與form同級(jí)的類，名稱為【新類】

public class 新類

public sub new（）

end sub

public name as string

public age as integer

end class

在模塊中使用：

public class module1

dim a as new form1.類名

end module

文章題目：vb.net小項(xiàng)目,vb編程小程序
網(wǎng)站URL：http://www.muchs.cn/article36/hssepg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機(jī)、靜態(tài)網(wǎng)站、電子商務(wù)、App開發(fā)、做網(wǎng)站、域名注冊(cè)

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容

vb.net小項(xiàng)目,vb編程小程序

vs2008中創(chuàng)建的的VB.net項(xiàng)目如何分模塊設(shè)計(jì)

期末老師讓做一個(gè)比較有創(chuàng)意的vb.net小軟件，無從下手！求幫忙

求寫一個(gè)VB.Net小程序

誰能幫我用VB.net做個(gè)簡(jiǎn)單的游戲設(shè)計(jì)啊,我快愁死了

vb.net 如何在一個(gè)項(xiàng)目中創(chuàng)建類，并且使用他?

期末老師讓做一個(gè)比較有創(chuàng)意的vb.net小軟件，無從下手！求幫忙

vb.net 如何在一個(gè)項(xiàng)目中創(chuàng)建類，并且使用他?