ผลต่างระหว่างรุ่นของ "ภาษาปาสกาล"
เนื้อหาที่ลบ เนื้อหาที่เพิ่ม
ไม่มีความย่อการแก้ไข |
ไม่มีความย่อการแก้ไข |
||
บรรทัด 18:
result = ((A-B)^2 + (C-D)^2)^0.5
result = cal.caption
==ตัวอย่างการใช้คำสั่ง DIM ในโปรแกรม ไฮโล==
Option Explicit
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdRollDice_Click()
Dim result As Integer
Dim total As Integer
imgCoin.Visible = False
Randomize
result = Int((6 * Rnd) + 1)
lblDice1.Caption = result
result = Int((6 * Rnd) + 1)
lblDice2.Caption = result
result = Int((6 * Rnd) + 1)
lblDice3.Caption = result
total = CInt(lblDice1.Caption) + CInt(lblDice2.Caption) + CInt(lblDice3.Caption)
lblTotal.Caption = total
Select Case total
Case Is > 11
lblResult.Caption = "HIGH"
If optHigh.Value Then
imgCoin.Visible = True
End If
Case Is < 11
lblResult.Caption = "LOW"
If optLow.Value Then
imgCoin.Visible = True
End If
Case 11
lblResult.Caption = "HI-LO"
If optHiLo.Value Then
imgCoin.Visible = True
End If
End Select
End Sub
Private Sub Form_Load()
End Sub
Private Sub imgCoin_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub lblDice1_Click()
End Sub
Private Sub lblDice2_Click()
End Sub
Private Sub lblDice3_Click()
End Sub
Private Sub lblResult_Click()
End Sub
Private Sub lblTotal_Click()
End Sub
Private Sub optHigh_Click()
End Sub
Private Sub optHiLo_Click()
End Sub
Private Sub optLow_Click()
End Sub
|