Jarvis Blog

 
網誌要搬家了!!

VB製作的樂透抽獎機
沒有很美觀就是了
還存在一些BUG!

JAVA的洗牌程式
 
 
主程式

C#基本使用checkedListBox




using System;
using System.ComponentModel;
using System.Data;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
string[] items = { "雞排", "水煎包","百葉豆腐","煎餃","蛋餅","飯糰","三明治","漢堡","豆漿","牛肉炒飯",
"蝦仁炒飯","肉絲炒飯","路肉飯","控肉飯","燙青菜","三杯雞","牛小排"};
public Form1()
{
InitializeComponent();
}

private void Form1_Load(object sender, EventArgs e)
{
foreach (string tmp in items)
{
checkedListBox1.Items.Add(tmp);
}
}

private void button3_Click(object sender, EventArgs e)
{
Application.Exit();
}

private void button2_Click(object sender, EventArgs e)
{
for (int i = 0; i < checkedListBox1.Items.Count; i++)
{
checkedListBox1.SetItemChecked(i, false);
}
}

private void button1_Click_1(object sender, EventArgs e)
{
Form2 form = new Form2();
for (int i = 0; i < checkedListBox1.Items.Count; i++)
{
if (checkedListBox1.GetItemChecked(i))
{
form.richTextBox1.Text += checkedListBox1.Items[i].ToString() + ",";
}
}

form.Show();

if (form.richTextBox1.Text == "")
{
MessageBox.Show("阿你是不餓喔");
}
}
}
}

這是VB製作的精簡計算機


Public Class Form1
Dim tmp As Double = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ReadOnly = True
Label2.Text = tmp
Label3.Text = ""
End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
TextBox1.Text += btn1.Text
End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
TextBox1.Text += btn2.Text
End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
TextBox1.Text += btn3.Text
End Sub

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
TextBox1.Text += btn4.Text
End Sub

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
TextBox1.Text += btn5.Text
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
TextBox1.Text += btn6.Text
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
TextBox1.Text += btn7.Text
End Sub

Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
TextBox1.Text += btn8.Text
End Sub

Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
TextBox1.Text += btn9.Text
End Sub

Private Sub btnplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click
If CDbl(Label2.Text) = 0 Then
Label2.Text = TextBox1.Text
Label3.Text = "+"
TextBox1.Text = ""
ElseIf Label3.Text = "-" Then
Label2.Text = CDbl(Label2.Text) - CDbl(TextBox1.Text)
Label3.Text = "+"
TextBox1.Text = ""
ElseIf Label3.Text = "*" Then
Label2.Text = CDbl(Label2.Text) * CDbl(TextBox1.Text)
Label3.Text = "+"
TextBox1.Text = ""
ElseIf Label3.Text = "/" Then
Label2.Text = CDbl(Label2.Text) / CDbl(TextBox1.Text)
Label3.Text = "+"
TextBox1.Text = ""
Else
Label2.Text = CDbl(Label2.Text) + CDbl(TextBox1.Text)
Label3.Text = "+"
TextBox1.Text = ""
End If
End Sub

Private Sub btnequ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnequ.Click
If TextBox1.Text = "" Then
TextBox1.Text = Label2.Text
Exit Sub
End If
Select Case Label3.Text
Case "+"
TextBox1.Text += CDbl(Label2.Text)
Case "-"
TextBox1.Text = CDbl(Label2.Text) - CDbl(TextBox1.Text)
Case "*"
TextBox1.Text = CDbl(Label2.Text) * CDbl(TextBox1.Text)
Case "/"
TextBox1.Text = CDbl(Label2.Text) / CDbl(TextBox1.Text)
End Select
End Sub

Private Sub btnsub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsub.Click
If CDbl(Label2.Text) = 0 Then
Label2.Text = TextBox1.Text
Label3.Text = "-"
TextBox1.Text = ""
ElseIf Label3.Text = "+" Then
Label2.Text += CDbl(TextBox1.Text)
TextBox1.Text = ""
Label3.Text = "-"
ElseIf Label3.Text = "*" Then
Label2.Text *= CDbl(TextBox1.Text)
TextBox1.Text = ""
Label3.Text = "-"
ElseIf Label3.Text = "/" Then
Label2.Text = CDbl(Label2.Text) / CDbl(TextBox1.Text)
Label3.Text = "-"
TextBox1.Text = ""
Else
Label2.Text = CDbl(Label2.Text) - CDbl(TextBox1.Text)
Label3.Text = "-"
TextBox1.Text = ""
End If
End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Application.Exit()
End Sub

Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
TextBox1.Text += btn0.Text
End Sub

Private Sub btnmul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmul.Click
If CDbl(Label2.Text) = 0 Then
Label2.Text = TextBox1.Text
Label3.Text = "*"
TextBox1.Text = ""
ElseIf Label3.Text = "+" Then
Label2.Text += CDbl(TextBox1.Text)
Label3.Text = "*"
TextBox1.Text = ""
ElseIf Label3.Text = "-" Then
Label2.Text = CDbl(Label2.Text) - CDbl(TextBox1.Text)
Label3.Text = "*"
TextBox1.Text = ""
ElseIf Label3.Text = "/" Then
Label2.Text = CDbl(Label2.Text) / CDbl(TextBox1.Text)
Label3.Text = "*"
TextBox1.Text = ""
Else
Label2.Text = CDbl(Label2.Text) * CDbl(TextBox1.Text)
Label3.Text = "*"
TextBox1.Text = ""
End If
End Sub

Private Sub btndiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndiv.Click
If CDbl(Label2.Text) = 0 Then
Label2.Text = TextBox1.Text
Label3.Text = "/"
TextBox1.Text = ""
ElseIf Label3.Text = "+" Then
Label2.Text += CDbl(TextBox1.Text)
Label3.Text = "/"
TextBox1.Text = ""
ElseIf Label3.Text = "-" Then
Label2.Text = CDbl(Label2.Text) - CDbl(TextBox1.Text)
Label3.Text = "/"
TextBox1.Text = ""
ElseIf Label3.Text = "*" Then
Label2.Text = CDbl(Label2.Text) * CDbl(TextBox1.Text)
Label3.Text = "*"
TextBox1.Text = ""
Else
Label2.Text = CDbl(Label2.Text) / CDbl(TextBox1.Text)
Label3.Text = "/"
TextBox1.Text = ""
End If
End Sub

Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
Label2.Text = 0
Label3.Text = ""
TextBox1.Text = ""
End Sub

Private Sub btndot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndot.Click
TextBox1.Text += btndot.Text
End Sub
End Class

所得稅計算

程式碼中所得稅為虛構
所得稅公式為 :

使用openfiledialog和picturebox

Public Class Form1

 

 

 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

 If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

 PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

 RadioButton1.Checked = False

 PictureBox1.Visible = True

 End If

 End Sub

 

 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

 PictureBox1.Visible = False

 End Sub

 End Class

VB BMI 計算測試



Public Class Form1


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 hight, weight, tmp As Double
Dim ans As Integer
If TextBox1.Text = "" Then
MessageBox.Show("請填身高")
End If
If TextBox2.Text = "" Then
MessageBox.Show("請填體重")
End If
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
hight = CDbl(TextBox1.Text)
weight = CDbl(TextBox2.Text)
tmp = hight / 100
ans = weight / (tmp * tmp)
Label4.Text = ans
End If
End If
If RadioButton1.Checked = True Then
If ans < 18 Then
Label4.Text += "過輕"
ElseIf ans < 24 Then
Label4.Text += "正常"
ElseIf ans >= 24 Then
Label4.Text += "過重"
End If
End If
If RadioButton2.Checked = True Then
If ans < 18 Then
Label4.Text += "過輕"
ElseIf ans < 24 Then
Label4.Text += "正常"
ElseIf ans >= 24 Then
Label4.Text += "過重"
End If
End If
End Sub
End Class

這是VB Timer 的小測試