Forum Sains Indonesia




*

Artikel Sains

Aku Cinta ForSa

ForSa on FB  ForSa on Twitter

Pranala Luar

ShoutBox!

Last 10 Shouts:

 

Sandy_dkk

Kemarin jam 01:36:12 PM
bukan rumit kang Farabi, tapi memang tidak bisa.

peterkusuma

Agustus 25, 2014, 10:03:23 PM
Teman2, ada yg tau kelarutan aluminium klorida dalam benzena ga?
Thx
 

Farabi

Agustus 25, 2014, 01:42:52 AM
Jadi penasaran, bisa ga tuh dipecahkan? Perkalian ya bukan pertambahan. Rumit banget kayaknya.
 

Sandy_dkk

Agustus 24, 2014, 11:58:59 PM
oh, ada yg nanya to d bawah? saya gak liat.
ada 3 variabel dan hanya ada 1 persamaan, maka mustahil mengetahui nilai setiap variabel. kecuali yang ditanyakan adalah hasil operasi dari variabel-variabel tsb, formula operasi tertentu masih mungkin ketemu hasilnya tanpa harus mengetahui nilai setiap v
 

Monox D. I-Fly

Agustus 24, 2014, 09:39:37 PM
bukannya 2p.3q.5r itu maksudnya 2p x 3q x 5r ya? Jadinya 1125000 = 30pqr
 

Sandy_dkk

Agustus 24, 2014, 04:04:27 PM
emang Farabi berpikir tentang apa?
 

Farabi

Agustus 21, 2014, 09:27:23 AM
2p+3q+5r totalnya ada 10 bagian. 2/10 *1125000 untuk p 3/10*1125000 untuk q dan 5/10 *1125000 untuk r. Gitu bukan? Yang kepikiran begitu.

keziakeren17

Agustus 18, 2014, 07:14:43 PM
gk ada yg mau jwb pertanyaan ku di topik
 

reborn

Agustus 18, 2014, 06:47:27 PM
@keziakeren17 bisa post di http://www.forumsains.com/fisika/ atau http://www.forumsains.com/fisika-smu/ ,. Selamat bergabung!

keziakeren17

Agustus 18, 2014, 06:39:36 PM
ada yg bisa bantu jwb soal fisika??

Show 50 latest

Penulis Topik: Pemograman Bascom Avr dengan modem wavecom  (Dibaca 791 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline yahya

  • Siswa Baru
  • *
  • Tulisan: 1
  • IQ: 0
  • ForSa!
    • Lihat Profil
Pemograman Bascom Avr dengan modem wavecom
« pada: Juni 01, 2013, 08:55:12 AM »
[ask] saya buat program dengan bascom avr, tapi saat dijalankan alatnya, smsnya nggak terkirim kenapa ya program saya yang salah atau rangkaian saya..??
Neh kodingnya :

$regfile = "8535def.dat"
$crystal = 8000000
$baud = 9600                                                '19200

$lib "lcd4.lbx"

Dim D As Byte
Dim C As String * 30
Dim S As String * 15
Dim T As String * 10
Dim I As Integer
Dim A As Integer
Dim M As Integer


Declare Sub Alarm
Config Portc.1 = Output                                     'kontak motor
Config Portc.0 = Output                                     'alarm


Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc



Cls
Lcd "Alarm Kendaraan"
Lowerline
Lcd "Terkoneksi HP"
Wait 1


Do
   Gosub Baca
   If I <= 550 And A <= 370 And M <= 490 Then
   Goto Kirim
   Goto Tampilan
   Goto Alarm
     Else
   Gosub Baca
   Portc.0 = 0
   Portc.1 = 0
   End If
Loop
End


Tampilan:
Cls
Locate 1 , 2 : Lcd "Peringatan"
Wait 1


Kirim:
Cursor Off
Cls
Lcd "Kirim SMS"
Waitms 500
Print "AT+CMGS=";
'--no HP penerima--
Print "081266402959"
Waitms 500
'--isi SMS----
Print "Peringatan";
Print Chr(26)
Wait 1
Cls
Lcd "SMS terkirim"
Wait 1



Alarm:
Portc.1 = 1
Portc.0 = 1
Waitms 100
Portc.1 = 0
Waitms 300
Portc.0 = 0


Baca:
I = Getadc(0)
A = Getadc(1)
M = Getadc(2)
Cls
Locate 1 , 1 : Lcd "X="
Locate 1 , 8 : Lcd "Y="
Locate 2 , 1 : Lcd "Z="
Locate 1 , 3 : Lcd I
Locate 1 , 10 : Lcd A
Locate 2 , 3 : Lcd M
Waitms 500
Return



 

Topik Terkait

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
0 Jawaban
3049 Dilihat
Tulisan terakhir Maret 19, 2010, 10:17:32 PM
oleh peb
2 Jawaban
2716 Dilihat
Tulisan terakhir November 08, 2011, 04:29:59 PM
oleh Eko Budianto
0 Jawaban
1282 Dilihat
Tulisan terakhir April 06, 2013, 07:35:45 PM
oleh caturpermadi
0 Jawaban
612 Dilihat
Tulisan terakhir April 22, 2013, 08:02:24 PM
oleh a_die
0 Jawaban
403 Dilihat
Tulisan terakhir Pebruari 05, 2014, 07:58:17 PM
oleh NUGRAHA1

Copyright © 2006-2014 Forum Sains Indonesia