Sylon

ich glaub ich werds einfach auf C# C++ oder Java umprogrammieren dann gibts das Problem nicht mehr -.- den Quelltext von dir werd ich mal testen... danke !

Hallo zusammen, ist es möglich in C die Fenstergröße zu ändern, also das DOS Fenster? Wenn ja, würde mich freuen wenn mir jemand sagen könnte wie : / Habe gestern und heute gegoogelt und nichts gefunden. Gruß Sylon

hallo zusammen, kann man die Quelltexte von RadC++ weiter verarbeiten (hinzufügen usw.) Hier ein Beispiel: hier würde ich gerne bei den Menüpunkten Open, Save soll abgeändert werden in Umrechnung für cm in Zoll; Euro in Dollar usw. wenn man darauf klickt soll man seine Zahl eingeben können. Der Quelltext für die Funktion ist klar, nur wie hier einfügen??? BITTE UM HILFE !! #include <radc++.h> Form form1("Menu - RAD C++ Example"); Menu menu(form1); MenuItem __File,__Exit,__Help,__About; FormProcedure form1Proc(FormProcArgs) { ON_CLOSE() Application.close(); ON_COMMAND_BY(__Exit) Application.close(); ON_COMMAND_BY(__About) form1.infoBox("Menu Example - RAD C++ 1.2\r\n\r\nby www.radcpp.com"); return 0; } rad_main() form1.procedure = form1Proc; //main menus __File = menu.add("&File"); __Help = menu.add("&Help"); //sub-menus not tracked __File.add("&New"); __File.add("&Open"); __File.add("&Save"); __File.addSeparator(); //sub-menus tracked __Exit = __File.add("E&xit",AUTO_ID); __About = __Help.add("&About",AUTO_ID); rad_end()

Ich habe MS Autoroute gerade deinstalliert und neu installiert, trotzdem bekomme ich keinen derartigen Bildschirm. Etwas 2sek nach dem Start lande ich direkt im Hauptprogramm und kann loslegen. Wie hast du die Software installiert?

alles klar =)

Hi big-bang, wir nutzen hier auf der Arbeit auch MS AR 2010. Was verstehst du unter dem Startbildschirm? (Screen wäre hilfreich) Nach der Installation und ersten Benutzung dürfte eigentlich nicht außer das "Hauptprogramm" aufgehen. LG Sylon

ich geb dir mal ein paar kleine Tipps: wenn du so ein Programm basteln willst überlege dir zuerst was du überhaupt eingeben musst 1. der Compiler muss eine Zahl zwischen 1 und 100 aussuchen und speichern (in einer Variablen) 2. du brauchst Ausgaben, die den Benutzer auffordern zu raten 3. du musst die Rateversuche in einer Variblen festlegen 4. Bedingung formulieren, wie oben stehend -> wenn >raten< größer als >zahl< dann folgendes -> ein rateversuch weniger (z.B. i++) und sagen ob die zahl zu groß oder zu klein usw. Falls du trotzdem nicht weiter kommst kann ich dir auch gern die Quelltext oder den Anfang vom Quelltext geben / schreiben LG Sylon

also die Spalte "PLZ" ist jeder Excel immer an einer anderen Stelle bisher macht das Makro folgendes: -fügt rechts neben der Spalte 2 neue ein - in die erste kommt: =länge(z.B G2) - in die zweite kommt: =wenn(H2=4;"0"&G2;G2) - beide formeln werden bis Zeile 265 circa gezogen jetzt brauche ich das makro so, dass es nicht immer auf die Spalte "G" angewendet wird sondern auf die Spalte, die ich markiert hab >.< Vielleicht ist es so für dich / euch besser nachzuvollziehen. LG Sylon

Hallo zusammen, ich habe ein Makro entworfen, welches bei Adresslieferung in Excel die Postleitzahl überprüft und ggf. eine "0" davor setzt, wenn es nur 4 Zeichen sind. Mein Problem ist, dass ich das Makro so umgestalten muss damit es nicht immer die gleiche Spalte prüft und ändert sondern es soll immer die markierte Spalte prüfen. Könnt ihr mir bitte helfen? Unten steht der Quelltext LG Sylon Columns("H:H").Select Selection.Insert Shift:=xlToRight Columns("I:I").Select Selection.Insert Shift:=xlToRight Selection.Insert Shift:=xlToRight Range("H2").Select ActiveCell.FormulaR1C1 = "=LEN(RC[-1])" Range("H2").Select Selection.AutoFill Destination:=Range("H2:H206"), Type:=xlFillDefault Range("H2:H206").Select ActiveWindow.SmallScroll Down:=-204 Range("I2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-1]=4,""0""&RC[-2],RC[-2])" Range("I2").Select Selection.AutoFill Destination:=Range("I2:I206"), Type:=xlFillDefault Range("I2:I206").Select ActiveWindow.SmallScroll Down:=-225 Range("I2:I206").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("J:J").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("I1").Select ActiveCell.FormulaR1C1 = "PLZ" Columns("G:H").Select Range("H1").Activate Selection.Delete Shift:=xlToLeft End Sub