Visual-Basic-Forum VB-Paradise.de

ja wollte es gestern abend testen aber irgendwie habe ich proplemme mit der inpout 32 .dll datei habe sie in den ordner system 32 ordner reinkopiert wollte sie dann registrieren aber dann bekomme ich immer die meldung das er sie nicht gefunden hat .

OK ICH VERSUCH ES MAL

Hab da mal noch eine frage wenn ich das jetzt alles anschliese kann ich mir dann nichts zerschießen oder
ok habe es versucht der motor dreht sich wenn auch langsam aber wichtick ist ja erst mal das es funktioniert.

ja läuft die x achse arbeit ich werd mich heute noch mal hinsetzen und das programm weider ausbauen und versuche es dann heute abend hier reinzusetzen .kennst du das programm mach 3.
wie kann ich es jetzt schreiben das wenn der knopf nicht gedrückt ist das dann in textbox1 die Fehlermeldung kommt material in Reserve und wenn sich innerhalb von 30 sek. weiterhin nicht tut dann soll in textbox 2 die fewhlermeldung " Material aufgebraucht" ERSCHEINEN und die maschiene soll stehen bleiben bis ich wiederherstellen drücke.sie soll dann dort weiter wo sie stehen geblieben ist .

so ein alten laptop habe ich leider nicht mehr hab schon öfters geschaut aber ist richtig schwer noch einen zu bekommen.sag mal bekommst du es irgendwie hin das man die umdrehungszahl anhand einews labels siieht von allen viern achsen .

Die maschiene kann ich nur so bauen wie ich auch die motoren steuern kann bzw die knöpfe vorhanden sind .
die maschiene besteht auf jeden fall mit eine einen karusell das vier punkte hat und einer der punkte muß immer einen schalter berühren wenn es sagen wir x100 ereicht hat, soll der schalter gleichzeitig nach jeder drehung die stückzahl um 2 erweitern. also immer 2 dazu addieren.bzw weise den programm sagen x100 wurde erreicht und das programm fortsetzen.wist ihr was ich meine.

Hallo melde mich mal wieder sorry habe nicht viel zeit mehr deswegen auch nur selten hier drinne . jetzt bruch
e ich noch mal eure hilfe und zwar möchte ich mal was ganz einfaches versuchen .ich habe einen taster mit 2 träten den möchte gerne an die seriele schnittstelle anschliessen den brauche ich zum auslösen einer bestimmten tätigkeit.z.b.wenn Fenster offen und der der taster nicht gedrückt ist dann soll in textbox1 die meldung kommen fenster offen wenn der taster getrückt ist soll es leer textbox1 leer bleiben.
hat da jemand ein kleines beispiel oder eine verlinkung wo es auch funktioniert.
würde mich über jede schnelle hilfe freuen da ich auch immer nur wenig zeit habe .
mfg schlappy

mit was würdest du es mir denn empfehlen das zu schreiben was ist mit c++ wäre das besser weil wenn ja muß ich wieder alles neu lernen.
ich glaub ich brauch da mal ein bischen hilfe mit den deklarieren also da blick ich nicht ganz wirklich durch so den rest begreif ich schon.zumindest weiss ich so halb wegs.

ok ja wie du ja weist muß ich erst mal mit den 25 poligen stecker arbeiten. so aber jetzt muß ich mich erst mal mit den deklarieren beschäftigen . wenn ich jetzt den programm schreiben will das der erste bit zum auslesen des schalters sein soll wie du ich das deklarieren .ich hatte mal was bei euch im vorum gefunden aber da mekert er rum und sagt mir das da was noch nicht deklariert wurden ist .
gruß schlappy

hallo brauche noch mal hilfe die schnittstelle konnte ich jetzt an sprechen ein und ausgang funktionieren nur leider immer nur wenn ich
form1 neu hoch fahre.also so gesagt es aktualliert sich nich von alleine wenn ich den schalter drücke bei geöffneter form passiert nichts.
wo muss ich den code hinsetzen damit das klappt.
p.s. ich habe kein bitwackeln und kein portDLL nur die input.dll datei .
über eine schnelle antwort würde ich mich sehr freuen damit ich schnell weiter machen kann .
mfg schlappy

Private Sub türstatusprüfen()
Init_LPT(LPT.LPT1)
Schreibe_DatenByte(223)
Schreibe_DatenBit(LPT_Daten_Pin.Data0, False) 'Pin 2 und 12 Pin 2 ist auf aus gestellt am schalter türe zu mascine kann laufen
If Lese_InputBit(LPT_Input_Pin.PE) = False Then
TextBox5.AppendText("LED aus" & "-Tür Geschlossen") 'Pin 7 und pin 25 pin 7 peträgt 0v
Schreibe_DatenBit(LPT_Daten_Pin.Data5, False)

Else
If Lese_InputBit(LPT_Input_Pin.PE) = True Then 'Pin 2 und 12 Pin 2 ist auf an gestellt am schalter türe offen also maschiene stop
TextBox5.AppendText("Tür offen" & "-LED an") 'Wenn der schalter nicht getrückt ist geht LED an
Schreibe_DatenBit(LPT_Daten_Pin.Data5, True) 'Pin 7 und pin 25 pin 7 peträgt 5v
End If
End If
Schreibe_KontrollString("00001001")

End Sub

das ist der code den ich geschrieben und den habe ich wie schon erwähnt in der load form drin.
angeschlossen ist alles am 25 poligensub stecker. kann es sei das es in ventuell auch an schreibe_kontrollString liegt


Warnung 1 Die Ausgabe-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten.
Private Function Byte2String(ByVal Wert As Byte) As String
Dim zähler As Integer
Dim Ausgabe As String
For zähler = 7 To 0 Step -1
If Wert >= 2 ^ zähler Then
Ausgabe = Ausgabe & "1" 'und hier kommt die warnung hin
Wert = Wert - 2 ^ zähler
Else
Ausgabe = Ausgabe & "0"
End If
Next
Byte2String = Ausgabe
End Function