Forum | | | | | | - Page 1 - |
| 
Wilfried
Friebe |
CompileMarkSeparation-Begin------------------------------------------------------------------
Declare Anzahl%, i%, Name$, Browse$, länge%
Cls
TextColor @RGB(255, 0, 100), -1
Set(CharSet, 0)
UseFont ARIAL, 15, 10, 1, 0, 0
@db(Open, #1,Musik.DBF)
@db(Use, #1)
Print db-Struktur von Musik.DBF
Print Datensätze: ;&dbRecCount
Print Felder: ;%dbFCount
Print Satzgröße: ;%dbRecSize; Byte
Print Headergröße: ;%dbHeader; Byte
Print Letzte Änderung: ;$dbLUpdate
Anzahl% = %dbFCount
i% = 1
WhileNot i% > Anzahl%
@db(GetField, i%)
Print $dbFName,$dbFType,%dbFLen,%dbFDecs
Print
Print
Inc i%
EndWhile
@db(Close, #1)
Waitinput
Name$ = @LoadFile$(Welche Datei,*.DBF)
print Name$
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1
WhileNot i% > Anzahl%
@db(GetField, i%)
länge%=%dbFLen
länge%= länge%*5
@set(Decimals,0)
Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
Inc i%
EndWhile
@db(Browse, 10,10,ADRESS-TABELLE,10, Browse$ ,3)
print &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
/../funzione-riferimenti/XProfan/end/'>End
I have X Profan and Windows XP
Bildschirmauflösung 1280-1024 and tested too with 1024-768
with both Auflösungen is the same Error aufgetreten
me are missing under with the Toolbar a couple Pixel (see anhängendes Image)
the same Program on one Notebook with windows ME with of/ one
dissolution of 1024-768 correct
who can me there help |
 | | | | Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 04/22/07 ▲ |
| | |
| | | | | | | - Page 2 - |
|
Wilfried
Friebe | well well
Erstmal thanks
anyway lying not with empty restricted programierfähigkeiten
GRINS
will be me means gedulden
wasn't allzuleicht The umgewöhnung of profane 4,5 on X Prfan 10
but slow GEHTS
Greeting
Wilfried |
| | | | Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 04/23/07 ▲ |
| | |
| |  | so habs and of course must one only downstairs procedure integrate - if one instead of dbbrowse rather _dbbrowse types then becomes the window on korrekte 514x265 Pixel Innengrösse brought. naturally is the unsauberes Schummeln!
Hierfür simply following function in the Source platzieren: (XPSE-original-Variante! / under The not-XPSE-Variante)
CompileMarkSeparation
_dbbrowse (long a,b,string c,long d,string e,long f) {
long err
string sid=str$(gettickcount)
long timer=external(user32.dll,SetTimer,0,0,250,ProcAddr(_dbbrowse_internal,0))
dbbrowse(a,b,sid,d,e,f)
_dbbrowse_internal {
long h=findwindow(sid)
string s=gettext$(h)
if (substr$(s,1, )==sid) {
external(user32.dll,KillTimer,0,timer)
settext h,c+ +substr$(s,2, )
setwindowpos h=a,b - 320,200;0
setwindowpos h=a,b - ((320-width(h))+514),((200-height(h))+265);0
} else {
err+
case (err==40) : external(user32.dll,KillTimer,0,timer)
}
}
color=#0000FF>}
not-XPSE-Variante:
CompileMarkSeparation
proc _DBBROWSE
PARAMETERS A&,B&,C$,D&,E$,F&
var ERR&=0
var SID$=STR$(&GETTICKCOUNT)
var TIMER&=EXTERNAL(user32.dll,SetTimer,0,0,250,PROCADDR(_dbbrowse_internal,0))
DBBROWSE(A&,B&,SID$,D&,E$,F&)
proc _DBBROWSE_INTERNAL
var H&=FINDWINDOW(SID$)
var s$=GETTEXT$(H&)
IF (SUBSTR$(s$,1, )=SID$)
EXTERNAL(user32.dll,KillTimer,0,TIMER&)
SETTEXT H&,C$+ +SUBSTR$(s$,2, )
SETWINDOWPOS H&=A&,B& - 320,200;0
SETWINDOWPOS H&=A&,B& - ((320-WIDTH(H&))+514),((200-HEIGHT(H&))+265);0
ELSE
INC ERR&
IF (ERR&=40)
EXTERNAL(user32.dll,KillTimer,0,TIMER&)
ENDIF
ENDIF
endproc
endproc
and here my Testprogramm (deference XPSE!)
CompileMarkSeparationcls
Assign #1, ADRESS.STR
Rewrite #1
Print #1, NAME; C; 30; 0
Print #1, FIRST NAME; C; 30; 0
Print #1, STREET; C; 30; 0
Print #1, PLZ_ORT; C; 30; 0
Print #1, TELEFON; C; 20; 0
Print #1, GEBURT; D; 8; 0
Print #1, GEHALT; n; 10; 2
Print #1, NOTIZ; M; 10; 0
Close #1
db(Create, ADRESS.STR, ADRESS.DBF)
@dbOpen(#1,ADRESS.DBF)
@dbUse(#1)
dbCreateIndex name+First name > iName
@dbIndex(iName)
_dbbrowse(100,10,Adressen,10,NAME;name:;100,3)
@dbPack()
@dbClose(#1)
_dbbrowse (long a,b,string c,long d,string e,long f) {
long err
string sid=st$(gettickcount)
long timer=external(user32.dll,SetTimer,0,0,250,ProcAddr(_dbbrowse_internal,0))
dbbrowse(a,b,sid,d,e,f)
_dbbrowse_internal {
long h=findwindow(sid)
string s=gettext$(h)
if (substr$(s,1, )==sid) {
external(user32.dll,KillTimer,0,timer)
settext h,c+ +substr$(s,2, )
setwindowpos h=a,b - 320,200;0
setwindowpos h=a,b - ((320-width(h))+514),((200-height(h))+265);0
} else {
err+
case (err==40) : external(user32.dll,KillTimer,0,timer)
}
}
}
and in the attachment a lauffähige Exe. |
| | | | | | |
| |  | Yes, Yes - the iF  |
| | | | | | |
| |
Wilfried
Friebe |
CompileMarkSeparationdeclare anzahlspalten& ,Dateiname$ ,Spaltenname$
Declare Text$ ,Z& ,Dateiname1$ ,Dateiname2$
cls
anzahlspalten&=0
WhileNot anzahlspalten&
anzahlspalten& = @Input$(Wert eingeben:, Wieviele Spalten ?, anzahlspalten&)
EndWhile
Dateiname$ = @Input$(Namen eingeben:, Welcher Dateiname ? , Dateiname$)
Dateiname1$=Dateiname$+.STR
Assign #1, Dateiname1$
Rewrite #1
print Bitte nach ein ander den Namen des Feldes, dessen Typ,
print dessen Länge und die Anzahl der Dezimalstellen
print getrennt durch ein ;
print die Feldtypen C=Text, D=Datum, N=Zahlen, L=Ja/Nein und M=Memo-Feld
print NAME; C; 30; 0
WhileLoop anzahlspalten&
Spaltenname$ = @Input$(Namen eingeben:, Welcher Spaltenname ? , &loop)
Print #1, Spaltenname$
endwhile
Close #1
Dateiname2$=Dateiname$+.DBF
db(Create, Dateiname1$ , Dateiname2$)
Waitinput
CompileMarkSeparation-Begin------------------------------------------------------------------
proc _DBBROWSE
PARAMETERS A&,B&,C$,D&,E$,F&
var ERR&=0
var SID$=STR$(&GETTICKCOUNT)
var TIMER&=EXTERNAL(user32.dll,SetTimer,0,0,250,PROCADDR(_dbbrowse_internal,0))
DBBROWSE(A&,B&,SID$,D&,E$,F&)
proc _DBBROWSE_INTERNAL
var H&=FINDWINDOW(SID$)
var s$=GETTEXT$(H&)
IF (SUBSTR$(s$,1, )=SID$)
EXTERNAL(user32.dll,KillTimer,0,TIMER&)
SETTEXT H&,C$+ +SUBSTR$(s$,2, )
SETWINDOWPOS H&=A&,B& - 320,200;0
SETWINDOWPOS H&=A&,B& - ((320-WIDTH(H&))+514),((200-HEIGHT(H&))+265);0
ELSE
INC ERR&
IF (ERR&=40)
EXTERNAL(user32.dll,KillTimer,0,TIMER&)
ENDIF
ENDIF
endproc
endproc
Declare amount%, i%, name$, Browse$, length%, cy%, cy1%
Cls
Name$ = @LoadFile $(which File,*.DBF)
@db(Open, #1,name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1
WhileNot i% > amount%
@db(GetField, i%)
length%=%dbFLen
length%= length%*5
@set(Decimals,0)
Browse$=Browse$+$dbFName+;+$dbFName+;+st$(length%)+;
Inc i%
EndWhile
_dbbrowse (10,10,Adress-scheduler,10, Browse$ ,3)
@db(Browse, 10,10,ADRESS-TABELLE,10, Browse$ ,3)
print &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
End
somehow GEHTS still well not
with the first Program create I a DB File
with the second read I these File then from and machine tappt im dunkeln
I have The MUSIK.DBF File as MUSIK.txt in the attachment dazugetan
The EXE and the others File walk only as long as How only a slot is
with several shows the Prog wrong on
is eigendlich indeed only one blemish
in the second Program are both command drin _dbbrownse and @db(brownse)
and the new Procedur |
| | | | Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 04/23/07 ▲ |
| | |
| | | | @Horst: could You it it zusammenführen? I must nähhmlich go... |
| | | | | | |
| | | | | | - Page 3 - |
| | | | | | | | | |
| | | so habs with your music.Dbf probiert - there fails already the normal appeal - something is correct means with the thing so not yet - but it shining not on of my Ersatzfunktion To lying. here the code whom I tested have:
CompileMarkSeparation-Begin------------------------------------------------------------------
Declare Anzahl%, i%, Name$, Browse$, länge%, cy%, cy1%
Cls
Name$ = musik.dbf
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1
print anzahl%
WhileNot i% > Anzahl%
@db(GetField, i%)
länge%=%dbFLen
länge%= länge%*5
@set(Decimals,0)
Browse$=Browse$+$dbFName+;+$dbFName+;+str$(länge%)+;
Inc i%
EndWhile
dbbrowse (10,10,Adress-Tabelle,10, Browse$ ,3)
@db(Browse, 10,10,ADRESS-TABELLE,10, Browse$ ,3)
print &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
End
|
| | | | | | |
| | | Thomas suitor
can I only confirm. with of/ one real *dbf goes it.
its *.txt is weder a *.csv another *.dbf.
with the usage of Browse ought to one really really everything solid pretending.
my pattern having 20 boxes, there must to the Window always hither and thither schieben. Grrr!
is even only one expedient. then rather Or list view GridBoxen.
Greeting
Thomas |
| | | | | | |
| |
Wilfried
Friebe | well because
with the .DFB File is well with the conversion is .TXT what happens are both different
but the .DFB File could I unfortunately not send, there has your Prog. not mitgemacht
to that Program yourself must I say it's running so eigendlich correctly. except for whom blemish .
are everything in the momentum yet Fragmente but is yet.
will be moreover dran works . time see what the then becomes.
I login me then again.
The head must correctly. smoking so one there supra so one small little fit remaining.
In my old of 62 years ought to one there what do.
thanks and Guß first
Wilfried
 |
| | | | Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit
Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit
Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins" | 04/24/07 ▲ |
| | |
| | | Hey - pack simply your DBF in a ZIP (so make we that here with Dateiendungen which not allows are) - and load The ZIP high.  |
| | | | | | |
| | 
Detlef
Tussing | | The problem exists well still |
| | | | Gruß Detlef Tussing
Windows XP, XProfan 10 | 04/24/10 ▲ |
| | |
| | 
Thomas
Freier | | | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 04/24/10 ▲ |
| | |
|
AnswerTopic-Options | 11.020 Views |
Themeninformationenthis Topic has 8 subscriber: |
(469)
Deutsch
English
Français
Español
Italia
