hellp po sa inyo, patulong po sa code. ganito po 5 forms po ito.. sa form1 may code na binigay ang titser namin. THANK AND ADVANCE
sa form1 code:
Public Class Form1
Sub Create_Chart1()
Dim b As Button
Dim r As Integer
For i As Integer = 1 To 31 Step 2
b = New Button
b.Size = New Size(40, 30)
b.Text = i
r = Math.Floor(i / 8)
b.Location = New Point(0 + (i Mod 8) * 50, 35 * r)
Me.Controls.Add(b)
Next
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Create_Chart1()
End Sub
End Class
ANG DESIGN NITO:
1 3 5 7
9 11 13 15
17 19 21 23
25 27 29 31
SA FORM 2 - 5 DAPAT GANITO MAGKASUNOD-SUNOD AND NUMBER
FORM 2
2 3 6 7
10 11 14 15
18 19 22 23
26 27 30 31
FORM 3
4 5 6 7
12 13 14 15
20 21 22 23
28 29 30 31
FORM 4
8 9 10 11
12 13 14 15
24 25 26 27
28 29 30 31
FORM 5
16 17 18 19
20 21 22 23
24 25 26 27
28 29 30 31
sa form1 code:
Public Class Form1
Sub Create_Chart1()
Dim b As Button
Dim r As Integer
For i As Integer = 1 To 31 Step 2
b = New Button
b.Size = New Size(40, 30)
b.Text = i
r = Math.Floor(i / 8)
b.Location = New Point(0 + (i Mod 8) * 50, 35 * r)
Me.Controls.Add(b)
Next
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Create_Chart1()
End Sub
End Class
ANG DESIGN NITO:
1 3 5 7
9 11 13 15
17 19 21 23
25 27 29 31
SA FORM 2 - 5 DAPAT GANITO MAGKASUNOD-SUNOD AND NUMBER
FORM 2
2 3 6 7
10 11 14 15
18 19 22 23
26 27 30 31
FORM 3
4 5 6 7
12 13 14 15
20 21 22 23
28 29 30 31
FORM 4
8 9 10 11
12 13 14 15
24 25 26 27
28 29 30 31
FORM 5
16 17 18 19
20 21 22 23
24 25 26 27
28 29 30 31
Last edited: