කේතයෙන් මැවෙන ශබ්ද රටා - Random Alien Sounds

ක්‍රමලේඛ කේත පාවිච්චි කරල පොඩි බීප් එකකින් එක එක විධියෙ ශබ්ද රටා මවන්න පුළුවන්. මේක මම ඉස්සර ආතල් එකක් ගන්න කරපු එකක්. මම ඒ දවස් වල හති දම දමා Visual Basic ඉගෙනගත් එක තමයි කළේ. මට VB ඉගැන්නුවෙ කවුද කියල අහන්න එපා. උත්තරයක් නෑ. ඒකට වගකියන්න ඕන අම්බලන්ගොඩ මහජන පුස්තකාලය සහ වතුගෙදර මහජන පුස්තකාලය. මොකද ඒ දවස් වල අපේ පැත්ත පළාතක අන්තර්ජාලය තිබුණෙ නෑ. ඉතින්... දන් ඔන්න කතාව වෙනම පැත්තකට ඇදිල යනවා. ආයෙම එමු මාතෘකාවට...

---

ගොඩක් අය තමන් දන්න Visual Basic කේත කොටස් අනෙක් අයට දෙන්න කැමති නෑ. මම දන්නෑ මොකද මුස්ටියද ‍ලෝබකමද කියල. ඇත්තටම ඒකෙ ඇති දේකුත් නෑ. මම Visual Basic 6ත් එක්ක ගනුදෙනු බොහෝවිට නවත්තලා තියෙන්නෙ ඒකෙ ටිකක් යල් පැනගිය ගතියක් තියෙන නිසා. Visual Basic 2008 නම් ඇත්තටම ඇති දෙයක් නෑ. IDE එක තියෙනවා... MSDN තියෙනවා... ඉතින් පොඩි ළමයෙකුට වුණත් code කරන්න පුළුවන්. ඒකනෙ Basic (Beginers' All purpose Symbolic Instructions Code) කියන්නෙ. ;)

ඉතින්... මේක අගේ කරන්න දේකුත් නෙවෙයි. අනෙක Microsoft මෘදුකාංග වලින් කළා කියල මෙව්ව හංගන්න දේවලුත් නෙවෙයි. ඒ නිසා code එකම දානව. දැකුම්කළු source code පෝස්ට් කරන්න අපේ ප්‍රවීන් ඉන්ද්‍රනාම ඒ ගැන ලිව්ව සටහනෙන් ලොකු උදව්වක් වුණා.

මෙන්න කේතය... මේක මහ ලොකු දෙයක් නොවන බවත් (සත පනහෙ ටොපියක් කියල) හිතා ගන්ටකෝ... :P
(අළුත් VB project එකක් පටන් ගෙන එහි තිබෙන form එක ඉවත් කරන්න. අළුත් මොඩියුලයක් එක් කර එයට මෙම කේතය එක් කරන්න. ඉන් පසු F5.)

Option Explicit

Public Declare Function Beep Lib "kernel32" _
 (ByVal dwFreq As Long, ByVal dwDuration As Long) _
  As Long

Sub main()
    Randomize
    Dim I As Integer
    For I = 37 To 32767
        Beep (Rnd * I), 10
    Next
End Sub

මේක වෙනස් කරල නිර්මාණාත්මකව යොදා ගන්න පුළුවන්. මේ ඒ වගේ තව එකක්:

Option Explicit

Public Declare Function Beep Lib "kernel32" _
 (ByVal dwFreq As Long, ByVal dwDuration As Long) _
  As Long

Sub Main()
    Do Until False
        Dim I As Integer
        For I = 256 To 512
            Beep I, 10
        Next
        For I = 512 To 256 Step -1
            Beep I, 10
        Next
    Loop
End Sub

1e06 sorries වෙන්න ඕන මේක wine වල නම් වැඩ නෑ :( . වින්ඩෝස් කස්ටිය... ඉතින්, අත්හදා බලන්න. රිසි පරිදි වෙනස් කර අළුත් දෙයක් අත්හදා බලන්න. :)

බාගැනීම්:
මෙන්න VB නැති අයට Win32 Executables [4 KB] බාගන්න. Double click කරලා විවෘත කරන්න. හැබැයි නවත්තගන්න Windows Task Manager පිහිට පතන්න වෙයි. ඒ නිසා මේවා run කරලා මට බනින්න එපා. :P

෴සමීර ශාකුන්තල | Sameera Shaakunthala෴