Help with decimal to quinary system converterPrev TopicNext Topic

• Mayte

  

  Mexico
  Member #193,539
  November 3, 2018
  369 Posts
  Offline
  May 15, 2025, 2:00 pm

  ▲▼

  Hello friends, does anyone know where I can find a converter or a program that converts from decimal to quinary?
• hypersoniq

  

  Pennsylvania
  United States
  Member #1,340
  April 6, 2003
  2,939 Posts
  Offline
  May 15, 2025, 2:20 pm

  ▲▼

  If you are looking for a web based converter, try this one...

  https://www.convzone.com/decimal-to-quinary/

  Have an EXCELlent day!
• hypersoniq

  

  Pennsylvania
  United States
  Member #1,340
  April 6, 2003
  2,939 Posts
  Offline
  May 15, 2025, 2:28 pm

  ▲▼

  For a python solution...

  def decimal_to_quinary(decimal_num):
      if decimal_num == 0:
          return "0"
     
      quinary_digits = []
      while decimal_num > 0:
          remainder = decimal_num % 5
          quinary_digits.append(str(remainder))
          decimal_num //= 5
     
      return "".join(quinary_digits[::-1])

   

  ___main___

  decimal_to_quinary(decimal number you want to convert)

  Have an EXCELlent day!
• hypersoniq

  

  Pennsylvania
  United States
  Member #1,340
  April 6, 2003
  2,939 Posts
  Offline
  May 15, 2025, 2:33 pm

  ▲▼

  And finally in Excel, the formula

  =BASE(decimal_number, 5, [minimum_digits])

  Will convert the decimal number into a quinary number, with [minimum digits] being optional to pad a number with leading zeroes.

  As an example

  =BASE(150,5) would produce 1100

  Whereas

  =BASE(150,5,6) would produce 001100

  Have an EXCELlent day!
• ethanl

  

  Australia
  Member #218,237
  October 24, 2021
  137 Posts
  Offline
  May 15, 2025, 4:45 pm

  ▲▼

  

   

   

   

  PS 

   

  Add-Type -AssemblyName System.Windows.Forms
  Add-Type -AssemblyName System.Drawing

  $form = New-Object System.Windows.Forms.Form
  $form.Text = "Decimal to Quinary Converter"
  $form.Size = New-Object System.Drawing.Size(400,200)
  $form.StartPosition = "CenterScreen"

  
  $labelInput = New-Object System.Windows.Forms.Label
  $labelInput.Text = "Enter Decimal Number:"
  $labelInput.Location = New-Object System.Drawing.Point(20,20)
  $labelInput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelInput)

  $textboxDecimal = New-Object System.Windows.Forms.TextBox
  $textboxDecimal.Location = New-Object System.Drawing.Point(180,20)
  $textboxDecimal.Size = New-Object System.Drawing.Size(180,20)
  $form.Controls.Add($textboxDecimal)

  $labelOutput = New-Object System.Windows.Forms.Label
  $labelOutput.Text = "Quinary Value:"
  $labelOutput.Location = New-Object System.Drawing.Point(20,60)
  $labelOutput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelOutput)

  $textboxQuinary = New-Object System.Windows.Forms.TextBox
  $textboxQuinary.Location = New-Object System.Drawing.Point(180,60)
  $textboxQuinary.Size = New-Object System.Drawing.Size(180,20)
  $textboxQuinary.ReadOnly = $true
  $form.Controls.Add($textboxQuinary)

  $buttonConvert = New-Object System.Windows.Forms.Button
  $buttonConvert.Text = "Convert"
  $buttonConvert.Location = New-Object System.Drawing.Point(140,100)
  $buttonConvert.Size = New-Object System.Drawing.Size(100,30)
  $form.Controls.Add($buttonConvert)

  $buttonConvert.Add_Click({
      $decimalInput = $textboxDecimal.Text
      if ([int]::TryParse($decimalInput, [ref]$null)) {
          $decimalNumber = [int]$decimalInput
          $quinary = ""
          if ($decimalNumber -eq 0) {
              $quinary = "0"
          } else {
              while ($decimalNumber -gt 0) {
                  $quinary = ($decimalNumber % 5).ToString() + $quinary
                  $decimalNumber = [math]::Floor($decimalNumber / 5)
              }
          }
          $textboxQuinary.Text = $quinary
      } else {
          [System.Windows.Forms.MessageBox]::Show("Please enter a valid integer.", "Error")
      }
  })

  # Show form
  [void]$form.ShowDialog()

   

  or 

   

  do 6 numbers at once 

   

  

   

   

  Add-Type -AssemblyName System.Windows.Forms
  Add-Type -AssemblyName System.Drawing

  
  $form = New-Object System.Windows.Forms.Form
  $form.Text = "Decimal to Quinary Converter"
  $form.Size = New-Object System.Drawing.Size(450,220)
  $form.StartPosition = "CenterScreen"

  
  $labelInput = New-Object System.Windows.Forms.Label
  $labelInput.Text = "Enter up to 6 Decimal Numbers (comma-separated):"
  $labelInput.Location = New-Object System.Drawing.Point(20,20)
  $labelInput.Size = New-Object System.Drawing.Size(400,20)
  $form.Controls.Add($labelInput)

  $textboxDecimal = New-Object System.Windows.Forms.TextBox
  $textboxDecimal.Location = New-Object System.Drawing.Point(20,45)
  $textboxDecimal.Size = New-Object System.Drawing.Size(390,20)
  $form.Controls.Add($textboxDecimal)

  $labelOutput = New-Object System.Windows.Forms.Label
  $labelOutput.Text = "Quinary Values:"
  $labelOutput.Location = New-Object System.Drawing.Point(20,80)
  $labelOutput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelOutput)

  $textboxQuinary = New-Object System.Windows.Forms.TextBox
  $textboxQuinary.Location = New-Object System.Drawing.Point(20,105)
  $textboxQuinary.Size = New-Object System.Drawing.Size(390,20)
  $textboxQuinary.ReadOnly = $true
  $form.Controls.Add($textboxQuinary)

  $buttonConvert = New-Object System.Windows.Forms.Button
  $buttonConvert.Text = "Convert"
  $buttonConvert.Location = New-Object System.Drawing.Point(170,140)
  $buttonConvert.Size = New-Object System.Drawing.Size(100,30)
  $form.Controls.Add($buttonConvert)

  
  $buttonConvert.Add_Click({
      $input = $textboxDecimal.Text
      $numbers = $input -split "," | ForEach-Object { $_.Trim() }

      if ($numbers.Count -gt 6) {
          [System.Windows.Forms.MessageBox]::Show("Please enter no more than 6 numbers.", "Too Many Numbers")
          return
      }

      $quinaryResults = @()

      foreach ($n in $numbers) {
          if ([int]::TryParse($n, [ref]$null)) {
              $decimalNumber = [int]$n
              if ($decimalNumber -eq 0) {
                  $quinaryResults += "0"
              } else {
                  $quinary = ""
                  while ($decimalNumber -gt 0) {
                      $quinary = ($decimalNumber % 5).ToString() + $quinary
                      $decimalNumber = [math]::Floor($decimalNumber / 5)
                  }
                  $quinaryResults += $quinary
              }
          } else {
              $quinaryResults += "Invalid"
          }
      }

      $textboxQuinary.Text = ($quinaryResults -join ", ")
  })

  # Show form
  [void]$form.ShowDialog()
• Mayte

  

  Mexico
  Member #193,539
  November 3, 2018
  369 Posts
  Offline
  May 15, 2025, 4:49 pm

  ▲▼
  In response to hypersoniq

  Quote: Originally posted by hypersoniq on May 15, 2025

  For a python solution...

  def decimal_to_quinary(decimal_num):
      if decimal_num == 0:
          return "0"
     
      quinary_digits = []
      while decimal_num > 0:
          remainder = decimal_num % 5
          quinary_digits.append(str(remainder))
          decimal_num //= 5
     
      return "".join(quinary_digits[::-1])

   

  ___main___

  decimal_to_quinary(decimal number you want to convert)

  Thank you very much, Hypersoniq. I'm not good at executing Python codes, but I'll try.
• Mayte

  

  Mexico
  Member #193,539
  November 3, 2018
  369 Posts
  Offline
  May 15, 2025, 4:51 pm

  ▲▼
  In response to hypersoniq

  Quote: Originally posted by hypersoniq on May 15, 2025

  If you are looking for a web based converter, try this one...

  https://www.convzone.com/decimal-to-quinary/

  It's exactly what I was looking for, thanks Hypersoniq, I'll try the website.
• Mayte

  

  Mexico
  Member #193,539
  November 3, 2018
  369 Posts
  Offline
  May 15, 2025, 5:18 pm

  ▲▼
  In response to hypersoniq

  Quote: Originally posted by hypersoniq on May 15, 2025

  And finally in Excel, the formula

  =BASE(decimal_number, 5, [minimum_digits])

  Will convert the decimal number into a quinary number, with [minimum digits] being optional to pad a number with leading zeroes.

  As an example

  =BASE(150,5) would produce 1100

  Whereas

  =BASE(150,5,6) would produce 001100

  Thank you very much, Hypersoniq. I imagine I can copy and paste the code into the macro window in Excel.
• Mayte

  

  Mexico
  Member #193,539
  November 3, 2018
  369 Posts
  Offline
  May 15, 2025, 5:20 pm

  ▲▼
  In response to ethanl

  Quote: Originally posted by ethanl on May 15, 2025

  

   

   

   

  PS 

   

  Add-Type -AssemblyName System.Windows.Forms
  Add-Type -AssemblyName System.Drawing

  $form = New-Object System.Windows.Forms.Form
  $form.Text = "Decimal to Quinary Converter"
  $form.Size = New-Object System.Drawing.Size(400,200)
  $form.StartPosition = "CenterScreen"

  
  $labelInput = New-Object System.Windows.Forms.Label
  $labelInput.Text = "Enter Decimal Number:"
  $labelInput.Location = New-Object System.Drawing.Point(20,20)
  $labelInput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelInput)

  $textboxDecimal = New-Object System.Windows.Forms.TextBox
  $textboxDecimal.Location = New-Object System.Drawing.Point(180,20)
  $textboxDecimal.Size = New-Object System.Drawing.Size(180,20)
  $form.Controls.Add($textboxDecimal)

  $labelOutput = New-Object System.Windows.Forms.Label
  $labelOutput.Text = "Quinary Value:"
  $labelOutput.Location = New-Object System.Drawing.Point(20,60)
  $labelOutput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelOutput)

  $textboxQuinary = New-Object System.Windows.Forms.TextBox
  $textboxQuinary.Location = New-Object System.Drawing.Point(180,60)
  $textboxQuinary.Size = New-Object System.Drawing.Size(180,20)
  $textboxQuinary.ReadOnly = $true
  $form.Controls.Add($textboxQuinary)

  $buttonConvert = New-Object System.Windows.Forms.Button
  $buttonConvert.Text = "Convert"
  $buttonConvert.Location = New-Object System.Drawing.Point(140,100)
  $buttonConvert.Size = New-Object System.Drawing.Size(100,30)
  $form.Controls.Add($buttonConvert)

  $buttonConvert.Add_Click({
      $decimalInput = $textboxDecimal.Text
      if ([int]::TryParse($decimalInput, [ref]$null)) {
          $decimalNumber = [int]$decimalInput
          $quinary = ""
          if ($decimalNumber -eq 0) {
              $quinary = "0"
          } else {
              while ($decimalNumber -gt 0) {
                  $quinary = ($decimalNumber % 5).ToString() + $quinary
                  $decimalNumber = [math]::Floor($decimalNumber / 5)
              }
          }
          $textboxQuinary.Text = $quinary
      } else {
          [System.Windows.Forms.MessageBox]::Show("Please enter a valid integer.", "Error")
      }
  })

  # Show form
  [void]$form.ShowDialog()

   

  or 

   

  do 6 numbers at once 

   

  

   

   

  Add-Type -AssemblyName System.Windows.Forms
  Add-Type -AssemblyName System.Drawing

  
  $form = New-Object System.Windows.Forms.Form
  $form.Text = "Decimal to Quinary Converter"
  $form.Size = New-Object System.Drawing.Size(450,220)
  $form.StartPosition = "CenterScreen"

  
  $labelInput = New-Object System.Windows.Forms.Label
  $labelInput.Text = "Enter up to 6 Decimal Numbers (comma-separated):"
  $labelInput.Location = New-Object System.Drawing.Point(20,20)
  $labelInput.Size = New-Object System.Drawing.Size(400,20)
  $form.Controls.Add($labelInput)

  $textboxDecimal = New-Object System.Windows.Forms.TextBox
  $textboxDecimal.Location = New-Object System.Drawing.Point(20,45)
  $textboxDecimal.Size = New-Object System.Drawing.Size(390,20)
  $form.Controls.Add($textboxDecimal)

  $labelOutput = New-Object System.Windows.Forms.Label
  $labelOutput.Text = "Quinary Values:"
  $labelOutput.Location = New-Object System.Drawing.Point(20,80)
  $labelOutput.Size = New-Object System.Drawing.Size(150,20)
  $form.Controls.Add($labelOutput)

  $textboxQuinary = New-Object System.Windows.Forms.TextBox
  $textboxQuinary.Location = New-Object System.Drawing.Point(20,105)
  $textboxQuinary.Size = New-Object System.Drawing.Size(390,20)
  $textboxQuinary.ReadOnly = $true
  $form.Controls.Add($textboxQuinary)

  $buttonConvert = New-Object System.Windows.Forms.Button
  $buttonConvert.Text = "Convert"
  $buttonConvert.Location = New-Object System.Drawing.Point(170,140)
  $buttonConvert.Size = New-Object System.Drawing.Size(100,30)
  $form.Controls.Add($buttonConvert)

  
  $buttonConvert.Add_Click({
      $input = $textboxDecimal.Text
      $numbers = $input -split "," | ForEach-Object { $_.Trim() }

      if ($numbers.Count -gt 6) {
          [System.Windows.Forms.MessageBox]::Show("Please enter no more than 6 numbers.", "Too Many Numbers")
          return
      }

      $quinaryResults = @()

      foreach ($n in $numbers) {
          if ([int]::TryParse($n, [ref]$null)) {
              $decimalNumber = [int]$n
              if ($decimalNumber -eq 0) {
                  $quinaryResults += "0"
              } else {
                  $quinary = ""
                  while ($decimalNumber -gt 0) {
                      $quinary = ($decimalNumber % 5).ToString() + $quinary
                      $decimalNumber = [math]::Floor($decimalNumber / 5)
                  }
                  $quinaryResults += $quinary
              }
          } else {
              $quinaryResults += "Invalid"
          }
      }

      $textboxQuinary.Text = ($quinaryResults -join ", ")
  })

  # Show form
  [void]$form.ShowDialog()

  Thank you very much Ethanl, is it just running the code in Power Shell?
• hypersoniq

  

  Pennsylvania
  United States
  Member #1,340
  April 6, 2003
  2,939 Posts
  Offline
  May 15, 2025, 5:39 pm

  ▲▼
  In response to Mayte

  Quote: Originally posted by Mayte on May 15, 2025

  Thank you very much, Hypersoniq. I imagine I can copy and paste the code into the macro window in Excel.

  That is a formula, you can put it right into any cell

  Have an EXCELlent day!
• ethanl

  

  Australia
  Member #218,237
  October 24, 2021
  137 Posts
  Offline
  May 15, 2025, 6:11 pm

  ▲▼

  yes
• Lotterologist

  

  Michigan
  United States
  Member #36,255
  March 30, 2006
  3,906 Posts
  Offline
  May 15, 2025, 7:28 pm

  ▲▼

  Some of the greatest minds in playing the lottery are here on Lottery Post!