Sceptycznie podchodzę do nowości, ale z ciekawości zainstalowałem ostatnią wersję Bascoma oznaczoną jako 1.11.9.3, która de facto przy uruchamianiu i tak pokazuje się jako 1.11.9.2.
Dotychczas pracowałem na wersji 1.11.8.7. Dodam, że są to pełne i legalne wersje.
I tutaj niespodzianka.
Program po skompilowaniu zachowuje się zupełnie inaczej. Przynajmniej w symulatorze (F2)
Poniżej naklepałem banalnie prostą procedurę. Nie już chodzi o to do czego służy. W przypadku dwóch wersji daje u mnie dwa różne rezultaty.
Oczywiście po uprzednim skompilowaniu programu na każdej osobno. Czy ktoś mógłby to sprawdzić u siebie, zanim poślę informację Panu Albertsowi??
Wystarczy ją przekleić, skompilować i zasymulować (F2).
W przypadku wersji 1.11.8.7, na niebieskim ekranie symulatora wyskakuje prawidłowe 1032547698F0 natomiast w przypadku wersji 1.11.9.3 tylko 10.
Dodam również, że kompilacja na 1.11.8.7 i późniejsze otwarcie na 1.11.9.3 daje prawidłową symulację. Skompilowanie zmienia już rezultat.
Pozdrawiam
Kod: Zaznacz cały
$regfile = "M32def.dat"
Dim I As Byte
Dim J As Byte
Dim K1 As Byte
Dim String1 As String * 1
Dim String2 As String * 14
String2 = "01234567890"
For I = 1 To 11 Step 2
J = I + 1
If J >= 11 Then
Print "F";
Else
String1 = Mid(string2 , J , 1 )
K1 = Asc(string1)
Print Chr(k1);
End If
String1 = Mid(string2 , I , 1 )
K1 = Asc(string1)
Print Chr(k1);
Next
End
