Thema: new project
Einzelnen Beitrag anzeigen
Alt 25.01.2005, 12:52   #4
AOG
Veteran
 
Registriert seit: 16.09.2004
Beiträge: 438


Standard Re: new project- mit Problemen

Zitat:
Original geschrieben von Schildi
2. Programierung:

also ganz großes Problem. Man könnt fast meinen Weltuntergang . Ich habe mir schonmal ein kleines COM-Board gekauft, und hab dort ma nen schalter drangebastelt. Der schalter wird auch erkannt und prima und so, aber das Problem ist, wie bekomme ich zum Flusi, das der schalter an ist. Ich habe es also mit Visual Basic programiert, aber irgendwo baue ich richtig mist. Denn der Flusi bekommt immer (egal welche funktion ich nehme, oder wie ich es programiere) die Anweisung "0" geschickt. Was mach ich falsch?

Code:
If FSUIPC_Write(&H262, 2, VarPtr(Pause), dwResult) Then
  If FSUIPC_Process(dwResult) Then
   If DTR() = 0 Then
Pause = 1
   End If
   If DTR() = 1 Then
Pause = 0
   End If
  End If
End If
Hi!

Hmm da würd ich einige sachen ändern...

1.

Ganz oben im VB projekt folgendes eingeben
Code:
Dim Pause As Integer
weil so wie du das geschrieben hast ist Pause eine Double, ein Double hat aber 8byte ...das heisst es kann leicht sein dass die zwei Byte die du dem FSUIPC übergibst 0 sind...

Ein Integer hat 2 byte dann wird mit dem obigen statement auch alles richtig übergeben

Zweitens würd ich den FSUIPC aufruf wie folgt machen
Code:
If FSUIPC_Write(&H262&, 2, VarPtr(Pause), dwResult) Then
weil mit dem "&" danach weiß VB dass ein long pointer übergeben werden
soll, wir hier vielleicht kein problem sein aber bei anderen adressen schon

Was macht DTR() ?


mfg

florian
____________________________________
Digital Aviation Fokker 70/100
http://www.digital-aviation.de

MSFS Weather Radar Solutions
http://www.addongauges.com
AOG ist offline   Mit Zitat antworten