Show Posts
Pages: [1] 2 3 4
1  International / Deutsch / Re: Relais Ansteuerung Arduino Mega + Relaisboard + Visual Basic on: June 08, 2014, 06:45:30 am
Danke an euch allen, bin schon viel weiter und jeder einzelne Tip hat mir geholfen
2  International / Deutsch / Re: Relais Ansteuerung Arduino Mega + Relaisboard + Visual Basic on: June 03, 2014, 08:11:13 pm
Danke wie immer für die schnellen Tips aber

@sschultewolter
leider funktioniert das nicht, ich habe jetzt die Zeilen mit deinem Code ausgetauscht und auch die variabeln ersetzt aber es tut sich rein garnichts

@serenifly
kannst du das etwas konkretisieren, wie mache ich das?

@Eisbaer
kannst du mir ein Beispiel nennen ?

Danke euch
3  International / Deutsch / Relais Ansteuerung Arduino Mega + Relaisboard + Visual Basic on: June 03, 2014, 05:51:03 pm
Hallo zusammen,

eigentlich ganz simpel ich habe es teilweise schon geschafft mein Relaisboard über den Arduino und Visual Basic anzusteuern. Dh. ich habe 16 Taster in VB (8x An und 8 x Aus) mit denen ich die Relais eben an- und ausschalte.

Problem nun, ich komme nur bis Relais 5 An. Aus funktioniert nicht da ich die Ziffer 10 schlecht übertragen kann. Ich rede wohl noch etwas in rätseln deswegen hier der Code für Arduino und Visual Basic :

Arduino=

Code:
int relais1 = 2;
int relais2 = 3;
int relais3 = 4;
int relais4 = 5;
int relais5 = 6;
int relais6 = 7;
int relais7 = 8;
int relais8 = 9;


void setup() {
 
Serial.begin(9600);

pinMode(relais1, OUTPUT);
pinMode(relais2, OUTPUT);
pinMode(relais3, OUTPUT);
pinMode(relais4, OUTPUT);
pinMode(relais5, OUTPUT);
pinMode(relais6, OUTPUT);
pinMode(relais7, OUTPUT);
pinMode(relais8, OUTPUT);

digitalWrite(relais1, HIGH);
digitalWrite(relais2, HIGH);
digitalWrite(relais3, HIGH);
digitalWrite(relais4, HIGH);
digitalWrite(relais5, HIGH);
digitalWrite(relais6, HIGH);
digitalWrite(relais7, HIGH);
digitalWrite(relais8, HIGH);

}


void loop(){
while (Serial.available() == 0); // do nothing if nothing sent
int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number

if (val == 1) {
Serial.println("Relais 1 ON");
digitalWrite(relais1, LOW);
}
else if (val == 2)
{
Serial.println("Relais 1 OFF");
digitalWrite(relais1, HIGH);
}

else if (val == 3)
{
Serial.println("Relais 2 ON");
digitalWrite(relais2, LOW);
}

else if (val == 4)
{
Serial.println("Relais 2 OFF");
digitalWrite(relais2, HIGH);
}

else if (val == 5)
{
Serial.println("Relais 3 ON");
digitalWrite(relais3, LOW);
}

else if (val == 6)
{
Serial.println("Relais 3 OFF");
digitalWrite(relais3, HIGH);
}

else if (val == 7)
{
Serial.println("Relais 4 ON");
digitalWrite(relais4, LOW);
}

else if (val == 8)
{
Serial.println("Relais 4 OFF");
digitalWrite(relais4, HIGH);
}

else if (val == 9)
{
Serial.println("Relais 5 ON");
digitalWrite(relais5, LOW);
}

else if (val == 16)
{
Serial.println("Relais 5 OFF");
digitalWrite(relais5, HIGH);
}


else // if not one of above command, do nothing
{
//val = val;
}
Serial.println(val);
Serial.flush(); // clear serial port
}



Visual Basic =

Code:
Imports System.IO
Imports System.IO.Ports
Imports System.Threading

Public Class Form1



    Dim Count As Integer = 0
    Dim var As Integer
    Dim wirkungsgrad As Double
    Dim dichte As Double
    Dim windgeschw As Double
    Dim durchmesser As Double
    Dim leistung As Double
    Dim leistungwind As Double

    Dim speichervar As Integer

    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If InStr("0123456789" & Chr(8), e.KeyChar) = False Then e.Handled = True
    End Sub
    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If InStr("0123456789" & Chr(8), e.KeyChar) = False Then e.Handled = True
    End Sub
    Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If InStr("0123456789" & Chr(8), e.KeyChar) = False Then e.Handled = True
    End Sub




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     

        TextBox3.Text = "Bitte richtigen COM Port auswählen"
        Panel1.Visible = False

        Me.Size = New Size(500, 150)




    End Sub

   

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

   

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        SerialPort1.PortName = ComboBox1.Text
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 8
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.Handshake = Handshake.None
        SerialPort1.Encoding = System.Text.Encoding.Default
        SerialPort1.Open()
        speichervar = 1

        TextBox3.Text = "System READY"
        ComboBox1.Visible = False
        Button4.Visible = False
        Panel1.Visible = True
        Me.Size = New Size(500, 600)


    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)


        TextBox3.Text = "System READY"
        ComboBox1.Visible = False
        Button4.Visible = False

        speichervar = 0
        Panel1.Visible = True
        Me.Size = New Size(500, 600)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        SerialPort1.Write("1")

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        SerialPort1.Write("2")

    End Sub

   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("3")
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Write("4")
    End Sub


    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        SerialPort1.Write("5")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        SerialPort1.Write("6")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        SerialPort1.Write("7")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        SerialPort1.Write("8")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        SerialPort1.Write("9")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        SerialPort1.Write("10")
    End Sub
End Class

Meine Frage nun, welchen Weg muss ich wählen damit ich auf dieser Basis eine 10 erfolgreich zum Arduino schicken kann und er mir diese auch als eine 10 interpretiert. Stichwort ist hier ASCII aber ich habe keine Ahnung wo ich ansetzen muss.

Beste Grüße

Don
4  International / Deutsch / Re: Problem[GSM Shield + Arduino Uno + Sparkfun microSD Shield= Alarmanlagenprojekt] on: March 20, 2014, 03:59:56 am
Merci
5  International / Deutsch / Re: Problem[GSM Shield + Arduino Uno + Sparkfun microSD Shield= Alarmanlagenprojekt] on: March 19, 2014, 05:14:37 pm
Du bit ein Schatz Serenify, das hat geklappt !!!

Kannst du mir das nochmal ganz kurz im Prinzip erklären, was da genau abläuft, damit ich wieder was gelernt habe und mich nicht nur freuen kann dass es funktioniert.

Beste

Don
6  International / Deutsch / Problem[GSM Shield + Arduino Uno + Sparkfun microSD Shield= Alarmanlagenprojekt] on: March 19, 2014, 04:57:31 pm
Hallo zusammen,

ich hab's ja bereits erwähnt dass ich zur Zeit an einem interessanten Alarmanlagenprojekt sitze. Ich stell euch am besten kurz mein Setup vor, wie oben schon erwähnt :

ein Arduino GSM Shield
ein Arduino Uno
neuerding ein Sparkfun microSD Shield
und ein PIR Sensor
eine RGB LED
und ein paar Kabel

et voila, das soll meine neue "WG" Alarmanlage werden.

Background : Bei uns wurde eingebrochen und ich dachte ich bau uns 3en in der WG mal eine interessante Lösung hierzu, ich rechne zwar nicht wirklich damit dass sich irgendwelche Herrschaften wieder hier rein verirren aber ich habe große Lust dieses Projekt zu verwirklichen und hierzu ne kleine Anleitung eventuell zu schreiben.

Es klappt auch alles wunderbar, der PIR Sensor erfasst Bewegungen, ne SMS wird gesendet, die RGB LED gibt mir den aktuellen Status an der kleinen Anlage aber das Abspeichern der Bewegungen in einer Textdatei klappt nicht so wirklich smiley-sad Ich habe mir dazu extra einen Sparkfun microSD Shield besorgt. Der funktioniert zwar wunderbar wenn ich ihn mit dem Arduino alleine betreibe. Aber sobald ich ihn in mein System integriere dann spinnt er beim booten etwas rum. Genauer gesagt zeigt mir der Serial Monitor etwas verwirrendes auf ( Siehe Anhang )

An was könnte dies liegen ? Im Anhang befinden sich noch weitere Bilder meines kleinen Setups.



#include <GSM.h>

#include <SPI.h>
#include <SD.h>

File myFile;

#define PINNUMBER "6915"
GSM gsmAccess;
GSM_SMS sms;

const int chipSelect = 8;

int redPin = 11;
int greenPin = 5;
int bluePin = 9;
int anode = 6;
int dimmer = 20;
int ledtimer = 500;

int inputPin = 4;               
int pirState = LOW;             
int val = 0;                   
int freezetime;




char remoteNumber[20];

void setColor(int red, int green, int blue)
{
 
    red = 255 - red;
    green = 255 - green;
    blue = 255 - blue;
 
  analogWrite(redPin, red);
  analogWrite(greenPin, green);
  analogWrite(bluePin, blue); 
}

void setup() {
 
  Serial.begin(9600);
   
  pinMode(redPin, OUTPUT);     
  pinMode(greenPin, OUTPUT);
  pinMode(bluePin, OUTPUT);
 
  pinMode(inputPin, INPUT);
 
 
  Serial.println("Alarmanlage startet...");

  Serial.print("Initializing SD card...");
  // On the Ethernet Shield, CS is pin 4. It's set as an output by default.
  // Note that even if it's not used as the CS pin, the hardware SS pin alizing SD card...");
  // (10 on most Arduino boards, 53 on the Mega) must be left as an output
  // or the SD library functions will not work.
   pinMode(SS, OUTPUT);
   
  if (!SD.begin(chipSelect)) {
    Serial.println("initialization failed!");
    return;
  }
  Serial.println("initialization done.");
 

  myFile = SD.open("logger.txt", FILE_WRITE);
 
   // if the file opened okay, write to it:
  if (myFile) {
    Serial.print("Writing to logger.txt...");
    myFile.println("Starte Aufzeichnung.");
   // close the file:
    myFile.close();
    Serial.println("done.");
  } else {
    // if the file didn't open, print an error:
    Serial.println("error opening test.txt");
  }
 


 
 
 
  boolean notConnected = true;
  while(notConnected)
  {
    if(gsmAccess.begin(PINNUMBER)==GSM_READY)
      notConnected = false;
    else
    {
      Serial.println("Nicht verbunden.");
      delay(1000);
    }
}

Serial.println("GSM online.");
Serial.println("System bereit.");

setColor(0, 255, 0);  // green


}
 
void loop(){
 
  val = digitalRead(inputPin); 
  if (val == HIGH) {           
   
   
      // hier LED
 
   
    if (pirState == LOW) {
     
     
      setColor(0, 255, 255); 
      Serial.println("Bewegung erfasst!");
     
  if (myFile) {
    Serial.print("Writing to logger.txt...");
    myFile.println("Bewegung registriert und gespeichert.");
   
    myFile.close();
    Serial.println("done.");
  } else {

    Serial.println("error opening test.txt");
  }
   
      sms.beginSMS("0157XXXXXXXXX);
      sms.print("Bewegung im Zimmer!");
      sms.endSMS();
 
     
      Serial.println("SMS wurde gesendet.");
      Serial.println("Bewegungssensor wird fuer :");
      Serial.println(freezetime/1000);
      Serial.println("s eingefroren.");
      delay(freezetime);
      Serial.println("Bewegungssensor ist wieder aktiv.");
 
      pirState = HIGH;
    }
  } else {
 
   
    // hier LED
   
   
    if (pirState == HIGH){
      // we have just turned of
      setColor(0, 255, 0);  // green
      Serial.println("Keine Bewegung.");

      pirState = LOW;
     
  }
}
}





Wäre für jede Hilfe, Tipp oder Verbesserungsvorschlag sehr dankbar.

Beste Grüße

Don

PS : Und kann mir mal einer Please sagen wie ich den Code hier richtig einfügen kann ? =)
7  International / Deutsch / TFT Display + Arduino on: March 17, 2014, 10:14:45 am
Hallo zusammen,

Mein Alarmanlagenprojekt hat deutliche Fortschritte gemacht. GSM Shield und PIR interagieren wunderbar miteinander.

Ich habe mir jetzt ein TFT Display zugelegt, nur leider habe ich das wohl etwas unterschätzt und entgegen meiner Annahme handelt es sich bei der bestellten Ware nicht um genau das selbe wie bei dieser Anleitung :

http://blog.simtronyx.de/bilder-mit-einem-arduino-auf-einem-tft-display-mit-sd-kartenmodul-darstellen/

Ich habe nun das Problem dass ich mit dem Anschluss der Pins nicht ganz zu recht komme, hat jemand einen Tip für mich , wo kann ich herausfinden was ich genau jetzt von den Anschlüssen brauche, brauche ich auch die Pins ( Bild rechts ) mit der gelben Ummantelung ?

8  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 05:15:22 pm
Danke Uwe

Gemessen hab ich selbstverständlich schon am Anfang mit dem Fluke, Durchgang ist auf Diagonale wenn Taster gedrückt.

Das mit dem hochohmig schnall ich nur nicht so ganz bzw. wo da genau der Zusammenhang liegt, gibts's dazu ne schöne Formel ? smiley

Vielen Dank nochmals
9  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:58:13 pm
Danke @serenifly, hat geklappt. Obwohl es mich ja doch schon sehr interessieren würde warum er mir da so ein quatsch macht smiley-sad

Ich möchte in naher zukunft ein paar PIR Sensoren integrieren und ich weiss wirklich nicht ob ich da es dann auch genauso lösen kann.

Nebenfrage:
Ist mit meinem Shield also alles i.O. ? =)
10  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:50:50 pm
Müsste doch trotzdem gehen oder nicht ?

Funktioniert trotzdem nicht, auch wenn ich ihn direkt an die 5V anschließe, springt er mir trotzdem rein


@uwe, wo liegt den genau mein Fehler, wenn ich zuzüglich die 100 Ohm schalte, springt er mir immer noch rein smiley-sad(((
11  Using Arduino / Networking, Protocols, and Devices / Re: Problem with Arduino GSM Shield on: March 11, 2014, 04:45:36 pm
Here my circuit, with a debounce integrated

12  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:44:17 pm
Übrigens er springt mir da rein auch wenn ich nichts an die Pins anschließe
13  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:42:31 pm
Und so geht's auch nicht...
der springt mir direkt in die If Abfrage

14  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:32:03 pm


so sieht das ganze bei mir aus nur mit einem 10kOhm
15  International / Deutsch / Re: Arduino mit GSM Shield Hilfeeee on: March 11, 2014, 04:24:00 pm
Is mir gerade im Bad auch eingefallen smiley-grin

sorry =)

Ja habe ich
Pages: [1] 2 3 4