Spanish Uso de Mod

[carlos7000]

Ya que no encontré un ejemplo claro del uso de Mod, dejo un pequeño ejemplo de su uso.

Public Sub UsoDeMod(Numero As Int, Modulo As Int) As Boolean
    Dim Residuo As Int
 
    Residuo = (Numero Mod Modulo)
 
    If Residuo = 0 Then    'Si Valor es multiplo (Modulo)
        Return True        'Retorna True
    Else                   'de lo contrario
        Return False       'Retorna False
    End If    
End Sub

El ejemplo me lo dio ChatGpt.

 

[josejad]

Hola Carlos:

Gracias por el ejemplo. Aunque es cierto que creo que no se encuentra por la ayuda, el operador Mod existe en B4X.
Prueba esto:

    Log(4 Mod 2)
    Log(7 Mod 2)

EDITADO: Ups, qué torpe, disculpa, veo que lo usas en tu código, pensé que era una función que emulaba a Mod

 

[Star-Dust]

Ya que no encontré un ejemplo claro del uso de Mod, dejo un pequeño ejemplo de su uso.

Public Sub UsoDeMod(Numero As Int, Modulo As Int) As Boolean
    Dim Residuo As Int
 
    Residuo = (Numero Mod Modulo)
 
    If Residuo = 0 Then    'Si Valor es multiplo (Modulo)
        Return True        'Retorna True
    Else                   'de lo contrario
        Return False       'Retorna False
    End If   
End Sub

El ejemplo me lo dio ChatGpt.

Parece más fácil así

Dim iSmod As Boolean = ((Numero mod Modulo)>0)

más o menos

Dim iSmod As Boolean = IIF(Numero mod Modulo>0,True,False)

 

[carlos7000]

Parece más fácil así

Dim iSmod As Boolean = ((Numero mod Modulo)>0)

más o menos

Dim iSmod As Boolean = IIF(Numero mod Modulo>0,True,False)

Aun no me acostumbro a escribir código de esa forma. Para mi es un poco enredado y mas difícil de leer o escribir. Personalmente prefiero que mi código sea mas largo y fácil de leer (para mi)

De todas formas, Muchas gracias

 

[carlos7000]

Hola Carlos:

Gracias por el ejemplo. Aunque es cierto que creo que no se encuentra por la ayuda, el operador Mod existe en B4X.
Prueba esto:

    Log(4 Mod 2)
    Log(7 Mod 2)

EDITADO: Ups, qué torpe, disculpa, veo que lo usas en tu código, pensé que era una función que emulaba a Mod

Busque y busque, y no encontré nada. Me toco apelar a ChatGpt.

Muchas gracias por su comentario.