Jump to content

Recommended Posts

Posted

Excellente idea, but only one thing: to me that I'm colorblind, thease color are killing me!

Still, thanks 4 sharing!

JS

Thanks JScript !

I had a thought for you when creating the file samba.ini :D

Do you try it ?

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Posted

Hello!

The problem was in Firefox, now I managed to download all the links, thanks!

His progam is excellent, my kids are really enjoying it too ...

5*

SJ

Glad you resolve your download problem

My childrens like it too, and help me for create BeepSongs ! :D

Thanks for your feedback.

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

  • 2 months later...
  • 1 year later...
Posted

Very cool, congrats :D

Btw, I'm also Brazilian like JScript but I won't make Samba :v

But I've made a classical one :D

That's it (it sounds slower when running in AutoIt than when running on the editor):

Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 698.456, 1000 )
Beep ( 698.456, 500 )
Beep ( 587.33, 500 )
Beep ( 587.33, 1000 )
Beep ( 587.33, 500 )
Beep ( 523.251, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 523.251, 500 )
Beep ( 523.251, 500 )
Beep ( 523.251, 500 )
Beep ( 493.883, 500 )
Beep ( 440, 1000 )

(taking notes from here)

My stuff

Spoiler

My UDFs  _AuThread multithreading emulation for AutoIt · _ExtInputBox an inputbox with multiple inputs and more features · forceUTF8 fix strings encoding without knowing its original charset · JSONgen JSON generator · _TCPServer UDF multi-client and multi-task (run on background) event-based TCP server easy to do · _TCPClient_UDF multi-server and multi-task (runs on background) event-based TCP client easy to do · ParseURL and ParseStr functions ported from PHP · _CmdLine UDF easily parse command line parameters, keys or flags · AutoPHP Create documents (bills, incomes) from HTML by sending variables/arrays from AutoIt to PHP · (Un)Serialize Convert arrays and data into a storable string (PHP compatible) · RTTL Plays and exports to MP3 Nokia-format monophonic ringtones (for very old cellphones) · I18n library Simple and easy to use localization library · Scripting.Dictionary OOP and OOP-like approach · Buffer/stack limit arrays to N items by removing the last one once the limit is reached · NGBioAPI UDF to work with Nitgen fingerprint readers · Serial/Licensing system require license key based on unique machine ID from your users · HTTP a simple WinHTTP library that allows GET, POST and file uploads · Thread true AutoIt threads (under-dev) · RC4 RC4 encryption compatible with PHP and JS ·  storage.au3 localStorage and sessionStorage for AutoIt Classes _WKHtmlToX uses wkhtmlto* to convert HTML files and webpages into PDF or images (jpg, bmp, gif, png...) Snippets _Word_DocFindReplaceByLongText replace strings using Word UDF with strings longer than 255 characters (MSWord limit) rangeparser parser for printing-like pages interval (e.g.: "1,2,3-5") EnvParser parse strings/paths with environment variables and get full path GUICtrlStaticMarquee static text scrolling Random stuff Super Mario beep sound your ears will hurt

 

Posted

Very cool, congrats :D

Btw, I'm also Brazilian like JScript but I won't make Samba :v

But I've made a classical one :D

That's it (it sounds slower when running in AutoIt than when running on the editor):

Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 783.991, 1000 )
Beep ( 783.991, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 659.255, 500 )
Beep ( 587.33, 500 )
Beep ( 698.456, 1000 )
Beep ( 698.456, 500 )
Beep ( 587.33, 500 )
Beep ( 587.33, 1000 )
Beep ( 587.33, 500 )
Beep ( 523.251, 500 )
Beep ( 659.255, 1000 )
Beep ( 659.255, 500 )
Beep ( 523.251, 500 )
Beep ( 523.251, 500 )
Beep ( 523.251, 500 )
Beep ( 493.883, 500 )
Beep ( 440, 1000 )

(taking notes from here)

 

Thanks, glad you like it !

Would be great to have a format convertor to translate codes between autoit and Arduino beep/note code.

 

I have no idea how to do this...

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Posted (edited)

Would be great to have a format convertor to translate codes between autoit and Arduino beep/note code.

 

That's easy. I use Notepad++.

Example: we have this "song" to Arduino beeps:

:beep frequency=660 length=100ms;
:delay 150ms;
:beep frequency=660 length=100ms;
:delay 300ms;
:beep frequency=660 length=100ms;
:delay 300ms;
:beep frequency=510 length=100ms;
:delay 100ms;
:beep frequency=660 length=100ms;
:delay 300ms;
:beep frequency=770 length=100ms;
:delay 550ms;
:beep frequency=380 length=100ms;
:delay 575ms;

Paste it in Notepad++, use Ctrl + H to open replaces window. Then, replace the following strings (one per time):

  • :beep frequency= to Beep(
  • [put a space here]length= to ,[put a space here]
  • :delay to Sleep(
  • ms; to )

 

Then, we have:

Beep(660, 100)
Sleep(150)
Beep(660, 100)
Sleep(300)
Beep(660, 100)
Sleep(300)
Beep(510, 100)
Sleep(100)
Beep(660, 100)
Sleep(300)
Beep(770, 100)
Sleep(550)
Beep(380, 100)
Sleep(575)
Edited by Jefrey

My stuff

Spoiler

My UDFs  _AuThread multithreading emulation for AutoIt · _ExtInputBox an inputbox with multiple inputs and more features · forceUTF8 fix strings encoding without knowing its original charset · JSONgen JSON generator · _TCPServer UDF multi-client and multi-task (run on background) event-based TCP server easy to do · _TCPClient_UDF multi-server and multi-task (runs on background) event-based TCP client easy to do · ParseURL and ParseStr functions ported from PHP · _CmdLine UDF easily parse command line parameters, keys or flags · AutoPHP Create documents (bills, incomes) from HTML by sending variables/arrays from AutoIt to PHP · (Un)Serialize Convert arrays and data into a storable string (PHP compatible) · RTTL Plays and exports to MP3 Nokia-format monophonic ringtones (for very old cellphones) · I18n library Simple and easy to use localization library · Scripting.Dictionary OOP and OOP-like approach · Buffer/stack limit arrays to N items by removing the last one once the limit is reached · NGBioAPI UDF to work with Nitgen fingerprint readers · Serial/Licensing system require license key based on unique machine ID from your users · HTTP a simple WinHTTP library that allows GET, POST and file uploads · Thread true AutoIt threads (under-dev) · RC4 RC4 encryption compatible with PHP and JS ·  storage.au3 localStorage and sessionStorage for AutoIt Classes _WKHtmlToX uses wkhtmlto* to convert HTML files and webpages into PDF or images (jpg, bmp, gif, png...) Snippets _Word_DocFindReplaceByLongText replace strings using Word UDF with strings longer than 255 characters (MSWord limit) rangeparser parser for printing-like pages interval (e.g.: "1,2,3-5") EnvParser parse strings/paths with environment variables and get full path GUICtrlStaticMarquee static text scrolling Random stuff Super Mario beep sound your ears will hurt

 

Posted

Something like that ?

$sSong = _BeepArduinoToAu3 ( 'D:\Bureau\Arduino beeps.txt' )
If @error Then
    ConsoleWrite ( "An error occurred when reading the file." & @Crlf )
Else
    ConsoleWrite ( $sSong & @Crlf )
EndIf

Func _BeepArduinoToAu3 ( $sFilePath )
    Local $hFile = FileOpen ( $sFilePath )
    If $hFile = -1 Then Return SetError ( 1, 0, '' )
    Local $sText = FileRead ( $hFile )
    FileClose ( $hFile )
    Return StringReplace ( StringReplace ( StringReplace ( StringReplace ( StringReplace ( StringReplace ( _
        $sText, ' frequency=', ' ( ' ), 'ms;', ' )' ), ';', ')' ), ' length=', ', ' ), ':delay', 'Sleep (' ), ':', '' )
EndFunc ;==> _BeepArduinoToAu3 ()

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

  • 7 years later...

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
×
×
  • Create New...