Bascom will nicht :-(

[king-sixXx]

Hi Leute!

Ich muss euch jetzt mal fragen, ich weiß nicht wo das Problem liegt:

Mein Bascom Quelltext sieht so aus:

$baud = 9600


Config Portb = Output

    Dim Zeichen As Byte

    Zeichen = 0

Rsabfrage:
Do
  Zeichen = Inkey()
Loop Until Zeichen <> 0

If Zeichen = 70 Then Gosub Machwas
If Zeichen = 80 Then Gosub Mach

Goto Rsabfrage


Machwas:
     Portb.1 = 1
Goto Rsabfrage


Mach:
     Portb.1 = 0
Goto Rsabfrage

Der Mega8 wartet auf das Signal von der RS232 und soll dann je nach Wert die Subroutine aufrufen... Das Signal kommt von folgendem Proggi mit Hilfe der Port.dll:

Private Sub Command5_Click()
SENDBYTE (80)
End Sub

Private Sub Command6_Click()
SENDBYTE (70)
End Sub

Sub form_load()
 i = OPENCOM("COM1,9600,N,8,1")                         'Schnittstelle COM1 öffnen
 If i = 0 Then
  i = OPENCOM("COM2,9600,N,8,1")                        'Wenn COM1 belegt COM2 öffnen
 End If
 If i = 0 Then MsgBox ("Schnittstelle nicht geöffnet!!")
End Sub

Leider tut sich agr nicht wenn ich das VB programm laufen lasse!

Vielen Dank im Vorraus!

[chr-mt]

Hast du keine $crystal Befehl drin ?
Ohne den werden die Baudraten nicht richtig berechnet.

Gruß
Christopher

[pebisoft]

brauchst du nicht im source-code eintragen. kannste auch im menue einstellen für das jeweilige programm. jedesmal wenn das programm geladen wird, wird auch die frequenz mit reingenommen.
mfg pebisoft

[Alter Knacker]

das sieht doch alles bloss nach pseudocode aus ?!?`

soll man sich da jetzt auskennen?
mfg knacki

[pebisoft]

du kannst auch die baudrate rauslassen und im menue einstellen für das jeweilige programm.
mfg pebisoft

Vielen Dank für die Antworten!
Ich hab $crystal unter options/Compiler/crystal frquency eingestellt...

@ knacki:
Das sollte schon richtiger Code sein... Sieht das so hoffnungslos aus??

[king-sixXx]

Das mit dem Auto-Login geht auch nicht....

[pebisoft]

bascom hat so seine versteckten eigenheiten, die lernt man erst im laufe der zeit kennen. Bascom ist für mich wie ein klavier. ich kann jede melodie darauf spielen. hat aber auch viel zeit gekostet. die habe ich aber als pensionär.
mfg pebisoft

[king-sixXx]

Das glaub ich dir gern... So viel Zeit hab ich leider nicht... Mir würde aber auch eine einfache Strophe reichen

Kannst du mir einen Tipp geben woran es liegen könnte?

Mfg
Benedict

[pebisoft]

du brauchst bei inkey keine do-loop schleife machen. Bascom bleibt da solange hängen bis eine taste gedrückt wird. mit inkey kannste keine baud-botschaft abfragen, geht nur über "input test". test ist ein string.
mfg pebisoft