1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. ytwinky

Beiträge von ytwinky

  • Liegen zwei Partitionen auf gleicher Festplatte?

    • ytwinky
    • 14. August 2016 um 15:14

    Hi,
    Warum denn Seriennummern vergleichen, WMI bietet doch eine Funktion dafür..
    Das Skript habe ich unter WinXP geschrieben und dort liefert es korrekt die die Partitionierung der lokalen Platten.
    Es läuft auch unter meinem Win10pro-x64..
    ..leider habe ich hier keine weiteren Partitionen eingerichtet ;-))
    LG ytwinky

    Spoiler anzeigen
    AutoIt
    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=D:\Usr\Partitionierung.Exe
    #AutoIt3Wrapper_UseUpx=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ; Erstellt von AutoIt Scriptomatic, überarbeitet von ytwinky, MD
    Const $MaxLw=26, $wbemFlagReturnImmediately=0x10, $wbemFlagForwardOnly=0x20, $wbemFlags=0x10+0x20
    Local $Lw[$MaxLw], $vorhanden=-1, $j, $strComputer=@Computername, $AllDrives, $WMISvc, $s='', $EachDrive, $Platten='Platte'
    $WMISvc=ObjGet('winmgmts:\\' &$strComputer &'\root\cimv2')
    $AllDrives=$WMISvc.ExecQuery('Select Name From Win32_PerfFormattedData_PerfDisk_PhysicalDisk', 'wql', $wbemFlags)
    If IsObj($AllDrives) Then
    	For $EachDrive In $AllDrives
     		If StringInstr($EachDrive.Name, ':')=0 Then ContinueLoop
    		$vorhanden+=1
    		$Lw[$vorhanden]=$EachDrive.Name
    	Next
    EndIf
    $Platten &=($vorhanden+1)<>1 ? 'n' : ''
    $s=StringFormat('Vorhanden sind %i %s:\nPlatte-Nr\tPartition(en)', $vorhanden+1, $Platten)
    For $j=0 To $vorhanden
    	$s&=@Cr &'  ' &_BubbleSort($Lw[$j])
    Next
    Msgbox(0, 'Partitionierung am ' &$strComputer, $s)
    Func _BubbleSort($StringWithColon)
    	Local $i, $j, $y='', $Feld=StringSplit($StringWithColon, ':'), $s='    ' &StringLeft($Feld[1], 1) &@Tab
    	$Feld[1]=StringRight($Feld[1], 2)
    	For $i=1 To $Feld[0]-1
    		For $j=1 To $Feld[0]-1
    			If $Feld[$i]<$Feld[$j] Then
    				$y=$Feld[$i]
    				$Feld[$i]=$Feld[$j]
    				$Feld[$j]=$y
    			EndIf
    		Next
    	Next
    	For $i=1 To $Feld[0]-1
    		$s&=$Feld[$i] &': '
    	Next
    	Return $s &@Lf
    EndFunc
    Alles anzeigen
  • Dos Subst - Verzeichnis als Laufwerksbuchstabe

    • ytwinky
    • 24. Juli 2013 um 18:46

    AspirinJunkie: Subst ist eine Exe-Datei und der Befehl: Subst.Exe /? liefert, wie gewohnt bei externen Programmen, eine Syntax-Hilfe..
    @meistersun:Wenn also sowieso ein externes Programm aufgerufen werden muß, ist doch der Einsatz einer weiteren AutoIt-Function nichts Übles..
    Gruß ytwinky

  • Handyzugriff mit AutoIt

    • ytwinky
    • 1. Juni 2013 um 14:16

    Hi DeepRed92,
    wie es bei dir funktioniert, kann ich dir nicht sagen, aber ich kann dir beschreiben,
    welche Möglichkeiten ich habe(SE Xperia arc s, EB803):
    -WLAN am Handy und am Router einschalten..
    -Router auslesen, genaue Datei weiß ich jetz nicht^^
    -Anhand von MAC oder IP entscheiden, ob das Handy angeschlossen ist..
    Wenn es angeschlossen ist, könnte ich mit dem Windows-Explorer auf die Dateien zugreifen,
    aber ich erledige das mit MyPhoneExplorer ;)
    Da ich nur EIN Handy in meinem WLAN habe ist es relativ einfach, zu erkennen, ob es On-Line ist:
    Ping..
    Bei mehreren Geräten im WLAN wäre es nötig, die MAC-Adresse vom Handy zu wissen ;)
    denn dann könnteste mittels ARP nachsehen..
    'Einfacher' wäre es, wenn du feste IP-Adressen verwendest, aber weil es nicht unbedingt einfacher ist,
    steht es in Anführungszeichen xD
    HTH
    Gruß
    ytwinky

  • Adobe Photoshop C2 kostenlos downloaden

    • ytwinky
    • 14. Januar 2013 um 19:55

    apropos klarkommen:
    http://www.chip.de/downloads/Adob…L_17670811.html
    Ich hab es mir gerade heruntergeladen, weil Photoshop nicht intuitiv bedienbar ist..
    Gruß
    ytwinky

  • DateEx.au3 ( _DateGetFormatted, _DateToDayNameLocale )

    • ytwinky
    • 28. Dezember 2012 um 14:08

    Hi,
    ich bin durchaus in der Lage, das von mir bevorzugte Datumsformat allein dem Skript hinzuzufügen ;)
    Doch ich meine, daß es grundsätzlich fehlt und du es deshalb mit einbauen solltest:
    Meine Foto- , MP3-, o.ä-Ordner sind vielfach nach dem Format
    jjjjmmtt (oder in englisch yyyymmdd)
    aufgebaut, denn das erleichtert die Sortierung nach Alter ungemein..
    (natürlich auch die Suche^^)
    Das ist keine Nörgelei, nimm es einfach als Lob dafür, daß du dir die Arbeit gemacht hast :thumbup:
    Gruß
    ytwinky

  • Frohe Weihnachten!

    • ytwinky
    • 23. Dezember 2012 um 22:01

    Meine Weihnachtsgrüße habe ich gepostet, noch bevor dieser Fred eröffnet wurde, doch das ändert nichts:
    Ich wünsche allen(besonders denen aus LSA^^) ein frohes Weihnachtsfest und einen guten Rutsch ins Neue Jahr
    Gruß
    ytwinky

  • Parameter beim Start übergeben und auslesen - Problem

    • ytwinky
    • 23. Dezember 2012 um 19:21

    Nicht alles, was irgendwo geschrieben steht, muß auch richtig sein..
    ..nobody's prefect, not even me 8)
    Programmieren<>C&P
    ..und immer schön die (deutsche) Hilfedatei lesen, mach' ich auch..
    Außerdem wollte ich dir nur dein Weihnachtsfest retten ;)
    Frohes Fest auch an die Community
    Gruß
    ytwinky

  • Fensterposition mit Variablen

    • ytwinky
    • 23. Dezember 2012 um 19:12
    Zitat von IgelRM

    Hab ich gemacht, aber wie verbinde ich denn sonst die Zahlen mit der Variable?

    [autoit]

    $a=77 & "314" & 91
    MsgBox(0,"TEST",$a)

    [/autoit]

    Die einzige erkennbare Variable ist $a
    Meinst du sowas?

    [autoit]

    $c='314'
    $a=77 &$c &91

    [/autoit]

    Damit verknüpfst du Strings, wenn du die Werte addieren willst, dann
    tus auch:

    [autoit]

    $a=77 +$c+ 91

    [/autoit]

    und schau nach, ob das Ergebnis deinen Erwartungen entspricht..
    Gruß
    ytwinky

  • Fensterposition mit Variablen

    • ytwinky
    • 23. Dezember 2012 um 18:53
    Zitat von IgelRM

    77 & "314" & 91


    ..das sind NICHT 3 verschiedene Parameter..
    Laß dir von AutoIt mal den Ausdruck

    [autoit]

    $Ausdruck=77 & "314" & 91

    [/autoit]


    ausgeben ;)
    [edit]
    schade, zu lange formuliert :rofl:
    Gruß
    ytwinky

  • Parameter beim Start übergeben und auslesen - Problem

    • ytwinky
    • 23. Dezember 2012 um 18:41
    Zitat von Seppi123

    Run('"' & @ScriptDir & '\data\su.exe"' & "LoggedinAsSU")


    Wenn du diese Stelle mal 'richtig' schreibst, wirst du sehen, daß dort steht:

    [autoit]

    Run('"' & @ScriptDir & '\data\su.exe"LoggedinAsSU"')

    [/autoit]


    (es fehlt also ein Leerzeichen vor dem LoggedinAsSU..)
    Dann sollte das aufgerufene Programm auch den Parameter erkennen können..
    Gruß
    ytwinky

  • FileOpenDialog maximiert darstellen

    • ytwinky
    • 2. November 2012 um 13:18

    Der knappe Kommentar von Xenobiologist war cool..
    ..uncool war die fehlende FileDialogsEx.au3, wie autobert schon angemerkt hat ;)
    Ich habe schon gedacht meine AutoIt-Installation ist im Eimer..
    ..oder das Skript läuft unter XP nicht^^
    [Edit]
    @Xeno:
    Das ist ja ganz fies: einfach die fehlende Datei nachliefern, während ich schreibe.. :rofl:
    [/Edit]

    Edit (Xeno): Stell dir vor, ich würde jetzt noch deinen Beitrag manipulieren :D
    Edit (ytwinky): Offensichtlich können Team-Mitglieder Beiträge von Benutzern bearbeiten..
    ..doch warum funktioniert 'DEIN' Skript nicht???

    Gruß
    ytwinky

  • Lochkarten codieren

    • ytwinky
    • 28. Oktober 2012 um 01:43

    Hi,
    ich habe mal kurz in meinem Gedachtnis gekramt..
    Bei FORTRAN IV war es z.B. so(Stand ~1980..):
    -Wenn in der 1. Spalte ein Zeichen war(wir benutzten C für Comment) wurde die gesamte Karte als Kommentar gewertet
    -Spalten 2-5 waren reserviert für Sprungnummern
    -Spalte 6(wir benutzten * als Zeichen) war die Kennzeichnung für eine Fortsetzungskarte,
    falls eine Anweisung nicht komplett auf eine Karte passte..
    -ab Spalte 7 standen die Programmanweisungen(bis 79)
    Wer einmal in einem 250 Karten umfassenden Programm nach Sprungmarken gesucht hat, versteht,
    warum ich erklärter Gegner der GOTO-Anweisung bin, die es - Gott sei's getrommelt und gepfiffen -
    in AutoIt nicht (mehr) gibt.
    "..because it's evil.."
    Gruß
    ytwinky

    P.S.: Nach bestem Gewissen erinnert, ist schließlich schon über 30 Jahre her..
    ich hätte auch nicht gedacht, daß heute noch Lochkarten benutzt werden ;)

  • NCID Anrufmonitor

    • ytwinky
    • 15. Oktober 2012 um 17:19
    Zitat von JaneDoe

    Man sollte den Beitrag langsam umbenennen oder ich mache mal einen neuen Beitrag nur für die EasyBox.

    Wenn du(als TO) den Beitrag in ersten Post nicht umbenennen kannst, solltest du einen Mod/Admin bitten, dies zu tun. Mein Vorschlag ist: EasyBox-Daten auslesen und ändern
    Natürlich könnte da NCID oder VOIP noch hinein, da aber die EasyBox eben nur auf vodafone abgestimmt ist, sollte nicht der Eindruck entstehen, es gelte grundsätzlich..
    Fürs Auslesen der Anrufgeschichte ist Skripting wirklich die bessere(weil flexiblere) Lösung.
    Die Router-Verwaltung sollte imho jedoch nur über das Web-Interface der EB erfolgen -- rein aus Sicherheitsgründen!
    (Durch diesen Thread habe ich sogar meine EB endlich mal auf den neuesten Stand gebracht, schönen Dank für den Anstoß..^^)
    Gruß
    ytwinky

  • NCID Anrufmonitor

    • ytwinky
    • 14. Oktober 2012 um 19:18

    Cooles Script..
    bin mal gespannt, wie es läuft ;)
    t4s
    Gruß
    ytwinky

    P.S.:t4s=thanks for sharing, wenn es das nicht schon gibt, habe ich es grade erfunden :rofl:

  • NCID Anrufmonitor

    • ytwinky
    • 13. Oktober 2012 um 17:49

    hi Frau Leutnantin^^
    meine bisherigen Ermittlungen haben ergeben:
    -Benutzung (vodafone-)fremder VOIP-Anbieter ist mit der EB803 NICHT möglich..
    -Die EB803 KANN als Webserver eingesetzt werden, entsprechende Kenntnisse über Portweiterleitung
    und eine (relativ) feste IP vorausgesetzt(das berührt nicht die Server-Fähigkeiten per EB-USB-Anschluß)
    Ich brauche mich in dieser Richtung nicht schlauer zu machen, da ich beides nicht nutzen möchte..
    (Bei Bedarf kann ich gerne weitere Info liefern..)
    Falls du gerne deine WAN-IP(die ja in der EB gespeichert ist) auslesen möchtest:

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    MsgBox(0, 'WAN-IP', _GetWANIP())

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetWANIP()
    Local $dl=BinaryToString(InetRead('http://easy.box/login.stm'))
    $dl=StringMid($dl, StringInstr($dl, 'wan_ip=')+8, 29); ip vorbereiten
    Return StringLeft($dl, StringInstr($dl, ';')-2); wan-ip zurückgeben
    EndFunc ;==>_GetIP

    [/autoit]

    Mein neues Smartphone verhindert z.Z. eine Fortführung der NCID-Geschichte..
    Gruß
    ytwinky

  • NCID Anrufmonitor

    • ytwinky
    • 11. Oktober 2012 um 20:47

    Hi,
    ich werde gerne den Anruf-Monitor testen..
    ..und mitTWNCID vergleichen ;)
    Ich hoffe natürlich, dass ein AutoIt-Programm schneller ist als ein java-Programm.
    (Endlich mal ein Programm für EB-Benutzer, denn da sind ja Erweiterungen möglich/zu erwarten..
    ..meine java-Kenntnisse sind nicht gerade umfangreich^^)
    Gruß
    ytwinky

  • GDI, Kreismittelpunkt & Radius - Frage

    • ytwinky
    • 27. September 2012 um 00:35
    Zitat von fredowsky

    .. Ich behalt diese Lösung mal im Hinterkopf, vielleicht versuch ich mich ja doch demnächst an einer Portierung..

    Für den Fall, daß du eine 'Gehhilfe' für die Portierung benötigst, habe ich mein FreeBasic-Programm 'mal eben' nach AutoIt überführt.
    Es ist aber nur eine Rohfassung, deren Kernpunkt die Func K3Pa () ist, die als Rückgabewert den Radius liefert, wenn möglich:

    Spoiler anzeigen
    [autoit]

    ;<AutoItScript>
    #NoTrayIcon ;ohne SysTray-Icon, hängende Prozesse mit TaskMan beenden
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Opt('MustDeclareVars', 0) ;0=ohne, 1=erfordert Variablen-Deklaration
    ;+----------------------------------------------------------------+
    ;| AnzeigeCheck: |Il1 sind Alt-0124, GROßES i, kleines L, Eins |
    ;| Sonderzeichen: „ä”öüáߎę֚Üñ±ø°¸© |
    ;| Header: Bestimmung der Parameter (alle sind Strings!!!) |
    Const $Author='k3p.au3 ©2012 by ytwinky, MD'; |
    ;| EMail: [email='PIII1kSystem-AutoIt3Forum@yahoo.de'][/email] |
    ;| AutoIt3-Version: 3.3.8.1, Beta: 3.3.9.4 |
    ;| Editor: SciTE 3.2.0d, fixed font |
    ;| Zweck : Kreisberechnung durch 3 Punkte |
    ;| setze Tab auf 2 für Lesbarkeit |
    ;+----------------------------------------------------------------+
    Global $Pkt[4][3], $s=0
    #Region ### START Koda GUI section ### Form=D:\Sprachen\AutoIt3\Au3\kxf\K3P.kxf
    $K3P=GUICreate('K3P', 496, 328, 252, 122)
    $grpMain=GUICtrlCreateGroup('', 0, -6, 495, 333)
    GUICtrlCreateLabel('Kreis durch 3 Punkte', 4, 6, 244, 33)
    GUICtrlSetFont(-1, 18, 800, 0, 'Arial')
    GUICtrlSetColor(-1, 0x000080)
    GUICtrlSetTip(-1, $Author)
    $grpEingabe=GUICtrlCreateGroup('Eingabe', 4, 36, 487, 157)
    $grpLinks=GUICtrlCreateGroup('linker Punkt', 7, 101, 157, 87)
    GUICtrlCreateLabel('Bezeichnung', 12, 121, 66, 17)
    $ezPNr1=GUICtrlCreateInput('P1', 78, 118, 81, 21)
    GUICtrlCreateLabel('Rechtwert', 11, 143, 53, 17)
    $ezyp1=GUICtrlCreateInput('0.9080732', 78, 141, 81, 21)
    GUICtrlCreateLabel('Hochwert', 11, 166, 50, 17)
    $ezxp1=GUICtrlCreateInput('4.0642982', 78, 163, 81, 21)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    $grpMitte=GUICtrlCreateGroup('mittlerer Punkt', 169, 48, 157, 87)
    GUICtrlCreateLabel('Bezeichnung', 174, 68, 66, 17)
    $ezPNr2=GUICtrlCreateInput('P2', 240, 65, 81, 21)
    GUICtrlCreateLabel('Rechtwert', 173, 91, 53, 17)
    $ezyp2=GUICtrlCreateInput('2.8485684', 240, 88, 81, 21)
    GUICtrlCreateLabel('Hochwert', 173, 113, 50, 17)
    $ezxp2=GUICtrlCreateInput('1.6679862', 240, 110, 81, 21)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    $Group4=GUICtrlCreateGroup('rechter Punkt', 331, 101, 157, 87)
    GUICtrlCreateLabel('Bezeichnung', 336, 121, 66, 17)
    $ezPNr3=GUICtrlCreateInput('P3', 402, 118, 81, 21)
    GUICtrlCreateLabel('Rechtwert', 335, 144, 53, 17)
    $ezyp3=GUICtrlCreateInput('0.4589868', 402, 141, 81, 21)
    GUICtrlCreateLabel('Hochwert', 335, 166, 50, 17)
    $ezxp3=GUICtrlCreateInput('4.0996421', 402, 163, 81, 21)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    $btnBerechnen=GUICtrlCreateButton('Berechnen', 210, 154, 75, 25)
    GUICtrlSetFont(-1, 8, 800, 0, 'MS Sans Serif')
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    $Berechnung=GUICtrlCreateGroup('Berechnung', 4, 194, 487, 129)
    $grpBerechnung=GUICtrlCreateGroup('Zentrum', 9, 211, 157, 107)
    GUICtrlCreateLabel('Rechtwert', 13, 230, 53, 17)
    $ezyZ=GUICtrlCreateInput('ezyZ', 66, 227, 81, 21)
    GUICtrlCreateLabel('Hochwert', 13, 252, 50, 17)
    $ezxZ=GUICtrlCreateInput('ezxZ', 66, 249, 81, 21)
    GUICtrlCreateLabel('Radius', 15, 296, 37, 17)
    $ezRadius=GUICtrlCreateInput('Radius', 66, 293, 81, 21)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    $grpKontrolle=GUICtrlCreateGroup('Konrollrechnung', 168, 211, 319, 107)
    GUICtrlCreateLabel('Strecke vom Zentrum zum', 172, 229, 128, 17)
    GUICtrlCreateLabel('Differenz', 390, 229, 46, 17)
    GUICtrlCreateLabel('linken Punkt', 230, 250, 63, 17)
    $ezR1=GUICtrlCreateInput('ezR1', 307, 247, 81, 21)
    $ezK1=GUICtrlCreateInput('ezK1', 390, 247, 81, 21)
    GUICtrlCreateLabel('mittleren Punkt', 230, 272, 74, 17)
    $ezR2=GUICtrlCreateInput('ezR2', 307, 269, 81, 21)
    $ezK2=GUICtrlCreateInput('ezK2', 390, 269, 81, 21)
    GUICtrlCreateLabel('rechten Punkt', 231, 294, 71, 17)
    $ezR3=GUICtrlCreateInput('ezR3', 307, 291, 81, 21)
    $ezK3=GUICtrlCreateInput('ezK3', 390, 291, 81, 21)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    GUICtrlCreateGroup('', -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btnBerechnen
    $Pkt[1][0]=GUICtrlRead($ezPNr1)
    $Pkt[1][1]=GUICtrlRead($ezyp1)
    $Pkt[1][2]=GUICtrlRead($ezxp1)
    $Pkt[2][0]=GUICtrlRead($ezPNr2)
    $Pkt[2][1]=GUICtrlRead($ezyp2)
    $Pkt[2][2]=GUICtrlRead($ezxp2)
    $Pkt[3][0]=GUICtrlRead($ezPNr3)
    $Pkt[3][1]=GUICtrlRead($ezyp3)
    $Pkt[3][2]=GUICtrlRead($ezxp3)
    GUICtrlSetData($ezRadius, StringFormat('%3.11f', K3Pa()))
    GUICtrlSetData($ezyZ, StringFormat('%3.11f', $Pkt[0][1]))
    GUICtrlSetData($ezxZ, StringFormat('%3.11f', $Pkt[0][2]))
    GUICtrlSetData($ezR1, StringFormat('%3.11f', Strecke(0, 1)))
    GUICtrlSetData($ezR2, StringFormat('%3.11f', Strecke(0, 2)))
    GUICtrlSetData($ezR3, StringFormat('%3.11f', Strecke(0, 3)))
    GUICtrlSetData($ezK1, StringFormat('%3.3e', Strecke(0, 1)-GUICtrlRead($ezRadius)))
    GUICtrlSetData($ezK2, StringFormat('%3.3e', Strecke(0, 2)-GUICtrlRead($ezRadius)))
    GUICtrlSetData($ezK3, StringFormat('%3.3e', Strecke(0, 3)-GUICtrlRead($ezRadius)))
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ;<AutoItFunctions>
    Func Strecke($PA, $PE)
    Return Sqrt(($Pkt[$PA][1]-$Pkt[$PE][1])^2+($Pkt[$PA][2]-$Pkt[$PE][2])^2)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Mittel($a, $b)
    Return ($a+$b)/2.0
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func K3Pa()
    Local $y1s, $x1s, $y2s, $x2s, $m1=0, $m2=0, $i
    ;Koordinaten von P1'
    $y1s=Mittel($Pkt[1][1], $Pkt[2][1])
    $x1s=Mittel($Pkt[1][2], $Pkt[2][2])
    ;Koordinaten von P2'
    $y2s=Mittel($Pkt[2][1], $Pkt[3][1])
    $x2s=Mittel($Pkt[2][2], $Pkt[3][2])
    ;Steigungen berechnen
    $dx21=$Pkt[2][2]-$Pkt[1][2]
    $dx32=$Pkt[3][2]-$Pkt[2][2]
    $m1=($Pkt[2][1]-$Pkt[1][1])/$dx21
    $m2=($Pkt[3][1]-$Pkt[2][1])/$dx32
    ;1. Lösung, falls weder x2-x1=0 noch x3-x2=0 ist:
    If $dx21*$dx32<>0 Then ;also sind beide<>0 !!
    $xm1=$x1s+$m1*($m2*($y1s-$y2s)+($x1s-$x2s))/($m2-$m1)
    $ym1=$y1s-($xm1-$x1s)/$m1
    ;Kontrolle:
    $xm2=$x2s+$m2*($m1*($y1s-$y2s)+($x1s-$x2s))/($m2-$m1)
    $ym2=$y2s-($xm2-$x2s)/$m2
    $Pkt[0][1]=Mittel($ym1, $ym2)
    $Pkt[0][2]=Mittel($xm1, $xm2)
    ElseIf $dx21=0 Then ;2. Lösung, falls x2-x1=0 ist:
    $Pkt[0][2]=$x2s-$m2*($y1s-$y2s)
    $Pkt[0][1]=$y1s
    ElseIf $dx32=0 Then ;3. Lösung, falls, x3-x2=0 ist:
    $Pkt[0][2]=$x1s-$m1*($y2s-$y1s)
    $Pkt[0][1]=$y2s
    Else
    $Pkt[0][1]='n.v.'
    $Pkt[0][2]='n.v.'
    $Pkt[0][0]='Keine Lösung'
    Return 0
    EndIf
    $m1=0.0
    $m2=0.0
    For $i=1 To 3
    $y1s=Abs($Pkt[0][1]-$Pkt[$i][1])*Abs($Pkt[0][2]-$Pkt[$i][2])
    $m1+=$y1s
    $m2+=Strecke(0, $i)*$y1s
    Next
    $Pkt[0][0]='Zentrum'
    Return $m2/$m1 ;Radius zurückgeben..
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;</AutoItScript>

    [/autoit]


    Hth..
    Gruß
    ytwinky

  • GDI, Kreismittelpunkt & Radius - Frage

    • ytwinky
    • 25. September 2012 um 22:40

    okay, auch von mir kriegste noch 'n Schubser..
    Ich habe dieses 'Problem' in FreeBasic bereits gelöst:
    http://ytwinky.freebasic-portal.de/freebasic/k3p.bas
    Du müßtest dir also 'nur' das FreeBasic-Programm nach AutoIt portieren ;-))
    Mein (ehemaliges Pascal-Programm) zeigt ja, daß Portierungen möglich sind^^
    Gruß
    ytwinky

  • GDI, Kreismittelpunkt & Radius - Frage

    • ytwinky
    • 25. September 2012 um 21:48

    Hi,
    vllt sollteste es mal mit dieser Anleitung versuchen:
    http://www.arndt-bruenner.de/mathe/scripts/kreis3p.htm
    Mit dem eingebauten Rechner der Seite kannste deine Versuche überprüfen..
    Gruß
    ytwinky

  • WinEX UDF v0.1 - 473 Funktionen um die Windows-Standard-Dll

    • ytwinky
    • 17. September 2012 um 17:21

    Den API-Guide habe ich schon seit Jahren auf meiner Seite verlinkt. Dummerweise ist er mal wieder nicht mehr richtig..
    Der Link von BugFix linkt leider nur auf einen Installer, der das Programm runterlädt..
    Aber das ist ja Googleseidank kein Problem: API-GUIDE(DirektDownload)
    Gruß
    ytwinky

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™