Foro | | | | | | - Página 1 - |
| 
Wilfried
Friebe |
KompilierenMarcaSeparación-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
Yo habe X Profano y Windows XP
Bildschirmauflösung 1280-1024 y getestet auch con 1024-768
en beiden Auflösungen es el gleiche Fehler aufgetreten
me fehlen unten en Toolbar unos pocos Pixel (siehe anhängendes Bild)
el gleiche Programa en una Notebook con Windows ME con uno
Auflösung de 1024-768 einwandfrei
wer kann me como helfen |
 | | | | 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" | 22.04.2007 ▲ |
| | |
| | | | | | | - Página 2 - |
|
Wilfried
Friebe | Na bien
Erstmal Gracias
jedenfalls lag no a media beschränkten programierfähigkeiten
GRINS
voluntad mich also gedulden
war no allzuleicht el umgewöhnung de seculares 4,5 en X Prfan 10
aber langsam gehts
Saludo
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" | 23.04.2007 ▲ |
| | |
| |  | So habs y zwar muss uno sólo untere Procedimiento einbinden - si uno en lugar de dbbrowse mejor _dbbrowse eingibt Luego se el Ventana en korrekte 514x265 Pixel Innengrösse gebracht. Natürlich es el unsauberes Schummeln!
Hierfür simplemente folgende Función en el Source platzieren: (XPSE-original-Variante! / unten el no-XPSE-Variante)
KompilierenMarcaSeparación
_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>}
No-XPSE-Variante:
KompilierenMarcaSeparación
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
y aquí mein Testprogramm (achtung XPSE!)
KompilierenMarcaSeparacióncls
Asignar #1, ADRESS.STR
Rewrite #1
Imprimir #1, NAME; C; 30; 0
Imprimir #1, VORNAME; C; 30; 0
Imprimir #1, STRASSE; C; 30; 0
Imprimir #1, PLZ_ORT; C; 30; 0
Imprimir #1, TELEFON; C; 20; 0
Imprimir #1, GEBURT; D; 8; 0
Imprimir #1, GEHALT; N; 10; 2
Imprimir #1, NOTIZ; M; 10; 0
Cerrar #1
db(Crear, ADRESS.STR, ADRESS.DBF)
@dbOpen(#1,ADRESS.DBF)
@dbUse(#1)
dbCreateIndex Name+Vorname > iName
@dbIndex(iName)
_dbbrowse(100,10,Adressen,10,NAME;Name:;100,3)
@dbPack()
@dbClose(#1)
_dbbrowse (long a,b,cadena c,long d,cadena e,long f) {
long err
cadena 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)
cadena 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
} más {
err+
caso (err==40) : external(user32.dll,KillTimer,0,timer)
}
}
}
Und en el Anhang una lauffähige Exe. |
| | | | | | |
| |  | Sí, sí - el IF  |
| | | | | | |
| |
Wilfried
Friebe |
KompilierenMarcaSeparacióndeclare 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
KompilierenMarcaSeparación-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
Declarar Anzahl%, i%, Name$, Browse$, länge%, cy%, cy1%
Cls
Name$ = @LoadFile$(Welche Expediente,*.DBF)
@db(Open, #1,Name$)
@db(Use, #1)
Anzahl% = %dbFCount
i% = 1
Sinestar encargado 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-Tabla,10, Browse$ ,3)
@db(Browse, 10,10,ADRESS-TABELLE,10, Browse$ ,3)
imprimir &dbRecCount
@db(AppendBlank)
@dbPack()
@dbClose(#1)
End
Irgendwie gehts doch probablemente no
con el ersten Programa erstelle Yo una DB Expediente
con el zweiten lese Yo esta datei entonces de y bearbeite ellos
Yo el MUSIK.DBF Expediente como MUSIK.txt en el Anhang dazugetan
El EXE y el otro Expediente laufen sólo solange como sólo una Spalte es
en más zeigt el Prog falso a
es eigendlich en efecto sólo una Schönheitsfehler
en el zweiten Programa son beide Befehle drin _dbbrownse y @db(brownse)
y el neue 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" | 23.04.2007 ▲ |
| | |
| | | | @Horst: Könntest Usted lo ihm zusammenführen? Yo muss nähhmlich los... |
| | | | | | |
| | | | | | - Página 3 - |
| | | | | | | | | |
| | | So habs con Deiner Musik.Dbf probiert - como scheitert sí ya el normale Aufruf - algo stimmt also con el Sache así todavía no - pero scheint no a meiner Ersatzfunktion a mentira. Hier el Code el Yo getestet habe:
KompilierenMarcaSeparación-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 Freier
kann Yo sólo bestätigen. Mit uno echten *dbf es.
Seine *.txt es weder una *.csv ni *.dbf.
En Verwendung de Browse debería uno eigentlich eigentlich alles fest vorgeben.
Mein Muster hatte 20 Felder, como muss al Ventana siempre hin y her schieben. Grrr!
Ist eben sólo una Hilfsmittel. Dann más bien Listview oder GridBoxen.
Saludo
Thomas |
| | | | | | |
| |
Wilfried
Friebe | Na porque
con el .DFB Expediente es wohl en umwandlung is .TXT qué passiert son beide unterschiedlich
aber el .DFB Expediente podría Yo por desgracia, no enviar, como ha euer Prog. no mitgemacht
para Programa selber muß Yo sagen lo se ejecuta así eigendlich correcto salvo el Schönheitsfehler .
Sind alles en el Moment todavía Fragmente aber el se todavía.
Werde más dran trabajo . Tiempo sehen qué el Luego se.
Yo melde mich entonces otra vez.
Der Kopf muß correcto rauchen así uno como oben así una kleines bischen fit restos.
In mi alter de 62 Jahren debería uno como qué tun.
Gracias y Guß primero
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" | 24.04.2007 ▲ |
| | |
| | | Hey - packe simplemente Su DBF en un ZIP (así hacer wir que aquí en Dateiendungen welche hier no erlaubt son) - y lade el ZIP hoch.  |
| | | | | | |
| | 
Detlef
Tussing | | Das Problema besteht wohl siempre todavía |
| | | | | | |
| | 
Thomas
Freier | | | | | | | |
|
RespuestaTema opciones | 11.092 Views |
ThemeninformationenDieses Thema ha 8 subscriber: |
(1.746)
Deutsch
English
Français
Español
Italia
