Re: B4A problem z obsługą mikroprocesora

2015-12-20T18:45:15+01:00

bartek22031992 napisał(a):

Poprawione Panie Mirku mam tylko pytanie, jakiego syntaxu użyć dla kodu z B4A bo basic4gl nie widzę na liście.

W zasadzie nie ma to aż tak dużego znaczenia - jest tam jakaś składnia Basic - wystarczy ją zastosować i po kłopocie jak widać

Statystyki: Napisane przez mirekk36 — 20 gru 2015, o 18:45

Re: B4A problem z obsługą mikroprocesora

2015-12-20T18:38:54+01:00

Poprawione Panie Mirku mam tylko pytanie, jakiego syntaxu użyć dla kodu z B4A bo basic4gl nie widzę na liście.

Statystyki: Napisane przez bartek22031992 — 20 gru 2015, o 18:38

Re: B4A problem z obsługą mikroprocesora

2015-12-20T16:12:31+01:00

Czy czasem nie powinno to wyglądać tak?

[syntax=basic4gl]Sub bt_up_Down
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("a")
ast.Write(text)
End If

End Sub

Sub bt_down_Down
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("c")
ast.Write(text)
End If

End Sub

Sub bt_up_Up
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("b")
ast.Write(text)
End If

End Sub

Sub bt_down_Up
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("d")
ast.Write(text)
End If
End Sub[/syntax]

Statystyki: Napisane przez sz4t4n — 20 gru 2015, o 16:12

Re: B4A problem z obsługą mikroprocesora

2015-12-20T18:36:05+01:00

Witam dziękuje za zainteresowanie poniżej wklejam programy:

Program B4A

[syntax=java]#Region Project Attributes
#ApplicationLabel: Glowica
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim admin As BluetoothAdmin
Dim serial1 As Serial
Dim founddevices As List

Type nameandmac (name As String, mac As String)
Dim connecteddevice As nameandmac
Dim connected As Boolean
Dim ast As AsyncStreamsText
Dim tryb As Boolean
Dim text As String

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Private bt_panorama As RadioButton
Private bt_sphere As RadioButton
Private bt_up As Button
Private bt_left As Button
Private bt_start As Button
Private bt_right As Button
Private bt_down As Button
Private bt_connect As Button
Private bt_send As Button
Private bt_disconnect As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("sgs2")
Activity.Title="Glowica(brak połączenia)"
bt_panorama_CheckedChange(True)

If FirstTime Then
connected=False
admin.Initialize("admin")
serial1.Initialize("serial")
End If

enable_controls(connected)

End Sub

Sub Activity_Resume
If admin.IsEnabled =False Then
If admin.Enable=False Then
ToastMessageShow("Nie udało się włączyć bluetooth",True)
Else
ToastMessageShow("Włączam moduł bluetooth........",True)
End If

Else
admin_StateChanged(admin.STATE_ON,0)

End If

End Sub

Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
ast.Close
Activity.Finish
ExitApplication
End If
End Sub
'*********************************************************************************************
'-------------------------------bluetooth----------------------------------------

Sub admin_StateChanged (NewState As Int, OldState As Int)

End Sub

Sub admin_DiscoveryFinished
ProgressDialogHide
If founddevices.Size=0 Then
ToastMessageShow("Nie znaleziono urządzeń",True)
Else
Dim IL As List
IL.Initialize
For i=0 To founddevices.Size-1
Dim nm As nameandmac
nm=founddevices.Get(i)
IL.Add(nm.name)

Next
Dim res As Int
res=InputList(IL,"Wybierz urządzenie",-1)
If res <> DialogResponse.CANCEL Then
connecteddevice=founddevices.Get(res)

serial1.Connect(connecteddevice.mac)
ProgressDialogShow("Próba połączenia z: "&CRLF& connecteddevice.name)
End If

End If

End Sub

Sub admin_DeviceFound (Name As String, MacAddress As String)
Dim nm As nameandmac
nm.name= Name
nm.mac= MacAddress
founddevices.Add(nm)
ProgressDialogShow("Poszukiwanie urządzeń (znaleziono @)...".Replace("@", founddevices.Size))

End Sub

Sub serial_Connected (Success As Boolean)
ProgressDialogHide

If Success Then
ToastMessageShow("Połączono pomyślnie",False)
connected=True

If ast.IsInitialized Then ast.Close
ast.Initialize( Me, "ast", serial1.InputStream, serial1.OutputStream )
Else
ToastMessageShow("Połączenia nieudane",False)
connected=False
End If

enable_controls(connected)

End Sub

Sub ast_Error
ToastMessageShow( "Błąd strumienia: "& LastException.Message, True )
End Sub

Sub ast_Terminated
ToastMessageShow( "Połączenie zerwane!", True )
End Sub

'--------------------------funkcje użytkowe------------------------------------------------------
Sub enable_controls(onoff As Boolean)
bt_panorama.Enabled=onoff
bt_sphere.Enabled=onoff
bt_up.Enabled=onoff
bt_left.Enabled=onoff
bt_start.Enabled=onoff
bt_right.Enabled=onoff
bt_down.Enabled=onoff

bt_send.Enabled= Not (onoff)
bt_connect.Enabled= Not (onoff)
bt_disconnect.Enabled=onoff

If onoff=True Then
Activity.Title = "Glowica(połączono)"
bt_panorama.TextColor= Colors.White
bt_sphere.TextColor= Colors.White
bt_up.TextColor=Colors.White
bt_left.TextColor=Colors.White
bt_start.TextColor=Colors.White
bt_right.TextColor=Colors.White
bt_down.TextColor=Colors.White
bt_send.TextColor=Colors.Gray
bt_connect.TextColor=Colors.Gray
bt_disconnect.TextColor=Colors.White

Else
Activity.Title = "Glowica(brak połączenia)"
bt_panorama.TextColor= Colors.Gray
bt_sphere.TextColor= Colors.Gray
bt_up.TextColor=Colors.Gray
bt_left.TextColor=Colors.Gray
bt_start.TextColor=Colors.Gray
bt_right.TextColor=Colors.Gray
bt_down.TextColor=Colors.Gray
bt_send.TextColor=Colors.White
bt_connect.TextColor=Colors.White
bt_disconnect.TextColor=Colors.Gray

End If

End Sub

'------------------------------obsługa klawiszy-------------------------------------

Sub bt_start_Click
If tryb=True Then
ast.Write("i" & Chr(13) & Chr(10))
ProgressDialogShow("Wykonywanie panoramy")
End If

If tryb=False Then
ast.Write("j"& Chr(13) & Chr(10))
ProgressDialogShow("Wykonywanie sfery")

End If
End Sub

Sub bt_connect_Click
Dim pairedDevices As Map
pairedDevices = serial1.GetPairedDevices
Dim IL As List
IL.Initialize
For i=0 To pairedDevices.Size - 1
IL.Add( pairedDevices.GetKeyAt( i ) )
Next
Dim res As Int
res = InputList( IL, "Wybierz urządzenie", -1 )
If res <> DialogResponse.CANCEL Then
serial1.Connect( pairedDevices.Get( IL.Get( res ) ) )
End If
End Sub

Sub bt_send_Click
founddevices.Initialize
If admin.StartDiscovery=False Then
ToastMessageShow("Błąd w wyszukiwaniu urządzeń !!",True)
Else
ToastMessageShow("Wyszukiwanie urządzeń....",True)
End If
End Sub

Sub bt_disconnect_Click
serial1.Disconnect
ast.close
connected = False
enable_controls( False )

End Sub

Sub bt_panorama_CheckedChange(Checked As Boolean)
If Checked=True Then
tryb=True
End If
End Sub

Sub bt_sphere_CheckedChange(Checked As Boolean)
If Checked=True Then
tryb=False
End If

End Sub

Sub bt_up_Down
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("b")
ast.Write(text)
End If

End Sub

Sub bt_down_Down
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("d")
ast.Write(text)
End If

End Sub

Sub bt_up_Click
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("a")
ast.Write(text)
End If

End Sub

Sub bt_down_Click
If tryb=True Then
ToastMessageShow("Nie można zmieniać położenia osi w tym trybie",False)
Else
text=("c")
ast.Write(text)
End If
End Sub[/syntax]
Program nie dokończony c
[syntax=c]#include
#include
#include
#include

volatile uint8_t dir;
volatile uint8_t wychodzace;

#define LED1 (1<#define LED2 (1<#define LED1_ON PORTA |= LED1
#define LED1_OFF PORTA &=~LED1
#define LED2_ON PORTA |=LED2
#define LED2_OFF PORTA &=~LED2
//-----------------------------------------------------------------------------------------------------------------------
#define B11 (1<#define A11 (1<#define A21 (1<#define B21 (1<//------------------------------------------------------------------------------------------------------------------------
#define B12 (1<#define A12 (1<#define A22 (1<#define B22 (1<//------------------------------------------------------------------------------------------------------------------------

#define KROK11 PORTC |=A11|B11; PORTC &=~(A21|B21)
#define KROK21 PORTC |=A21|B11; PORTC &=~(A11|B21)
#define KROK31 PORTC |=A21|B21; PORTC &=~(A11|B11)
#define KROK41 PORTC |=A11|B21; PORTC &=~(A21|B11)

#define KROK12 PORTC |=A12|B12; PORTC &=~(A22|B22)
#define KROK22 PORTC |=A22|B12; PORTC &=~(A12|B22)
#define KROK32 PORTC |=A22|B22; PORTC &=~(A12|B12)
#define KROK42 PORTC |=A12|B22; PORTC &=~(A22|B12)

static void silnik1_stop(void);
static void kroki1_lewo(void);
satic void kroki1_prawo(void);

static void silnik2_stop(void);
static void kroki2_lewo(void);
static void kroki2_prawo(void);

enum edir {lewo,prawo,stop};
enum edir kier=stop;

static void silnik1_stop(void){
PORTC &=~(A11|B11|A21|B21);

}

static void silnik2_stop(void){
PORTC &=~(A12|B12|A22|B22);

}

static void kroki1_lewo(void){

}
static void kroki1_prawo(void){

}
static void kroki2_lewo(void){

}
static void kroki2_prawo(void){

}
void USART_Init(void)
{
//definiowanie parametrów transmisji za pomocą makr zawartych w pliku
//nagłówkowym setbaud.h. Jeżeli wybierzesz prędkość, która nie będzie
//możliwa do realizacji otrzymasz ostrzeżenie:
//#warning "Baud rate achieved is higher than allowed"

#define BAUD 9600
#include

UBRRH = UBRRH_VALUE;
UBRRL = UBRRL_VALUE;
#if USE_2X
UCSRA |= (1< #else
UCSRA &= ~(1< #endif

UCSRC = (1< UCSRB = (1<
}

void USART_Transmit(void)
{
while (!(UCSRA & (1< UDR= wychodzace;
}

void move(volatile uint8_t dir)
{
switch(dir)
{
case 97:
LED1_ON;
break;

case 98:
LED1_OFF;
break;

case 99:
LED2_ON;
break;

case 100:
LED2_OFF;
break;

}
}

void init()
{

/* USTAWIANIE WYJŚĆ */
DDRA |= (1< PORTA =0b00000000;

}

int main(void)
{
volatile uint8_t dir;

init(); // inicjalizacja
USART_Init(); // inicjalizacja usarta
while(1){
dir=UDR;
move(dir);

}

}[/syntax]

Statystyki: Napisane przez bartek22031992 — 20 gru 2015, o 15:51

Re: B4A problem z obsługą mikroprocesora

2015-12-20T12:35:23+01:00

Cześć,

pokaż więcej kodu.

Statystyki: Napisane przez sz4t4n — 20 gru 2015, o 12:35

B4A problem z obsługą mikroprocesora

2015-12-20T18:37:19+01:00

Witam szanownych forumowiczów.
Otóż mam następujący problem aplikacja którą napisałem nie działa w sposób prawidłowy w połączeniu z modułem HC-05 i mikrokontrolerem atmega 16.
W samej aplikacji do obsługi klawisza używam dwóch poleceń

[syntax=java]sub klawisz_Click

ast.write("a")

end sub

sub klawisz_down

ast.write("b")

end sub[/syntax]
Natomiast w aplikacji na mikroprocesor obsługuje odebrane dane za pomocą funkcji "switch" i wygląda to tak:

[syntax=c]case kod ascii litery a;
LED1_ON;
break;

case kod ascii litery b;
LED1_OFF;
break;

W taki sam sposób mam napisaną obsługę drugiego klawisza z tym że korzystam z liter "c" i "d"[/syntax]Moi zamiarem było uzyskać efekt taki że dioda świeci tak długo jak wciśnięty jest klawisz na ekranie puszczenie go powoduje wyłączenie diody
Problemem jest fakt że gdy wciskam jeden klawisz i puszce wszystko jest ok natomiast gdy próbuję użyć drugiego klawisza to dioda 1 się załącza a druga działa poprawnie i to samo gdy wciskam klawisz 1 to dioda 2 się załącza a 1 działa poprawnie. Dodam że gdy oprócz znaku wyśle znak końca lini to w momencie wciśnięcia klawisza aplikacja zostaje zatrzymana i się wyłącza.

Bardzo proszę o pomoc i z góry dziękuję.

Statystyki: Napisane przez bartek22031992 — 20 gru 2015, o 12:13

ATNEL tech-forum

Re: B4A problem z obsługą mikroprocesora

Re: B4A problem z obsługą mikroprocesora

Re: B4A problem z obsługą mikroprocesora

Re: B4A problem z obsługą mikroprocesora

Re: B4A problem z obsługą mikroprocesora

B4A problem z obsługą mikroprocesora