dragi
-
Gesamte Inhalte
105 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von dragi
-
-
Hallo,
ich bin Azubi zum AW und beschäftige mich eigentlich überwiegend mit Delphi. Jetzt soll ich aber ein Programm im c++ Builder schreiben und meine Frage ist ob mir jemand exemplarisch zeigen kann, wie ich unten abgebildete Klasse aus Delphi im c++ Builder schreibe damit ich einmal gesehen habe wie man so eine Klasse aufbaut bitte:
unit u_CVClasses; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TCaesar = class(TObject) private protected public function encode(s: string; delta: integer): string; function decode(s: string; delta: integer): string; published end; implementation { TCaesar } function TCaesar.decode(s: string; delta: integer): string; var P: PChar; tmp: String; iDelta: Integer; iRealDelta: Integer; iNewOrd: Integer; begin tmp := ''; iDelta := delta; iRealDelta := 26; p := pointer(s); if P <> nil then while P^ <> #0 do begin if P^ in ['a'..'z', 'A'..'Z'] then begin iNewOrd := Ord(P^) - iDelta; if iNewOrd > 122 then Inc(iNewOrd, iRealDelta); if iNewOrd < 97 then iNewOrd := iNewOrd + 26; tmp := tmp + Chr(iNewOrd); end else tmp := tmp + P^; Inc(P); end; Result := tmp; end; function TCaesar.encode(s: string; delta: integer): string; var P: PChar; tmp: String; iDelta: Integer; iRealDelta: Integer; iNewOrd: Integer; begin tmp := ''; iDelta := delta; iRealDelta := 26; p := pointer(s); if P <> nil then while P^ <> #0 do begin if P^ in ['a'..'z', 'A'..'Z'] then begin iNewOrd :=Ord(P^) + iDelta; if iNewOrd > 122 then Dec(iNewOrd, iRealDelta); tmp := tmp + Chr(iNewOrd); end else tmp := tmp + P^; Inc(P); end; Result := tmp; end; end.
-
Das mit der Microsoft Lizensierung klingt wirklich interessant. Aber ich versteh nicht wie das Ablaufen soll. Ich habe Firmen gefunden die Partner von Microsoft sind ( hier in Essen) aber es scheint nirgendwo nen Kurs bzw. ein paket zu geben um MCAD zu werden. Überall gibt es nur einzelkurse für c++ oder Visual Studio, oder oder oder
Kann man sich nirgends zu einem Komplett kurs anmelden?
dragi
-
Hallo,
gibt es eigentlich auch Zertifizierungsprogramme für Anwendungsentwickler? Für Si´s gibts ja ne Menge: Die ganzen CISCO Sachen und Microsoft´s MCSE.
Kennt ihr da etwas, könnt ihr etwas empfehlen?
Vielen Dank
Dragi
-
Hallo,
ist es möglich bei einem Dell Axim 3 aus USA ein deutsches Betriebssystem drauf zu machen?
Vielen Dank
dragi
-
Hallo,
Ich habe ein Netzwerk das aus einem DSL Router und 3 Desktop PC´s besteht. Nun möchte ich einen Laptop in dieses Netzwerk bringen aber Wireless. Bluetooth ist zu langsam, also hab ich an W-Lan gedacht. Reicht es, in einen PC eine PCI W-Lan Karte zu stecken sodass der Laptop über diesen PC in das Netzwerk kommt?
Also ohne Hardware Access Point oder gar W-Lan Router?
Danke für die Hilfe
Dragi
-
Hallo,
ich brauche dringend eure Hilfe!
Ich soll bis Feierabend folgendes in VB realisieren, dabei hab ich weder Ahnung von VB noch von SQL:
Ich habe eine Datenbank in der habe ich 2 Tabellen.
Tabelle Art und Tabelle Pic. In der Tabelle Art gibt es die Spalte ID (Zahl) und die Spalte ArtNr (Text) und in der Tabelle Pic gibt es die Spalte ID(Zahl) und Name(Text).
Es gibt ca. 18.000 ArtNr(Artikelnummern) und ca. 6000 Namen. Diese 6000 Namen haben die gleiche Bezeichnung wie 6000 Artikelnummern. Beispiel: Es gibt die ArtNr: 1123 und den Namen 1123.
Nun soll in einer dritten Tabelle jeweils die ID von gleicher ArtNr und Namen zusammengefasst werden. Also 3 Spalten: Einmal die ID der neuen Dazensätze, einmal die ID der Art Tabelle und einmal die ID der Pic Tabelle.
Wie soll ich das anstellen?
Ich habe nun ein Formular mit einem Button. Dazu habe ich jetzt mit einem Modul begonnen:
'--- Öffnen der Hauptdatenbank (blabla_cd.mde)
Public Sub database_open()
strPasswort = "xxxxxxxxx"
Set blablaDB = OpenDatabase(App.Path & "\Datenbank\blabla_cd.mde", False, True, "MS ACCESS; PWD=" & strPasswort)
End Sub
Irgendwie soll ich nun das folgende Select Statement verwenden: Select Tab1.ID1, Tab2.ID2 from tab1, Tab2 where Tab1.ArtNr = Tab2.Name
Aber wie soll ich das in VB einbauen? Und wie krieg ich dann diese dritte Tabelle???
Bitte helft mir! Ist sehr wichtig!
Vielen, vielen Dank
dragi
-
Hallo,
ich hab ein Laptop mit Fedora und einen PC mit WinXP. Beide haben einen USB Dongel. Auf dem PC habe ich die Widcomm Software und auf Fedora Bluez installiert.
Bluetooth ansich funktioniert auch, ich kann Files hin und her senden etc.
Ich möchte jetzt aber die internetverbindung des PC auch für den Linux Laptop über Bluetooth nutzen. Wie mache ich das?
Wenn ich 2 Win Rechner habe, dann erstelle ich einfach eine Nullmodem Verbindung zwischen den beiden Bluetooth Dongels. Aber wie geht das mit Linux? Ich weiss einfach nicht weiter!
Need Help please
dragi
-
Hallo,
da ich nicht mehr weiter weiss, Frage ich jetzt hier. Ich habe ein Dell Latitude V466GT Geschenkt bekommen. Da es nur 64MB Speicher hat würde ich es gerne aufrüsten. Aber wo bekomme ich dafür noch Speicher? Es muss S0 SD Ram sein und PC 100 denn PC 133 nimmt es nicht an! Habt ihr ne Idee wo ich dafür noch Speicher bekomme?! Bitte kein ebay und nicht Dell (Die haben Horror Preise!!!)
Mit liebem Gruss
Dragi
-
So, ich habe jetzt alles gelöscht. Auf dem PC habe ich bei meiner Netzwerkkarte eingestellt das die Internet verbindung geshared werden darf. Habe auf dem laptop eine DFÜ Verbindung mit dem Bluetooth modem erstellt zu meinem PC. Jetzt habe ich zwar Internet aber bin nicht mehr im LAN. Wie kann ich jetzt noch das Laptop ins LAN kriegn?
Bin für jede Hilfe dankbar!
Dragi
-
jetzt hab ich alles gelöscht und weiss nicht mal mehr wie ich es hinbekomme das bei meinen Netzwerkverbindungen die BluetoothNullConnection auftaucht?! Wie krieg ich die denn nochmal aufgebaut?
Das Ding macht mich fertig...
-
Hallo,
ich habe Probleme damit meinen Laptop über Bluetooth zu meinem PC zu verbinden sodass ich mit dem Laptop auch surfen kann. Ich habe den PC aber an einem Router der sich per DSL einwählt. Ich habe mich an die Acer anleitung gehalten. Aber ich weiss nicht was ich bei der BluetoothNullConnection bei den VPN Diensten für einen Computernamen eingeben soll. Den des PC´s? Das geht nicht, dann klappt es nicht. Oder die IP der BluetoothNullConnection, oder des BluetoothLan Access Servers (Also Lan Verbindung) oder meiner Netzwerkkarte? Oder den namen des Laptop?
Kann mir jemand genau sagen wie ich es einstellen muss damit ich surfen kann, bitte! ISt sicherlich super simpel aber ich verzweifel hier gerade
Danke
dragi
-
Danke für die Antwort!
Es war auch ein langes Überlegen ob ich es mit oder ohne BS mache. Aber aufgrund meiner Vorbildung und meinem Fachwissen habe ich mich entschieden es ohne zu machen. Die Ausbildung mache ich auch nur zur Sicherheit kann man sagen, heute kann man nicht mehr so einfach Quereinsteigen und deshlab habe ich mich nochmal zu diesem Schritt entschieden! ...und ein klein wenig Hilfe bekomme ich hier doch bestimmt auch, oder ?
Und das soll hier nicht so klingen als wäre ich der Überflieger oder so, bitte nicht falsch verstehen! Bin nur nicht mehr der jüngste und plane alles sehr genau und überlegt und weiss was ich mir zutrauen kann und was nicht!
Und dieses Forum finde ich echt genial, viele Hilfsbereite Leute die immer nen guten Tipp zur hand haben! Echt klasse!
Gruss
dragi
-
Hallo,
Habt ihr Erfahrungen damit wie die Prüfer reagieren wenn jemand die Ausbildung ohne Berufsschule gemacht hat? Bleiben diese neutral oder versuchen die einen dann "fertig" zu machen?
Vielen Dank
dragi
-
Also ich hab da nen super Betrieb, der Chef gibt einem da WieSo unterricht und die ganze Theorie gibts in Büchern!!! Also ich sehe keinen Sinn in der BS, wenn man die Lust und den Willen hat sich das autodidaktisch beizubringen. Ist meine 2te Ausbildung und kann sagen das ich die BS in der ersten Ausbildung auch nciht gebraucht hätte.
Aber es muss jeder selbst Wissen, bedeutet natürlich das man sehr viel Lerndiziplin aufbringen muss.
Abe generell zu sagen ohne BS geht es nicht halte ich für falsch.......hatte ich nciht gesagt sollte keine Flamethread werden?!
-
THX,
im Berufsschulpflichtgesetz hab ich unter Abschnitt III §11 folgendes gefunden:
(1) Die Berufsschulpflicht dauert für Jugendliche und Erwachsene in der Regel solange ein Berufsausbildungsverhältnis besteht, das vor Vollendng des einundzwanzigsten Lebensjahres begonnen worde ist.
Somit sollten wir nun auch juristisch auf der sicheren Seite sein. Ich bin 24 habe Abitur, 2 Semester Maschbau und eine abgeschlossene Ausbildung hinter mir. Dann kann ich endlich ein meinem Tempo lernen..... ich finde die BS in Essen nämlich ziemlich frustrierend.....
Vielen Dank an euch
dragi
-
Hallo,
ich möchte jetzt hier keinen Flame thread in dem steht wie wichtig doch die Berufsschule ist, sondern hätte gerne gewusst wo man die rechtliche Grundlage findet, das man ab 21 Jahre nicht mehr die Berufsschule besuchen muss. Also laut IHK muss man, wenn man mit beginn der Ausbildung 21 Jahre alt ist die BS nicht mehr besuchen. Wo steht das schwarz auf weiss, hätte mein Chef gerne gewusst, möchte mich nämlich von der BS abmelden da mir das dort alles zu langsam ist, hat aber damit zu tun das ich schon sehr viele Vorkenntnisse habe......hoffe das kommt jetzt nicht arrogant rüber!
Könnt ihr mir helfen?
Gruss
dragi
-
Hallo,
kennt jemand ein Delphi tutorial in dem beschrieben ist wie ich auf eine Access Tabelle zugreife und vor allem, wie ich Daten dort reinschreibe? Irgendwie verstehe ich das nämlich noch nicht, hatte bis jetzt noch nichts mit Datenbanken zu tun!
Vielen Dank, bin für jeden Tip dankbar
Dragi
-
Hi,
ich brauche mal eure Hilfe!
Ich möchte ein memo oder besser Richedit von einer Datenbank (Access) einlesen lassen. Nun soll aber die Formatierung nicht verloren gehen ( Tabs und auch Fettschrift). Habt ihr eine idee wie man das anstellen kann?! Oder vielleicht auch andere Ideen ausser memo und Richedit?
THX
dragi
-
Danke an euch! Hat mir sehr gehlofen und es funktioniert jetzt auch!
THX
-
Hallo,
ich bin blutiger Delphi anfänger und habe ein Problem mit folgendem code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
a: Char;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToStr(Ord(a));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text := a;
end;
end.
Ich kann nun in das erste Edit Feld(Edit1) nichts eintippen?! Wieso nicht? Ich möchte das, das eigebene Zeichen in Edit1 als ASCII in Edit2 ausgegeben wird.
Vielen Dank für eure Hilfe
-
@Sekundus: Das mit dem löschen des GK treibers könnte klappen. Hab aber jetzt einfach XP nochmal als reparatur drüberinstalliert.
@wicklow: Es erscheint ja kein Standardmonitor im GM, und der unter eigenschaften lässt sich nicht ändern, alle Buttons grau eingefärbt. Aber da habe ich rausgefunden, das es daran liegen könnte, das ich den Monitor über BNC anschliesse, nicht über ein einfaches VGA KAbel.
Thx to all
-
...ich hab hier nur noch Röhrenmonitore. Das TFT war geliehen.
-
jetzt bitte nicht lachen, aber in dem Gerätemanager gibt es weder als Admin noch als User nen Einrag Monitor!? Danach hab ich als erstes geschaut! und unter Anzeige steht nur der Standard Monitor Treiber der sich aber nicht ändern lässt!
Ich verzweifel echt gleich. In Linux ist das meiner Meinung nach einfacher! Aber ich brauche nunmal auf diesem Rechner das XP!
weitere Ideen irgendwer?
-
Genau da liegt mein Problem, im abgesicherten Modus kann ich die Auflösung nur für diesen Zustand ändern! Wie komm ich denn an den treiber um diesen zu löschen? Wird mir im abgesicherten modus ja nicht angezeigt, nur die standard save treiber?!
Jemand noch ne Idee?
Exemplarisches Beispiel Delphi nach c++ Builder, bitte
in C++: Compiler, IDEs, APIs
Geschrieben
Vielen Dank!
Den genauen Code brauch ich auch nicht wichtig war mir der Aufbau! Und damit kann ich jetzt wenigstens etwas anfangen.
Danke
dragi