Archiv für den Monat: Juni 2012

Prototype Board

Da sich über die Zeit nun einiges an Mikrocontroller Bauteilen angesammelt hat, hab ich beschlossen mir ein Prototype Board zu bauen.

Als Platte habe ich eine Handelsübliche Plexiglasscheibe gekauft.

Da wir in der arbeit eine NC-Maschine haben, konnte ich auch gleich hier das passende Lochraster bohren lassen. Einer der Vorteile des Gadgeteer ist, dass die Hardware schön standardisiert ist. In den .NET Gadgeteer Builder Guides ist auch der Lochabstand beschrieben.

Es ist eigentlich ein 5mm Raster, ich hab mich für ein 10mm Raster entschieden. Ein bisschen habe ich es schon bereut. Denn nicht alle Module kann ich mehrfach befestigen. Aber oft reichen 1-2 Schraubbefestigungen.

Leider hat der Netduino Plus kein Standard-Lochraster und ich musste bisl schieben und drehen, damit ich das Board überhaupt zweimal befestigen konnte.

Achja Schrauben, hier hab ich mich mit M3 Teilen von Conrad eingedeckt:

Tip: Versuchen, keine Schrauben mit langem Gewinde zu kaufen, hatte hier bisl Probleme.

Zusätzlich habe ich mir noch ein kleine Breadboard (Steckbrett), passend in schwarz, gekauft.

Nun habe ich alle meine Bauteile mal aufgelegt, geachtet dass die Sockeltypen richtig auf dem Mainboard belegt sind. Dann Modul für Modul festgeschraubt. Abstand zu Board habe ich versucht kurz zu halten.

 

 

 

Bin sehr zufrieden. Ich werde es noch bisl erweitern um Verdrahtung (4-Digit-Shield). Ein bisschen habe ich das schon gemacht, siehe kleines Breadboard.

 

Von |2018-02-09T13:00:49+01:002012-06-13|Gadgeteer, Netduino, NETMF|

Gadgeteer Starterkit

Wie angekündigt werden mehrere Artikel zum Gadgeteer folgen.

Erstmal was ich mir bestellt habe…

Ich habe die Bestellung, aus den USA und die damit verbunden Versandkosten in Kauf genommen, da es nicht alle Artikel in Deutschland gibt, bis jetzt.

Es ist nämlich ein neues Mainboard veröffentlicht worden, das Cerberus. Auf das Mainboard werden alle Module gesteckt. Achten muss man auf die Socket-Typen, diese sind mit Buchstaben gekennzeichnet (auf Mainboard und Modul).

 

Bestellliste:

 

Es gibt auch eine schöne Einsteiger-Anleitung, mit der man die ersten Gehversuche machen kann.

Aber dazu im nächsten Artikel :cool:

Von |2018-05-25T14:14:42+02:002012-06-11|Gadgeteer, NETMF|

NETMF

Wie ihr vielleicht bemerkt habt, hat es seit länger Zeit kein Update zum Netduino gegeben.

Anfangs wollte ich mir einen Netduino Go! kaufen, aber als ich mich umschaute gefiel mir der Gadgeteer besser. Ist offiziell von Microsoft unterstützt, zumal aber auch schlechter dokumentiert.

Selbst als gelernter Elektroniker macht mir das zusammenbauen, berechnen von Strömen, Widerständen, usw. weniger Spaß als das Programmieren. Aus diesem Grund wollte ich einen Mikrocontroller mit Sockets. Meine wahl viel dann auf den Gadgeteer.

Lange Rede, kurzer Sinn. Die Kategorie Netduino habe ich in NETMF unbenannt, da dies der allgemeine Überbegriff ist.

NETMF = Microsoft .NET Micro Framework

 

Von |2017-09-18T08:52:03+02:002012-06-08|NETMF|

CompressPartsDatabase

Update

Frank Schöneck, 01.06.2012 V2.0.0

  • Eplan eigene Action für CompressDataBase verwendet.
  • Script kann geladen oder ausgeführt werden.

Danke nochmal an Frank!

 

Anbei ein kleines Script, welches unter Dienstprogramme/Artikel einen Menüpunkt “Artikeldatenbank komprimieren” hinzufügt. Das ganze funktioniert nur in Verbindung einer Access-Artikeldatenbank (Eplan-Standard) funktioniert.

Wenn die Komprimierung durchgeführt wird darf kein anderer Anwender auf die Datenbank zugreifen.

Durch die Kompression verringert sich die Größe enorm und die Geschwindigkeit nimmt zu :w00t:

Vielen Dank an FrankS!

CompressPartsDatabase 2.0.0 (2059 Downloads )

 

' CompressPartsDatabase, Version 2.0.0, vom 01.06.2012
'
' Führt eine Komprimierung der aktuell eingestellten Artikeldatenbank durch.
' Es wird eine Sicherheitskopie mit der Dateiendung '.Backup' angelegt.
'
' Copyright by Frank Schöneck, 2009
' letzte Änderung: Frank Schöneck, 31.08.2009 V1.0.0
'                  Frank Schöneck, 01.06.2012 V2.0.0, -Eplan eigene Action für CompressDataBase verwendet.
'                                                     -Script kann geladen oder ausgeführt werden.
'
' für Eplan Electric P8, ab V2.1.6
'

Imports System.IO

Public Class CompressPartsDatabase
	 _
	Public Sub MyFunction()
		CompressPartsDatabase()
	End Sub

	 _
	Public Sub CompressPartsDatabase_Menu()
		Dim oMenu As New Eplan.EplApi.GUI.Menu()
		oMenu.AddMenuItem("Artikeldatenbank komprimieren...", "CompressPartsDatabase", "Es wird die aktuell eingestellte Artikeldatenbank komprimiert", 35177, 1, True, False)
	End Sub

	 _
	Public Sub CompressPartsDatabase()

		Dim oSettings As New Eplan.EplApi.Base.Settings()
		Dim DatabaseName As String
		Dim DatabaseNameBackup As String
		Dim Result As DialogResult
		Dim boReturn As Boolean
		Dim NewLine As String = Environment.NewLine
		Dim Meldung As String

		'Einstellung 'Artikeldatenbank' auslesen
		DatabaseName = oSettings.getStringSetting("USER.PartsManagementGui.Database", 0)

		'Variablen auslesen und ersetzen
		DatabaseName = PathMap.SubstitutePath(DatabaseName)

		'Namen der Backup-Datei festlegen
		DatabaseNameBackup = DatabaseName & ".Backup"

		'Sicherheitsabfrage
		Meldung = "Soll die folgende Artikeldatenbank komprimiert werden?" & NewLine
		Meldung &= NewLine
		Meldung &= "'" & DatabaseName & "'" & NewLine
		Meldung &= NewLine
		Meldung &= "(Es wird im gleichen Ordner eine Sicherheitskopie mit der Dateiendung 'Backup' angelegt.)" & NewLine
		Result = MessageBox.Show(Meldung, "CompressPartsDatabase", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

		If Result = System.Windows.Forms.DialogResult.Yes Then
			'Cursur Warten anzeigen
			System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

			'Artikeldatenbank komprimieren
			boReturn = CompressParts(DatabaseName, DatabaseNameBackup)

			'Cursor wieder Standard
			System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

			'Ergebnismeldung anzeigen
			If boReturn = True Then
				Meldung = "Das komprimieren der Artikeldatenbank wurde erfolgreich durchgeführt." & NewLine
				Meldung &= NewLine
				Meldung &= "Dateigröße vorher: " & GetFileSize(DatabaseNameBackup) & NewLine
				Meldung &= "Dateigröße nachher: " & GetFileSize(DatabaseName) & NewLine
				MessageBox.Show(Meldung, "CompressPartsDatabase, Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
			ElseIf boReturn = False Then
				MessageBox.Show("Das komprimieren der Artikeldatenbank konnte nicht erfolgreich durchgeführt werden!", "CompressPartsDatabase, Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
			End If
		End If

	End Sub

	'Artikeldatenbank komprimieren
	Private Function CompressParts(ByVal DatabaseFilename As String, ByVal DatabaseFilenameBackup As String) As Boolean
		Try
			Dim cmdLineItp As New CommandLineInterpreter()
			Dim ACC As New ActionCallingContext
			Dim overwrite As Boolean = True

			'Backup anlegen
			File.Copy(DatabaseFilename, DatabaseFilenameBackup, overwrite)

			'PartsDatabase komprimieren
			ACC.AddParameter("Database", DatabaseFilename)
			cmdLineItp.Execute("XPamCompactDatabase", ACC)

			Return True
		Catch ex As Exception
			MessageBox.Show(ex.InnerException.ToString(), "CompressParts, Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
			Return False
		End Try
		Return False
	End Function

	'Anzeige der Dateigröße formatieren
	Private Function GetFileSize(ByVal path As String) As String
		Dim myFile As FileInfo
		Dim mySize As Single

		Try
			myFile = New FileInfo(path)
			If Not myFile.Exists Then
				mySize = 0
			Else
				mySize = myFile.Length
			End If
			Select Case mySize
				Case 0 To 1023
					Return Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes"
				Case 1024 To 1048575
					Return Microsoft.VisualBasic.Format(mySize / 1024, "#,###0.00") & " KB  (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
				Case 1048576 To 1043741823
					Return Microsoft.VisualBasic.Format(mySize / 1024 ^ 2, "#,###0.00") & " MB  (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
				Case Is > 1043741824
					Return Microsoft.VisualBasic.Format(mySize / 1024 ^ 3, "#,###0.00") & " GB  (" & Microsoft.VisualBasic.Format(mySize, "#,###") & " Bytes)"
			End Select
			Return "0 bytes"
		Catch ex As Exception
			Return "0 bytes"
		End Try

	End Function

End Class
Von |2017-11-09T12:23:47+01:002012-06-06|EPLAN, EPLAN-Scripts|

Bookmarks

Mit diesem Script könnt ihr in EPLAN Bookmarks (Lesezeichen) für Projekte anlegen, welche ihr des öfteren benötigt.

Vielen Dank an FrankS für die Umsetzung!

Changelog:

04.06.2012, V1.1.0

  • Eplan Versionsnummer als Unterscheidung mit aufgenommen, Danke an Marco für den Hinweis.

05.06.2012, V1.1.1

  • Eplan Versionsnummer wird nun aus EPLAN.exe (ab V2.1) oder W3U.exe (bis V2.0) ermittelt.

21.08.2012, V2.0.0

  • Lesezeichen Tooltip zeigt nun den kompletten Pfad des Projektes an.
  • Es wird nun das vorhanden sein der Projekte getestet und ggf. das Lesezeichen grau dargestellt, das Lesezeichen bleibt aber weiter aktiv (geht im ListView nicht anders)
  • Neuer Menüpunkt ‘Akualisieren (F5)’ ins Kontextmenü eingebaut (Taste F5 geht nicht im Scripting)
  • Menüpunkt “Lesezeichen” ist nun unter “Schließen” im Projekt-Menü gewandert. (Wegen Select-Versionen)

08.10.2012, V2.1.0

  • Lesezeichen können nun nach oben/unten verschoben werden.

Bookmarks_V2.1 (1665 Downloads )

Von |2017-11-09T12:23:47+01:002012-06-05|EPLAN, EPLAN-Scripts|
Nach oben