Bagosep

Create dot in Pixel with Coordinate X and Y

Sep 26th, 2017
98
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Blue_KeyPress(Index As Integer, KeyAscii As Integer)
  2.     If KeyAscii = 13 Then
  3.         Form1.ForeColor = vbBlue
  4.         Form1.Cls
  5.         Form1.PSet (sumbuX, sumbuY)
  6.         Form1.PSet (sumbuX, sumbuY + 5)
  7.         Form1.PSet (sumbuX, sumbuY + 4)
  8.         Form1.PSet (sumbuX, sumbuY + 3)
  9.         Form1.PSet (sumbuX, sumbuY + 2)
  10.         Form1.PSet (sumbuX, sumbuY + 1)
  11.         Form1.PSet (sumbuX, sumbuY - 5)
  12.         Form1.PSet (sumbuX, sumbuY - 4)
  13.         Form1.PSet (sumbuX, sumbuY - 3)
  14.         Form1.PSet (sumbuX, sumbuY - 2)
  15.         Form1.PSet (sumbuX, sumbuY - 1)
  16.         Form1.PSet (sumbuX - 5, sumbuY)
  17.         Form1.PSet (sumbuX - 4, sumbuY)
  18.         Form1.PSet (sumbuX - 3, sumbuY)
  19.         Form1.PSet (sumbuX - 2, sumbuY)
  20.         Form1.PSet (sumbuX - 1, sumbuY)
  21.         Form1.PSet (sumbuX + 5, sumbuY)
  22.         Form1.PSet (sumbuX + 4, sumbuY)
  23.         Form1.PSet (sumbuX + 3, sumbuY)
  24.         Form1.PSet (sumbuX + 2, sumbuY)
  25.         Form1.PSet (sumbuX + 1, sumbuY)
  26.     End If
  27. End Sub
  28.  
  29. Private Sub buttonBlack_Click(Index As Integer)
  30. Form1.ForeColor = vbBlack
  31. Form1.PSet (sumbuX, sumbuY)
  32.         Form1.PSet (sumbuX, sumbuY + 5)
  33.         Form1.PSet (sumbuX, sumbuY + 4)
  34.         Form1.PSet (sumbuX, sumbuY + 3)
  35.         Form1.PSet (sumbuX, sumbuY + 2)
  36.         Form1.PSet (sumbuX, sumbuY + 1)
  37.         Form1.PSet (sumbuX, sumbuY - 5)
  38.         Form1.PSet (sumbuX, sumbuY - 4)
  39.         Form1.PSet (sumbuX, sumbuY - 3)
  40.         Form1.PSet (sumbuX, sumbuY - 2)
  41.         Form1.PSet (sumbuX, sumbuY - 1)
  42.         Form1.PSet (sumbuX - 5, sumbuY)
  43.         Form1.PSet (sumbuX - 4, sumbuY)
  44.         Form1.PSet (sumbuX - 3, sumbuY)
  45.         Form1.PSet (sumbuX - 2, sumbuY)
  46.         Form1.PSet (sumbuX - 1, sumbuY)
  47.         Form1.PSet (sumbuX + 5, sumbuY)
  48.         Form1.PSet (sumbuX + 4, sumbuY)
  49.         Form1.PSet (sumbuX + 3, sumbuY)
  50.         Form1.PSet (sumbuX + 2, sumbuY)
  51.         Form1.PSet (sumbuX + 1, sumbuY)
  52. End Sub
  53.  
  54. Private Sub buttonBlue_Click(Index As Integer)
  55. Form1.ForeColor = vbBlue
  56. Form1.PSet (sumbuX, sumbuY)
  57.         Form1.PSet (sumbuX, sumbuY + 5)
  58.         Form1.PSet (sumbuX, sumbuY + 4)
  59.         Form1.PSet (sumbuX, sumbuY + 3)
  60.         Form1.PSet (sumbuX, sumbuY + 2)
  61.         Form1.PSet (sumbuX, sumbuY + 1)
  62.         Form1.PSet (sumbuX, sumbuY - 5)
  63.         Form1.PSet (sumbuX, sumbuY - 4)
  64.         Form1.PSet (sumbuX, sumbuY - 3)
  65.         Form1.PSet (sumbuX, sumbuY - 2)
  66.         Form1.PSet (sumbuX, sumbuY - 1)
  67.         Form1.PSet (sumbuX - 5, sumbuY)
  68.         Form1.PSet (sumbuX - 4, sumbuY)
  69.         Form1.PSet (sumbuX - 3, sumbuY)
  70.         Form1.PSet (sumbuX - 2, sumbuY)
  71.         Form1.PSet (sumbuX - 1, sumbuY)
  72.         Form1.PSet (sumbuX + 5, sumbuY)
  73.         Form1.PSet (sumbuX + 4, sumbuY)
  74.         Form1.PSet (sumbuX + 3, sumbuY)
  75.         Form1.PSet (sumbuX + 2, sumbuY)
  76.         Form1.PSet (sumbuX + 1, sumbuY)
  77. End Sub
  78.  
  79. Private Sub buttonGreen_Click(Index As Integer)
  80. Form1.ForeColor = vbGreen
  81. Form1.PSet (sumbuX, sumbuY)
  82.         Form1.PSet (sumbuX, sumbuY + 5)
  83.         Form1.PSet (sumbuX, sumbuY + 4)
  84.         Form1.PSet (sumbuX, sumbuY + 3)
  85.         Form1.PSet (sumbuX, sumbuY + 2)
  86.         Form1.PSet (sumbuX, sumbuY + 1)
  87.         Form1.PSet (sumbuX, sumbuY - 5)
  88.         Form1.PSet (sumbuX, sumbuY - 4)
  89.         Form1.PSet (sumbuX, sumbuY - 3)
  90.         Form1.PSet (sumbuX, sumbuY - 2)
  91.         Form1.PSet (sumbuX, sumbuY - 1)
  92.         Form1.PSet (sumbuX - 5, sumbuY)
  93.         Form1.PSet (sumbuX - 4, sumbuY)
  94.         Form1.PSet (sumbuX - 3, sumbuY)
  95.         Form1.PSet (sumbuX - 2, sumbuY)
  96.         Form1.PSet (sumbuX - 1, sumbuY)
  97.         Form1.PSet (sumbuX + 5, sumbuY)
  98.         Form1.PSet (sumbuX + 4, sumbuY)
  99.         Form1.PSet (sumbuX + 3, sumbuY)
  100.         Form1.PSet (sumbuX + 2, sumbuY)
  101.         Form1.PSet (sumbuX + 1, sumbuY)
  102. End Sub
  103.  
  104. Private Sub buttonRed_Click()
  105. Form1.ForeColor = vbRed
  106. Form1.PSet (sumbuX, sumbuY)
  107.         Form1.PSet (sumbuX, sumbuY + 5)
  108.         Form1.PSet (sumbuX, sumbuY + 4)
  109.         Form1.PSet (sumbuX, sumbuY + 3)
  110.         Form1.PSet (sumbuX, sumbuY + 2)
  111.         Form1.PSet (sumbuX, sumbuY + 1)
  112.         Form1.PSet (sumbuX, sumbuY - 5)
  113.         Form1.PSet (sumbuX, sumbuY - 4)
  114.         Form1.PSet (sumbuX, sumbuY - 3)
  115.         Form1.PSet (sumbuX, sumbuY - 2)
  116.         Form1.PSet (sumbuX, sumbuY - 1)
  117.         Form1.PSet (sumbuX - 5, sumbuY)
  118.         Form1.PSet (sumbuX - 4, sumbuY)
  119.         Form1.PSet (sumbuX - 3, sumbuY)
  120.         Form1.PSet (sumbuX - 2, sumbuY)
  121.         Form1.PSet (sumbuX - 1, sumbuY)
  122.         Form1.PSet (sumbuX + 5, sumbuY)
  123.         Form1.PSet (sumbuX + 4, sumbuY)
  124.         Form1.PSet (sumbuX + 3, sumbuY)
  125.         Form1.PSet (sumbuX + 2, sumbuY)
  126.         Form1.PSet (sumbuX + 1, sumbuY)
  127. End Sub
  128. Private Sub full_Click()
  129. Form1.WindowState = FormWindowState.Maximized
  130. End Sub
  131.  
  132. Private Sub Default_KeyPress(Index As Integer, KeyAscii As Integer)
  133.     If KeyAscii = 13 Then
  134.         Form1.ForeColor = vbBlack
  135.         Form1.Cls
  136.         Form1.PSet (sumbuX, sumbuY)
  137.         Form1.PSet (sumbuX, sumbuY + 5)
  138.         Form1.PSet (sumbuX, sumbuY + 4)
  139.         Form1.PSet (sumbuX, sumbuY + 3)
  140.         Form1.PSet (sumbuX, sumbuY + 2)
  141.         Form1.PSet (sumbuX, sumbuY + 1)
  142.         Form1.PSet (sumbuX, sumbuY - 5)
  143.         Form1.PSet (sumbuX, sumbuY - 4)
  144.         Form1.PSet (sumbuX, sumbuY - 3)
  145.         Form1.PSet (sumbuX, sumbuY - 2)
  146.         Form1.PSet (sumbuX, sumbuY - 1)
  147.         Form1.PSet (sumbuX - 5, sumbuY)
  148.         Form1.PSet (sumbuX - 4, sumbuY)
  149.         Form1.PSet (sumbuX - 3, sumbuY)
  150.         Form1.PSet (sumbuX - 2, sumbuY)
  151.         Form1.PSet (sumbuX - 1, sumbuY)
  152.         Form1.PSet (sumbuX + 5, sumbuY)
  153.         Form1.PSet (sumbuX + 4, sumbuY)
  154.         Form1.PSet (sumbuX + 3, sumbuY)
  155.         Form1.PSet (sumbuX + 2, sumbuY)
  156.         Form1.PSet (sumbuX + 1, sumbuY)
  157.     End If
  158. End Sub
  159.  
  160. Private Sub hapus_Click(Index As Integer)
  161. Form1.Cls
  162. End Sub
  163.  
  164. Private Sub Form_Load()
  165.  
  166. End Sub
  167.  
  168. Private Sub opsiGreen_KeyPress(Index As Integer, KeyAscii As Integer)
  169. If KeyAscii = 13 Then
  170.         Form1.ForeColor = vbGreen
  171.         Form1.Cls
  172.         Form1.PSet (sumbuX, sumbuY)
  173.         Form1.PSet (sumbuX, sumbuY + 5)
  174.         Form1.PSet (sumbuX, sumbuY + 4)
  175.         Form1.PSet (sumbuX, sumbuY + 3)
  176.         Form1.PSet (sumbuX, sumbuY + 2)
  177.         Form1.PSet (sumbuX, sumbuY + 1)
  178.         Form1.PSet (sumbuX, sumbuY - 5)
  179.         Form1.PSet (sumbuX, sumbuY - 4)
  180.         Form1.PSet (sumbuX, sumbuY - 3)
  181.         Form1.PSet (sumbuX, sumbuY - 2)
  182.         Form1.PSet (sumbuX, sumbuY - 1)
  183.         Form1.PSet (sumbuX - 5, sumbuY)
  184.         Form1.PSet (sumbuX - 4, sumbuY)
  185.         Form1.PSet (sumbuX - 3, sumbuY)
  186.         Form1.PSet (sumbuX - 2, sumbuY)
  187.         Form1.PSet (sumbuX - 1, sumbuY)
  188.         Form1.PSet (sumbuX + 5, sumbuY)
  189.         Form1.PSet (sumbuX + 4, sumbuY)
  190.         Form1.PSet (sumbuX + 3, sumbuY)
  191.         Form1.PSet (sumbuX + 2, sumbuY)
  192.         Form1.PSet (sumbuX + 1, sumbuY)
  193.        
  194.     End If
  195. End Sub
  196.  
  197. Private Sub opsiRed_KeyPress(Index As Integer, KeyAscii As Integer)
  198.     If KeyAscii = 13 Then
  199.         Form1.ForeColor = vbRed
  200.         Form1.Cls
  201.         Form1.PSet (sumbuX, sumbuY)
  202.         Form1.PSet (sumbuX, sumbuY + 5)
  203.         Form1.PSet (sumbuX, sumbuY + 4)
  204.         Form1.PSet (sumbuX, sumbuY + 3)
  205.         Form1.PSet (sumbuX, sumbuY + 2)
  206.         Form1.PSet (sumbuX, sumbuY + 1)
  207.         Form1.PSet (sumbuX, sumbuY - 5)
  208.         Form1.PSet (sumbuX, sumbuY - 4)
  209.         Form1.PSet (sumbuX, sumbuY - 3)
  210.         Form1.PSet (sumbuX, sumbuY - 2)
  211.         Form1.PSet (sumbuX, sumbuY - 1)
  212.         Form1.PSet (sumbuX - 5, sumbuY)
  213.         Form1.PSet (sumbuX - 4, sumbuY)
  214.         Form1.PSet (sumbuX - 3, sumbuY)
  215.         Form1.PSet (sumbuX - 2, sumbuY)
  216.         Form1.PSet (sumbuX - 1, sumbuY)
  217.         Form1.PSet (sumbuX + 5, sumbuY)
  218.         Form1.PSet (sumbuX + 4, sumbuY)
  219.         Form1.PSet (sumbuX + 3, sumbuY)
  220.         Form1.PSet (sumbuX + 2, sumbuY)
  221.         Form1.PSet (sumbuX + 1, sumbuY)
  222.     End If
  223. End Sub
  224.  
  225. Private Sub submit_Click()
  226. Form1.Cls
  227. Form1.PSet (sumbuX, sumbuY)
  228. Form1.Circle (sumbuX, sumbuY), 20
  229. End Sub
  230.  
  231. Private Sub sumbuX_KeyPress(KeyAscii As Integer)
  232.     If KeyAscii = 13 Then
  233.         Form1.Cls
  234.         Form1.PSet (sumbuX, sumbuY)
  235.         Form1.PSet (sumbuX, sumbuY + 5)
  236.         Form1.PSet (sumbuX, sumbuY + 4)
  237.         Form1.PSet (sumbuX, sumbuY + 3)
  238.         Form1.PSet (sumbuX, sumbuY + 2)
  239.         Form1.PSet (sumbuX, sumbuY + 1)
  240.         Form1.PSet (sumbuX, sumbuY - 5)
  241.         Form1.PSet (sumbuX, sumbuY - 4)
  242.         Form1.PSet (sumbuX, sumbuY - 3)
  243.         Form1.PSet (sumbuX, sumbuY - 2)
  244.         Form1.PSet (sumbuX, sumbuY - 1)
  245.         Form1.PSet (sumbuX - 5, sumbuY)
  246.         Form1.PSet (sumbuX - 4, sumbuY)
  247.         Form1.PSet (sumbuX - 3, sumbuY)
  248.         Form1.PSet (sumbuX - 2, sumbuY)
  249.         Form1.PSet (sumbuX - 1, sumbuY)
  250.         Form1.PSet (sumbuX + 5, sumbuY)
  251.         Form1.PSet (sumbuX + 4, sumbuY)
  252.         Form1.PSet (sumbuX + 3, sumbuY)
  253.         Form1.PSet (sumbuX + 2, sumbuY)
  254.         Form1.PSet (sumbuX + 1, sumbuY)
  255.     End If
  256. End Sub
  257. Private Sub sumbuY_KeyPress(KeyAscii As Integer)
  258.     If KeyAscii = 13 Then
  259.         Form1.Cls
  260.         Form1.PSet (sumbuX, sumbuY)
  261.         Form1.PSet (sumbuX, sumbuY + 5)
  262.         Form1.PSet (sumbuX, sumbuY + 4)
  263.         Form1.PSet (sumbuX, sumbuY + 3)
  264.         Form1.PSet (sumbuX, sumbuY + 2)
  265.         Form1.PSet (sumbuX, sumbuY + 1)
  266.         Form1.PSet (sumbuX, sumbuY - 5)
  267.         Form1.PSet (sumbuX, sumbuY - 4)
  268.         Form1.PSet (sumbuX, sumbuY - 3)
  269.         Form1.PSet (sumbuX, sumbuY - 2)
  270.         Form1.PSet (sumbuX, sumbuY - 1)
  271.         Form1.PSet (sumbuX - 5, sumbuY)
  272.         Form1.PSet (sumbuX - 4, sumbuY)
  273.         Form1.PSet (sumbuX - 3, sumbuY)
  274.         Form1.PSet (sumbuX - 2, sumbuY)
  275.         Form1.PSet (sumbuX - 1, sumbuY)
  276.         Form1.PSet (sumbuX + 5, sumbuY)
  277.         Form1.PSet (sumbuX + 4, sumbuY)
  278.         Form1.PSet (sumbuX + 3, sumbuY)
  279.         Form1.PSet (sumbuX + 2, sumbuY)
  280.         Form1.PSet (sumbuX + 1, sumbuY)
  281.     End If
  282. End Sub
RAW Paste Data