Hot News:

Unser Angebot:

  Foren auf CAD.de
  VBasic / vb.net / vbs / wsh
  Werte eingeben und anhängen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs
Autor Thema:  Werte eingeben und anhängen (382 mal gelesen)
ehlers
Mitglied
Ingenieur


Sehen Sie sich das Profil von ehlers an!   Senden Sie eine Private Message an ehlers  Schreiben Sie einen Gästebucheintrag für ehlers

Beiträge: 1432
Registriert: 05.11.2001

2001-Creo 2.0

erstellt am: 14. Jun. 2002 17:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo liebe Programmierer,
Da ich von VBasic keine Ahnung habe aber eine kleine Aufgabe lösen möchte, richte ich sie mal an Euch.
Ich möchte ein Progrämmchen erstellen das eine Abfrage macht, den Eingabewert an eine Datei anhängt und ausführt.
Ablauf im Detail:
Ich starte das Programm
Programm fragt: welche Datei wollen sie konvertieren?
Eingabe könnte sein "Teil1.prt"
Diesen Wert nimmt das Programm und führt eine bereits bestehende Datei "austausch.bat" mit Erweiterung "Teil1.prt" aus.
Das Komando lautet somit komplett "austausch teil1.prt"
Der Rest läuft schon.
Das Programm kann sich schließen und fertig.

Ist das sehr kompliziert? geht das überhaupt?

Wie gesagt habe keine Ahnung von VBasic aber ne Menge Unities!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Erwin
Mitglied
CAD-PDM-Admin


Sehen Sie sich das Profil von Erwin an!   Senden Sie eine Private Message an Erwin  Schreiben Sie einen Gästebucheintrag für Erwin

Beiträge: 245
Registriert: 03.11.2000

erstellt am: 14. Jun. 2002 17:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ehlers 10 Unities + Antwort hilfreich


Beispiel.zip

 
Dürfte eigentlich kein Problem sein.
Hab Dir die Quelle und eine Exe davon dran gehängt (falls Du kein VB haben solltest) - die setzt aber noch vorraus, daß die austausch.bat im selben Pfad wie die Exe steht.

...

Achja...Routinen zur Fehlerbehandlung sind natürlich keine drin.
Also abfangen, wenn keine Datei selektiert wurde, was andres gewählt wurde oder die Austausch.bat nicht da ist. Bevor Du die also einem Anwender unterjubelst, solltest Du mit den Dümmsten rechnen ;-).

Private Sub Command1_Click()
    CommonDialog.FileName = ""
    CommonDialog.DialogTitle = "Select Part"    'Fenster-Überschrift
    CommonDialog.Filter = "Part|*.prt"  'Filter für das Dialog-Fenster
    CommonDialog.ShowOpen
    If CommonDialog.FileName = "" Then Exit Sub
    Text1.Text = CommonDialog.FileName
End Sub
Private Sub Command2_Click()
    Shell "austausch.bat" & Text1.Text
    'Shell "notepad.exe" & Text1.Text
End Sub

[Diese Nachricht wurde von Erwin am 14. Juni 2002 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ehlers
Mitglied
Ingenieur


Sehen Sie sich das Profil von ehlers an!   Senden Sie eine Private Message an ehlers  Schreiben Sie einen Gästebucheintrag für ehlers

Beiträge: 1432
Registriert: 05.11.2001

2001-Creo 2.0

erstellt am: 14. Jun. 2002 18:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Leider läuft es nicht. Es kommt eine Fehlermeldung:
Comdlg32.ocx or one of its dependencies not correctly registred a file is missing or invalid.
Bin noch ein bischen am Arbeitsplatz. Vielen Dank schon mal für die Hilfe!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ble
Mitglied
 


Sehen Sie sich das Profil von ble an!   Senden Sie eine Private Message an ble  Schreiben Sie einen Gästebucheintrag für ble

Beiträge: 175
Registriert: 18.02.2002

erstellt am: 14. Jun. 2002 19:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ehlers 10 Unities + Antwort hilfreich


Test.zip

 
Hallo ehlers,

die Aufgabe sollte kein Problem sein. Ich denke das angehängte Beispiel hilft Dir weiter.

Gruss BLE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Erwin
Mitglied
CAD-PDM-Admin


Sehen Sie sich das Profil von Erwin an!   Senden Sie eine Private Message an Erwin  Schreiben Sie einen Gästebucheintrag für Erwin

Beiträge: 245
Registriert: 03.11.2000

Job: Inventor 2022, AutoCAD 2022, CATIA V5R2018, Solidworks 2022
Privat: Blender 3D, Sketchup

erstellt am: 15. Jun. 2002 00:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ehlers 10 Unities + Antwort hilfreich

Hi,

sorry - da hab ich wohl einen kleinen typischen Programmiererfehler gemacht: vorrausgesetzt, daß alle so (in unserem Laden halt Standard-)Komponenten installiert haben. Aber vermutlich ist Dir ja nun trotzdem geholfen  ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ehlers
Mitglied
Ingenieur


Sehen Sie sich das Profil von ehlers an!   Senden Sie eine Private Message an ehlers  Schreiben Sie einen Gästebucheintrag für ehlers

Beiträge: 1432
Registriert: 05.11.2001

erstellt am: 17. Jun. 2002 09:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Suuuuuuuuuuuper!
Vielen Dank an ble und Erwin.
Das Programm läuft und es sieht schöner aus als unbedingt notwendig.
Vielleicht ein kleiner Schritt für, aber ein großer Fortschritt für mich!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz