API tools faq
paste
Advertisement
Bagosep

Create dot in Pixel with Coordinate X and Y

Bagosep
Sep 26th, 2017
154
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 9.85 KB | None | 0 0
raw download clone embed print report
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!