Keskustelu: Ohjelmointikysymykset: VB6: 0:lla jakaminen

Kuinka saadaan nollalla jakamisesta koituva virhe pois?
vai onko tästä koituva virhe edes nollalla jakamisen takia?:

Dim chalf As Integer
Dim cfx, cfy As Integer

Private Sub Form_Load()
chalf = Shape1.Width / 2
kirjaa 0, 0, 0, 0, 0, 0
End Sub

Sub kirjaa(cx As Integer, cy As Integer, cz As Integer, xplus As Integer, yplus As Integer, zplus As Integer)
cx = (cx + xplus) - (chalf) / cz
cy = (cy + yplus) - (chalf) / cz
Shape1.Left = cx
Shape1.Top = cy
End Sub

virhe tulee tolla
cx=(cx+xplus) blaa blaa blaa...

ja varmaan tulisi seuraavallakin rivillä

Kyllä se voi nollasta jakamisesta johtua...

Helpoin tapa varmaankin on tarkistaa aluksi ettei arvot ole nollia ja vasta sen jälkeen suoritetaan rivi.

Voit myös tarkistaa virheen On Error -rakenteella. Nollalla jakamisesta johtuva virheilmoitus on "Division by zero", ja sen virhekoodi on 11. Lisätietoa virheenkäsittelystä löytyy tästä oppaasta:

https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=vbo_9