Membuat Simulasi Lensa Cembung Melalui VB 6.0

Komponen
2 common button
1 timer
12 label
4 Horizontal Scroll
6 textbox (4 terlihat, 2 sembunyi)
4 shape (2 shape lingkaran dan 2 shape persegi panjang)
3 line
1 picture cermin cembung

Source Code dan Coding

Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Form1.WindowState = 1
End Sub
‘berkenaan dengan menu pengaktifan form sehingga tidak terjadi penumpukan form, selain itu untuk tombol exit dan minimize

Private Sub HScroll1_Change()
Image9.Left = 5900 - (Image9.Width / 2)
Image9.Width = 495 - (HScroll1.Value * 18.75)
Shape4.Left = 5850 - (HScroll1.Value * 110)
Shape5.Left = 5900 + (HScroll1.Value * 110)
f.Text = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Shape3.Left = 5600 - (HScroll2.Value * 100)
s1.Text = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
h1.Text = HScroll3.Value
Shape3.Top = 3840 - (HScroll3.Value * 100)
Shape3.Height = (HScroll3.Value * 100)
Line3.Y1 = 3840 - (HScroll3.Value * 100)
Line3.Y2 = 3840 - (HScroll3.Value * 100)
End Sub
Private Sub HScroll4_Change()
Shape3.Width = HScroll4.Value * 100
d1.Text = HScroll4.Value
End Sub

‘merubah value/nilai horizontal scroll dengan cara menggesernya akan menyebabkan berubahnya posisi benda semula, posisi bayangan benda maupun 3 garis yang bersangkutan

Private Sub Timer1_Timer()
'untuk merubah posisi benda yang dibiaskan melalui lensa cembung
HScroll2.Min = HScroll1.Value + 1
s2.Text = (f.Text * s1.Text) / (s1.Text - f.Text)
Shape6.Left = 6000 + (s2.Text * 100)
M.Text = Round(s2.Text / s1.Text, (2))
nilaiH2.Caption = Round(h1.Text * (s2.Text / s1.Text), (2)) & " cm"
nilaiS2.Caption = Round(s2.Text, (2)) & " cm"
nilaiM.Caption = M.Text & " kali"
Shape6.Height = ((M.Text * h1.Text) * 100)
Shape6.Width = (s2.Text / s1.Text) * HScroll4.Value * 100
nilaiD2.Caption = Round((s2.Text / s1.Text) * HScroll4.Value, (2)) & " cm"

'untuk merubah line agar tetap koheren dengan benda
Line4.Y2 = 3840 + ((M.Text * h1.Text) * 100)
Line4.X2 = 6000 + (s2.Text * 100) + (Shape6.Width / 2)
Line3.X1 = 5600 - (HScroll2.Value * 100) + (Shape3.Width / 2)
Line4.Y1 = Line3.Y2
Line5.X1 = Line3.X1
Line5.Y1 = Line3.Y1
Line5.X2 = Line4.X2
Line5.Y2 = Line4.Y2
End Sub