Kategorie: Scriptsprachen

Um die GUI für längere Berechnungen nicht zu blockieren sollte man einen neuen Thread erzeugen. Dieser kann die GUI nach dem Observer Pattern über seinen aktuellen Zustand informieren:

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import wx
import os, sys, time
import threading
import wx.lib.newevent

[wxID_FRAME1, wxID_FRAME1BT_START,
] = [wx.NewId() for _init_ctrls in range( 2 )]

modules ={'Frame1': [1, 'Main frame of Application', u'Frame1.py']}

( NewStatusEvent, EVT_NEW_STATUS ) = wx.lib.newevent.NewEvent()

class BoaApp( wx.App ):
	def OnInit( self ):
		self.main = Frame1( None )
		self.main.Show()
		self.SetTopWindow( self.main )

		return True

class Frame1( wx.Frame ):
	def _init_ctrls( self, prnt ):
		# generated method, don't edit
		wx.Frame.__init__( self, id=wxID_FRAME1, name='', parent=prnt,
		pos=wx.Point( 470, 586 ), size=wx.Size( 400, 250 ),
		style=wx.DEFAULT_FRAME_STYLE, title='Working Thread' )
		self.SetClientSize( wx.Size( 392, 216 ) )

		self.bt_start = wx.Button( id=wxID_FRAME1BT_START,
		label=u'run Worker', name=u'bt_start', parent=self,
		pos=wx.Point( 264, 160 ), size=wx.Size( 107, 23 ), style=0 )
		self.bt_start.Bind( wx.EVT_BUTTON, self.OnBt_startButton,
		id=wxID_FRAME1BT_START )

	def __init__( self, parent ):
		self._init_ctrls( parent )

		# worker thread
		self.myworkingthread = None

		# bind event from worker thread to event-handler method
		self.Bind( EVT_NEW_STATUS, self.updateStatus )

	def updateStatus( self, event ):
		"""Eventhandler."""
		print(event.current_state )

	def OnBt_startButton( self, event ):
		self.myworkingthread = MyWorkingThread( self )
		# add observer
		self.myworkingthread.add_event_recipient( self )
		self.myworkingthread.start()

	def __del__( self ):
		self.myworkingthread.stop()
		self.myworkingthread.join()

class MyWorkingThread( threading.Thread ):

	def __init__( self, referrer ):
		threading.Thread.__init__( self )
		self.cancel = threading.Event()
		self.gui = referrer

		# observer list
		self.event_recipients = []

		self.running = True

	def add_event_recipient( self, recipient ):
		"""add observer."""
		self.event_recipients.append( recipient )

	def run( self ):
		# do a lot of work
		while self.running:
			evt = NewStatusEvent()
			evt.current_state = 'working…'
			# notify observers
			for recipient in self.event_recipients:
				if recipient:
					wx.CallAfter( recipient.ProcessEvent, evt )
			time.sleep(1)

	def stop( self ):
		# Cleanup
		self.cancel.set()
		self.event_recipients = []
		self.running = False

def main():
	application = BoaApp( 0 )
	application.MainLoop()

if __name__ == '__main__':
	main() 

http://www.google.com/apis/maps/

Google Maps basiert auf JavaScript und kann daher, ohne eine Software zu installieren, in jedem JavaScript fähigen Web Browser angezeigt werden. Momentan unterstützt Google Maps folgende Browser: Firefox/Mozilla, IE 5.5+, Safari 1.2+ und Opera. Google Maps kann Punkte/Marker, Linien und Infofenster anzeigen. Google Maps in eine Website einbinden

Um eine Google Maps Karte in eine Website zu integrieren benötigt man zuerst einen API-Key. Diesen bekommt man nur, wenn man sich zuvor für ein Google Konto angemeldet hat. Jeder registrierte API-Key ist jeweils nur für ein Verzeichnis auf dem Webserver gültig (z.B. http://www.meineseite.de/googlemap).

Beispiel 1 (Gizeh): Diese Karte ist auf Gizeh ausgerichtet, zwei Marker (mit Info-Fenster) verweisen auf die Pyramiden. Im folgenden der Code zu Beispiel 1 mit Erläuterungen (Update am 13.04.2006 auf API Version 2):

Code im Tag mit API-Key:

Code im Tag:

Sub Summe_bilden()
	Dim i As Long
	Dim adress1, adress2 As String
	Range(”E2″).Select ‘hier deine spalte und zelle eintippen
	adress1 = ActiveCell.Address

	i = 0
	While ActiveCell.Value <> ""
		ActiveCell.Offset(1, 0).Select 'springst ne zeile runter
		i = i + 1
	Wend 'zählschleife is fertig, wenn ne zelle leer ist.

	ActiveCell.Offset(-1, 0).Select 'springst ne zeile hoch, nimmst die adresse mit:
	adress2 = ActiveCell.Address
	ActiveCell.Offset(3, 0).Select 'springst 2 zeile runter, hier kommt summe rein:

	ActiveCell.Value = "=SUM(" & adress1 & ":" & adress2 & ")"
End Sub

hadfjashfksdf

sdjslfjdsl

sjdksjadhask

hjfskdjfh

dfsjkdfhdsf

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
sjfsakdjflsa


hsdkjhsd

Nachname:

Vorname:

Abteilung:

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory
WshShell.CurrentDirectory = "c:\"
WScript.Echo WshShell.CurrentDirectory

activeCell.Rows("1:1").EntireRow.Select
Selection.Font.Bold = True

Sub GetDateCreated()
	'This requires a Reference to Microsoft Runtime Scripting Library
	Dim FSO As Scripting.FileSystemObject
	Dim FileItem As Scripting.File
	Dim DateCreated As String

	Set FSO = New Scripting.FileSystemObject
	Set FileItem = FSO.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
	DateCreated = FileItem.DateCreated
End Sub

Pos1 = Instr(1, "suchtext", "t", 0)
if (Pos1 = 0) then echo "nichts gefunden"
end if

Sub zelle_selektieren()

Dim Spalte As String
Dim Zeile As Integer

Spalte = "A"
Zeile = 3

'Range("E18").Select
Range(Spalte & Zeile).Select

End Sub

Sub mehrere_zeilen()

Dim S As Integer
Dim zeilenanzahl As Integer
S = 2
zeilenanzahl = S + 3

Rows(zeilenanzahl & ":" & S).Select
End Sub