Triple Bundle Giveaway Winners!



I nearly forgot about the giveaway that I started a while ago. Luckily it was written on my whiteboard along with a pile of stuff that I forgot to do. Anyways, the winners have been chosen and they are:


  • Audio Bundle - 8 Entries - JEbling
  • Stylus+Lock Bundle - 18 Entires - Chau
  • Storage Bundle - 28 Entries - Chau



Thanks to everyone for participating and I appreciate the shared links on the comments.

Congratulations
JEbling and Chau

Info:
JBA - Triple Bundle Giveaway - Audio, Stylus, Storage Bundles


The Results And Generator


Audio Bundle Entries
Winner: JEbling with entry 2
Total entries: 8
Entry: 4 | Name: Christopher
Entry: 1 | Name: Xanzion
Entry: 3 | Name: William
Entry: 6 | Name: jhalthani8
Entry: 5 | Name: Nicholas
Entry: 2 | Name: JEbling
Entry: 8 | Name: Vanhansis
Entry: 7 | Name: UnBeatable73

Stylus+Lock Bundle Entries
Winner: Chau with entry 5
Total entries: 18
Entry: 18 | Name: Christopher
Entry: 4 | Name: Xanzion
Entry: 6 | Name: William
Entry: 1 | Name: jhalthani8
Entry: 15 | Name: Nicholas
Entry: 3 | Name: JEbling
Entry: 2 | Name: Vanhansis
Entry: 16 | Name: UnBeatable73
Entry: 5 | Name: Chau
Entry: 14 | Name: Chau
Entry: 10 | Name: Chau
Entry: 7 | Name: Chau
Entry: 8 | Name: Chau
Entry: 12 | Name: Chau
Entry: 9 | Name: Chau
Entry: 13 | Name: Chau
Entry: 17 | Name: Chau
Entry: 11 | Name: Chau

Storage Bundle Entries
Winner: Chau with entry 24
Total entries: 28
Entry: 28 | Name: Christopher
Entry: 19 | Name: Xanzion
Entry: 23 | Name: William
Entry: 12 | Name: jhalthani8
Entry: 26 | Name: Nicholas
Entry: 20 | Name: JEbling
Entry: 17 | Name: Vanhansis
Entry: 22 | Name: UnBeatable73
Entry: 15 | Name: Anoud
Entry: 14 | Name: Anoud
Entry: 27 | Name: Anoud
Entry: 8 | Name: Anoud
Entry: 3 | Name: Anoud
Entry: 5 | Name: Anoud
Entry: 2 | Name: Anoud
Entry: 18 | Name: Anoud
Entry: 1 | Name: Anoud
Entry: 21 | Name: Anoud
Entry: 25 | Name: Chau
Entry: 11 | Name: Chau
Entry: 24 | Name: Chau
Entry: 16 | Name: Chau
Entry: 13 | Name: Chau
Entry: 9 | Name: Chau
Entry: 6 | Name: Chau
Entry: 10 | Name: Chau
Entry: 4 | Name: Chau
Entry: 7 | Name: Chau

Random Giveaway Cenerator (coded in BlitzPlus)
Global width = GadgetWidth(Desktop())
Global height = GadgetHeight(Desktop())

Graphics width, height, 0, 1
AppTitle "Storage Bundle Giveaway"

SeedRnd( MilliSecs() )

Const total_entries = 28

Type entry
 Field name$
 Field number
End Type

GiveEntry("Christopher", 1)
GiveEntry("Xanzion", 1)
GiveEntry("William", 1)
GiveEntry("jhalthani8", 1)
GiveEntry("Nicholas", 1)
GiveEntry("JEbling", 1)
GiveEntry("Vanhansis", 1)
GiveEntry("UnBeatable73", 1)
GiveEntry("Anoud",10)
GiveEntry("Chau",10)

Global counted_entries = 0
For e.entry = Each entry
 counted_entries = counted_entries + 1
Next


fnt = LoadFont("Arial", 200, 1)
SetFont fnt

ClsColor 255, 255, 255
Color( 0, 0, 0 )

Repeat
 Cls()
 
 If MouseHit(1) Then
  PickWinner()
 EndIf
 
 number = Int(Rnd(0,total_entries))
 Text width/2, height/2 - (120), "Total Entries: " + counted_entries, 1, 1
 Text width/2, height/2 + (120), number, 1, 1
 
 Delay 1000
 Flip()

Until KeyHit(1)

End



Function PickWinner()
 
 ;speed up counter
 current_time = MilliSecs()
 added_time = 5000
 
 Repeat
  Cls
  number = Int(Rnd(0,total_entries))
 
  Text width/2, height/2, number, 1, 1
  Flip()
 
 If MilliSecs() => current_time +added_time Then Exit
 
 Forever
 
 ;display message
 current_time = MilliSecs()
 added_time = 3000
 
 Repeat
  Cls
  number = Int(Rnd(0,total_entries))
 
  Text width/2, height/2 - (200), "The Winner is:", 1, 1
  Flip()
 
 If MilliSecs() => current_time +added_time Then Exit
 
 Forever
 
 
 ;display winner number
 current_time = MilliSecs()
 added_time = 3000
 
 For e.entry = Each entry
  If e\number = number Then
   Exit
  EndIf
 Next
 
 Repeat
  Cls
  Text width/2, height/2 - (200), "The Winner is:", 1, 1
  Text width/2, height/2, "Entry No: " + e\number, 1, 1
  Flip()
 
 If MilliSecs() => current_time +added_time Then Exit
 Forever
 
 ;display winner name
 current_time = MilliSecs()
 added_time = 3000
 
 For e.entry = Each entry
  If e\number = number Then
   Exit
  EndIf
 Next
 
 Repeat
  Cls
  Text width/2, height/2 - (200), "The Winner is:", 1, 1
  Text width/2, height/2 , "Entry No: " + e\number, 1, 1
  Text width/2, height/2 + (200), e\name, 1, 1
  Flip()
 
 If KeyHit(1) Then Exit
 Forever
 
 
 fo = WriteFile("storage_results.txt")
  
  WriteLine( fo, "Winner: " + e\name + " with entry " + e\number)
  WriteLine( fo, "Total entries: " + counted_entries)
  
  For e.entry = Each entry
   WriteLine (fo, "Entry: " + e\number + " | Name: " + e\name)
  Next
  
  
 CloseFile(fo)
 
 
 End
 
 
End Function


Function GiveEntry(name$, entries)
 
 For i = 1 To entries
  e.entry = New entry 
  e\name$ = name$
 
  Repeat
   number = Int(Rnd(0,total_entries))
   found = 0
   
  For e2.entry = Each entry
   If e2\number = number Then
    found = 1
   EndIf
  Next
  
  If found = 0 Then
   e\number = number
   Exit
   EndIf
   
  Forever
 Next
 
End Function

Published: Oct 1, 2011

No comments:

Post a Comment

Sign up for the JBA Newsletter. A few times per year I may sell or give away gadgets and other electronics By signing up you ensure getting notified in a timely manner. I do NOT send you emails that will waste your time. Thank you.

Home

Hi. My name is Jesse, and I'm a technology enthusiast. I play with technology and share what I find on this blog. If you have any questions then please use the contact form below. I'll get back to you as soon as I can.


Contact

Name

Email *

Message *