VISAM Support Forum - VBASE Basic (VB) Programmierung

Lizenz

Mon, 12 Oct 2020 07:46:57 +0200

Guten Tag. Bitte sagen Sie mir. Ich habe einen Computer, auf dem VISAME v installiert ist. 9.5.4.2 mit einer Lizenz. Ich möchte auf VBASE 11.6.0.6 aktualisieren. Kann ich die Lizenz irgendwie übertragen?

Demo Zeitschaltuhr auf VTP BC72

Fri, 21 Feb 2020 08:55:39 +0100

Hallo Zusammen,

ich habe versucht, das Demoprojekt Zeitschaltuhr auf einem VTP BC72 laufen zu lassen,
aber es erfolgt eine Fehlermeldung des Scripts, siehe Anhang.

Das OS scheint da etwas nicht zu unterstützen:
Dim nyear As Integer = System.DateTime.Now.ToString("yyyy")
Dim nmonth As Integer = System.DateTime.Now.ToString("MM")
Dim nday As Integer = System.DateTime.Now.ToString("dd")
Dim nWeek As Integer = DatePart(DateInterval.WeekOfYear, New Date(nyear, nmonth, nday),FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
'------------------------------------------------------------------------------------
WoTag = WeekDay(Date)
Dim TaNam As String = WeekDayName(WoTag-1)

wie kann das mit dem VTP realisiert werden?

viele Grüße
Peter Schiffner

csv als pdf Drucken

Mon, 19 Aug 2019 10:10:59 +0200

Hallo Zusammen,

ich soll bei einem Projekt eine Protokolldatei (csv) mittels script als pdf Datei am Programmende automatisch ausdrucken.
Windows Standard Drucker ist ein pdf Drucker.

Es gibt ja die Funktion vok.printtext, aber hier kann man ja keinen Dateinamen / Pfad vorgeben.

Gibt es hier eine andere Möglichkeit?

Filegröße

Mon, 13 May 2019 08:22:33 +0200

Hallo Zusammen,

ich muss prüfen, ob eine Datei eine bestimmte Länge hat.
Der Dateiname steht in einer Ascii Zeichenkette.
Ich bekomme jedoch immer Größe = 0 zurück, obwohl im Ascii Feld 6,0 der richtige Pfad/Name angezeigt wird

filename = Trim("d:\Bilder\PLME\PLM_E_" + LFN + "_" + Datum + "_" + BC + ".tif")
VDF.WriteAscii 6,0,filename
DateiLaenge = VOK.Filelength (filename)
VDF.WriteDInt(6,116,DateiLaenge)

Trage ich den Pad/Dateiname direkt ein, bekomme ich die Größe der Datei:

DateiLaenge = VOK.Filelength("d:\Bilder\PLME\PLM_E_3751_20190513_1.tif")

VDF.WriteDInt(6,116,DateiLaenge)

Kann mir jemand sagen, wo hier der Fehler liegt?

Rezept Laden

Thu, 04 Apr 2019 10:54:38 +0200

Hallo,

ich muss wissen, wann ein Rezept Bildbezogen geladen wird. Dazu frage ich im Script ab:

If ##akt_Bildnummer## <> 4 Then

Exit Sub
End If

' Rezept Laden speichern
If ##Rezept_Steuerwort## = 19521 Then
VDF.WriteBitB(1,205,0,1,1) 'Laden angefordert
End If

Meistens funktioniert das auch, das Bit wird gesetzt. Manchmal jedoch nicht, das Laden muss dann wiederholt werden.
Ich vermute mal, dass das mit der Zykluszeit zusammenhängt. Gibt es da einen anderen Weg um dieses Problem zu umgehen?

Tag des Jahres

Thu, 01 Sep 2016 10:27:39 +0200

Hallo Zusammen,

ich benötige den aktuellen Wochentag des Jahres, also zB. der erste Feb = Tag 32.
Da gibt es doch bestimmt eine Anweisung für den Script Editor

Danke

Vok.PlaySound

Mon, 05 Oct 2015 16:06:44 +0200

Hallo
Wollte VOK Play Sound einfügen kommt aber immer Fehler Meldung im Script Programm. WIe muß der Aufruf genau heißen ?

Danke

VOK.Playsound (test.mp3)

VDF.WriteInt 999,21,1

Tue, 01 Sep 2015 16:49:27 +0200

Hallo,

In einem Beispiel-Skript bin ich über folgenden Befehl gestolpert:
VDF.WriteInt 999,21,1

Laut VBASE-Hilfe haben die Schreibbefehle auf Gruppen-Nr. 999 immer eine Sonderfunktion und es sind dort auch einige Sonderfunktionen aufgezählt – Speziell dieser Befehl allerdings nicht. Daher meine Frage: Was genau macht dieser Befehl?

Viele Grüße
U.Bayer

Symbolik 32bit

Fri, 12 Dec 2014 10:24:39 +0100

Hallo Zusammen,

wie sage ich es VBase bei der Symbolik, dass es ein 32bit Zugriff sein soll:

Beispiel:
Symbolisch zeigt der Cursor länge 16, soll aber 32 sein.
##Tisch_X_Position_2##
Viele Grüße
P. Schiffner

Länge VBasic bei Light

Fri, 12 Dec 2014 09:54:35 +0100

Hallo Zusammen,
wie lange darf das VBasic Programm bei der light Version sein?
viele Grüße
P. Schiffner

Abfrage ob Datei vorhanden

Fri, 08 Aug 2014 17:33:43 +0200

Hallo zusammen.

Ich versuche verzweifelt per Script eine Abfrage zu realisieren, ob eine bestimmte Datei (Rezeptur) schon vorhanden ist.
Ich bin folgendermaßen vorgegangen:
...
Rezepturname=VDF.ReadAscii(5,2,176)
Rname=Trim(Rezepturname)
pfad="C:\Visualisierung\Rezeptur\" & Rname &".R1"
...
Set fso=CreateObject("Scripting.FilesystemObject")
...
If Not fso.FileExists (pfad) Then
VDF.WriteInt 5,0,19521
...
End If

Ich bekomme bei Ausführen des Skripts die Fehlermeldung "Zeile0: Das Schlüsselwort ist kein gültiger Bezeichner" und "Ungültige Zeilennummer"

Diese Fehlermeldungen werden offensichtlich durch den Set-Befehl verursacht.
Hat jemand eine Idee, was hier falsch ist?

Vielen Dank

Excel / xls(x) Datei erstellen

Wed, 21 May 2014 16:27:33 +0200

Hallo zusammen,

nachdem dass mit dem erstellen einer PDF wunderbar geklappt hat, bräuchte ich nun Hilfe beim erstellen einer Excel Datei, ohne MS Excel dafür zu installieren.

Bei meiner Suche bin ich auf EPPlus und Open XML SDK 2.0 for Microsoft Office gestoßen. Leider auch hier, weiß ich nicht so recht, wie ich dass ins Projekt einbinde.

Hat VISAM da schon etwas vorbereitet?

Grüße

PDF erstellen

Mon, 12 May 2014 14:51:43 +0200

Hallo zusammen,

wie erstellt man eine PDF in VBASE? Gibt es da schon etwas fertiges von VisAM?

Bin auf http://www.pdfsharp.net/ gestoßen, nur leider weiß ich nicht, wie ich das richtig einbinde.

Die PDF Datei sollte ein Firmenlogo und paar werte beinhalten.

Grüße

Schnittstelle zum Meldesystem

Wed, 12 Feb 2014 17:30:42 +0100

Hallo!

Mich würde interessieren in wie weit es mit VBASE möglich ist, ein eigenes Meldesystem zur Fernalarmierung einzubinden.
Gibt es Interfaces, auf die ich mit meinem System zugreifen kann? Wenn ja, wie sehen Diese aus und wo finde ich weitere Informationen zu diesem Thema?

mfg Hütti

Berechnungen ausführen

Mon, 06 Jan 2014 11:35:30 +0100

hallo Leute
bin jetz neu und habe einige grudlegende Frage
habe schon viel gegooglt und bin noch nicht schlau geworden
da niergens wo eine ausrechende Hilfe zu finden ist für
die heruntergeladene Testversion