Suchen:

Eigentlich wolte ich nur etwas machen, was das ganze für mich verständlich macht, bzw. die Funktinen erklärt. Aber ich bin scheinbar übers Ziel hinaus geschossen.
Nehmen wir mal ein neues Beispiel...

Nach einiger Zeit Pause bin ich wieder dran. Es klappt immer noch nicht. Normale Testprogramme laufen einwandfrei, also funktioniert sowohl die Funk-Seite als auch die RS232-Seite.

irgendwas stimmt da noch nicht. Ich kriege am PC nicht mal Anzeige für den Input...
Und jetzt, wo ich es schreibe, überlege ich mir folgendes: von welcher Schnittstelle erwartet es Input?...

Hat super geklappt! Immer wieder schön zu sehen, dass neben guter Software auch Serviche super ist!

bis dann,
Nico

habe ich gerade gemacht und abgeschickt. Soll wohl klappen :-)

Danke für die Tipps!

bis dann, Nico

ja, bin gerade dabei. Mein Englisch ist sch...e :-)
Aber irgendwie klappt es schon...

Hallo!
Ich habe BASCOM 1.11.7.7 mit Seriennummer XX-XXXX-XXXX3 gekauft. Vermutlich aus Versehen wurde es mit XX-XXXX-XXXX4 registriert. Jetzt kann ich zwar LIC-Files runterladen, aber nicht updaten....

leider funktioniert es nicht...

so sieht mein Programm aus:

' ---------------RN-Mega128Funk übliche ----ANFANG--------------

$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 40...

Ich werde heute die 128funk aus dem Büro abholen und dann mal testen...

Hallo!
Ich möchte ein kleines Programm schreiben, wo der 128funk Daten über Funk sendet und empfängt.
Zum Beispiel habe ich 2 PC's, die über RS232 mit 128funk verbunden sind, und damit soll eine...

Hier ist fertiges VBA-Programm.
Als Vorlage diente die Excel-Datei von SIGINT, die er in diesem Forum gepostet hat.

bis dann,
Nico

so klappt es!!!


Private Sub UserForm_Activate()
While userform1.Visible
DoEvents
Label1.Caption = ReadAllDigital
DoEvents
Wend
End Sub

Kann es sein, dass die Sub
Sub scan_DigitalAll()
Dim i As Integer
Dim a As Long
a = ReadAllDigital
Do While i < 1000
Label1.Caption = a
i = i + 1
Loop
End Sub

Ich habe folgendes eingegeben:

Sub scan_DigitalAll()
Dim i As Integer
Dim a As Long
a = ReadAllDigital
Do While i < 1000
Label1.Caption = a
i = i + 1
Loop

Irgendwie will es nicht...
So habe ich es drin (ohne Adress-Routinen und sonstiges):


Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare...

So, ich schreibe folgendes:


Private Sub Label1_Click()
Label1.Caption = ReadAllDigital
End Sub

Dann wird der Wert als Label auch angezeigt, aber nicht permanent, sondern wird nur beim...

Ja, ich habe mein Problemm etwas falsch beschrieben...
Ich weiss wie ich die Werte rauskriege, weiss aber nicht wie die Anweisung ausehen soll, damit ich zum Beispiel ReadAllDigital als Wert durch...

Hallo!

Den Thread habe ich schon gesehn, nur leider werden im Beispiel nicht die Eingänge angesprochen...
Und die Suche habe ich auch schon benutzt, leider war nichts dabei...

bis dann,
Nico

Hallo!
Wie kann ich mit VBA die Eingänge des K8055 lesen und Zustand darstellen, z.B. mit CheckBox?

bis dann,
Nico

Ich habe es gerade auch festgestellt.
Es ergibt sich folgender Code:

Config Portf = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc



Dim Joy1x As Integer
Dim Joy1x_temp As...

Ja, aber was bringt mir das ?
Die Berechnung Joy1x_skal = (joy1x / (-5.04)) + 100 + 0.6 muss ich immer noch machen.
Und ich suche immer noch nach der richtiger Schreibweise für die Formel, dann...

Was meinst Du genau damit?
Die Berechnungen müssen ja trotzdem gemacht werden, weil jedes einzelnes Wert umgerechnet werden muss (analog halt)

Ich glaube, ich habe es berechnet. Für die Berechnung der erforderlichen Werte habe ich kleine Excel-Tabelle erstellt. In letzter Spalte wird Ergebniss der Berechnung angezeigt. Über die Formel kann...

Hallo!

Ich habe den JoyPad am AVR angeschlossen.
Ich möchte gerne dass bei Nullstelung des Joysticks die Variable im Programm Wert 0 hat. Wenn der Joystick nach oben bewegt wird, soll der Wert...

So, den JoyPad an Buchse LCD des RN-128Funk angeschlossen, und folgendes Code eingegeben:

' ---------------RN-Mega128Funk übliche ------------------

$regfile = "m128def.dat" ' Bei Mega 128 "...