Jump to content

_randomletter()

kcd-clan

By kcd-clan,
in AutoIt Example Scripts

 Share

Recommended Posts

kcd-clan Polymath

kcd-clan

Posted
Posted

Pritty simple

Sorry if i missspelled anything im shur you can read it.

; ,.-., http://g-v.us ,.-.,
; ,.-., By: Joshua Lee Turner ,.-.,
; ,.-., 4/22/2006 ,.-.,
; ,.-., Created for personal use try not to hack all your friends with it. :P you can hack some of them but not all of them.

#include"RandomLetter.au3"
$out=_RandomLetter('a','z')
MsgBox(0,"Random letter selected",$out)

Code is here:

; ,.-., http://g-v.us ,.-.,
; ,.-., By: Joshua Lee Turner ,.-.,
; ,.-., 4/22/2006 ,.-.,
; ,.-., Created for personal use try not to hack all your friends with it. :P you can hack some of them but not all of them. ,.-.,
; ,.-., I made it easy to read so you get how it was done.  ,.-.,

Func _RandomLetter($s,$e)
;=-=-=-=-=-=-=-=-=-=-=-=-=- Defines the min letter to become a number 1-26
    If $s = "a" Then
        $s = 1
    EndIf
    
    If $s = "b" Then
        $s = 2
    EndIf
    
    If $s = "c" Then
        $s = 3
    EndIf
    
    If $s = "d" Then
        $s = 4
    EndIf
    
    If $s = "e" Then
        $s = 5
    EndIf
    
    If $s = "f" Then
        $s = 6
    EndIf
    
    If $s = "g" Then
        $s = 7
    EndIf
    
    If $s = "h" Then
        $s = 8
    EndIf
    
    If $s = "i" Then
        $s = 9
    EndIf
    
    If $s = "j" Then
        $s = 10
    EndIf
    
    If $s = "k" Then
        $s = 11
    EndIf
    
    If $s = "l" Then
        $s = 12
    EndIf
    
    If $s = "m" Then
        $s = 13
    EndIf
    
    If $s = "n" Then
        $s = 14
    EndIf
    
    If $s = "o" Then
        $s = 15
    EndIf
    
    If $s = "p" Then
        $s = 16
    EndIf
    
    If $s = "q" Then
        $s = 17
    EndIf
    
    If $s = "r" Then
        $s = 18
    EndIf
    
    If $s = "s" Then
        $s = 19
    EndIf
    
    If $s = "t" Then
        $s = 20
    EndIf
    
    If $s = "u" Then
        $s = 21
    EndIf
    
    If $s = "v" Then
        $s = 22
    EndIf
    
    If $s = "w" Then
        $s = 23
    EndIf
    
    If $s = "x" Then
        $s = 24
    EndIf
    
    If $s = "y" Then
        $s = 25
    EndIf
    
    If $s = "z" Then
        $s = 26
    EndIf
;=-=-=-=-=-=-=-=-=-=-=-=-=- Defines the max letter to become a number 1-26
        If $e = "a" Then
        $e = 1
    EndIf
    
    If $e = "b" Then
        $e = 2
    EndIf
    
    If $e = "c" Then
        $e = 3
    EndIf
    
    If $e = "d" Then
        $e = 4
    EndIf
    
    If $e = "e" Then
        $e = 5
    EndIf
    
    If $e = "f" Then
        $e = 6
    EndIf
    
    If $e = "g" Then
        $e = 7
    EndIf
    
    If $e = "h" Then
        $e = 8
    EndIf
    
    If $e = "i" Then
        $e = 9
    EndIf
    
    If $e = "j" Then
        $e = 10
    EndIf
    
    If $e = "k" Then
        $e = 11
    EndIf
    
    If $e = "l" Then
        $e = 12
    EndIf
    
    If $e = "m" Then
        $e = 13
    EndIf
    
    If $e = "n" Then
        $e = 14
    EndIf
    
    If $e = "o" Then
        $e = 15
    EndIf
    
    If $e = "p" Then
        $e = 16
    EndIf
    
    If $e = "q" Then
        $e = 17
    EndIf
    
    If $e = "r" Then
        $e = 18
    EndIf
    
    If $e = "s" Then
        $e = 19
    EndIf
    
    If $e = "t" Then
        $e = 20
    EndIf
    
    If $e = "u" Then
        $e = 21
    EndIf
    
    If $e = "v" Then
        $e = 22
    EndIf
    
    If $e = "w" Then
        $e = 23
    EndIf
    
    If $e = "x" Then
        $e = 24
    EndIf
    
    If $e = "y" Then
        $e = 25
    EndIf
    
    If $e = "z" Then
        $e = 26
    EndIf
;=-=-=-=-=-=-=-=-=-=-=-=-=- Selects the random letter
    $ran=Random($s,$e,1)
;=-=-=-=-=-=-=-=-=-=-=-=-=- Finds the output letters
    If $ran = 1 Then
        $ran = "a"
    EndIf
    
    If $ran = 2 Then
        $ran = "b"
    EndIf
    
    If $ran = 3 Then
        $ran = "c"
    EndIf
    
    If $ran = 4 Then
        $ran = "d"
    EndIf
    
    If $ran = 5 Then
        $ran = "e"
    EndIf
    
    If $ran = 6 Then
        $ran = "f"
    EndIf
    
    If $ran = 7 Then
        $ran = "g"
    EndIf
    
    If $ran = 8 Then
        $ran = "h"
    EndIf
    
    If $ran = 9 Then
        $ran = "i"
    EndIf
    
    If $ran = 10 Then
        $ran = "j"
    EndIf
    
    If $ran = 11 Then
        $ran = "k"
    EndIf
    
    If $ran = 12 Then
        $ran = "l"
    EndIf
    
    If $ran = 13 Then
        $ran = "m"
    EndIf
    
    If $ran = 14 Then
        $ran = "n"
    EndIf
    
    If $ran = 15 Then
        $ran = "o"
    EndIf
    
    If $ran = 16 Then
        $ran = "p"
    EndIf
    
    If $ran = 17 Then
        $ran = "q"
    EndIf
    
    If $ran = 18 Then
        $ran = "r"
    EndIf
    
    If $ran = 19 Then
        $ran = "s"
    EndIf
    
    If $ran = 20 Then
        $ran = "t"
    EndIf
    
    If $ran = 21 Then
        $ran = "u"
    EndIf
    
    If $ran = 22 Then
        $ran = "v"
    EndIf
    
    If $ran = 23 Then
        $ran = "w"
    EndIf
    
    If $ran = 24 Then
        $ran = "x"
    EndIf
    
    If $ran = 25 Then
        $ran = "y"
    EndIf
    
    If $ran = 26 Then
        $ran = "z"
    EndIf
;=-=-=-=-=-=-=-=-=-=-=-=-=- Sends out the letter
    Return $ran
EndFunc

RandomLetter.au3

RandomLetter_tutorial.au3

Visit mEMy programs made.Iul - IulG-V Console - G-V Console_RandomLetter - _RandomLetter()Saftey Kill - Saftey Killcolorzone() = colorzone()
Link to comment
Share on other sites
erifash Universalist

erifash

Posted
Posted

Nice try but it is extreemly inflated. Try looking at the Asc() and Chr() functions. I bet this can be accomplished in one line of code. :think:

My UDFs:_FilePrint() | _ProcessGetName() | _Degree() and _Radian()My Scripts:Drive Lock - Computer Lock Using a Flash DriveAU3Chat - Simple Multiuser TCP ChatroomStringChunk - Split a String Into Equal PartsAutoProxy - Custom Webserver
Link to comment
Share on other sites
blindwig Universalist

blindwig

Posted
Posted

Yes, like erifash said,

$sRandomLetter = Chr(Random(65, 90, 1))

or maybe

If Random(0,1,1) Then
  $sRandomLetter = Chr(Random(65, 90, 1))
Else
  $sRandomLetter = Chr(Random(97, 112, 1))
EndIf
My UDF Threads:Pseudo-Hash: Binary Trees, Flat TablesFiles: Filter by Attribute, Tree List, Recursive Find, Recursive Folders Size, exported to XMLArrays: Nested, Pull Common Elements, Display 2dSystem: Expand Environment Strings, List Drives, List USB DrivesMisc: Multi-Layer Progress Bars, Binary FlagsStrings: Find Char(s) in String, Find String in SetOther UDF Threads I Participated:Base64 Conversions
Link to comment
Share on other sites
VicTT Universalist

VicTT

Posted
Posted (edited)

This is just too funny..First _IsPrime, THEN "Y!m shutdown script", and NOW a script with similar practical value...When will the idiocy end?

Edited by VicTT
Quote

Together we might liveDivided we must fall

 

Link to comment
Share on other sites
Onoitsu2 Wayfarer

Onoitsu2

Posted
Posted (edited)

This is just too funny..First _IsPrime, THEN "Y!m shutdown script", and NOW a script with similar practical value...When will the idiocy end?

for one this is not idiocy as you have stated it, ANY AND ALL scripts hold some value, no matter how far fetched the use of it may be, someone may just be looking for something that does whatever that script may accomplish. And that person, or any other may just learn something from it, no matter how simple, or complex, azure clear, or muddily obscured the coding or scripting may be.

Just my 2 cents ... AS ALWAYS my posts shall remain.

Laterzzz,

Onoitsu2

Edit: accomplich corrected to accomplish

Edited by Onoitsu2

Things I have made:[font="Trebuchet Ms"]_CheckTimeBlock UDF(LT)MOH Call Ignore List (MOH = Modem On Hold)[/font]

Link to comment
Share on other sites
RazerM Universalist

RazerM

Posted
Posted (edited)

i don't see what's wrong with learning new ideas. New methods etc. Sometimes you make something to improve your ability.

You don't seem to have posted anything useful VicTT in the last few months either.

Edited by RazerM
My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...