Mike
Start a new project, add 2 TextBoxes and set both MultiLine property to
True. Add a CommandButton and paste the following code. Run the project,
then write what you want in the first text box. It will be converted to VB
code in the second text box using multiple Chr() functions.
Option Explicit
Private Sub Command1_Click()
Dim i As Long
Text2.Text = "Option Explicit" & vbCrLf & vbCrLf
Text2.Text = Text2.Text & "Private Sub Form_Load()" & vbCrLf
Text2.Text = Text2.Text & "Dim s As String" & vbCrLf
Text2.Text = Text2.Text & vbCrLf & "s = s"
For i = 1 To Len(Text1.Text)
If i Mod 7 = 0 Then
' New line
Text2.Text = Text2.Text & vbCrLf & "s = s"
Else
Text2.Text = Text2.Text & " & Chr(" & Trim(Str(Asc(Mid( _
Text1.Text, i, 1)))) & ")"
End If
Next
Text2.Text = Text2.Text & vbCrLf & "Debug.Print s" & vbCrLf
Text2.Text = Text2.Text & "End Sub" & vbCrLf
End Sub
Chris
is that what you would expect, Mike?
--
That's odd. I only see him having two posts in the
beep thread. And I'm connecting to the MS servers. I
also saw almost no posts at all yesterday, as though
it were Sunday.
That kind of thing seems to happen periodically, but
I've never figured out why. It's even more odd when
I find that a post won't seem to go through but I can
find it on Google!
And I see three posts by Mike.
--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--
> I have tried five or more times over the past two days to post a response
> to the group containing some example code I have written to generate sine
> wave beeps in response to a post by Abhishek. However, none of those posts
> seem to have got through to the group
In my OE I only see three of your posts in the original thread, none with
any code.
When I clicked your post of 23-03-2009 19:53 (UK time) all the headers
suddenly changed to strike-through with a little red-x and "Message is no
longer available on the server".
In Google groups I see total of 5/24 messages from you, 3 with long code.
Regards,
Peter T
PS I just refreshed OE with F5, that strike-through message has now
disappeared completely. Now you appear in it twice.
I don't really know. I see none of my posts in that specific thread at this
end (none of the five posts in which I included example code). Apparently
some people see all five of them, some see just two, some see three and at
least one (myself) sees none at all. Curiouser and curiouser :-)
Mike
> PS I just refreshed OE with F5, that strike-through message has now
> disappeared completely. Now you appear in it twice.
Same with me, I only see two replies from Mike in that thread from OE.
Mike, have you tried resetting the newsgroup?
> In my OE I only see three of your posts in the original thread,
> none with any code. When I clicked your post of 23-03-2009
> 19:53 (UK time) all the headers suddenly changed to
> strike-through with a little red-x and "Message is no longer available on
> the server".
Thanks for the info, Peter. And thanks to everyone else who responded.
Frankly I do not at all understand what is going on there :-(
Mike
> Mike, have you tried resetting the newsgroup?
Not sure what you mean. Do you mean unsubscribe and then subscribe again? Or
do you mean that I should ditch the Microsoft News folder in AppData / Local
/ Microsoft / Windows Mail and start again?
Mike
From what Peter T says, it seems your posts have been removed. From the one
message of yours I see with code I'm guessing that one of the constants or
perhaps the API alias triggered a spam filter. I've made inquiries and will
report back if I learn anything. In the meantime, the code is interesting
and I will keep the copy I see for future reference.
Pan on my Linux box (which builds distributable binaries WITHOUT the need
for that .net framework, thankyouverymuch) shows one response of yours
from Saturday ("out of curiosity I've just created a 16 bit..."), one
from Sunday ("most typical speakers as well"), and one from Monday ("Beep
is a nuisance") all with message-IDs ending in .phx.gbl. My news server
is news.bresnan.net, for whatever that's worth.
If I spend the rest of the day with that song stuck in my head, I'm going
to hurt somebody. Those of you too young to know what I'm talking about,
just turn up your iWhatever and ignore me. And get off my lawn, you
hooligans.
--
Peter B. Steiger
In My Little Nash Rambler
Cheyenne, WY
If you must reply by email, you can reach me by placing zeroes
where you see stars: wypbs.**1 at gmail.com.
My apps are <\BOLD>process control<\UnBold> apps and the user is
<\Underline>NOT<\UnUnderline> sitting at the PC.
I need to make a noise to get his or her(the cuter one) attention.
I do always include a button to enable/disable sounds.
So there ...
I see three of your posts in the original thread Mike, wth code.
The server I use is motzarella.
just a guess here, but
1) there are a few article numbers missing from the msnews server
in this group today.
2) of the five article number gaps which appear since the start of
the "Beep Beep" thread, two gaps immediately precede articles of yours.
3) it is known that there are "bad words" filters, principally for profanity
4) some news clients will make an encoding decision, per posting, whether
to format a (large?) article in a psuedo-binary form such as "base64"
5) encoded postings occasionally, just by chance, include "bad" words.
6) it is known that the "bad words" filters are not smart enough to tell.
Bob
MS-MVP (until the end of this month)
--
I've often thought of trying to document that, but it
doesn't happen with enough regularity. I remember
awhile back someone tried to post a message that was
blocked over and over. He then posted it entirely in
something like &#nnn; format and it got through. I
decoded the message and found nothing that seemed
potentially problematic.
The bad words filters are ... well, they're downright stupid.
The problem in this case appears to be the variable name
S a m p l e s P e r S e c
I've reported this to someone who should be able to
push through the appropriate investigation.
It's not like that one's not going to come up again.
Once again disappointed by
the quality of support NNTP gets around here,
Bob
--
> From the one message of yours I see with code I'm
> guessing that one of the constants or perhaps the API
> alias triggered a spam filter. I've made inquiries and will report back if
> I learn anything.
Thanks. That's what I was thinking myself too. In fact I think Bob has since
pinned it down to the word S_a_m_p_l_e_s_P_e_r_S_e_c.
> In the meantime, the code is interesting and
> I will keep the copy I see for future reference.
Okay. Don't forget that it is just "code in work" at the moment and there
may be some issues with it (the possibility of it crashing if you attempt to
execute lots of WavPlay statements in a closed loop if you are not using
Wait is one of them, although I think a short Sleep in the loop might fix
that). Also, as it stands, the code generates a waveform lasting the entire
length of the desired "duration", whereas it would be more efficient,
especially for long durations, to create a fairly short waveform and to play
it repeatedly using SND_LOOP until the desired duration has elapsed. I
haven't yet included any code to do that because I don't really have time at
the moment and I know that in addition to the "wait for desired duration"
logic it will be necessary to properly detect a suitable zero crossing
point, making sure that you choose a final sample the voltage value of which
is a negative value approaching zero and about the correct distance away
from zero so that it joins up neatly with the first (zero volts) sample,
otherwise you might hear little "clicks" at the loop frequency.
Mike
>> From the one message of yours I see with code I'm
>> guessing that one of the constants or perhaps the API
>> alias triggered a spam filter. I've made inquiries and will report back
>> if I learn anything.
>
> Thanks. That's what I was thinking myself too. In fact I think Bob has
> since pinned it down to the word S_a_m_p_l_e_s_P_e_r_S_e_c.
??? Any idea WHY?
>> Mike, have you tried resetting the newsgroup?
>
> Not sure what you mean. Do you mean unsubscribe and then subscribe again?
> Or do you mean that I should ditch the Microsoft News folder in AppData /
> Local / Microsoft / Windows Mail and start again?
For future reference, I meant right-click the group in the tree, go to
Properties, and then on the Local File tab, hit the Reset button. It causes
a complete re-download of headers.
>> Thanks. That's what I was thinking myself too. In fact I think Bob has
>> since pinned it down to the word S_a_m_p_l_e_s_P_e_r_S_e_c.
>
> ??? Any idea WHY?
No. I'm just picking up on something Bob mentioned when he said he thought
he had it pinned down to that word. I've been looking at it for ages though
and I really can't see why it or any part of it would be logged as "dodgy".
As a test, I've inserted the phrase Dim SamplesPerSec as Double into this
response to see if it gets through okay.
Mike
No. I'm just picking up on something Bob mentioned when he said he thought
he had it pinned down to that word. I've been looking at it for ages though
and I really can't see why it or any part of it would be logged as "dodgy".
As a test, I've inserted the phrase Dim S_a_m_p_l_e_s_P_e_r_S_e_c as Double
into this response to see if it gets through okay.
(The above is an exact copy of a response I've just
posted with the exception that it did not have the
underscore characters between the characters in
question. Let's see if either of them get blocked?)
Mike
> For future reference, I meant right-click the group in the
> tree, go to Properties, and then on the Local File tab, hit
> the Reset button. It causes a complete re-download of
> headers.
Okay. Thanks. In the meantime I've just posted two responses with the
"suspect" word including underscores between the characters in one reponse
and not in the other, to test if either of them get blocked.
Mike
Well that seems to have pinned it down okay. I've just downloaded the latest
posts to the group and I can see my post which had the underscores between
the characters (as above) but I cannot see the post that did not, even
though that was the first one to be posted. So it definitely looks as though
the word S_a_m_p_l_e_s_P_e_r_S_e_c (or the phrase Dim
S_a_m_p_l_e_s_P_e_r_S_e_c as Double), without the underscores of course, is
trigerring some kind of automated rejection mechanism, although for the life
of me I cannot see what it objects to. Curiouser and curiouser!
Mike
You're not using those naughty VB commands again, are you? ;-)
--
Regards,
Rick Raisley
heavymetal-A-T-bellsouth-D-O-T-net
"Michael Williams" <Mi...@WhiskeyAndCoke.com> wrote in message
news:ec6otbMr...@TK2MSFTNGP02.phx.gbl...
Probably objection to posting benchmarks, such as for dotnet. See this post:
http://groups.google.com/group/microsoft.public.dotnet.framework.performance/msg/1405fe983d70f74f
"Michael Williams" <Mi...@WhiskeyAndCoke.com> wrote in message
news:u%23wzCeMr...@TK2MSFTNGP05.phx.gbl...
microsoft.public.msnewservers
microsoft.public.news.server
Wow. Stupid? Very kind...
--
.NET: It's About Trust!
http://vfred.mvps.org
> Mike, I got your email last night, and posted the full text
> of it, along with an explanation (and a change in Subject
> to Re: Beep Beep from Mike Williams), and guess what?
> It isn't visible here today (I didn't check it last night after
> sending). Now, that is really weird, and almost points to something in the
> body text causing it to not appear. You're
> not using those naughty VB commands again, are you? ;-)
Thanks Rick. That clinches it. Have a look at some of the most recent
messages in this thread and you'll see it has been pinned down to the word
S_a_m_p_l_e_s_P_e_r_S_e_c (without the underscores of course, which I've
inserted just to make sure this post gets through). Don't ask me what the
Micro$oft news servers didn't like about that word though. I certainly can't
figure it out, looks perfectly innocent to me, but it was enough to have
their rejection filters kick in! Curioser and Curiouser :-) It was Bob O'
Bob who pinned it down, without apparently performing the equivalent of a
binary search by posting suitable tests to the group, so I can only assume
that he knows the person at Micro$oft who is responsible for filtering
messages and that he was able to run the message through their filter and
check the log it produced.
Mike
Nope, did the whole BS thing in microsoft.public.nntp.test
> Nope, did the whole BS thing in microsoft.public.nntp.test
Right. I always forget that there is a test group for doing such things.
Would have done so myself if I had remembered. Not half as much fun as
cluttering up the VB group though ;-)
Still puzzles me what the filters didn't like about that word?
Mike
I can see my reply below using msnews server, but it's like nobody else is
seeing it. I included it below with one word that is underscored.
Older reply:
Probably objection to posting b_e_n_c_h_m_a_r_k_s, such as for dotnet. See
this post:
http://groups.google.com/group/microsoft.public.dotnet.framework.performance/msg/1405fe983d70f74f
Dunno. I can justify a little bit of investigation into it,
since filtering messages is now what I do for a living.
I think it most likely has to do with the sequence s p e r
and what may or may not accompany it.
But it would be pretty stupid for them to have implemented
something easy to discover "this works" "this doesn't"
by a simplistic character match. Or maybe they did, and
maybe I'm actually over-thinking the problem.
And I may be about at my limit for time to bother anyway.
Some days, ya gotta just mangle the ""offending"" word
and move on.
Bob
--
Ack. Shades of the days when you couldn't mention "chardonnay" or
"saltwater".
--
Jim
I can see my reply below using msnews server, but it's like nobody else is
seeing it. I included it below with one word that is underscored and two
space characters in the link.
Older reply:
Probably objection to posting b_e__n_c_h__m__a_r_k_s, such as for dotnet.
Debug.Print Chr(68) & Chr(111) & Chr(116) & Chr(110) & Chr(101) & _
Chr(116) & Chr(32) & Chr(98) & Chr(101) & Chr(110) & Chr(99) & _
Chr(104) & Chr(109) & Chr(97) & Chr(114) & Chr(107) & Chr(115)
Sadly, those days never actually left us.
Even today, "specialist" runs into dumb filters all the time.
I've also seen some pretty complex attempts to catch sound-alike
type stuff - all the way up to one which threw a false positive
on my own amateur radio callsign, WA6RGA ...
Bob
--
010011000100111101001100!
--
Regards,
Rick Raisley
heavymetal-A-T-bellsouth-D-O-T-net
"Bob O`Bob" <filt...@yahoogroups.com> wrote in message
news:uk%23albYr...@TK2MSFTNGP05.phx.gbl...
><monty python>
> <knight>
> How can we not say IT if we do not know what IT is!
> </knight>
> <knights who say ni>
> AGH stop saying the word!!!
> </knights who say ni>
></monty python>
Now if we can only get a shrubbery, this thread would be officially
over.
:)
J.
Jeremiah D. Seitz
Omega Techware
http://www.omegatechware.net
Only slightly higher so we get a sort of two-level effect with a path...
Yeah. I've been trying to reply to this post with other examples, too.
So far 6 failures and no successes at all.
n e e d l e s s p e r s e c u t i o n
That apparently fails as well, even WITH a space between the words.
You're right - my characterization of this situation as "stupid"
was entirely unwarranted in its generosity.
--
I am hopeful that maybe some process somewhere has recognized something
about the test posts *I* have been attempting, and has sort of "tightened"
the rules for my posts, specifically. I doubt it very much, but it would
actually be a more reasonable explanation than any other I can come up with.
So ... if anyone else is interested to submit some test postings, let's
NOT clutter up this newsgroup, but instead go to microsoft.public.nntp.test
(followups set on this post)
Bob
--
LOL!
How long before g r a t u i t o u s i n c o m p a t i b i l i t y fails too?
> You're right - my characterization of this situation as "stupid"
> was entirely unwarranted in its generosity.
They say I'm quick to judge, but hey, sometimes there's little choice, eh?
>
> They say I'm quick to judge, but hey, sometimes there's little choice, eh?
I suppose it's just as well, that I received the official word this week
that very soon I'm going to have to give up making any new uses of
a certain TLA -- one which I very rarely ever bothered claiming, anyway.
Oh ... what the heck ... one last time!
Bob,
VB MVP
--
Just holler, should you ever want an @exMVPs.org email address.
Totally free, to all exMVPs and exMVPwannabes!
They're becoming all the rage, I hear. :-)
http://scriptasylum.com/tutorials/encdec/encode-decode.html
%68%74%74%70%3A%2F%2F%77%77%77%2E%6D%61%69%6C%2D%61%72%63%68%69%76%65%2E%63%6F%6D%2F%61%64%76%61%6E%63%65%64%2D%64%6F%74%6E%65%74%40%64%69%73%63%75%73%73%2E%64%65%76%65%6C%6F%70%2E%63%6F%6D%2F%6D%73%67%30%30%36%35%32%2E%68%74%6D%6C
Ex MVP wannabe?
Would that be defined as someone who used to want to be an MVP and changed
their position when they realized that it had turned into a .net evangelical
society?
.. -.. --- -. .----. - .-. . .- .-.. .-.. -.-- .-.-.-
-.-. .- .-. . .- -... --- ..- - .-.-.-
.--. . .-. ..-. --- .-. -- .- -. -.-. . .-.-.-
-... . -.-. .- ..- ... . .. .-.-.-
-.. --- -. .----. - .-. . .- .-.. .-.. -.-- .-.-.-
-.-. .- .-. . .- -... --- ..- - .-.-.- -. . - .-.-.-
-... ..- - .-.-.- .-.-.- .-.-.- .. ..-. - .... . -.-- .-.-.-
-.. --- -. .----. - .-- .- -. - .-.-.-
-... . -. -.-. .... -- .- .-. -.- ... .. .-.-.-
.... .- ...- . - --- --. ..- . ... ... .. - .----. ... .-.-.-
-... . -.-. .- ..- ... . .. - .----. ... ... .-.. --- .-- . .-. .-.-.-
FontSize = 20
AutoRedraw = True
CurrentX = 500
CurrentY = 100
Print Chr(&H4F&)
CurrentX = 1280
CurrentY = 100
Print Chr(&H4F&)
CurrentX = 200
CurrentY = 100
Print Chr(&H52&)
CurrentX = 1580
CurrentY = 100
Print Chr(&H4C&)
CurrentX = 1050
CurrentY = 100
Print Chr(&H4C&)
CurrentX = 800
CurrentY = 100
Print Chr(&H46&)
> I suppose it's just as well, that I received the official word this
> week that very soon I'm going to have to give up making any
> new uses of a certain TLA -- one which I very rarely ever
> bothered claiming, anyway. Oh ... what the heck ... one last time!
> Bob,
> VB MVP
Hi Bob. Welcome to the club. At least being an ex MVP isn't as bad as being
an ex parrot, especially if you're a Norwegian Blue ;-)
Mike (ex VB MVP)
> > I suppose it's just as well, that I received the official word this
> > week that very soon I'm going to have to give up making any
> > new uses of a certain TLA -- one which I very rarely ever
> > bothered claiming, anyway. Oh ... what the heck ... one last time!
> > Bob,
> > VB MVP
>
> Hi Bob. Welcome to the club. At least being an ex MVP isn't as bad as being
> an ex parrot, especially if you're a Norwegian Blue ;-)
For those who want to re-live the fun... (The Parrot Sketch)
http://www.youtube.com/watch?v=npjOSLCR2hE
<g>
LFS
Heh, never thought about that twist on it. Original intent was it'd be someone who
*is* an MVP, but isn't very happy about that, and plans to either turn down the next
award and/or simply tell MSFT to FOAD at the next convenient provocation. Lots of
them running loose, too, lemme tell ya.
It just depends on the operator priority: is "ex" executed first, or is
"wannabe"? So is it:
(ex mvp) wannabe
or is it
ex (mvp wannabe)
?
:-P
--
/~\ The ASCII
\ / Ribbon Campaign
X Against HTML
/ \ Email!
Remove the ns_ from if replying by e-mail (but keep posts in the
newsgroups if possible).
Thanks, but no, thanks. No matter how you parse it.
I had composed a lengthy response, but, this being literally
my /last day/ as a Classic VB MVP, it came off as too much of
a "parting shot" and that's really not how I feel.
I simply am not principally a software developer any more.
Over the decades, I've been able to join many communities, both in
physical space and online, and via most of those I have received
terrific assistance, as well as having been afforded opportunities
to give back. For me, the MVP program somewhat enhanced a few
of those latter opportunities, and thus was a good thing.
But I've pretty much moved on. My passion now is to fight spam,
and I'm privileged to be able to do so professionally.
Bob
--
I was using the default left-to-right processing, yeah. <g>
I can attest, you fought the good fight when it needed to be fought!
Always with class. Way to go.
Salutations...