Page 2 of 3 FirstFirst 123 LastLast
Results 11 to 20 of 28

Thread: POS 98 Nissan Altima Car PC Project started

  1. #11
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33
    Quote Originally Posted by soundman98 View Post
    what do you mean ground loops are a common problem with aftermarket amps? just in that car, or in general?
    Most group loops are exactly that, a loop of ground. Multiple powered devices connected together for a single purpose creating a loop of energy that can radiate into the speaker signal. This creates the buzz sound. The other cause is a bad ground, but this usually follows by a random thump of the speakers, more noticeable in sub-woofer installations.

    Oops, guess I didnt really answer YOUR question. And the answer is.. In general. Ground loops dont often present themselves, but when they do, it is usually because an aftermarket amplifier has been installed. My strict example does not mean I am shallow enough to believe this is the only cause but in most cases this is the truth.

  2. #12
    MySQL Error soundman98's Avatar
    Join Date
    Jan 2008
    Location
    on the border of northern IL/IN
    Posts
    5,820
    i disagree.

    any electronic equipment added to a vehicle can cause a ground loop. audio amps are usually the easiest to determine that there is a GL because of the audible tone..

    many times, installation technique is the cause of GL..

    i have personally installed systems in my 2 cars, 3 family vehicles, and have helped numerous others install aftermarket audio equipment-- only one system had a ground loop-- that which was brought on by a soldering-kit-based-preamp that was not properly shielded/grounded for automotive use..

  3. #13
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33
    which was brought on by a soldering-kit-based-preamp that was not properly shielded/grounded
    exactly not properly grounded, as i stated...

    The other cause is a bad ground, but this usually follows by a random thump of the speakers, more noticeable in sub-woofer installations.
    and usually more noticeable in sub-woofer insallations, because you have a massive amplifier doing its job.. AMPLIFYING SOUND

    you just agreed to everything i have already said..

  4. #14
    MySQL Error soundman98's Avatar
    Join Date
    Jan 2008
    Location
    on the border of northern IL/IN
    Posts
    5,820
    i guess.. i got the impression that you were saying that all aftermarket amp installs have ground loops. i was proving that most do not....

  5. #15
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33

    Basic text-to-speech and voice recognition for windows

    Here is one of the VR and TTS scripts I have been working on. The script works in windows vista, 7, windows 7 embedded. The script requires Active state PERL to be installed on the PC to function. I will include the libraries shortly.

    Code:
    #!/usr/bin/perl
    use strict;
    ###############Load Required Modules###########################
    use IO::Socket;				 #Monitor web request
    use LWP::Simple;			 #Required to get weather
    use Win32::OLE qw( EVENTS ); #Required for Voice Recongnition
    use Win32::SAPI5;			 #Required for Voice Recongnition
    use Mail::POP3Client;		 #Required to talk to gmail
    use Net::POP3; 				 #Required to talk to gmail
    use Net::Twitter;			 #Required to talk to twitter
    
    ###############################################################
    my $computer = 'computer';
    
    use constant SGDSActive   => 1;
    use constant SREAllEvents => 393215;
    use constant SpSharedRecoContext => "{47206204-5ECA-11D2-960F-00C04F8EE628}";
    
    my $speaker = Win32::SAPI5::SpVoice->new()  or die "      \$^E => $^E\nLastError => ".Win32::OLE->LastError();
    $speaker->speak("How can I help you?");
    my $context  = Win32::OLE->new(SpSharedRecoContext) || die "Can't start OLE: ".Win32::OLE->LastError;
    $context->SetProperty('EventInterests', SREAllEvents);
    Win32::OLE->WithEvents( $context, \&ProcessEvents,  "{7B8FCB42-0E9D-4F00-A048-7B04D6179D3D}" );
    my $grammar = $context->CreateGrammar(2);
    $grammar->DictationLoad();
    $grammar->DictationSetState(SGDSActive);
    
    while( 1 ) {
    Win32::OLE->SpinMessageLoop();
    Win32::Sleep( 10 );
    }
    ##
    sub ProcessEvents {
    my($Obj, $Event, @Args ) = @_;
    if ($Event == 7)
    	{
        \&OnRecognition(@_);
        }
    }
    
    ##Listen for voice commands
    sub OnRecognition {
    my($self, $Event, $StreamNumber, $StreamPosition, $RecognitionType, $Result) = @_;
    my $newResult = $self->Invoke('Dispatch', $Result);
    my $text = $Result->PhraseInfo->GetText();
    $text =~ tr/A-Z/a-z/;
    $text =~ s/whether/'weather'/ge;
    $text =~ s/pewter/'computer'/ge;
    
    if($text =~ m/twitter/){&twit;}
    if($text =~ m/mail/ || $text =~ m/email/ || $text =~ m/e-mail/){&gmail;}
    if($text =~ m/sleep/){&sleep;}
    if($text =~ m/thank/){&welcome;}
    if($text eq "$computer" ){&greet;}
    if($text =~ m/are you/){&name;}
    if($text =~ m/weather/){&weather;}
    if($text =~ m/forecast/){&weather;}
    }
    
    ##Speak command, update twitter, post to log file
    sub speak {
    $_ = shift;
    print "$_\n";
    #&tweet($_);
    $speaker->speak($_);
    }
    
    ##Stop the program with sleep command
    sub sleep {
    &speak("I am now going to sleep. Goodbye.");
    exit 0;
    }
    
    ##respond to thank you
    sub thank {
    &speak("your welcome. Is there anything else I can do to help?");
    }
    
    ##say yes, when asking for computer
    sub greet { &speak("yes?"); }
    
    ##tell user command is unrecognized
    sub fail { &speak("I'm sorry, I didn't understand. Can you repeat the command?"); }
    
    ##respond with name
    sub name { &speak("My name is $computer."); }
    
    ##request weather
    sub weather {
    my $URL = "http://rss.wunderground.com/auto/rss_full/ND/Grand_Forks.xml?units=english"; #replace this with your weather XML feed
    my $feed = get($URL);
    my $speak = &current_temp($feed);
    &speak($speak); }
    
    ##construct weather data
    sub current_temp {
    $_ = shift;
    my ($front, $tail) = split(/\<\!\[CDATA\[/, $_);
    my ($HTML, $last) = split(/\]\]\>/, $tail);
    my (@current) = split(/ \| /,$HTML);
    
    foreach(@current)
    	{
    	if(m/<img/)
    		{
    		my($data,$tag) = split(/<img/,$_);
    		$_ = $data;
    		}
    	$_ =~ s/Temperature: //ge;
    	$_ =~ s/Humidity: //ge;
    	$_ =~ s/Pressure: //ge;
    	$_ =~ s/Conditions: //ge;
    	$_ =~ s/Wind Direction: //ge;
    	$_ =~ s/Wind Speed: //ge;
    	}
    
    my $df = " degrees farenheit";
    my $mph = " miles per hour";
    my $nne = "north, north east";
    my $nnw = "north, north west";
    my $sse = "south, south east";
    my $ssw = "south, south west";
    my $sse = "south, south east";
    my $ne = "north east";
    my $nw = "north west";
    my $sw = "south west";
    my $se = "south east";
    my $n = "north ";
    my $e = "east ";
    my $w = "west ";
    my $s = "south ";
    $current[0] =~ s/&#176;F/$df/ge;
    $current[4] =~ s/NNW/$nnw/ge;
    $current[4] =~ s/NNE/$nne/ge;
    $current[4] =~ s/SSE/$sse/ge;
    $current[4] =~ s/SSW/$ssw/ge;
    $current[4] =~ s/NE/$ne/ge;
    $current[4] =~ s/NW/$nw/ge;
    $current[4] =~ s/SE/$se/ge;
    $current[4] =~ s/SW/$sw/ge;
    #$current[4] =~ s/N/$n/ge;
    #$current[4] =~ s/S/$s/ge;
    #$current[4] =~ s/E/$e/ge;
    #$current[4] =~ s/W/$w/ge;
    $current[5] =~ s/mph/$mph/ge;
    my $forecast = "The current Temperature is $current[0] with $current[1] humidity, It is $current[3] and winnds from the $current[4] at $current[5].";
    return $forecast; }
    
    ##check gmail
    sub gmail {
    &speak("Connecting to G-mail, please wait.");
    my $username="USERNAME";	#YOUR USERNAME
    my $password="PASSWORD";	#YOUR PASSWORD
    my $pop = new Mail::POP3Client(USER=> $username,PASSWORD => $password,HOST => "pop.gmail.com",PORT=> 995,USESSL=> 'true',);
    my $count = $pop->Count;
    &speak("You have $count new messages.");
    for(my $i=$pop->Count();$i>=1 ;$i--)
    	{
    	&speak("Message $i is from ");
    	foreach($pop->Head($i))
    		{
    		if(m/^From/i)
    			{
    			$_ =~ s/<[^>]+>//g;
    			$_ =~ s/[^[:ascii:]]+//g;
    			$_ =~ s/From:\s//ge;
    			&speak($_);
    			}
    		if(/^Subject/i)
    			{
    			$_ =~ s/<[^>]+>//g;
    			$_ =~ s/[^[:ascii:]]+//g;
    			$_ =~ s/Subject:\s//ge;
    			&speak($_);
    			}
    		#/^(Date):\s /i && print $_, "\n";
    		#/^(Delivery\-date):\s /i && print $_, "\n";
    		}
    	}
    my $pop->Close();
    }
    
    ##read twitter
    sub twit {
    my $nt = Net::Twitter->new(
     traits => [qw/OAuth API::REST/],
     consumer_key        => $twitter::CONSUMER_KEY,
     consumer_secret     => $twitter::CONSUMER_SECRET,
     access_token        => $twitter::ACCESS_TOKEN,
     access_token_secret => $twitter::ACCESS_SECRET,);
    my $statuses = $nt->friends_timeline({ count => 1 });
    for my $status (@$statuses) {
    #print "$status->{created_at}";
    #print "<$status->{user}{screen_name}>";
    #print "$status->{text}\n"; 
    &speak($status->{text}); }
    }
    
    ##write to twitter
    sub tweet {
    $_ = shift;
    my $nt = Net::Twitter->new(
     traits => [qw/OAuth API::REST/],
     consumer_key        => $twitter::CONSUMER_KEY,
     consumer_secret     => $twitter::CONSUMER_SECRET,
     access_token        => $twitter::ACCESS_TOKEN,
     access_token_secret => $twitter::ACCESS_SECRET,);
    $nt->update($_);
    }

  6. #16
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33
    I forgot to explain:

    say "weather" or "forecast" and the computer will go online and fetch the weather for the are you have configured and respond with speech:
    "The current Temperature is 'XX' with 'XX' humidity, It is 'CLOUDTYPE' and winds from the 'DIRECTION' at 'XX' MPH."

    say "email" or "check email" and it will respond with message count and read the subject of each message.

  7. #17
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33
    i have twitter functions for future use. like starting the car by texting "start" to your twitter..

  8. #18
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33

    Keyboard

    I have ordered a mini bluetooth keyboard for those rare events you need to type but an onscreen keyboard is not available. This keyboard is dirt cheap, I figured I would give it the benefit of the doubt and try it anyways.. Here is a pic and a link:

    http://www.geeks.com/details.asp?inv...K03-PB&cpc=SCH
    Attached Images Attached Images  

  9. #19
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33

    I've got mail

    Got a few parts in today!

    AT003 DC-DC PSU and 15' USB extension cable. Here are pics. I will connect this to my AC-DC converter tonight and test it if I have time. I have also been considering pickup up a CF to SATA adapter for windows embedded 7. Found a few on ebay fairly cheep and I could get away with running a 16 GB for embedded easily since install is only over 1GB.
    Attached Images Attached Images    

  10. #20
    Newbie p3rlphr33k's Avatar
    Join Date
    Feb 2008
    Location
    Grand Forks ND
    Posts
    33

    on hold

    this project is on hold, i have some electrical problems with my car. Once I determine the cost of the damage I will decide if the project will continue with this vehicle, or if this will go into a new vehicle. I will keep you posted.

Page 2 of 3 FirstFirst 123 LastLast

Similar Threads

  1. Joggler Car Computer Project - 2009 Mazda MX-5
    By XGEOX in forum Show off your project
    Replies: 22
    Last Post: 07-15-2011, 05:44 PM
  2. Using remote controls both for Car Audio and CarPC
    By extraaha in forum Input Devices
    Replies: 0
    Last Post: 08-24-2010, 08:26 AM
  3. Ambitious Pico-ITX-based Car PC Project
    By Kenshin5 in forum Newbie
    Replies: 12
    Last Post: 12-18-2007, 04:14 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •