Menggambar Elipse-Visual Basic 6.0

Private Sub Text1_Change()End SubPrivate Sub btn_hitung_Click()Dim Ry, Rx, Xo, Yo As IntegerRy = Val(txt_y.Text)Rx = Val(txt_X.Text)Xo = 0Yo = Ry'region 1pct_tampil.PSet (Xo, Yo), RGB(0, 0, 0)pct_tampil.PSet (-Xo, Yo), RGB(0, 0, 0)pct_tampil.PSet (Xo, -Yo), RGB(0, 0, 0)pct_tampil.PSet (-Xo, -Yo), RGB(0, 0, 0)Po = (Ry ^ 2) - ((Rx ^ 2) * Ry) + ((Rx ^ 2) / 4)Px = 0Py = 2 * (Rx ^ 2) * YoWhile Px < Py    Xo = Xo + 1   ...

Read More

Menggambar Lingkaran-Visual Basic 6.0

Private Sub Command1_Click()Dim Po As IntegerX = Val(txtX.Text)Y = Val(txtY.Text)R = Val(txtR.Text)Y = RX = 0    Picture1.PSet (X, Y), RGB(0, 0, 0)    Picture1.PSet (-X, Y), RGB(0, 0, 0)    Picture1.PSet (X, -Y), RGB(0, 0, 0)    Picture1.PSet (-X, -Y), RGB(0, 0, 0)    Picture1.PSet (Y, X), RGB(0, 0, 0)    Picture1.PSet (-Y, X), RGB(0, 0, 0)   ...

Read More

Review Apps

Normal 0 false false false EN-US X-NONE X-NONE ...

Read More