ALGORITHMEN - Teil XXVIII (=28): Läuft! Was? Ja! Nein!! Doch! Ohhhh ...

p. specht

Abt. Zeit zu gehen

===============

Nach 28 Kapiteln scheint sich unsere Algorithmen-Serie etwas überlebt zu haben. Und seit sie eher versteckt läuft, sank auch die aktive Beteiligung quasi unter Null. Da es Boards gibt, in denen XProfan etwas prominenter vorkommt (und wo das Layout meinen Sehgewohnheiten eher entgegenkommt und nicht rudelweise von Werbung zugepflastert wird), gedenke ich meine Aktivitäten künfitg eher dorthin zu lenken.

An die Boardbetreiber Dank für die schönen Jahre seit 2009.
Vor allem aber: Danke all jenen, die mitgemacht haben. Bleibt gesund!

Gruss

EstherCH

Machs gut, pass auf Dich auf und bleib gesund!

Michael Wodrich

Das ist schade. Mir haben nicht nur Deine Knobeleien gefallen.

Auch die Wissensbeiträge hatten es immer in sich.

Ich hoffe, wir sehen/lesen uns in den anderen Foren.

Bleib gesund

p. specht

Der guten Ordnung halber hier noch die Lösung zu Jando-17

------------------------------------------------------------------------------

Spoiler anzeigen

Die Faktorielle von 5, geschrieben 5 !, ist 5*4*3*2*1 = 20*6 = 120.

120 hat daher logischerweise die ganzzahlig-restlosen Faktoren 5,4,3,2,1 und ihre Kombnationen:

120/(5*4)=6, 120/(5*3)=8, 120/(5*2)=12, 120/(5*1)=24

120/(4*3)=10, 120/(4*2)=15, 120/4=30

120/(3*2)=20, 120/(3*1)=40

120/(2*1)=60 und 120/1 = 120,

mit anderen Worten: 5 ! hat 16 Faktoren: 1,2,3,4,5,6,8,10,12,15,20,24,30,40,60 und 120.

Anmerkung: 1 und 120 gelten dabei allerdings als "trivial".

P.S.: Ich suche immer noch einen File-Provider, der den Letztstand des Algorithmen-Gesamtverzeichnisses verteilen hilft, ohne ständig neuerliches Hochladen zu verlangen. Hinweise?

p. specht

Weil interessant: https://docs.microsoft.com/de-de/sysinternals/downloads/

p. specht

Abt, Mathematricks

================

Vereinfache: Kubikwurzel_aus( 1 + (x+1)*x*(x-1) - (1-x) )

p. specht

Dann muss ich wohl selber:

Kubikwurzel_aus( 1 + (x+1)*x*(x-1) - (1-x))

Kubikwurzel_aus( 1 + (x²+x)*(x-1) -1+x)

Kubikwurzel_aus( (x²+x)*(x-1)+x)

Kubikwurzel_aus( (x²+x)*x-1*(x²+x) +x)

Kubikwurzel_aus( (x³+x²)- x² - x +x)

Kubikwurzel_aus( x³+x² - x² )

Kubikwurzel_aus( x³ )

gibt vereinfacht: x

================

p. specht

Man wird doch noch träumen dürfen: Windows XP-2021

p. specht

Sensation: Wissenschaft bekommt Schneeflockenbildung auch theoretisch in den Griff: Youtube-Link (engl.)

p. specht

Drag'n'Drop für XProfan-11.2a free:

Code

'Profan-Drag und Drop mit MS-Explorer realisieren
'Orig.-Autor: Thomas Hölzer A.D. 2005, XProfan-11-transponiert by p.specht 2021-12
Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Def DragFinish(1) !"SHELL32","DragFinish"
Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
Def Sleep(1) !KERNEL32,Sleep
Declare ende%,i%,Anzahl&,PFilename#,FileName$
Dim PFileName#,261' Max_Path +1, Vorsicht bei Profan-Strings (nur 255 Zeichen!)
Cls
WindowTitle "Drag&Drop-Beispiel - Beenden mit rechtem Mausklick"
DragAcceptFiles(%hwnd,1)
Print "Eine oder mehrere Dateien aus dem Explorer ins Fenster ziehen"

WhileNot ende%

    GetMessage
    IF (%message=563)
        anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilename#,261);
        i%=0
        While i%<anzahl&
            DragQueryFile(&WParam,i%,PFilename#,261);
            filename$=String$(PFilename#,0)' Vorsicht, max 255 Zeichen
            AddString filename$
            Inc i%
        Wend

        DragFinish(&WParam);
        Listbox$(Str$(anzahl&)+" Drag&Drop-Datei(en) empfangen",2)
        Clearlist

    Elseif %mousekey=2
        ende%=1
    EndIf

Wend

Dispose PFileName#
DragAcceptFiles(%hwnd,0)
End

Alles anzeigen

RGH

Ja, vielleicht sollte ich das in XProfan X5 so einbauen. (Ein paar kleine Verbesserungen für DBase-Dateien hat meine private Version schon.)

Einen schönen 3. Adventssonntag!

Gruß

Roland

H.Brill

Hallo Roland,

schön, daß du mal wieder da bist.

H.Brill

Zitat von RGH

Ein paar kleine Verbesserungen für DBase-Dateien hat meine private Version schon.

Apropos :

Es wäre auch schön, wenn man mit den dBase-Funktionen besser suchen könnte.

Ich denke da an eine Art SELECT - Anweisung, wie in SQL, wo man die gefundenen

Einträge in einer Liste bzw. Gridbox anzeigen/speichern könnte. Das würde das

ständige Iterieren durch die gesamte DB ersparen.

Siehe Hilfe :

Spoiler anzeigen

db("SQLExec "SELECT * FROM KUNDE WHERE NAME = 'Maier'",1)

Handelt es sich beim letzten Parameter um das Handle einer Gridbox, wird das Ergebnis

in diese geschrieben, wobei die Spalten und Überschriften der Tabelle in die Gridbox

übernommen werden.

Das wäre doch eine runde Sache. Da gibt es bestimmt noch mehr Ideen.

H.Brill

Evtl. kann Roland dafür auch das

db("Find", S,N)

etwas aufbohren.

RGH

Man kann doch einfach ganz bequem SQL über ODBC auch für dBase-Dateien nutzen! Der nötige ODBC-Treiber ist auf jedem Windows-System vorhanden.

Gruß

Roland

H.Brill

Da hast du schon Recht. Das habe ich auch vor einiger Zeit schon so gemacht.

Bloß bekommt das nicht jeder richtig hin, wenn man sein Programm weitergibt.

Und SQL ist dann auch für den ungeübten Nutzer wieder eine Hürde.

Der kommt dann besser mit (X)Profans eingebauten dBase-Befehlen zurecht.

Ich dachte halt, daß sowas mit wenig Arbeit deinerseits machbar wäre, zumal

du schon für dich ein paar kleine Verbesserungengemacht hast.

H.Brill

Hallo,

Da hätte ich für Rolands dBase - Funktionen noch so eine Idee :

Wäre es möglich, bei db("Find", S, N) und db("Seek", S1, S2[,N])

die regulären Ausdrücke mit einfließen zu lassen, bzw. bei Bedarf

zuzuschalten ?

z.B. daß man mit "M..er" alle findet, die Maier, Meier, Meyer, Mayer

usw. heißen bzw. in der DBF sind. Das wäre doch ein riesiger Vorteil,

wenn man die Möglichkeiten der regulären Ausdrücke bedenkt.

Es geht zwar auch, wenn man durch die DB iteriert und mit InStr()

das entsprechende Feld abfragt, aber integriert mit db(Seek/Find...)

wäre es auch schneller.

H.Brill

Hier mal ein kleines Beispiel mit regex

Code

Declare String dbdatei, stdatei, spalten, Handle Edit1, Text1, Btn1, Btn2, Grid1, Grid2
Declare Long ende, anzahl

spalten = "Nr;0;40;NAME;0;180;ORT;180"
ende = 0
dbdatei =  $ProgDir + "Kunden.dbf"

Set("RegEx", 1)

Window 600, 500
Text1 = Create("Text",    %HWnd, "Name eingeben", 10, 10, 120, 25)
Edit1 = Create("Edit",    %HWnd, "", 130, 10, 180, 25)
Btn1  = Create("Button",  %HWnd, "Suchen", 350, 10, 60, 25)
Btn2  = Create("Button",  %HWnd, "Ende",   450, 10, 60, 25)
Grid1 = Create("GridBox", %HWnd, spalten, 0, 10, 50, 420, 150)
Grid2 = Create("GridBox", %HWnd, spalten, 0, 10, 250, 420, 150)

If FileExists(dbdatei)
   anzahl = db("Open", #1,dbdatei)
   db("Use", #1)
   If anzahl < 1
      InitDB()
   Else
      FuelleDB()
   EndIf
Else
  CreateDB()
  anzahl = db("Open", #1,dbdatei)
  db("Use", #1)
  If anzahl < 1
      InitDB()
   Else
      FuelleDB()
   EndIf
EndIf

WhileNot ende
  WaitInput
  If Clicked(Btn1)
    ' Suchen
    Suchen()
  ElseIf Clicked(Btn2)
    ende = 1
  EndIf
EndWhile

Proc InitDB
Declare String Nr, Name, Ort, zeile, Long x, Handle Grid
Grid = Create("List", 0)
AddString(Grid, "100|Müller|Köln")
AddString(Grid, "101|Meier|Dortmund")
AddString(Grid, "102|Maurer|Bremen")
AddString(Grid, "103|Meyer|Essen")
AddString(Grid, "104|Zimmer|München")
AddString(Grid, "105|Maier|Hamburg")
AddString(Grid, "106|Mayer|Kiel")
AddString(Grid, "107|Meiser|Bonn")
AddString(Grid, "108|Altmaier|Frankfurt")
AddString(Grid, "109|Schmitt|Neustadt")
AddString(Grid, "110|Mayerbär|Dortmund")
AddString(Grid, "111|Mustermann|Düsseldorf")
AddString(Grid, "112|Neumann|Berlin")
AddString(Grid, "113|Schmidt|Neuwied")
AddString(Grid, "114|Schlaumeier|Hagen")
AddString(Grid, "115|Neumüller|Siegen")

WhileLoop 0, GetCount(Grid) - 1
  zeile = GetString$(Grid, &LOOP)
  db("AppendBlank")
  db("Put", "NR",   SubStr$(zeile, 1, "|"))
  db("Put", "NAME", SubStr$(zeile, 2, "|"))
  db("Put", "ORT",  SubStr$(zeile, 3, "|"))
  db("PutRec", 0)
EndWhile
FuelleDB()
EndProc

Proc FuelleDB
Declare String zeile
db("Go", "|<")
ClearList Grid1
WhileNot %dbEOF
  zeile = db("Get", "NR") + "|" + db("Get", "NAME") + "|" + db("Get", "ORT")
  AddString(Grid1, zeile)
  db("Go", ">")
EndWhile
EndProc

Proc CreateDB
Assign #1, $ProgDir + "Kunden.str"
Rewrite #1
Print #1, "NR; N; 4; 0"
Print #1, "NAME; C; 20; 0"
Print #1, "ORT; C; 20; 0"
Close #1
db("Create", $ProgDir + "Kunden.str", dbdatei)
EndProc

Proc Suchen
Declare String such, feld, zeile, Long pos
such = GetText$(Edit1)
If such <> ""
   ClearList Grid2
   db("Go", "TOP")
   WhileNot %dbEOF
      feld = db("Get", "NAME")
      If InStr(such, feld)
         zeile = db("Get", "NR") + "|" + db("Get", "NAME") + "|" + db("Get", "ORT")
         AddString(Grid2, zeile)
      EndIf
      db("Go", "NEXT")
   EndWhile
EndIf
EndProc

db("Close", #1)
Set("RegEx", 0)
End

Alles anzeigen

Ist für kleine Datenbanken ja ausreichend.

p. specht

Von der Mühsal des intelligenten Programmierens, hier am Beispiel "Computer soll das Spiel SNAKE beherrschen!": Youtube-Link

p. specht

Das unglaubliche 100-Gefangenen-Rätsel (Youtube, engl.): Riddle