PureBoard

EnableExplicit
Define i.i, quit.i

#Window = 0
Enumeration
#List01
#List02
EndEnumeration

OpenWindow(#Window,500,500,640,310,"TEST",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget)
ListIconGadget (#List01,10, 0, 300,300, "Spalte01",98 , #PB_ListIcon_GridLines ...

In unserer Fa. wird immer mehr mit Sharepoint -> "Excel - Online" gearbeitet ....

ohne der "Online" - Version konnte man ja wunderbar mit Comateplus Excel bearbeiten.

ExcelObject = COMate_CreateObject("Excel.Application")
If ExcelObject
If ExcelObject\SetProperty("Visible = #True") = #S_OK ...

Hallo,

ich verwende Comate um von meinen Programm eine E-Mail zu erstellen...

Procedure.b CreateOutlookMailStandard(Email_addresse$,Subject$, text$)
Define.COMateObject OutlookObject, olMsg
OutlookObject = COMate_CreateObject("Outlook.Application")
If OutlookObject
olMsg = OutlookObject ...

Servus

weis nicht ob ich helfen kann ... aber mir hat bei diesen Sachen immer graphedit weiter geholfen ... über dieses Programm konnte man diverse Filter basteln .... und testen.

wenn der Graph dann passt hab ich den über PB nachgebaut (pins der Filter verbunden)
Beispiel

die GUID für diverse ...

Ich werd der Astrologie nie etwas abgewinnen .... ist für mich reiner Aberglaube (Unwissenheit *duck*) ... ist aber nur meine Meinung!


Die Astrologie arbeitet aber bei ihrer Einteilung mit den Tierkreiszeichen (tropischer Kreis), von denen es nur 12 gibt und die sich nicht an den Sternen, sondern ...

win7 64bit / PB5.30 x64 / Quadro K2200

#lib = "D:\privat\Projekte\LCD\gpu\nvapi64.lib" ; .... anpassen

Global Dim GpuHandles.i(64)

Structure sensor
controller.l
defaultMinTemp.l
defaultMaxTemp.l
currentTemp.l
target.l
EndStructure

Structure NV_GPU_THERMAL_SETTINGS
version.l
count.l ...

mmm.....

it seems to be tricky

something goes wrong with memory ... but i dont see the error

can you test with the Fillmemory funktion ?


Procedure NN_AssignZero(*a.LNG,digits)
FillMemory(*a, digits , 0 , #PB_Byte)
EndProcedure


anyway for this sample i also dont need the "empty memory" it ...

Hello,

i know it is a very old code...

i have tested now on win7 64bit with PB5.22 LTS (x86) .... (sorry i have no linux)

please disabled unicode
(works also with enabled unicode but you can use only the half characters in the message)

maybe some other can test the code and report errors ...

Servus

müsste mit "ProgramParameter()" gehen, da beim doppelklick das File mitgegeben wird .....

mfg
Andi



file$ = ProgramParameter()
If file$
srx_file$ = file$
Else
srx_file$ = OpenFileRequester("Bitte srx-Textdatei zum Laden auswählen", "", "srx-Textdatei (*.srx)|*.srx", 0)
EndIf
If ...

Hi

vielleicht gibt es hier im Forum ein paar Hobby Astronomen :-)

muß sagen mit dieser lib (Swiss Ephemeris) kann man einiges anstellen ...

link: http://www.astro.com/swisseph/swephprg.htm
download 64: http://www.astro.com/ftp/swisseph/contrib/swedll64_2.00/
download 32: http://www.astro.com ...