tag:blogger.com,1999:blog-5101583409018752071.post7027458927016680210..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 43 APKOM 4 D3CLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger14125tag:blogger.com,1999:blog-5101583409018752071.post-41005111701073578142012-02-03T19:08:02.353-08:002012-02-03T19:08:02.353-08:00Public Class tugas43_36109067
Dim A As New Ol...Public Class tugas43_36109067<br /><br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /><br /> Private Sub tugas43_36109067_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)<br /> X.Fill(dt)<br /> X.Dispose()<br /> dgv067.DataSource = dt<br /><br /> 'Membuat grafik'<br /> chart067.ColumnCount = 3<br /> chart067.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim PB As Integer = 0<br /><br /> For Each ina As DataRow In dt.Rows<br /> PB = PB + 1<br /><br /> chart067.Row = PB<br /> chart067.RowLabel = ina("KODE BARANG")<br /><br /> chart067.Column = 1<br /> chart067.Data = ina("UNIT")<br /><br /> chart067.Column = 2<br /> chart067.Data = ina("RATA-RATA HARGA") / 1000<br /><br /> chart067.Column = 3<br /> chart067.Data = ina("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End ClassValennduthttps://www.blogger.com/profile/07994956727872982084noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24973858534795949292011-12-20T08:19:23.879-08:002011-12-20T08:19:23.879-08:00Public Class latihan43
Dim nurul As New OleDb....Public Class latihan43<br /> Dim nurul As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")<br /> Dim dt As New DataTable<br /><br /> Private Sub latihan43_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", nurul)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> a.Dispose()<br /><br /> dgv.DataSource = dt<br /><br /> ilmi.ColumnCount = 3<br /> ilmi.RowCount = dt.Rows.Count<br /><br /> Dim fikri As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> fikri += 1<br /><br /> ilmi.Row = fikri<br /> ilmi.RowLabel = x("kode barang")<br /><br /> ilmi.Column = 1<br /> ilmi.Data = x("unit")<br /><br /> ilmi.Column = 2<br /> ilmi.Data = x("rata-rata harga") / 1000<br /><br /> ilmi.Column = 3<br /> ilmi.Data = x("jumlah") / 10000<br /> Next<br /> End Sub<br />End ClassAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-14787582289432402622011-12-16T05:18:18.710-08:002011-12-16T05:18:18.710-08:00Public Class Form43
Dim fatma As New DataTabl...Public Class Form43<br /><br /> Dim fatma As New DataTable<br /> Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /><br /> Private Sub Form43_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim oto As New OleDb.OleDbDataAdapter<br /> oto = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)<br /> oto.Fill(fatma)<br /> DataGridView057.DataSource = fatma<br /> oto.Dispose()<br /><br /> 'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat<br /> grafik057.RowCount = fatma.Rows.Count()<br /> grafik057.ColumnCount = 3<br /><br /> 'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel dtkeuangan<br /> Dim bone As Integer = 0<br /><br /> For Each BarisX As DataRow In fatma.Rows<br /> bone = bone + 1<br /><br /> grafik057.Row = bone<br /> grafik057.RowLabel = BarisX("KODE BARANG")<br /><br /> grafik057.Column = 1<br /> grafik057.Data = BarisX("UNIT")<br /><br /> grafik057.Column = 2<br /> grafik057.Data = BarisX("RATA-RATA HARGA") / 1000<br /><br /> grafik057.Column = 3<br /> grafik057.Data = BarisX("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End ClassFatma Sari Adhy Suryahttps://www.blogger.com/profile/11253154708686707188noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-48001662106886718782011-12-15T20:46:50.910-08:002011-12-15T20:46:50.910-08:00Public Class Form4336109062
Dim KJS As New Ole...Public Class Form4336109062<br /> Dim KJS As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Data Grafik.ACCDB")<br /> Dim dt As New DataTable<br /> <br /> Private Sub Form4336109062_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim b As New OleDb.OleDbDataAdapter<br /> b = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", KJS)<br /> dt.Rows.Clear()<br /> b.Fill(dt)<br /> b.Dispose()<br /><br /> dgv062.DataSource = dt<br /> urim.ColumnCount = 3<br /> urim.RowCount = dt.Rows.Count<br /><br /> Dim fani As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> fani += 1<br /><br /> urim.Row = fani<br /> urim.RowLabel = x("kode barang")<br /><br /> urim.Column = 1<br /> urim.Data = x("unit")<br /><br /> urim.Column = 2<br /> urim.Data = x("rata-rata harga") / 1000<br /><br /> urim.Column = 3<br /> urim.Data = x("jumlah") / 10000<br /> Next<br /> End Sub<br />End Class4nHyTombhttps://www.blogger.com/profile/03847522022217006398noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-27375099265849189732011-12-15T20:31:17.556-08:002011-12-15T20:31:17.556-08:00Public Class Latihan43_36109073
Dim AA As New...Public Class Latihan43_36109073<br /><br /> Dim AA As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /><br /> Private Sub Latihan43_36109073_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim Y As New OleDb.OleDbDataAdapter<br /> Y = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", AA)<br /> Y.Fill(dt)<br /> Y.Dispose()<br /> DGV3073.DataSource = dt<br /><br /> 'Membuat grafik'<br /> Chart3073.ColumnCount = 3<br /> Chart3073.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim EK As Integer = 0<br /><br /> For Each EVI As DataRow In dt.Rows<br /> EK = EK + 1<br /><br /> Chart3073.Row = EK<br /> Chart3073.RowLabel = EVI("KODE BARANG")<br /><br /> Chart3073.Column = 1<br /> Chart3073.Data = EVI("UNIT")<br /><br /> Chart3073.Column = 2<br /> Chart3073.Data = EVI("RATA-RATA HARGA") / 1000<br /><br /> Chart3073.Column = 3<br /> Chart3073.Data = EVI("JUMLAH") / 1000<br /> Next<br /><br /> End Sub<br />End Classevianty_3vhy3https://www.blogger.com/profile/13448486603779206839noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-9844209362412462342011-12-15T20:30:40.388-08:002011-12-15T20:30:40.388-08:00Public Class Latihan_43_09079
Dim cate As New ...Public Class Latihan_43_09079<br /> Dim cate As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")<br /> Dim dt As New DataTable<br /><br /> Private Sub Latihan_43_09079_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", cate)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> a.Dispose()<br /><br /> dgv079.DataSource = dt<br /><br /> catherine.ColumnCount = 3<br /> catherine.RowCount = dt.Rows.Count<br /><br /> Dim pkkp As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> pkkp += 1<br /><br /> catherine.Row = pkkp<br /> catherine.RowLabel = x("kode barang")<br /><br /> catherine.Column = 1<br /> catherine.Data = x("unit")<br /><br /> catherine.Column = 2<br /> catherine.Data = x("rata-rata harga") / 1000<br /><br /> catherine.Column = 3<br /> catherine.Data = x("jumlah") / 10000<br /> Next<br /> End Sub<br />End Classcatherine parubakhttps://www.blogger.com/profile/09908430394301408120noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-78566838943061006432011-12-15T20:24:08.587-08:002011-12-15T20:24:08.587-08:00Public Class latihan4336109061
Dim Mjl As New ...Public Class latihan4336109061<br /> Dim Mjl As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")<br /> Dim dt As New DataTable<br /><br /> Private Sub Latihan4336109061_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim L As New OleDb.OleDbDataAdapter<br /> L = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Mjl)<br /> dt.Rows.Clear()<br /> L.Fill(dt)<br /> L.Dispose()<br /><br /> dgvku.DataSource = dt<br /><br /> lilis.ColumnCount = 3<br /> lilis.RowCount = dt.Rows.Count<br /><br /> Dim lili As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> lili += 1<br /><br /> lilis.Row = lili<br /> lilis.RowLabel = x("kode barang")<br /><br /> lilis.Column = 1<br /> lilis.Data = x("unit")<br /><br /> lilis.Column = 2<br /> lilis.Data = x("rata-rata harga") / 1000<br /><br /> lilis.Column = 3<br /> lilis.Data = x("jumlah") / 10000<br /> Next<br /> End Sub<br />End Classlilis mulyanihttps://www.blogger.com/profile/07761997754305615481noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-12410498894853287392011-12-15T20:22:00.453-08:002011-12-15T20:22:00.453-08:00Public Class latihan_43_36109074
Dim krisna As...Public Class latihan_43_36109074<br /> Dim krisna As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim ks As New DataTable<br /> Private Sub latihan_43_36109074_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim k As New OleDb.OleDbDataAdapter<br /> k = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", krisna)<br /> k.Fill(ks)<br /> k.Dispose()<br /> dgv_074.DataSource = ks<br /><br /> 'Membuat grafik'<br /> chart_074.ColumnCount = 3<br /> chart_074.RowCount = ks.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim tati As Integer = 0<br /><br /> For Each ano As DataRow In ks.Rows<br /> tati = tati + 1<br /><br /> chart_074.Row = tati<br /> chart_074.RowLabel = ano("KODE BARANG")<br /><br /> chart_074.Column = 1<br /> chart_074.Data = ano("UNIT")<br /><br /> chart_074.Column = 2<br /> chart_074.Data = ano("RATA-RATA HARGA") / 1000<br /><br /> chart_074.Column = 3<br /> chart_074.Data = ano("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End ClassKrisnaSamanhttps://www.blogger.com/profile/11914093621544159142noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50191763215756241592011-12-15T20:21:36.228-08:002011-12-15T20:21:36.228-08:00Public Class Form4336109084
Dim dfa As New Ole...Public Class Form4336109084<br /> Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")<br /> Dim dt As New DataTable<br /> Private Sub Form4336109084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", dfa)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> a.Dispose()<br /><br /> dgv_084.DataSource = dt<br /><br /> chart_084.ColumnCount = 3<br /> chart_084.RowCount = dt.Rows.Count<br /><br /> Dim ical As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> ical += 1<br /><br /> chart_084.Row = ical<br /> chart_084.RowLabel = x("kode barang")<br /><br /> chart_084.Column = 1<br /> chart_084.Data = x("unit")<br /><br /> chart_084.Column = 2<br /> chart_084.Data = x("rata-rata harga") / 1000<br /><br /> chart_084.Column = 3<br /> chart_084.Data = x("jumlah") / 10000<br /> Next<br /> End Sub<br />End Classaditya.Derielhttps://www.blogger.com/profile/18345720865620289243noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-90296907074017735952011-12-15T20:14:36.758-08:002011-12-15T20:14:36.758-08:00Public Class LATIHAN04336109060
Dim AD As New ...Public Class LATIHAN04336109060<br /> Dim AD As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /><br /> Private Sub Latihan43017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim A As New OleDb.OleDbDataAdapter<br /> A = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", AD)<br /> A.Fill(dt)<br /> A.Dispose()<br /> DGV3_060.DataSource = dt<br /><br /> 'Membuat grafik'<br /> Grafik3.ColumnCount = 3<br /> Grafik3.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim PB As Integer = 0<br /><br /> For Each ina As DataRow In dt.Rows<br /> PB = PB + 1<br /><br /> Grafik3.Row = PB<br /> Grafik3.RowLabel = ina("KODE BARANG")<br /><br /> Grafik3.Column = 1<br /> Grafik3.Data = ina("UNIT")<br /><br /> Grafik3.Column = 2<br /> Grafik3.Data = ina("RATA-RATA HARGA") / 1000<br /><br /> Grafik3.Column = 3<br /> Grafik3.Data = ina("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End Classsarshehttps://www.blogger.com/profile/06051711036399551052noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-20231864321576760122011-12-15T19:13:46.182-08:002011-12-15T19:13:46.182-08:00Public Class Form43068
Dim A As New OleDb.OleD...Public Class Form43068<br /> Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /> Private Sub Form43068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", A)<br /> X.Fill(dt)<br /> X.Dispose()<br /> dgv068.DataSource = dt<br /><br /> 'Membuat grafik'<br /> Chart068.ColumnCount = 3<br /> Chart068.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim PB As Integer = 0<br /><br /> For Each ina As DataRow In dt.Rows<br /> PB = PB + 1<br /><br /> Chart068.Row = PB<br /> Chart068.RowLabel = ina("KODE BARANG")<br /><br /> Chart068.Column = 1<br /> Chart068.Data = ina("UNIT")<br /><br /> Chart068.Column = 2<br /> Chart068.Data = ina("RATA-RATA HARGA") / 1000<br /><br /> Chart068.Column = 3<br /> Chart068.Data = ina("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End Classasnihttps://www.blogger.com/profile/11551071046802583023noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-65057413524702459172011-12-15T19:12:00.670-08:002011-12-15T19:12:00.670-08:00Public Class Latihan_43_059
Dim k As New OleDb...Public Class Latihan_43_059<br /> Dim k As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /><br /> Private Sub Latihan_43_059_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", k)<br /> X.Fill(dt)<br /> X.Dispose()<br /> cika059.DataSource = dt<br /><br /> 'Membuat grafik'<br /> chart059.ColumnCount = 3<br /> chart059.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim PB As Integer = 0<br /><br /> For Each cika As DataRow In dt.Rows<br /> PB = PB + 1<br /><br /> chart059.Row = PB<br /> chart059.RowLabel = cika("KODE BARANG")<br /><br /> chart059.Column = 1<br /> chart059.Data = cika("UNIT")<br /><br /> chart059.Column = 2<br /> chart059.Data = cika("RATA-RATA HARGA") / 1000<br /><br /> chart059.Column = 3<br /> chart059.Data = cika("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End Classkartikalady_crofthttps://www.blogger.com/profile/08438783166331959612noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-85296714430359686992011-12-15T00:53:58.688-08:002011-12-15T00:53:58.688-08:00Public Class LATIHAN_043_36109075
Dim pute As ...Public Class LATIHAN_043_36109075<br /> Dim pute As New DataTable<br /> Dim AB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> <br /> Private Sub LATIHAN_043_36109075_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim mobil As New OleDb.OleDbDataAdapter<br /> mobil = New OleDb.OleDbDataAdapter("select* from QpembelianPerJenisBarang", AB)<br /> mobil.Fill(pute)<br /> putry075.DataSource = pute<br /> mobil.Dispose()<br /><br /> 'membuat jumlah baris dan jumlah kolom grafik yang akan dibuat<br /> putryalfatih.RowCount = pute.Rows.Count()<br /> putryalfatih.ColumnCount = 3<br /><br /> 'memasukkan data ke setiap baris dan setiap kolom dari Data Tabel QpembelianPerJenisBarang<br /> Dim LORENZO As Integer = 0<br /><br /> For Each BarisX As DataRow In pute.Rows<br /> LORENZO = LORENZO + 1<br /><br /> putryalfatih.Row = LORENZO<br /> putryalfatih.RowLabel = BarisX("KODE BARANG")<br /><br /> putryalfatih.Column = 1<br /> putryalfatih.Data = BarisX("UNIT")<br /><br /> putryalfatih.Column = 2<br /> putryalfatih.Data = BarisX("RATA-RATA HARGA") / 1000<br /><br /> putryalfatih.Column = 3<br /> putryalfatih.Data = BarisX("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End ClassPute_Zonehttps://www.blogger.com/profile/16879139098125279475noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-1227569722648162692011-12-14T03:41:30.202-08:002011-12-14T03:41:30.202-08:00Public Class latihan_43_36109058
Dim yunha As ...Public Class latihan_43_36109058<br /> Dim yunha As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim dt As New DataTable<br /> Private Sub latihan_43_36109058_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim yh As New OleDb.OleDbDataAdapter<br /> yh = New OleDb.OleDbDataAdapter("Select * From QPembelianPerJenisBarang", yunha)<br /> yh.Fill(dt)<br /> yh.Dispose()<br /> dgv3.DataSource = dt<br /><br /> 'Membuat grafik'<br /> AxMSChart3.ColumnCount = 3<br /> AxMSChart3.RowCount = dt.Rows.Count<br /><br /> 'Membuat tabel dalam grafik'<br /> Dim yi As Integer = 0<br /><br /> For Each dn As DataRow In dt.Rows<br /> yi = yi + 1<br /><br /> AxMSChart3.Row = yi<br /> AxMSChart3.RowLabel = dn("KODE BARANG")<br /><br /> AxMSChart3.Column = 1<br /> AxMSChart3.Data = dn("UNIT")<br /><br /> AxMSChart3.Column = 2<br /> AxMSChart3.Data = dn("RATA-RATA HARGA") / 1000<br /><br /> AxMSChart3.Column = 3<br /> AxMSChart3.Data = dn("JUMLAH") / 1000<br /> Next<br /> End Sub<br />End ClassYounha Sanggahttps://www.blogger.com/profile/15766300290127471581noreply@blogger.com