Simppelit Bin2() & Hex2()

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
User avatar
Misthema
Advanced Member
Posts: 312
Joined: Mon Aug 27, 2007 8:32 pm
Location: Turku, Finland
Contact:

Simppelit Bin2() & Hex2()

Post by Misthema »

Nämä funktiot ovat tietysti helppo itse tehdä, mutta ajattelin silti laittaa nämä esille.
Bin2() ja Hex2() siis palauttavat halutun pituisen merkkijonon halutusta arvosta.

Code: Select all

Function Bin2$(val,digits=32)
	Return Right(Bin(val),Int(Max(1,Min(32,digits))))
End Function

Function Hex2$(val,digits=8)
	Return Right(Hex(val),Int(Max(1,Min(8,digits))))
End Function

val% = Rand(-2000000000,2000000000)

Print Bin(val)
Print Bin2(val,16)
Print Bin2(val,64)
Print ""
Print Hex(val)
Print Hex2(val,4)
Print Hex2(val,800)
WaitKey
User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Simppelit Bin2() & Hex2()

Post by CCE »

Kätevät ovat, kiitos näistä.
Post Reply