-
        

+ Antworten
Seite 1 von 9 123 ... LetzteLetzte
Ergebnis 1 bis 10 von 87

Thema: Heim Überwachungsroboter

  1. #1
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    06.08.2004
    Beiträge
    378

    Heim Überwachungsroboter

    Anzeige

    Hallo Leute,

    ich will euch meinen Prüf und Testroboter mal vorstellen.
    Den großen Bruder "Prototype" kennt Ihr ja schon vom Wettbewerb.

    Die Ausstattung des kleinen Bruders ist folgenden zur Zeit.

    -1x PIC16F877-20 "Main Core"
    -1x L293N für Scanner und Sensorkopf drehen
    -1x L298 für die Beiden Motoren
    -1x RS232 Wandler zum direkten Auswerten der Daten vom PIC
    -1x Strommess Unit 0-2,55 Amp. umgerechnet von 10Bit Auflösung (1mA)
    -1x 2,4Ghz Video Sender mit Scrambler
    -1x 433Mhz Transceiver Modul mit Codierung und Baudraten Einstellung
    -1x LCD Display dur Textausgabe (wahlweise RX Daten/TX Daten oder Texte vom PC aus)
    -1x IR Sensor bis 12m mit Digital und Analog Auswertung (intelligent)
    -2x Kamera Nacht / Tag
    -5x Hochleistungs IR-Dioden für Nachtsicht
    -1x Temp. / Hygrosensor
    -1x Spannungsmessung mit 10Bit Auflösung
    -1x IR Range Scanner
    -1x IR Empfänger für Baken
    -2x Antrieb RB35 Motoren + 1x Stützrad


    So das alles muss mein PIC mit der Hilfe des Host-Rechners verarbeiten.
    Momentan bin ich noch am überlegen wie ich ihn am besten einen Weg
    lernen lasse und er Ihn Autonom abfährt und dabei Hindernisse ausweicht.

    Bei Alarmfall meldet er via Internet Alarm und Sendet mom. noch per GSM eine SMS raus.

    Nun ein paar Bilder von meinen Robby und den Aktuellen Stand der Software.

    Bild 1

    Bild 2

    Bild 3

    Die Bilder verschoben die Formstruktur!
    Ich habe die Bilder in Links umgewandelt!


    Sorry aber irgendwie geht bei meinen Win98se kein Screenshot und mein XP Rechner steht zuweit weg
    Vieleicht kann mir jemand einen Tipp geben wie ich es bei Win98se hinbekomme geht auch net mit VB6 Code!

    Wenn jemand noch was nützliches einfällt was man drauf bauen kann auf den Robby oder jemand eine Idee zum Äusseren hat einfach raus damit werden wir schon machen, es folgen dann weitere Bilder

    By Ulli

  2. #2
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    01.11.2003
    Ort
    Freiburg im Breisgau
    Alter
    28
    Beiträge
    2.624
    Hi Ulli!
    Schmuckes Gefährt hast Du da! :o)
    Einen Screenshot bekommst Du über Druck S-Abf auf Deiner Tastatur oben neben F12!
    Dann nur noch z.B. in IrfanView über Strg+v einfügen und das wars!

    *edit*: kleinere Bilder hättens auch getan, oder n Link! ;o)

  3. #3
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    26.11.2003
    Ort
    Langen / Hessen
    Alter
    51
    Beiträge
    393
    Respekt !!!!!

    sieht ja mal super aus, würdest Du mir einen Gefallen tun und mal ein Bild mit der Nachtkamera bei IR-Beleuchtung machen?

    Gruss Clemens
    Erfolg kommt NUR im Duden vor Leistung
    Grüße Euer LuK-AS

    Autonome Robotik www.CWNet.de
    Tauchroboter www.T-Bot.de

  4. #4
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    06.09.2004
    Ort
    Abensberg (Niederbayern)
    Alter
    32
    Beiträge
    224
    Hi Sommer,

    für nen Heimüberwachungsroboter wäre vielleicht auch noch ein Rauchmelder sinnvoll.

    Gruß,

    Martin

  5. #5
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    26.10.2004
    Ort
    Feldkirchen in Kärnten
    Beiträge
    203
    Nur das wenn der rauch schon auf seiner höhe ist, dir das im schlaf nixmehr helfen wird.

  6. #6
    Super-Moderator Lebende Robotik Legende Avatar von Manf
    Registriert seit
    30.01.2004
    Ort
    München
    Alter
    63
    Beiträge
    12.222
    Ich interessiere mich noch für den Rest vom Fahrgestell. Ist es eine Stützrolle? Wie ist die Lastverteilung?
    Manfred

  7. #7
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    06.08.2004
    Beiträge
    378
    Hi Leute,

    werde morgen noch ein mal ein paar Bilder Posten.
    Ja waren etwas groß *g* aber unser Addi hat ja schon gemacht

    Ja Rauchmelder ist eine gute Idee aber bringt am Boden nicht viel,
    aber da wäre eine neue Idee net schlecht

    Die Stützrolle sitzt hinten in der Mitte, und der Akku ist in der Mitte der unteren Plattform. Der Schwerpunkt ist recht ausgewogen was aber nicht
    das Optimum ist!

    Also Leute noch ein paar anregungen und wir machen unseren eigene
    HighTech Robby

    By Ulli

  8. #8
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    02.08.2004
    Ort
    Stuttgart
    Alter
    41
    Beiträge
    849
    Hallo Sommer!

    Hab mir mal deine "Radaufhängung" angesehen, auch keine schlechte Lösung mit der Dämpfung und dem Kipp-Punkt über die 180° gebogen M3-Gewindestange. Die Details sind die mich immer begeistern

    Aber wegen deinem nicht möglichen Screenshot. Hast du das als Picturebox mit Rerdraw=True programmiert in VB oder mit einem OCX? Wenn du das nicht mit einer Picturebox programmiert hast wirst du Probleme bekommen ienen Screenshot zu erstellen weil die Fläche einfach dunkelgrau bis schwarz bleiben würde auf der sich das Bild befindet.

    Falls es dich interessiert, es gibt eine Möglichkeit für einen automatisierten Screenshot per VB60. Schreib mich direkt an dann bekommst du etwas Code, will das nicht öffentlich schreiben. Ich bin auch eben daran meinen Roboter der so eine ähnliche Anordnung hat etwas zu erweitern das er sich mit meinem Webserver verbindet und eine Karte mit Bild und Kontrolle online unter Appache / PHP schreibt.

    Grüsse Wolfgang

  9. #9
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    06.08.2004
    Beiträge
    378
    Hi,

    Code:
    '----------------------- modGetVersionEx ------------------------
    Option Explicit
    
    Private Declare Function GetVersionEx Lib "kernel32" Alias _
          "GetVersionExA" (lpVersionInformation As _
          OSVERSIONINFO) As Long
    
    Private Type OSVERSIONINFO
      dwOSVersionInfoSize As Long
      dwMajorVersion As Long
      dwMinorVersion As Long
      dwBuildNumber As Long
      dwPlatformId As Long
      szCSDVersion As String * 128
    End Type
    
    Public g_fIsWinNT As Boolean
    
    Public Function IsWinNT() As Boolean
      Dim osvi As OSVERSIONINFO
      Dim intRet As Integer
    
      osvi.dwOSVersionInfoSize = 148
      osvi.szCSDVersion = Space$(128)
      intRet = GetVersionEx(osvi)
      If osvi.dwMajorVersion > 4 Then IsWinNT = True
    End Function
    
    '--------------------------- frmMain ----------------------------
    Option Explicit
    
    Private Declare Sub keybd_event Lib "user32" (ByVal _
        bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _
        As Long, ByVal dwExtraInfo As Long)
    
    Private Const KEYEVENTF_KEYUP = &H2
    Private Const VK_SNAPSHOT = &H2C
    Private Const VK_MENU = &H12
    
    Private Sub Form_Load()
      g_fIsWinNT = IsWinNT
    
      With picQuelle
        .AutoRedraw = True
        .AutoSize = True
        .Visible = False
      End With
    
      picZiel.AutoRedraw = True
    End Sub
    
    Private Sub cmdScreenshotDesktop_Click()
      Clipboard.Clear
    
      If g_fIsWinNT Then
        keybd_event VK_SNAPSHOT, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
      Else
        keybd_event VK_SNAPSHOT, 1, 0, 0
        keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0
      End If
    
      DoEvents
      SizeBitmapToPicBox picQuelle, picZiel
    End Sub
    
    Private Sub cmdScreenshotWindow_Click()
      Clipboard.Clear
    
      If g_fIsWinNT Then
        keybd_event VK_SNAPSHOT, 1, 0, 0
        keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0
      Else
        keybd_event VK_MENU, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, 0, 0
        keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
        keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
      End If
    
      DoEvents
      SizeBitmapToPicBox picQuelle, picZiel
    End Sub
    
    Private Sub SizeBitmapToPicBox(ByVal vpicQuelle As PictureBox, _
                                ByVal vpicZiel As PictureBox)
      Dim sngRatio As Single
      Dim sngWidth As Single
      Dim sngHeight As Single
    
      vpicZiel.Cls
    
      vpicQuelle.Picture = Clipboard.GetData(vbCFBitmap)
    
      sngRatio = vpicQuelle.ScaleWidth / vpicQuelle.ScaleHeight
    
      sngWidth = vpicZiel.ScaleWidth
      sngHeight = vpicZiel.ScaleHeight
    
      If (sngWidth / sngHeight) > sngRatio Then
        sngWidth = sngRatio * sngHeight
      Else
        sngHeight = sngWidth / sngRatio
      End If
    
      vpicZiel.PaintPicture vpicQuelle.Picture, _
            (vpicZiel.ScaleWidth - sngWidth) / 2, _
            (vpicZiel.ScaleHeight - sngHeight) / 2, _
            sngWidth, sngHeight
    End Sub
    
    
    Also dieser Code ist von VBFun und naja bei XP gehts aber bei W98 noch nicht! Wie ich aber jetzt festgestellt hab in der Arbeit gehts auch auf Win98SE :-) liegt an meiner Oberfläche ;-)
    
    Was hier aber 180° gebogen sein soll weiß ich leider nicht ;-) es sind nur die 4mm Stangen zum Verbinden der beiden Plattformen vorhanden.
    Die Motoren sind mit 1mm Chromatierten Blech befestigt.
    
    Ja jetzt müsste ich nur noch den weg Loggen den ich abgefahren habe in Lernmodus und dann muss er Ihn wieder abfahren :-)
    
    Ulli

  10. #10
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    06.08.2004
    Beiträge
    378
    Hi,

    upps jetzt ist mir mein restlicher Text mit in den Code gerutscht

    Hier noch mal...


    Also dieser Code ist von VBFun und naja bei XP gehts aber bei W98 noch nicht! Wie ich aber jetzt festgestellt hab in der Arbeit gehts auch auf Win98SE liegt an meiner Oberfläche

    Was hier aber 180° gebogen sein soll weiß ich leider nicht es sind nur die 4mm Stangen zum Verbinden der beiden Plattformen vorhanden.
    Die Motoren sind mit 1mm Chromatierten Blech befestigt.

    Ja jetzt müsste ich nur noch den weg Loggen den ich abgefahren habe in Lernmodus und dann muss er Ihn wieder abfahren

    Ulli

+ Antworten
Seite 1 von 9 123 ... LetzteLetzte

Berechtigungen

  • Neue Themen erstellen: Ja
  • Themen beantworten: Ja
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •