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