即時通8.0 ~ 9.0 多開 教學
免程式歐~
看這歐~
1. 點 開始 (左下角的)
2. 按 執行
3. 輸入 regedit
4. 就會 跳出 登錄或編輯程式
5. 在 左邊 找 HKEY_CURRENT_USER
6. 然後 在HKEY_CURRENT_USER 的左邊 按一下+
7. 在裡面找 SOFTWARE
8. 一樣按個 +
9. 在裡面找 YAHOO
10. 一樣按個 +
11. 在裡面 找 Pager
12. 一樣按個 +
13. 在裡面 找 Test
ip612256374 發表在 痞客邦 留言(4) 人氣()
ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 井字遊戲
需要 都不用
程式碼如下
Public Class Form1
Dim Turn As Integer = 1
Dim w, h As Integer
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
w = Me.ClientSize.Width \ 3
h = Me.ClientSize.Height \ 3
Dim g As Graphics = Me.CreateGraphics
g.DrawLine(Pens.Gray, 0, h, w * 3, h)
g.DrawLine(Pens.Gray, 0, h * 2, w * 3, h * 2)
g.DrawLine(Pens.Gray, w, 0, w, h * 3)
g.DrawLine(Pens.Gray, w * 2, 0, w * 2, h * 3)
g.Dispose()
End Sub
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Dim g As Graphics = Me.CreateGraphics
Dim x1, y1 As Integer
If e.X x1 = 0
ElseIf e.X x1 = w
Else
x1 = w * 2
End If
If e.Y y1 = 0
ip612256374 發表在 痞客邦 留言(1) 人氣()
今天做了 簡易型計算機程式
需要 textbox*3 button*4 label*1
程式碼如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txtOutput.text = val (textbox1.text) +val (textbox2.text)
end sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
txtOutput.text = val (textbox1.text) -val (textbox2.text)
end sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
txtOutput.text = val (textbox1.text) *val (textbox2.text)
end sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
txtOutput.text = val (textbox1.text) /val (textbox2.text)
end sub
其他可自行更改 與修正
完成後 如下圖

ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 印星星 的程式
需要 button*1 textbox*1
程式碼如下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To 10
For j As Integer = 1 To i
txtOutput.Text &= "★"
Next
txtOutput.Text &= vbCrLf
Next
End Sub
End Class
一些可自行修改
完成後 如下圖

ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 解一元二次方程式
需要 button*2 textbox*4 label*3
程式碼 如下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, check As Integer
Dim ans1, ans2 As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
check = b * b - 4 * a * c
If check = 0 Then
ans1 = -b / (2 * a)
txtOutput.Text = "有兩個等根:" & ans1
ElseIf check txtOutput.Text = "有兩個虛根"
Else
ans1 = (-b + Math.Sqrt(check)) / (2 * a)
ans2 = (-b - Math.Sqrt(check)) / (2 * a)
txtOutput.Text = "有兩個相異的實根:" & ans1 & "," & ans2
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ip612256374 發表在 痞客邦 留言(1) 人氣()
上一次 做了 字體改變應用程式
這次 多了 功能表 與 字體大小
需要
menustrip*1 label*1
程式碼 如下
Public Class Form1
Private Sub 文字大小ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 文字大小ToolStripMenuItem.Click
End Sub
Private Sub mniType1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniType1.Click
lblShow.Font = New Font("新細明體", lblShow.Font.Size, lblShow.Font.Style)
End Sub
Private Sub mniType2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniType2.Click
lblShow.Font = New Font("標偕體", lblShow.Font.Size, lblShow.Font.Style)
End Sub
Private Sub mniSize1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSize1.Click
lblShow.Font = New Font(lblShow.Font.Name, 9, lblShow.Font.Style)
End Sub
Private Sub mniSize2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSize2.Click
lblShow.Font = New Font(lblShow.Font.Name, 12, lblShow.Font.Style)
End Sub
ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 X~X之間3的倍數 實際來講
叫做 列出區間內所有三的倍數
需要
Button * 1 → TextBox * 3 → Label * 2
程式碼如下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
For i As Integer = a To b
If i Mod 3 0 Then Continue For
txtOutput.Text &= i & " "
Next
End Sub
End Class
一些可自行修改
完成後 如下圖

ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 文字編輯程式 (類似記事本)
需要 2個 Dialog物件 分別為 openfiledialog1及 savefiledialog1
一個textbox
程式碼如下
Public Class Form1
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub 檔案FToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 檔案FToolStripMenuItem.Click
End Sub
Private Sub 儲存檔案SToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 儲存檔案SToolStripMenuItem.Click
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, _
TextBox1.Text, False)
End If
End Sub
Private Sub 開啟檔案OCtrloToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開啟檔案OCtrloToolStripMenuItem.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Text = My.Computer.FileSystem.ReadAllText _
(OpenFileDialog1.FileName)
End If
End Sub
ip612256374 發表在 痞客邦 留言(1) 人氣()
今天做了 圖片預覽程式
需要 一個Button 一個 PictureBox 一個 OpenFileDialog
程式碼如下
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
picShow.ImageLocation = OpenFileDialog1.FileName
End If
End Sub
End Class
一些細微可自行調整
完成後 如下圖

放圖後

ip612256374 發表在 痞客邦 留言(0) 人氣()
今天做了 小時鐘
需要 1個 Label 1個 Timer
程式碼 如下
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now '在Timer1上點滑鼠左鍵兩下進入此程式區塊
End Sub
End Class
完成後 如下圖

ip612256374 發表在 痞客邦 留言(0) 人氣()
今天 做了 簡單的字體改變應用程式
需要
一個 TextBox 三個 GroupBox 其中兩個 GroupBox 內各有 兩個 RadioButton 另一個GroupBoxs
內有三個 RadioButton
這樣做
以下為程式碼
Public Class Form1
Private Sub rbtType1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtType1.CheckedChanged
txtShow.Font = New Font("新細明體", 20, txtShow.Font.Style)
End Sub
Private Sub rbtType2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtType2.CheckedChanged
txtShow.Font = New Font("標偕體", 20, txtShow.Font.Style)
End Sub
Private Sub rbtColorRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorRed.CheckedChanged
txtShow.ForeColor = Color.Red
End Sub
Private Sub rbtColorGreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorGreen.CheckedChanged
txtShow.ForeColor = Color.Green
End Sub
Private Sub rbtColorBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtColorBlue.CheckedChanged
txtShow.ForeColor = Color.Blue
ip612256374 發表在 痞客邦 留言(0) 人氣()
今天用VB 做了一個 猜數字的小程式
需要 一個 按鈕 就夠了 其他可自行附加
以下為程式碼
Public Class 猜數字
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Guess As Integer
Guess = Val(InputBox("請輸入數字1-100"))
Do Until Guess = 66 '66為答案
If Guess > 66 Then
MsgBox("猜小一點") '猜太大了,提示使用者猜小一點
Guess = Val(InputBox("請輸入數字1-100"))
Else
MsgBox("猜大一點") '猜太小了,提示使用者猜大一點
Guess = Val(InputBox("請輸入數字1-100"))
End If
Loop
MsgBox("恭喜,猜中了")
MsgBox("浤珉說,很強歐")
End Sub
End Class
密碼預設為 66
ip612256374 發表在 痞客邦 留言(0) 人氣()
今天第一天 學 VB 看書做了簡單的程式
我是 用 VB 2005 Express
簡單的加減運算
需要 3個標籤 3個文字方塊 2個按鈕 分別作 加法與 減法的計算
以下為程式碼
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
ip612256374 發表在 痞客邦 留言(0) 人氣()
ip612256374 發表在 痞客邦 留言(0) 人氣()