Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Problem mit erstellen einer Rechenaufgabe

Mitglied: Unwissend

Unwissend (Level 1) - Jetzt verbinden

25.04.2006, aktualisiert 20:01 Uhr, 3790 Aufrufe, 2 Kommentare

Hallo,

ich habe folgendes Problem ( für mich zumindestens ), ich möchte mir ein Programm schreiben mit dem ich den Minimalen Verschnitt berechnen kann. Ich habe soweit alles fertig, bis auf das Sortieren der Maße und der Rechnung halt.

Also ich gebe ein das ich z.B. 30 stck einer 6000 mm lange Dachlatte zur verfügung habe,
weiter gebe ich dann ein wie dick mein Sägeblatt ist idR. 15 mm, weiter gebe ich ein das ich für mein Projekt 3 stck von 300 mm, 2 stck von 450 mm und 10 stck von 535 mm länge brauche.
Jetzt soll das Prog mit der größten länge anfangen und mir den min Verschnitt ausgeben, sprich 10x 535 mm + 1x 450 mm aus der 6000mm stange schneiden und 3x 300 mm und 1x 450 mm länge aus einer 6000mm stange schneiden, am ende möchte ich die gesamt stangen haben die von den 6000mm bräuchte und den Gsamtverschnitt den ich habe.

Ich möchte keine Komplettlösung, ich brauche nur einen Codeschnipsel oder bzw. einen Anfang oder so ähnlich, etwas halt worauf ich aufbauen kann.

Mfg

der Unwissende (Marc)
Mitglied: Biber
25.04.2006 um 14:01 Uhr
Moin marc,
dann poste doch wenigstens den Ansatz (das Roh-skriptchen mit den Variablennamen), dann brauchen wir nicht alle Räder neu zu erfinden.

Gruß Biber
Bitte warten ..
Mitglied: Unwissend
25.04.2006 um 20:01 Uhr
So, hier mal ein kleiner Ausschnitt aus dem Prog:

Private Sub stangl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
b = stangl.Text
c = klemm.Text
verwend.Text = b - (c * 2)
stanlstck.SetFocus
End If
End Sub

Private Sub stanlstck_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
b = stangl.Text
c = klemm.Text
verwend.Text = b - (c * 2)
optstanl.SetFocus
End If
End Sub

Private Sub optstanl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
b = stangl.Text
c = klemm.Text
verwend.Text = b - (c * 2)
optstanlstck.SetFocus
End If
End Sub

Private Sub optstanlstck_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
b = stangl.Text
c = klemm.Text
verwend.Text = b - (c * 2)
klemm.SetFocus
End If
End Sub

Private Sub klemm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
b = stangl.Text
c = klemm.Text
verwend.Text = b - (c * 2)
schnittbr.SetFocus
End If
End Sub

Private Sub schnittbr_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
posi.SetFocus
End If
End Sub

Private Sub laenge_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
stck.SetFocus
End If
End Sub

Private Sub stck_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
sart.SetFocus
End If
End Sub

zur Erklärung:
stangl.Text = Variable Länge der Dachlatte

stanlstck.text = Für den Fall das nur eine bestimmte Menge der Dachlatten zur Verfügung steht

optstanl.text = Für den Fall das eine zweite Länge von Dachlatten zur Verfügung steht

optstanlstck.text = Stückzahl der zur Verfügungstehenden zweiten Länge

klemm.Text = nicht Verwendbare Länge die von stangl.Text abgezogen wird

verwend.Text = Wirklich Verwendbare Länge der Dachlatten

schnittbr.Text = Verschnitt durch Sägeblatt bei jedem Sägen

laenge.Text = Länge die ich benötige

stck.Text = Stückzahl der Länge die ich benötige

Die Daten Sammel ich in einem FlexGrid, die Daten sollen in einer ListBox nach Größe sortiert werden (arbeite ich gerade dran), die berechnung soll so aussehen das immer das längste benötigste stück zuerst abgezogen wird bis die stückzahl auf null steht, danach das dann noch längste benötigte stück, usw. Es wäre schön wenn man mitreinbringen könnte das ein max. verschnitt wenn möglich von 1,5 % erreicht wird bei jeder stange.
Kein wunder das ich da nicht klar komme, oder?

DANKE für die Hilfe zu einer Lösung. Wie schon gesagt, keine Komplettlösung, nur einen Ansatz mit dem ich weiter Arbeiten kann.
Bitte warten ..
Ähnliche Inhalte
Windows Server
Ordner erstellen Problem
gelöst Frage von IrgendEinNameWindows Server3 Kommentare

Hallo, folgendes Problem. Aktueller Ist Zustand: Auf dem TS 2016er habe ich ein Ordner für alles Benutzer freigegeben. Dieser ...

Windows Netzwerk

WDS-Problem - Erstellen eines Installationsabbildes

Frage von GschenkWindows Netzwerk2 Kommentare

Ich habe auf einen Win2012R2 Server WDS laufen und es funktioniert soweit auch. Jetzt habe ich aber das Problem, ...

Microsoft Office

Access Problem beim Bericht erstellen

Frage von terpeberiMicrosoft Office1 Kommentar

Hallo, ich bin neu hier und mit Access fleißig am arbeiten. Ich habe die Aufgabe eine Bestelldatenbank zu erstellen. ...

Basic

Visual Basic Dienste Service erstellen Problem

Frage von DeBiggingBasic1 Kommentar

Hallo, habe ein kleines Problem mit einem erstellten Visual Basic Dienst. Der Dienst soll eine auf dem System befindliche ...

Neue Wissensbeiträge
Windows 10

Kumuative Updates für .NET Framework kommen für Windows 10 V1809

Information von kgborn vor 3 StundenWindows 10

Microsoft hat das Ganze im Beitrag Announcing Cumulative Updates for .NET Framework for Windows 10 October 2018 Update vorgestellt. ...

Sicherheit
Neue IT-Administrator Ausgabe - Endpoint Security
Information von Frank vor 4 StundenSicherheit

Die Endgeräte in Unternehmen stellen das wohl größte Einfallstor für Angreifer dar. Ein geöffneter, infizierter E-Mail-Anhang oder der Besuch ...

Windows Tools

Windows 10 BitLocker Laufwerkverschlüsselung ohne TPM-Chip

Anleitung von Frank vor 4 StundenWindows Tools3 Kommentare

Diese Anleitung zeigt, wie man die Windows BitLocker Laufwerkverschlüsselung ohne TPM-Chip Schritt für Schritt aktiviert. Zwar haben viele Laptops ...

Sicherheit

Interessante Methode für Leute, die in einer Windowsdomäne starke Kennwörter erzwingen wollen

Information von DerWoWusste vor 9 StundenSicherheit3 Kommentare

Dieser Artikel beschreibt, wie man auch ohne 3rd-party-tools die Kennwortsicherheit in Windows-Domänen erhöhen kann. Der Grundgedanke lautet: wir prüfen ...

Heiß diskutierte Inhalte
Hyper-V
Windows Serer 2016 Standard virtualisieren
gelöst Frage von fritte87Hyper-V33 Kommentare

Hallo zusammen, ich muss für eine kleine Firma ein entsprechendes neues kleines Konzept bauen. Ich habe einen Server Standard ...

Windows Server
Kann DNS-Einträge nicht finden
gelöst Frage von BPeterWindows Server19 Kommentare

Hallo, wenn ich folgenden Befehl absetze, bekomme ich eine Liste zurück mit allen Einträgen der DNS-Zone. Wenn ich aber ...

Firewall
Externer Zugriff auf Webserver
Frage von KingLouieFirewall12 Kommentare

Hallo zusammen, ich habe folgendes Problem: Ein Kollege muss gelegentlich auf einen Webserver zugreiffen, sowohl von intern als auch ...

Voice over IP
Umstellung Anlagenanschluss ISDN auf IP - Welcher Router?
Frage von ToniSchmidtVoice over IP12 Kommentare

Hallo zusammen, zum Ende des Jahres werden unsere geliebten ISDN Anlagenanschlüsse zwangsweise auf IP Anschlüsse umgestellt. Wir betreiben die ...