Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Pc_Domain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pc_Domain.Paint
Dim g As Graphics = e.Graphics
Dim clr1, clr2, clr3 As Pen
Dim q, q1 As Double
Dim Xas, Yas, r, c, s, i, j, ang, t, f, y1, y2, yp1, yp2 As Integer
Xas = Ph / 2
Yas = Pw / 2
q = Math.PI / 180
q1 = Math.PI / 50
f = 8
r = 100
ang = 135
c = r * Cos(ang * q)
s = r * Sin(ang * q)
t = r * Tan(ang * q)
clr1 = Pens.DarkGray
clr2 = Pens.LightGray
clr3 = Pens.Red
g.DrawLine(clr1, 0, Xas, Pw, Xas)
g.DrawLine(clr1, Yas, 0, Yas, Ph)
For i = -Pw To Pw Step Pw / 75
g.DrawLine(clr2, 0, i, Pw, i)
g.DrawLine(clr2, i, 0, i, Ph)
Next i
For f = 1 To 50
For j = -300 To 360 Step 1
c = r * Cos(f * q1 + j * q) + r * Cos(f * q1 + 3 * j * q) / 3 + r * Cos(f * q1 + 5 * j * q) / 5
s = r * Cos(f * q1 + (j + 1) * q) + r * Cos(f * q1 + 3 * (j + 1) * q) / 3 + r * Cos(f * q1 + 5 * (j + 1) * q) / 5
g.DrawLine(clr1, Yas + j, Xas - c, Yas + j + 1, Xas - s)
g.DrawLine(clr3, Yas + j, Xas - c, Yas + j + 1, Xas - s)
Next j
Next f
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
f = f = 1
Me.Refresh()
End Sub
In de timer kan ik f laten oplopen, waardoor er een nieuwe cosinus wordt getekend iets naar rechts etc.
Code:Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick f = f = 1 Me.Refresh() End Sub
Maar op één of andere manier wil het niet werken ...
f = f = 1
f = f + 1
Imports System.Drawing.Graphics
Imports System.Math
Public Class Form1
Dim Pw, Ph, Fw, Fh, Pm As Integer
Dim x, y, y1, r, f, z, z1, d, j, m As Integer
Dim dr As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 810
Me.Height = 505
Fw = Me.Width
Fh = Me.Height
Pm = 20
Pw = Fw - 3 * Pm
Ph = Fh - 4 * Pm
Pc_Domain.Height = Ph
Pc_Domain.Width = Pw
Pc_Domain.Top = Pm
Pc_Domain.Left = Pm
Pc_Domain.BackColor = Color.White
With Bt_Start
.Left = Pm
.Top = Fh - 70
.Width = 100
.Text = "toTheRight"
End With
With Bt_Rvs
.Left = Pm + 110
.Top = Fh - 70
.Width = 100
.Text = "toTheLeft"
End With
With Bt_Stop
.Left = Pm+220
.Top = Fh - 70
.Width = 100
.Text = "toTheRight"
End With
End Sub
Private Sub Pc_Domain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pc_Domain.Paint
Dim g As Graphics = e.Graphics
Dim clr1, clr2, clr3 As Pen
Dim q As Double
Dim Xas, Yas, i, j As Integer
Xas = Ph / 2
Yas = Pw / 2
Timer1.Interval = 10
clr1 = Pens.DarkGray
clr2 = Pens.LightGray
clr3 = Pens.Red
g.DrawLine(clr1, 0, Xas, Pw, Xas)
g.DrawLine(clr1, Yas, 0, Yas, Ph)
For i = -Pw To Pw Step Pw / 75
g.DrawLine(clr2, 0, i, Pw, i)
g.DrawLine(clr2, i, 0, i, Ph)
Next i
q = Math.PI / 80
x = 100 * Cos(r * q)
y = 100 * Sin(r * q)
For r = -720 To 720
y = 100 * Cos(m * q + r * q)
y1 = 100 * Cos(m * q + (r + 1) * q)
If dr = 1 Then
g.DrawLine(Pens.Brown, 100 - r, Xas - y, 100 - r - 1, Xas - y1)
ElseIf dr = 0 Then
g.DrawLine(Pens.Brown, 100 + r, Xas - y, 100 + r + 1, Xas - y1)
End If
Next r
q = Math.PI / 180
d = Math.PI / 80
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m = m + 1
r = r + 1
Me.Refresh()
End Sub
Private Sub Bt_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Start.Click
dr = 0
Timer1.Start()
End Sub
Private Sub Bt_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Stop.Click
Timer1.Stop()
End Sub
Private Sub Bt_Rvs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Rvs.Click
Timer1.Start()
dr = 1
End Sub
End Class
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.