📄 form2.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 615
Left = 840
TabIndex = 52
Top = 7950
Width = 615
End
Begin VB.Label Labelbuttonfinish
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 1815
Left = 9720
TabIndex = 32
Top = 1800
Width = 1335
End
Begin VB.Label Labeln41
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 735
Left = 10200
TabIndex = 31
Top = 5640
Visible = 0 'False
Width = 495
End
Begin VB.Label Labeln31
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 8040
TabIndex = 30
Top = 5640
Visible = 0 'False
Width = 495
End
Begin VB.Label Labeln21
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 5760
TabIndex = 29
Top = 5640
Visible = 0 'False
Width = 495
End
Begin VB.Label Labeln11
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 3600
TabIndex = 28
Top = 5640
Visible = 0 'False
Width = 495
End
Begin VB.Image Image4
Height = 1845
Left = 9720
Top = 5160
Width = 1410
End
Begin VB.Image Image3
Height = 1845
Left = 7560
Top = 5160
Width = 1410
End
Begin VB.Image Image2
Height = 1845
Left = 5280
Top = 5160
Width = 1410
End
Begin VB.Image Image1
Height = 1860
Left = 3120
Top = 5160
Width = 1410
End
Begin VB.Label lnilai
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Nilai"
BeginProperty Font
Name = "Pump Demi Bold LET"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 615
Left = 9000
TabIndex = 27
Top = 4245
Width = 2415
End
Begin VB.Label Label111
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "+"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 4800
TabIndex = 26
Top = 5400
Width = 255
End
Begin VB.Label Labeln3
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 5280
TabIndex = 22
Top = 2280
Visible = 0 'False
Width = 495
End
Begin VB.Label Labeln2
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 3240
TabIndex = 21
Top = 2280
Visible = 0 'False
Width = 495
End
Begin VB.Label Labeln1
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 855
Left = 1200
TabIndex = 20
Top = 2280
Visible = 0 'False
Width = 495
End
Begin VB.Label Labelh
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial Black"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 735
Left = 9720
TabIndex = 19
Top = 2280
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label12
Alignment = 2 'Center
Caption = "="
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 1
Top = 11760
Width = 255
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "TIME"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 5400
TabIndex = 0
Top = 8040
Width = 1215
End
Begin VB.Image Imagewaj
Height = 1845
Left = 840
Picture = "Form2.frx":7998B
Top = 5280
Width = 1410
End
Begin VB.Image Imagekri
Height = 1845
Left = 840
Picture = "Form2.frx":7B445
Top = 5280
Width = 1410
End
Begin VB.Image Imagewi
Height = 1860
Left = 840
Picture = "Form2.frx":7D53D
Top = 5280
Width = 1410
End
Begin VB.Label ilep
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "MONGGO"
BeginProperty Font
Name = "Pump Demi Bold LET"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 615
Left = 4080
TabIndex = 2
Top = 4245
Width = 4335
End
Begin VB.Label LabelOption
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "KELUAR"
BeginProperty Font
Name = "Pump Demi Bold LET"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 615
Left = 600
TabIndex = 24
Top = 4245
Width = 2175
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n, nn, nilai, ran As Integer
Dim nilai1 As Integer, nilai2 As Integer, nilai3 As Integer, nilai4 As Integer, nilaih As Integer
Dim penyim11 As Integer, penyim12 As Integer, penyim13 As Integer
Dim penyim21 As Integer, penyim22 As Integer, penyim23 As Integer
Dim penyim31 As Integer, penyim32 As Integer, penyim33 As Integer
Dim puser11 As Integer, puser12 As Integer, puser13 As Integer
Dim puser21 As Integer, puser22 As Integer, puser23 As Integer
Dim puser31 As Integer, puser32 As Integer, puser33 As Integer
Dim vkartugerak As Boolean
Dim wajiks, waruabangs, kritings, waruirengs As Boolean
Dim urutan_click As Integer
Dim sudahhitung As Boolean
Dim bilrandom As Integer
Dim jumkurnilai As Integer
Dim poinuser As Integer, poinkompi As Integer
Dim level As Integer
Dim setujunaik As Boolean
Dim wes1 As Boolean, wes2 As Boolean, wes3 As Boolean, wes4 As Boolean
Function rOper(a1 As Integer, a2 As Integer, top As TextBox) As Integer
ran = Fix(Rnd * 3 + 1)
Select Case ran
Case 1
rOper = a1 * a2
top.Text = "x"
Case 2
rOper = a1 + a2
top.Text = "+"
Case 3
rOper = a1 - a2
top.Text = "-"
End Select
End Function
Sub framehilang()
FrameCit.top = 192
FrameCit.Left = 808
Framehasilu.top = 192
Framehasilu.Left = 808
End Sub
Private Sub FrameCit_Click()
framehilang
End Sub
Private Sub Framehasilu_Click()
framehilang
End Sub
Private Sub Imagekri_Click()
ilep.Caption = "MONGGO"
If kritings = False Then
If urutan_click = 0 Then
Image1.Picture = Imagekri.Picture
urutan_click = urutan_click + 1
Labeln11.Caption = Labeln2.Caption
puser11 = Labeln11.Caption
ElseIf urutan_click = 1 Then
Image2.Picture = Imagekri.Picture
urutan_click = urutan_click + 1
Labeln21.Caption = Labeln2.Caption
puser12 = Labeln21.Caption
ElseIf urutan_click = 2 Then
Image3.Picture = Imagekri.Picture
urutan_click = urutan_click + 1
Labeln31.Caption = Labeln2.Caption
puser22 = Labeln31.Caption
ElseIf urutan_click = 3 Then
Image4.Picture = Imagekri.Picture
urutan_click = urutan_click + 1
Labeln41.Caption = Labeln2.Caption
puser32 = Labeln41.Caption
wes1 = True
End If
kritings = True
End If
End Sub
Private Sub Imagewa_Click()
ilep.Caption = "MONGGO"
If waruabangs = False Then
If urutan_click = 0 Then
Image1.Picture = Imagewa.Picture
urutan_click = urutan_click + 1
Labeln11.Caption = Labeln4.Caption
puser11 = Labeln11.Caption
ElseIf urutan_click = 1 Then
Image2.Picture = Imagewa.Picture
urutan_click = urutan_click + 1
Labeln21.Caption = Labeln4.Caption
puser12 = Labeln21.Caption
ElseIf urutan_click = 2 Then
Image3.Picture = Imagewa.Picture
urutan_click = urutan_click + 1
Labeln31.Caption = Labeln4.Caption
puser22 = Labeln31.Caption
ElseIf urutan_click = 3 Then
Image4.Picture = Imagewa.Picture
urutan_click = urutan_click + 1
Labeln41.Caption = Labeln4.Caption
puser32 = Labeln41.Caption
wes1 = True
End If
waruabangs = True
End If
End Sub
Private Sub Imagewaj_Click()
ilep.Caption = "MONGGO"
If wajiks = False Then
If urutan_click = 0 Then
Image1.Picture = Imagewaj.Picture
urutan_click = urutan_click + 1
Labeln11.Caption = Labeln3.Caption
puser11 = Labeln11.Caption
ElseIf urutan_click = 1 Then
Image2.Picture = Imagewaj.Picture
urutan_click = urutan_click + 1
Labeln21.Caption = Labeln3.Caption
puser12 = Labeln21.Caption
ElseIf urutan_click = 2 Then
Image3.Picture = Imagewaj.Picture
urutan_click = urutan_click + 1
Labeln31.Caption = Labeln3.Caption
puser22 = Labeln31.Caption
ElseIf urutan_click = 3 Then
Image4.Picture = Imagewaj.Picture
urutan_click = urutan_click + 1
Labeln41.Caption = Labeln3.Caption
puser32 = Labeln41.Caption
wes1 = True
End If
wajiks = True
End If
End Sub
Private Sub Imagewi_Click()
ilep.Caption = "MONGGO"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -