AuthorMessage
Nina
Ametuar
Posts: 134

Not much to say, just download and look.. It's an excelsheet using some simple Math (Random numbers, Half, Double, Square, Faculty, Sum) formulas and a graphic in VBA.
Download: SimpleMath
PS: this is a request for a VBA thread too.
greetings
nina
Meka][Meka
Unstopable
Posts: 700

VBA?
Nina
Ametuar
Posts: 134

Yeah, VBA (Visual Basic for Applications) I could post ony the code in the Visual Basic thread but then you don't have the visualisation in the excelsheet.
the code inside goes like this...
Code:
Private Sub Random1_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B1") = Random
End Sub
Private Sub Go1_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B1").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
   Faculty = Faculty * RandomNumber
   RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E1") = Half
   Worksheets(1).Range("E2") = Doble
   Worksheets(1).Range("E3") = Square
   Worksheets(1).Range("E4") = Faculty
End Sub
Private Sub Random2_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B10") = Random
End Sub
Private Sub Go2_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B10").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
   Faculty = Faculty * RandomNumber
   RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E10") = Half
   Worksheets(1).Range("E11") = Doble
   Worksheets(1).Range("E12") = Square
   Worksheets(1).Range("E13") = Faculty
End Sub
Private Sub Random3_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B19") = Random
End Sub
Private Sub Go3_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B19").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
   Faculty = Faculty * RandomNumber
   RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E19") = Half
   Worksheets(1).Range("E20") = Doble
   Worksheets(1).Range("E21") = Square
   Worksheets(1).Range("E22") = Faculty
End Sub

and it looks like...

savvy?
Meka][Meka
Unstopable
Posts: 700

do u not `tab` code?
Nina
Ametuar
Posts: 134

Yes, normally I do tab my code but in this case I seem to have been lazy, my apologize for this... I will edit it tomorrow for you.
g'nite zzZZZ
Nina
Ametuar
Posts: 134

done tabbing, lol
Meka][Meka
Unstopable
Posts: 700

that is not tabbed very well....
Meka][Meka
Unstopable
Posts: 700

tabbed:
Code:

Private Sub Random1_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B1") = Random
End Sub
Private Sub Go1_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B1").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
         Faculty = Faculty * RandomNumber
         RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E1") = Half
   Worksheets(1).Range("E2") = Doble
   Worksheets(1).Range("E3") = Square
   Worksheets(1).Range("E4") = Faculty
End Sub
Private Sub Random2_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B10") = Random
End Sub
Private Sub Go2_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B10").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
      Faculty = Faculty * RandomNumber
      RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E10") = Half
   Worksheets(1).Range("E11") = Doble
   Worksheets(1).Range("E12") = Square
   Worksheets(1).Range("E13") = Faculty
End Sub
Private Sub Random3_Click()
   Dim Random As Long
   Randomize
   Random = Int((5 * Rnd() + 1))
   Worksheets(1).Range("B19") = Random
End Sub
Private Sub Go3_Click()
   Dim RandomNumber As Long
   Dim Half As Double
   Dim Doble As Long
   Dim Square As Long
   Dim Faculty As Long
   RandomNumber = Range("B19").Value
   Half = RandomNumber / 2
   Doble = RandomNumber * 2
   Square = RandomNumber * RandomNumber
   Faculty = RandomNumber
   RandomNumber = RandomNumber - 1
   Do While RandomNumber > 0
      Faculty = Faculty * RandomNumber
      RandomNumber = RandomNumber - 1
   Loop
   Worksheets(1).Range("E19") = Half
   Worksheets(1).Range("E20") = Doble
   Worksheets(1).Range("E21") = Square
   Worksheets(1).Range("E22") = Faculty
End Sub

Nina
Ametuar
Posts: 134

:roll: