SHARE
TWEET

nomer 7

a guest Jun 17th, 2019 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  3.         Me.AutoSize = True : Me.Text = "Graph by 40602154"
  4.         PictureBox1.Top = 0 : PictureBox1.Left = 0
  5.         PictureBox1.Width = 500 : PictureBox1.Height = 500
  6.         Button1.Text = "Draw" : Button1.Font = New Font("Courier", 20)
  7.         Button1.Width = 100 : Button1.Height = 50
  8.         Button1.Top = 10 : Button1.Left = PictureBox1.Width + 50
  9.     End Sub
  10.  
  11.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  12.         Dim myGraph As Graphics = PictureBox1.CreateGraphics
  13.         Dim myPen1, myPen2, myPen3 As Pen
  14.         Dim id, ang, bigR, x1, y1, x2, y2, b As Single
  15.         myPen1 = New Pen(Color.Blue, 5) : myGraph.DrawRectangle(myPen1, 0, 0, 500, 500)
  16.         myPen2 = New Pen(Color.Gray, 1)
  17.  
  18.         myGraph.TranslateTransform(250, 250)
  19.         myPen3 = New Pen(Color.Cyan, 6)
  20.         bigR = 200
  21.         For id = 0 To 180
  22.             ang = id * Math.PI / 45
  23.             x1 = 0
  24.             y1 = bigR * Math.Sin(ang)
  25.             x2 = bigR * Math.Cos(ang)
  26.             y2 = y1
  27.             myGraph.DrawLine(myPen3, x1, y1, x2, y2)
  28.         Next
  29.  
  30.     End Sub
  31. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top