VB全自动洗衣机过程模拟.rar

VB模拟全自动洗衣机的整个洗衣过程，比如模拟抽水、洗衣、浸泡、脱水的各个过程，符合vb结构化程序的特点，简单易懂，也是一般小游戏的循环方式，部分代码说明： 　　Dim WarterHeight As Single '水高度 　　Dim DiBuH As Single '底部高度 　　Dim KGJiashui As Integer '进水开关 　　Dim KGChushui As Integer '出水开关 　　Dim shuiguanColor As Long '水管颜色 　　Dim shuiguanColorWarter As Long '水管有水时候的颜色 　　Dim JiashuiV As Single '加水速度 　　Dim ChushuiV As Single '出水速度 　　Dim inRun As Boolean '运行中，洗衣机已经启动了 　　Dim ShengyuTime As Single '剩余时间 　　Dim SheDingTime As Single '设定时间 　　Dim ShengyuCishu As Single '剩余次数 　　Dim Huanshui As Boolean '换水状态 　　Dim mOk As Boolean '完成 　　Dim OneRun As Boolean '首次运行 　　Dim HuanshuiNum As Integer '换水完成 0-放水,1-进水