Zum Inhalt springen

Majestix

Mitglieder
  • Gesamte Inhalte

    161
  • Benutzer seit

  • Letzter Besuch

Beiträge von Majestix

  1. es kommt öfters vor das man ein spiel öffnen kann und andere nicht joinen können. das ist ein alt bekanntest problem in starcraft. also versucht beide mal eins zu öffnen und der andere joined oder wirklich mal jmd. im channel fragen der defintive eins aufmachen kann.

    notfalls kannste mich auch mal abends im icq anquasseln dann mach ich dir eben eins auf und du kannst testen.. (UIN: 62886209 <- oldschool nO ;) )

  2. na, du hast momentan das problem das im bnet fast nur noch asiaten sind und kaum europäische spiele offen. deswegen kann er meist auch nicht connecten. am besten machse mal selber ein spiel auf und schaust ob jmd. connected oder suchst nach nem deutschen der dir ein spiel aufmacht. frag an besten mal im broodwar deu-1 oder starcraft deu-1 channel.

  3. tach,

    ich hab ne Fritz Box Surf & Phone.. problem ist mir fehlt der adapter TAE auf Rj45 (nicht rj11!) um das modem an den splitter anzuschließen. ich war bereits schon im handel etc.. es scheint so als wenn es dieses ding nur von avm am mit den fritzboxen direkt gibt. wenn man es dort nachbestellt, muss man das komplette YKabel kaufen was dann zusammen 30euro kostet. und das ist mir nen bisle viel für nen adapter der vielleicht 2euro wert ist..

    hat jmd. ne idee wo es sowas gibt ?

    (siehe bild.. so ca. sieht dat ding aus..)

    post-24888-14430447681432_thumb.jpg

  4. hi,

    bei adac bekommst du mit abstand die günstigsten mietwagen. zumindest günstiger als wenn du bei den vermietungen direkt schaust. auto bekommst du ab 21, wobei es um einiges teurer ist als wenn du schon 25 wärst. ich gelaube es kostet ca. 25$ pro tag mehr wenn du unter 25 bist... wegen der versicherung etc..

    ich glaub beim adac bekommst du für 3w einen mietwagen ohne kilometer begenzung für ca. 800$ (bin mir aber nicht sicher !!!!) wobei das der preis für leute dier schon über 25 sind..

    schau am besten mal hier:

    ADAC Auto USA

  5. najo also ich find gibt schon sehr geile games mitlerweile ! vorallem von der grafik ! das einzige was mir stinkt ist, das es nur über vista oder mce möglich ist .avi etc. filme anzusehen !

    standart mässig kann die xbox über media connect vom pc nur mp3s und wmv/wma dateien abspielen was ich ziemlich schwach finde.

  6. Servus, wollte mal fragen wer hier ne xbox 360 hat.

    (bitte keine äußerungen von wegen PS3 is besser bla bla.. )

    Welche Games zockt ihr so ?

    Wie sind eure XboX live acc. ? (vielleicht kann man ja mal zusammen zoggen)

    Games:

    - Rainbow Six Las Vegas (kann ich sehr empfehlen ! geile grafik und gameplay finde ich )

    - Pirates of the Caribbean (find ich nicht so dolle... mal was für zwischen durch. aber Grafik nicht der kracher und gameplay ziemlich langweilig)

  7. hum, also als erstes auch wenn es nicht viel spaß macht, sind bücher immer brauchbar ! dafür gibt es hier schon ein paar Beiträge:hier und hier.

    Ansonsten kann ich dir empfehlen viele beispiel Projekte anzuschauen und dann zu versuchen einfache übungen nachzubauen. Ich weiß nicht ob du schon andere Programmiersprachen beherschst. Falls nicht fang mit einfachen Awendungen an, in dennen du ein und ausgaben machst. Lass dir da einfach ein paar sachen einfallen die du umsetzten kannst. Danach kannst du kompliziertere Windows Applicationen mit Dialogen etc. versuchen auch hierzu findest du einiges in Büchern und im Internet !

    Hilfreich ist natürlich immer wenn du jemanden kennst der bereits .Net kann. Der kann sich dann Aufgaben für dich überlegen und dir auch manches erklären.

    Eine sehr gute Einsteigerseite findest du meines erachtens hier.

    gruß majestix

  8. hum also am einfachsten ist es meiner meinung nach mit dem "pdf creator" . Weiß aber nicht ob das , dass ist was du willst.

    das ding installierst du einfach und dann hast du den pdf creator wie einen drucker angelegt. anschließend öffnest du von .net nur einen drucker dialog, übergibst was in das pdf soll und wählst als drucker den pdf creator. wenn du dann drucken drückst, druckt er nicht wirklich sondern erstellt dir ein pdf...

    hier ein auszug aus der beschreibung:

    
    Beschreibung: 
    
    Dieses Open-Source-Tool erzeugt auf einfache Weise PDFs: über einen Treiber. In der jeweiligen Anwendung, ob nun Text- oder Bildverarbeitung, ist lediglich der virtuelle Drucker "PDF Creator" auszuwählen - schon kann die Auswahl im Portable Document Format gespeichert werden. Sie lässt sich sofort per E-Mail verschicken oder im Acrobat Reader ansehen.
    
    Weitere Features:
    
    
    Erstellung aus Truetype- und Postscript-Texten
    
    verschiedene Auflösungen für eingebettete Bilder
    
    Passwortschutz
    
    Komprimierungsstufen
    
    Kompatibilität zu diversen PDF-Versionen
    
    Seitendrehung
    
    Überdrucken 
    
    Deutsche Hilfedatei
    
    E-Mail- und Terminalserver-Funktionen 
    
    Toolbar für Internet Explorer zum direkten Erstellen einer PDF aus einer Webseite
    
    Fazit:
    
    Der PDF Creator zeichnet sich durch rundum einfache Handhabung aus und beherrscht alle wichtigen Funktionen: Nicht nur Farbe und Schriftart lassen sich anpassen; vor dem Drucken kann man individuelle Angaben machen - etwa zum Autor oder den wichtigsten Stichwörtern - und natürlich einen Titel vergeben. 
    
    
    Neu ab Version 0.9.3:
    
    
    Ghostscript als GPL-Version verfügbar und nicht mehr als AFPL
    
    Versteckte Optionen sind jetzt auf der Benutzeroberfläche ersichtlich
    
    
    

    das ganze findest du hier:

    Pdf Creator

  9. 1. nirgends anziehen wo viele leute sind und darauf rumtreten können

    2. nirgends anziehen wo viel matsch etc. ist.. bsp: festival mit regen

    3. 1x die woche putzen

    4. wenn sie dreckig sind direkt mit feuchtem schwamm abwaschen

    5. 1x die woche mit einer zewa rolle und heller schuhcrem einreiben.

    6. putzen , pflegen, putzen , pflegen

    hatte weiße boras.. die hab ich damit ca. 3-4w wie neu gehalten ! aber irgendwann kannste es vergessen da werden sie dreckig..

  10. Servus miteinander,

    folgendes: Ich hab nen Forms Builder von Oracle unter dem eine sogenannte

    "Application Server Url" gesetzt werden kann/muss. Diese hat dann Auswirkungen auf später Konfigurationseinstellungen.

    Weiß einer ob es eine Schnittstelle, Registrierungspfad oder Parameterübergabe gibt, in dem ich diese url setzten kann ohne das manuel im Builder machen zu müssen ?

    danke vorab !

  11. hum ist vielleicht ziemlich kurzfristig, aber schau doch mal bei den billig fliegern rein ! wenn du glück haste bekomme hin und rückflug inkl steuer für ca. 50euro pro person. dann musste nur noch ne pension/hotel suchen in der gegend wo du hinfliegst. und fertisch ^^ ;) solang du dich nicht auf ne region festlegst sollte das gehen..

    ansonsten kann ich dir in deutschland di insel rügen empfehlen, wobei du dann wieder sprit + hotel hast. aber vielleicht findeste auch nen billig flieger innerhalb deutschlands nach berlin etc..

  12. es gibt im irc nen dota channel wo du rein gehen kannst. musst die registrieren und dann bekommste pass etc... dort wird dann das game und pw genannt und du kannst zocken. ich glaube wer dann 2x geleaved hat wird aus dem channel gebannt. so kannste davon ausgehen das du "meistens" nur leute dabei hast die nicht leaven.

    hab dota 5-6x nur gespielt. komm damit irgendwie nicht ganz klar ist mir zu strategisch.. da mag ich WCIII TFT oder SC/BW irgendwie mehr.

  13. sers,

    war vor 2monaten eine woche in schweden firmenreise...

    0 5l bier kostet umgerechnet ca. 6,50euro im restaurant.

    gibt fatöl (faßbier) is bischen billger als flaschen bier und lightöl (leichtbier 2,2%) was günstiger ist. ansonsten kann ich dir nur empfehlen wenn du party machen willst etc. nimm viel bier und alk aus ger mit ! aber pass an der grenze auf die schweden mögen das nicht ...

    ja starke alkoholische getränke (wie bier mit 5,9% oder mehr) dürfen nur in bestimmten bars oder staatlichen läden verkauft werden ! bekommst also nicht in jedem laden nen richtiges bier etc.. bei zigaretten ist das gleiche.. rauchen ist übrigends soviel ich weiß auch in den bars verboten etc..

    ansonsten essen usw. ist ein wenig teurer als in ger aber noch okay. nur der alk is wie gesagt heftig. zigaretten sind vom preis her ungefähr so wie in ger..

    hf in schweden ;)

  14. hi, ich hab sowas bisher nur in Vb .Net mit einem menü gemacht, was zu laufzeit aufgefüllt wird... dort geht das so:

    
     objMenuItemVisual.Text = "Test"
    
     AddHandler objMenuItemVisual.Click, AddressOf mniLoadClick
    
     mniVisualLoad.MenuItems.Add(objMenuItemVisual)
    
    
    und aufgerufen wird das ganze durch klicken im menü:
    
     Private Sub mniLoadClick(ByVal sender As Object, ByVal e As System.EventArgs)
    
            Dim FavName As MenuItem = CType(sender, MenuItem)
    
            ......
    
            FavName = Nothing
    
        End Sub
    
    

  15. How to run Office macros by using Automation from Visual Basic .NET

    ist die lösung ;)

    
     Dim oExcel As Excel.ApplicationClass
    
            Dim oBook As Excel.WorkbookClass
    
            Dim oBooks As Excel.Workbooks
    
    
            'Start Excel and open the workbook.
    
            oExcel = DirectCast(CreateObject("Excel.Application"), Excel.ApplicationClass)
    
            oExcel.Visible = True
    
            oBooks = oExcel.Workbooks
    
            oBook = DirectCast(oBooks.Open("c:\template.xls"), Excel.WorkbookClass)
    
    
            'Run the macros.
    
            oExcel.Run("prcTest")
    
            ' oExcel.Run("DoKbTestWithParameter", "Hello from VB .NET Client")
    
    
            'Clean-up: Close the workbook and quit Excel.
    
            oBook.Close(False)
    
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
    
            oBook = Nothing
    
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
    
            oBooks = Nothing
    
            oExcel.Quit()
    
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
    
            oExcel = Nothing
    
    

  16. hier eine lösung:

    
    ' **************************************************************
    
    '  Modul:  Modul1  Typ = Allgemeines Modul
    
    ' **************************************************************
    
    
    Option Explicit
    
    
    Public Sub prcTest()
    
        Dim intColumn As Integer
    
        Dim lngRow As Long
    
        Dim vntArray(2 To 10000, 1 To 29) As Variant
    
        Dim vntSortArray As Variant
    
    
        'die zu sortierenden Spalten
    
        'negative Zahl = Spalte absteigend sortieren
    
        'positive Zahl = Spalte aufsteigend sortieren
    
        vntSortArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29)
    
    
        For lngRow = 2 To 10000
    
            For intColumn = 1 To 29
    
            If Not ActiveSheet.Cells(lngRow, intColumn).Value = "" Then
    
                vntArray(lngRow, intColumn) = ActiveSheet.Cells(lngRow, intColumn).Value
    
            End If
    
            Next
    
        Next
    
    
    
        'Sortierroutine starten
    
    
        Call prcSort(vntSortArray, vntArray())
    
    
        'Ausgabe Testarray
    
        Application.ScreenUpdating = False
    
        Range("A2:AD10000").Value = vntArray
    
    
        Dim vEmpty As Boolean
    
        vEmpty = False
    
    
        For lngRow = 2 To 10000
    
            For intColumn = 1 To 29
    
            If Not ActiveSheet.Cells(lngRow, intColumn).Value = "" Then
    
               vEmpty = True
    
               Exit For
    
            End If
    
            Next
    
            If Not vEmpty Then
    
             Rows(lngRow).Delete
    
            End If
    
            vEmpty = False
    
        Next
    
        Application.ScreenUpdating = True
    
    End Sub
    
    
    Private Sub prcSort(vntSortArray As Variant, vntArray() As Variant)
    
        Dim intIndex As Integer
    
        Dim lngIndex1 As Long, lngIndex2 As Long, lngRowsArray() As Long
    
        Dim lngRowsCount As Long, lngRangeCount As Long
    
        Dim vntTemp As Variant
    
        ReDim lngRowsArray(0 To 1, 0 To UBound(vntArray) * 2)
    
    
        'Array für den 1. Sortierlauf
    
        lngRowsArray(0, 0) = LBound(vntArray)
    
        lngRowsArray(0, 1) = UBound(vntArray)
    
        lngRowsCount = 1
    
    
        For intIndex = LBound(vntSortArray) To UBound(vntSortArray)
    
    
            'Wenn eine Spalte angegeben
    
            If vntSortArray(intIndex) <> 0 Then
    
                lngRangeCount = -1
    
    
                'Schleife zum sortieren der einzelnen Bereiche
    
                For lngIndex1 = 0 To lngRowsCount Step 2
    
    
                    'Sortieren des Bereichs, wenn Zeilenzahl größer 1
    
                    If lngRowsArray(0, lngIndex1) <> lngRowsArray(0, lngIndex1 + 1) Then
    
    
                        Call prcQuickSort(CLng(lngRowsArray(0, lngIndex1)), _
    
                            CLng(lngRowsArray(0, lngIndex1 + 1)), CInt(Abs(vntSortArray(intIndex))), _
    
                            CBool(vntSortArray(intIndex) > 0), vntArray())
    
    
                        'sortierten Bereich merken
    
                        lngRangeCount = lngRangeCount + 2
    
                        lngRowsArray(1, lngRangeCount - 1) = lngRowsArray(0, lngIndex1)
    
                        lngRowsArray(1, lngRangeCount) = lngRowsArray(0, lngIndex1 + 1)
    
    
                    End If
    
                Next
    
    
                lngRowsCount = -1
    
    
                'Durchsuchen der soeben sortierten Spalte nach Wertewechsel
    
                For lngIndex1 = 0 To lngRangeCount Step 2
    
    
                    '1. Zeile des zu sortierenden Bereichs
    
                    vntTemp = vntArray(lngRowsArray(1, lngIndex1), Abs(vntSortArray(intIndex)))
    
                    lngRowsCount = lngRowsCount + 1
    
                    lngRowsArray(0, lngRowsCount) = lngRowsArray(1, lngIndex1)
    
    
                    'Suche nach Wechsel innerhalb des Bereichs
    
                    For lngIndex2 = lngRowsArray(1, lngIndex1) To lngRowsArray(1, lngIndex1 + 1)
    
                        If vntTemp <> vntArray(lngIndex2, Abs(vntSortArray(intIndex))) Then
    
                            lngRowsCount = lngRowsCount + 2
    
                            lngRowsArray(0, lngRowsCount - 1) = lngIndex2 - 1
    
                            lngRowsArray(0, lngRowsCount) = lngIndex2
    
                            vntTemp = vntArray(lngIndex2, Abs(vntSortArray(intIndex)))
    
                        End If
    
                    Next
    
    
                    'letzte Zeile des zu sortierenden Bereichs
    
                    lngRowsCount = lngRowsCount + 1
    
                    lngRowsArray(0, lngRowsCount) = lngRowsArray(1, lngIndex1 + 1)
    
    
                Next
    
            End If
    
        Next
    
    End Sub
    
    
    Private Sub prcQuickSort(lngLbound As Long, lngUbound As Long, _
    
        intSortColumn As Integer, bntSortKey As Boolean, vntArray() As Variant)
    
        Dim intIndex As Integer
    
        Dim lngIndex1 As Long, lngIndex2 As Long
    
        Dim vntTemp As Variant, vntBuffer As Variant
    
        lngIndex1 = lngLbound
    
        lngIndex2 = lngUbound
    
        vntBuffer = vntArray((lngLbound + lngUbound) \ 2, intSortColumn)
    
        Do
    
            If bntSortKey Then
    
                Do While vntArray(lngIndex1, intSortColumn) < vntBuffer
    
                    lngIndex1 = lngIndex1 + 1
    
                Loop
    
                Do While vntBuffer < vntArray(lngIndex2, intSortColumn)
    
                    lngIndex2 = lngIndex2 - 1
    
                Loop
    
            Else
    
                Do While vntArray(lngIndex1, intSortColumn) > vntBuffer
    
                    lngIndex1 = lngIndex1 + 1
    
                Loop
    
                Do While vntBuffer > vntArray(lngIndex2, intSortColumn)
    
                    lngIndex2 = lngIndex2 - 1
    
                Loop
    
            End If
    
            If lngIndex1 < lngIndex2 Then
    
                If vntArray(lngIndex1, intSortColumn) <> _
    
                    vntArray(lngIndex2, intSortColumn) Then
    
                    For intIndex = LBound(vntArray, 2) To UBound(vntArray, 2)
    
                        vntTemp = vntArray(lngIndex1, intIndex)
    
                        vntArray(lngIndex1, intIndex) = _
    
                            vntArray(lngIndex2, intIndex)
    
                        vntArray(lngIndex2, intIndex) = vntTemp
    
                    Next
    
                End If
    
                lngIndex1 = lngIndex1 + 1
    
                lngIndex2 = lngIndex2 - 1
    
            ElseIf lngIndex1 = lngIndex2 Then
    
                lngIndex1 = lngIndex1 + 1
    
                lngIndex2 = lngIndex2 - 1
    
            End If
    
        Loop Until lngIndex1 > lngIndex2
    
        If lngLbound < lngIndex2 Then Call prcQuickSort(lngLbound, _
    
            lngIndex2, intSortColumn, bntSortKey, vntArray())
    
        If lngIndex1 < lngUbound Then Call prcQuickSort(lngIndex1, _
    
            lngUbound, intSortColumn, bntSortKey, vntArray())
    
    End Sub
    
    

    weiß einer wie man makros aus .Net aufruft ?!

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...