ini adalah aplikasi VB lampu merah 4 simpang yang di tugaskan oleh kk tingkat, cuma mao share aja
masih newbie nih, menurut sesepuh sebaiknya ilmu yang kita dapati di tulis ya aku coba tulis aja di blok heheh
monggo coment dll nya
ini contoh sourcenya :
Dim a, b As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Label1.Caption = ""
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
a = 0
b = 0
End Sub
Private Sub Timer1_Timer()
a = a + Timer1.Interval
Select Case a
Case 4000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbYellow
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen
Case 8000
Shape2.FillColor = vbBlack
Shape3.FillColor = vbBlack
Shape4.FillColor = vbGreen
Shape6.FillColor = vbBlack
Shape7.FillColor = vbYellow
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack
Case 12000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbBlack
Shape7.FillColor = vbBlack
Shape8.FillColor = vbGreen
Shape10.FillColor = vbBlack
Shape11.FillColor = vbYellow
Shape12.FillColor = vbBlack
Shape14.FillColor = vbRed
Shape15.FillColor = vbBlack
Shape16.FillColor = vbBlack
Case 16000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbBlack
Shape11.FillColor = vbBlack
Shape12.FillColor = vbGreen
Shape14.FillColor = vbRed
Shape15.FillColor = vbYellow
Shape16.FillColor = vbBlack
Case 20000
Shape2.FillColor = vbRed
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape6.FillColor = vbRed
Shape7.FillColor = vbBlack
Shape8.FillColor = vbBlack
Shape10.FillColor = vbRed
Shape11.FillColor = vbBlack
Shape12.FillColor = vbBlack
Shape14.FillColor = vbBlack
Shape15.FillColor = vbBlack
Shape16.FillColor = vbGreen
a = 0
End Select
End Sub
Private Sub Timer2_Timer()
b = b + Timer2.Interval
Label1.Caption = Val(4000 - b) / Val(1000)
Select Case b
Case 4000
b = 0
End Select
End Sub
Private Sub Timer3_Timer()
How to make money from winning poker cash games
BalasHapusIf a poker hand หาเงินออนไลน์ is won, you win by winning the cash. The best way to make money from winning poker cash games is to place a bet.