Dělení nulou – Visual Basic – Fórum – Programujte.com

Zdar mám takovej problém. Udělal sem si takovoj menší prográmek a potřebuju vněm dělit nulou ale vzdycky mi to hodí chybu. Potřeboval bych vytvořit kód s aby měl: pomocnou proměnou,která bude obsahovat informace o tom, zda byl vypočten výsledek. pokud neproběhne operace dělení tak nebude určenej výsledek.a v tu chvily se aktivuje tady tou proměnou.


Za k´d budu moc vděčný

sice nechápu, co chceš, ale neodpustím si poznámku ze základní školu. NULOU DĚLIT NELZE! A pokud ti tolik vadí nula, děl jedničkou, nebo násob nulou, podle toho, co potřebuješ.

Ono jde spíš o to, v případě dělení nulou odeslat jinej výsledek ... buď si zjisti, jakým číslem chceš dělit (dřív než k tomu dojde) a podle toho proveď nějaký akce a nebo prostě zachyť výjimku.

já jen potřebuju aby když někdo zadá rozmezi od 0 do 30 treba a dá dělit tak aby se neukončil program s chybou ale napsalo mu to třeba že nulou nelze dělit dal OK a pokračoval dál

s VB nepracuju, tak příklad v PHP:


$od = 0;
$do = 30;
for ($delitel = $od, $delitel > $do; $delitel ++)
{
if ($delitel == 0) { echo 'Nulou dělit nelze'; continue; }
$podil = $delenec / $delitel;
echo $podil.'<br>';
}

Můžeš si z toho vzít alespoň tu myšlenku. Tak hodně štěstí ;)

To kozomil: snad by tohle mohlo pomoct:

Private Sub cmdVysledek_Click()

    Dim a As Integer

    Dim b As Integer



    a = Val(txtA.Text)

    b = Val(txtB.Text)

    

    On Error GoTo Chyba

    Print a / b

Chyba:

    If Err.Number = 11 Then

        MsgBox "Nulou nelze dělit!", vbCritical, "Chyba"

    End If

    Resume Next

End Sub

On Error Resume Next	'ignoruje chyby... tudíš i tu s "0"

Dim cislo_1 As Integer, cislo_2 As Integer



cislo_1 = 20

cislo_2 = 0



If cislo_1 / cislo_2 = 0 Then

    MsgBox "nelze dělit nulou"

    Exit Sub	'opustí proceduru, tudíš nepokračuje v dalších operacích

End If



Print "pokračuju ve výpočtu pokud je to OK. Výsledek je tedy: " & (cislo_1 / cislo_2)

díky chlapy

kristepane,dáš ověřovací pravidlo na vstup (asi textbox) a zajistíš aby dělitel nikdy nebyl NULA

P.S. Nulou delit lze ;) to ovsem spada pod vyssi matematiku, takze nechytrac kamo :smile8: :smile5: :smile14:

Pokud bude dělitel 0 tak se napíše výsledek 0 zb.[dělenec]

dělit nulou jde! 1/0= ∞+1/∞^-1 ... když dělít 1/0.1=10 .. 1/10^-4=10000 .. 1/∞^-1=∞ .. prostě nekonečně malé číslo ∞^-1 je nekonečně blízko nule, jsou téměř shodné, ale nejsou. Prostě dělit nulou jde :smile1:

∞ .. špatné formátování, to je nekonečno